[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 (file)
--- 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