X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Finterpreter%2Foptimise.c;fp=ghc%2Finterpreter%2Foptimise.c;h=a8913891bf1e1a535b0a885ef1b9b0c5c3046ad8;hb=9da01c710daee2cd5038afb8fad761cdaf343033;hp=170a0c6119d9a064c6b581bd9efee8a4e31c59a9;hpb=a41d833a9b8377b6c03d86a7b023c1def41d97d1;p=ghc-hetmet.git

diff --git a/ghc/interpreter/optimise.c b/ghc/interpreter/optimise.c
index 170a0c6..a891389 100644
--- a/ghc/interpreter/optimise.c
+++ b/ghc/interpreter/optimise.c
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: optimise.c,v $
- * $Revision: 1.3 $
- * $Date: 1999/02/03 17:08:33 $
+ * $Revision: 1.4 $
+ * $Date: 1999/03/09 14:51:09 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -45,9 +45,11 @@ static StgAtom optimiseAtom(StgAtom a)
 static StgVar optimiseVar(StgVar v)
 {
     StgRhs rhs = stgVarBody(v);
-    /* short circuit: let x = y in ...x... --> let x = y ...y... */
+fprintf(stderr,"optimiseVar ");printStg(stderr,v);fprintf(stderr,"\n");
+    /* short circuit: let x = y in ...x... --> let x = y in ...y... */
     if (whatIs(rhs) == STGVAR && rhs != v) {
 	StgVar v1 = rhs;
+fprintf(stderr, "dumpable\n");
 
 	/* find last variable in chain */
 	rhs = stgVarBody(v1);
@@ -75,7 +77,8 @@ static StgVar optimiseVar(StgVar v)
 
 void optimiseBind( StgVar v )
 {
-    StgRhs rhs = stgVarBody(v);
+    StgRhs rhs;
+    rhs = stgVarBody(v);
     switch (whatIs(rhs)) {
     case STGCON:
             mapOver(optimiseAtom,stgConArgs(rhs));
@@ -122,7 +125,9 @@ static StgExpr optimiseExpr( StgExpr e )
 			 * by optimiseVar so we can drop the binding
 			 * right now.
 			 */
+fprintf(stderr, "dropping bind ");printStg(stderr,b);fprintf(stderr, "\n");
 		    } else {
+fprintf(stderr, "retaining bind ");printStg(stderr,b);fprintf(stderr, "\n");
 			binds = cons(hd(bs),binds);
 		    }
 		}
@@ -210,4 +215,22 @@ static StgExpr optimiseExpr( StgExpr e )
     return e;
 }
 
+
+void optimiseTopBind( StgVar v )
+{
+if (lastModule() != modulePrelude) {
+fflush(stdout); fflush(stderr);
+fprintf ( stderr, "------------------------------\n" );
+fflush(stderr);
+printStg ( stderr, v );
+fprintf(stderr, "\n" );
+}
+optimiseBind ( v );
+if (lastModule() != modulePrelude) {
+printStg ( stderr,v );
+fprintf(stderr, "\n\n" );
+fflush(stderr);
+}
+}
+
 /*-------------------------------------------------------------------------*/