From 503a27d2a83a70fc82a6e91ce8f72ca4c996f4e8 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Aug 1998 11:03:37 +0000 Subject: [PATCH] [project @ 1998-08-14 11:03:37 by sof] {Save,Restore}AllStgRegs: save and restore LngRegs --- ghc/includes/StgRegs.lh | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) 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 -- 1.7.10.4