From: sof <unknown>
Date: Fri, 14 Aug 1998 10:54:51 +0000 (+0000)
Subject: [project @ 1998-08-14 10:54:51 by sof]
X-Git-Tag: Approx_2487_patches~442
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=da28179d51055b96cc7bcddac1efea79133abde8;p=ghc-hetmet.git

[project @ 1998-08-14 10:54:51 by sof]
callWrapper: Save and restore LngRegs if needs be
---

diff --git a/ghc/runtime/c-as-asm/CallWrap_C.lc b/ghc/runtime/c-as-asm/CallWrap_C.lc
index 7985735..96892ba 100644
--- 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