diff options
| -rw-r--r-- | ghc/interpreter/hugs.c | 6 | ||||
| -rw-r--r-- | ghc/rts/Evaluator.c | 5 |
2 files changed, 6 insertions, 5 deletions
diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c index bb8fa93ad5..9610ed26e9 100644 --- a/ghc/interpreter/hugs.c +++ b/ghc/interpreter/hugs.c @@ -9,8 +9,8 @@ * included in the distribution. * * $RCSfile: hugs.c,v $ - * $Revision: 1.19 $ - * $Date: 1999/11/12 17:32:39 $ + * $Revision: 1.20 $ + * $Date: 1999/11/12 17:50:01 $ * ------------------------------------------------------------------------*/ #include <setjmp.h> @@ -316,7 +316,7 @@ String argv[]; { } } -#ifdef DEBUG +#if DEBUG DEBUG_LoadSymbols(argv_0_orig); #endif diff --git a/ghc/rts/Evaluator.c b/ghc/rts/Evaluator.c index 87e561682e..aece2e31c9 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.25 $ - * $Date: 1999/11/08 15:30:33 $ + * $Revision: 1.26 $ + * $Date: 1999/11/12 17:50:04 $ * ---------------------------------------------------------------------------*/ #include "Rts.h" @@ -1259,6 +1259,7 @@ StgThreadReturnCode enter( Capability* cap, StgClosure* obj0 ) Case(i_VAR_CHAR_big): Case(i_CONST_ADDR_big): Case(i_VAR_ADDR_big): + Case(i_VAR_STABLE_big): Case(i_CONST_INTEGER_big): Case(i_CONST_INT_big): Case(i_VAR_INT_big): |