diff options
Diffstat (limited to 'ghc/interpreter/codegen.c')
| -rw-r--r-- | ghc/interpreter/codegen.c | 33 |
1 files changed, 18 insertions, 15 deletions
diff --git a/ghc/interpreter/codegen.c b/ghc/interpreter/codegen.c index 5ef8e28463..42059511cf 100644 --- a/ghc/interpreter/codegen.c +++ b/ghc/interpreter/codegen.c @@ -7,8 +7,8 @@ * Hugs version 1.4, December 1997 * * $RCSfile: codegen.c,v $ - * $Revision: 1.4 $ - * $Date: 1999/03/01 14:46:42 $ + * $Revision: 1.5 $ + * $Date: 1999/03/09 14:51:04 $ * ------------------------------------------------------------------------*/ #include "prelude.h" @@ -636,22 +636,25 @@ Void cgBinds( List binds ) List b; int i; - //if (lastModule() != modulePrelude) { - // printf("\n\ncgBinds: before ll\n\n" ); - // for (b=binds; nonNull(b); b=tl(b)) { - // printStg ( stdout, hd(b) ); printf("\n\n"); - // } - //} +#if 0 + if (lastModule() != modulePrelude) { + printf("\n\ncgBinds: before ll\n\n" ); + for (b=binds; nonNull(b); b=tl(b)) { + printStg ( stdout, hd(b) ); printf("\n\n"); + } + } +#endif binds = liftBinds(binds); - //if (lastModule() != modulePrelude) { - // printf("\n\ncgBinds: after ll\n\n" ); - // for (b=binds; nonNull(b); b=tl(b)) { - // printStg ( stdout, hd(b) ); printf("\n\n"); - // } - //} - +#if 0 + if (lastModule() != modulePrelude) { + printf("\n\ncgBinds: after ll\n\n" ); + for (b=binds; nonNull(b); b=tl(b)) { + printStg ( stdout, hd(b) ); printf("\n\n"); + } + } +#endif //mapProc(beginTop,binds); for (b=binds,i=0; nonNull(b); b=tl(b),i++) { |