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

[project @ 1998-08-14 11:03:37 by sof]
{Save,Restore}AllStgRegs: save and restore LngRegs
---

diff --git a/ghc/includes/StgRegs.lh b/ghc/includes/StgRegs.lh
index f5664f9..10f447e 100644
--- a/ghc/includes/StgRegs.lh
+++ b/ghc/includes/StgRegs.lh
@@ -116,6 +116,14 @@ void SaveAllStgRegs(STG_NO_ARGS)
     SAVE_Dbl2 = DblReg2;
 #endif
 
+#ifdef REG_Lng1
+    SAVE_Lng1 = LngReg1;
+#endif
+
+#ifdef REG_Lng2
+    SAVE_Lng2 = LngReg2;
+#endif
+
 #ifdef REG_Tag
     SAVE_Tag = TagReg;
 #endif
@@ -254,6 +262,14 @@ RestoreAllStgRegs (STG_NO_ARGS)
     DblReg2 = SAVE_Dbl2;
 #endif
 
+#ifdef REG_Lng1
+    LngReg1 = SAVE_Lng1;
+#endif
+
+#ifdef REG_Lng2
+    LngReg2 = SAVE_Lng2;
+#endif
+
 #ifdef REG_Tag
     TagReg = SAVE_Tag;
 #endif