projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
[project @ 2000-08-21 15:40:14 by sewardj]
[ghc-hetmet.git]
/
ghc
/
compiler
/
nativeGen
/
StixMacro.lhs
diff --git
a/ghc/compiler/nativeGen/StixMacro.lhs
b/ghc/compiler/nativeGen/StixMacro.lhs
index
415d7c8
..
7127883
100644
(file)
--- a/
ghc/compiler/nativeGen/StixMacro.lhs
+++ b/
ghc/compiler/nativeGen/StixMacro.lhs
@@
-212,7
+212,7
@@
stg_update_PAP = StCLbl mkStgUpdatePAPLabel
updatePAP, stackOverflow :: StixTree
updatePAP, stackOverflow :: StixTree
-updatePAP = StJump stg_update_PAP
+updatePAP = StJump NoDestInfo stg_update_PAP
stackOverflow = StCall SLIT("StackOverflow") cCallConv VoidRep []
\end{code}
stackOverflow = StCall SLIT("StackOverflow") cCallConv VoidRep []
\end{code}
@@
-338,7
+338,7
@@
checkCode macro args assts
mkStJump_to_GCentry :: String -> StixTree
mkStJump_to_GCentry gcname
-- | opt_Static
mkStJump_to_GCentry :: String -> StixTree
mkStJump_to_GCentry gcname
-- | opt_Static
- = StJump (StCLbl (mkRtsGCEntryLabel gcname))
+ = StJump NoDestInfo (StCLbl (mkRtsGCEntryLabel gcname))
-- | otherwise -- it's in a different DLL
-- = StJump (StInd PtrRep (StLitLbl True sdoc))
-- | otherwise -- it's in a different DLL
-- = StJump (StInd PtrRep (StLitLbl True sdoc))