From: sewardj <unknown>
Date: Wed, 28 Apr 1999 12:59:51 +0000 (+0000)
Subject: [project @ 1999-04-28 12:59:51 by sewardj]
X-Git-Tag: Approximately_9120_patches~6278
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=905723b2636ce326505bf3a3cb5e5953fd07b726;p=ghc-hetmet.git

[project @ 1999-04-28 12:59:51 by sewardj]
Nano-fixes to make it work on sparc-solaris.
---

diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c
index 68ef09f..575a028 100644
--- a/ghc/rts/Evaluator.c
+++ b/ghc/rts/Evaluator.c
@@ -5,8 +5,8 @@
  * Copyright (c) 1994-1998.
  *
  * $RCSfile: Evaluator.c,v $
- * $Revision: 1.14 $
- * $Date: 1999/04/27 14:07:55 $
+ * $Revision: 1.15 $
+ * $Date: 1999/04/28 12:59:51 $
  * ---------------------------------------------------------------------------*/
 
 #include "Rts.h"
@@ -490,7 +490,7 @@ StgThreadReturnCode enter( StgClosure* obj0 )
             /* Start of the bytecode evaluator                      */
             /* ---------------------------------------------------- */
         {
-#           if !DEBUG && USE_GCC_LABELS
+#           if USE_GCC_LABELS
 #           define Ins(x)          &&l##x
             static void *labs[] = { INSTRLIST };
 #           undef Ins
@@ -532,11 +532,11 @@ StgThreadReturnCode enter( StgClosure* obj0 )
             fprintf(stderr,"Sp = %p\tSu = %p\tpc = %d\t", xSp, xSu, PC);
                     SSS;
                     disInstr(bco,PC);
-                    //{ int i;
-                    //fprintf(stderr,"\n");
-                    //  for (i = 4; i >= 0; i--) 
-                    //     fprintf(stderr, "%d  %p\n", i, (StgPtr)(*(Sp+i)));
-                    //  }
+                    { int i;
+                    fprintf(stderr,"\n");
+                      for (i = 8; i >= 0; i--) 
+                         fprintf(stderr, "%d  %p\n", i, (StgPtr)(*(Sp+i)));
+                      }
                     fprintf(stderr,"\n");
                     LLL;
                    );