projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Never jump directly to a thunk's entry code, even if it is single-entry
[ghc-hetmet.git]
/
compiler
/
codeGen
/
CgForeignCall.hs
diff --git
a/compiler/codeGen/CgForeignCall.hs
b/compiler/codeGen/CgForeignCall.hs
index
879d043
..
901dd96
100644
(file)
--- a/
compiler/codeGen/CgForeignCall.hs
+++ b/
compiler/codeGen/CgForeignCall.hs
@@
-78,16
+78,9
@@
emitForeignCall results (CCall (CCallSpec target cconv safety)) args live
where
(call_args, cmm_target)
= case target of
where
(call_args, cmm_target)
= case target of
-
- -- A target label known to be in the current package.
- StaticTarget lbl
- -> ( args
- , CmmLit (CmmLabel
- (mkForeignLabel lbl call_size ForeignLabelInThisPackage IsFunction)))
-
-- If the packageId is Nothing then the label is taken to be in the
-- package currently being compiled.
-- If the packageId is Nothing then the label is taken to be in the
-- package currently being compiled.
- PackageTarget lbl mPkgId
+ StaticTarget lbl mPkgId
-> let labelSource
= case mPkgId of
Nothing -> ForeignLabelInThisPackage
-> let labelSource
= case mPkgId of
Nothing -> ForeignLabelInThisPackage