From a1b2c187c24397dd080ed6699da38bc7af2546ec Mon Sep 17 00:00:00 2001 From: sof Date: Sun, 16 Aug 1998 17:44:07 +0000 Subject: [PATCH] [project @ 1998-08-16 17:44:07 by sof] More of same --- ghc/runtime/c-as-asm/StgDebug.lc | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/ghc/runtime/c-as-asm/StgDebug.lc b/ghc/runtime/c-as-asm/StgDebug.lc index fe05cdc..5107061 100644 --- a/ghc/runtime/c-as-asm/StgDebug.lc +++ b/ghc/runtime/c-as-asm/StgDebug.lc @@ -1561,8 +1561,10 @@ DEBUG_REGS() StgFloat FltReg4 = SAVE_Flt4; StgDouble DblReg1 = SAVE_Dbl1; StgDouble DblReg2 = SAVE_Dbl2; +#if HAVE_LONG_LONG StgDouble LngReg1 = SAVE_Lng1; StgDouble LngReg2 = SAVE_Lng2; +#endif fprintf(stderr,"STG-Machine Register Values:\n\n"); fprintf(stderr,"Node: %08lx; Hp: %08lx; HpLim: %08lx; Tag: %8lu\n",Node,(W_)Hp,(W_)HpLim,TagReg); @@ -1584,7 +1586,9 @@ DEBUG_REGS() fprintf(stderr," %8lu, %8lu, %8lu, %8lu\n",R5.i,R6.i,R7.i,R8.i); fprintf(stderr,"Float: %8g, %8g, %8g, %8g\n",FltReg1,FltReg2,FltReg3,FltReg4); fprintf(stderr,"Dble: %8g, %8g\n",DblReg1,DblReg2); +#if HAVE_LONG_LONG fprintf(stderr,"Long: %8lu, %8lu\n",LngReg1,LngReg2); +#endif } #ifndef CONCURRENT -- 1.7.10.4