projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Follow ForeignLabel changes in PPC NCG
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
PPC
/
CodeGen.hs
diff --git
a/compiler/nativeGen/PPC/CodeGen.hs
b/compiler/nativeGen/PPC/CodeGen.hs
index
8eb515e
..
1215b2e
100644
(file)
--- a/
compiler/nativeGen/PPC/CodeGen.hs
+++ b/
compiler/nativeGen/PPC/CodeGen.hs
@@
-22,7
+22,7
@@
where
#include "HsVersions.h"
#include "nativeGen/NCG.h"
#include "HsVersions.h"
#include "nativeGen/NCG.h"
-#include "MachDeps.h"
+#include "../includes/MachDeps.h"
-- NCG stuff:
import PPC.Instr
-- NCG stuff:
import PPC.Instr
@@
-1059,7
+1059,7
@@
genCCall target dest_regs argsAndHints
do
dflags <- getDynFlagsNat
mopExpr <- cmmMakeDynamicReference dflags addImportNat CallReference $
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
let mopLabelOrExpr = case mopExpr of
CmmLit (CmmLabel lbl) -> Left lbl
_ -> Right mopExpr