[project @ 1998-11-26 09:17:22 by sof]

[ghc-hetmet.git] / ghc / runtime / c-as-asm / CallWrap_C.lc

diff --git a/ghc/runtime/c-as-asm/CallWrap_C.lc b/ghc/runtime/c-as-asm/CallWrap_C.lc
index 7985735..96892ba 100644 (file)
--- a/ghc/runtime/c-as-asm/CallWrap_C.lc
+++ b/ghc/runtime/c-as-asm/CallWrap_C.lc
@@ -44,6 +44,8 @@ callWrapper(STG_NO_ARGS)
     CALLER_SAVE_FltReg4
     CALLER_SAVE_DblReg1
     CALLER_SAVE_DblReg2
+    CALLER_SAVE_LngReg1
+    CALLER_SAVE_LngReg2
     CALLER_SAVE_Tag
     CALLER_SAVE_SpA
     CALLER_SAVE_SuA
@@ -73,6 +75,8 @@ callWrapper(STG_NO_ARGS)
     CALLER_RESTORE_FltReg4
     CALLER_RESTORE_DblReg1
     CALLER_RESTORE_DblReg2
+    CALLER_RESTORE_LngReg1
+    CALLER_RESTORE_LngReg2
     CALLER_RESTORE_Tag
     CALLER_RESTORE_SpA
     CALLER_RESTORE_SuA