diff options
| author | sof <unknown> | 1998-08-14 12:00:33 +0000 |
|---|---|---|
| committer | sof <unknown> | 1998-08-14 12:00:33 +0000 |
| commit | 91b4fb8d9cd5bdefb552e643df8bedab0ec2a526 (patch) | |
| tree | a33fb846b8d8b1952b157dda39cee65162cfe244 /ghc/compiler/nativeGen/StixMacro.lhs | |
| parent | 647eb48674623156f7f5b699e4ecee9410ff585f (diff) | |
| download | haskell-91b4fb8d9cd5bdefb552e643df8bedab0ec2a526.tar.gz | |
[project @ 1998-08-14 12:00:22 by sof]
StCall now takes extra callconv arg; StixPrim.primCode doesn't flush stdout and stderr anymore (it's done in the .hc code)
Diffstat (limited to 'ghc/compiler/nativeGen/StixMacro.lhs')
| -rw-r--r-- | ghc/compiler/nativeGen/StixMacro.lhs | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/ghc/compiler/nativeGen/StixMacro.lhs b/ghc/compiler/nativeGen/StixMacro.lhs index ab0ecc48be..3d1e5649e7 100644 --- a/ghc/compiler/nativeGen/StixMacro.lhs +++ b/ghc/compiler/nativeGen/StixMacro.lhs @@ -12,6 +12,7 @@ import {-# SOURCE #-} StixPrim ( amodeToStix ) import MachMisc import MachRegs import AbsCSyn ( CStmtMacro(..), MagicId(..), mkIntCLit, CAddrMode ) +import CallConv ( cCallConv ) import Constants ( uF_RET, uF_SUA, uF_SUB, uF_UPDATEE, sTD_UF_SIZE ) @@ -284,7 +285,7 @@ heapCheck liveness words reenter cjmp = StCondJump ulbl test arg = StPrim IntAddOp [StPrim IntMulOp [words, StInt 256], liveness] -- ToDo: Overflow? (JSM) - gc = StCall SLIT("PerformGC_wrapper") VoidRep [arg] + gc = StCall SLIT("PerformGC_wrapper") cCallConv VoidRep [arg] join = StLabel ulbl in returnUs (\xs -> assign : cjmp : gc : join : xs) @@ -306,5 +307,5 @@ ind_info = sStLitLbl SLIT("Ind_info") updatePAP, stackOverflow :: StixTree updatePAP = StJump (sStLitLbl SLIT("UpdatePAP")) -stackOverflow = StCall SLIT("StackOverflow") VoidRep [] +stackOverflow = StCall SLIT("StackOverflow") cCallConv VoidRep [] \end{code} |