X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FStgDebug.lc;h=51070611246bbf5bcc3cb60247e2e7262e9f58b7;hb=967cc47f37cb93a5e2b6df7822c9a646f0428247;hp=f0800c50d8f17aeb690b3bef9f38fb3b5a12dbe5;hpb=75bd5baff9898d8779fc8ddc2419efe502289f71;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/StgDebug.lc b/ghc/runtime/c-as-asm/StgDebug.lc
index f0800c5..5107061 100644
--- a/ghc/runtime/c-as-asm/StgDebug.lc
+++ b/ghc/runtime/c-as-asm/StgDebug.lc
@@ -1561,6 +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);
@@ -1582,6 +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