projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
7854ec4
)
Follow ForeignLabel changes in PPC NCG
author
Ben.Lippmeier@anu.edu.au
<unknown>
Sat, 2 Jan 2010 06:23:15 +0000
(06:23 +0000)
committer
Ben.Lippmeier@anu.edu.au
<unknown>
Sat, 2 Jan 2010 06:23:15 +0000
(06:23 +0000)
compiler/nativeGen/PPC/CodeGen.hs
patch
|
blob
|
history
diff --git
a/compiler/nativeGen/PPC/CodeGen.hs
b/compiler/nativeGen/PPC/CodeGen.hs
index
495296a
..
1215b2e
100644
(file)
--- a/
compiler/nativeGen/PPC/CodeGen.hs
+++ b/
compiler/nativeGen/PPC/CodeGen.hs
@@
-1059,7
+1059,7
@@
genCCall target dest_regs argsAndHints
do
dflags <- getDynFlagsNat
mopExpr <- cmmMakeDynamicReference dflags addImportNat CallReference $
- mkForeignLabel functionName Nothing True IsFunction
+ mkForeignLabel functionName Nothing ForeignLabelInThisPackage IsFunction
let mopLabelOrExpr = case mopExpr of
CmmLit (CmmLabel lbl) -> Left lbl
_ -> Right mopExpr