[project @ 1999-10-26 08:30:31 by simonmar]

[ghc-hetmet.git] / ghc / interpreter / optimise.c

diff --git a/ghc/interpreter/optimise.c b/ghc/interpreter/optimise.c
index 313116c..7341076 100644 (file)
--- a/ghc/interpreter/optimise.c
+++ b/ghc/interpreter/optimise.c
@@ -2,13 +2,15 @@
 /* --------------------------------------------------------------------------
  * Optimiser
  *
- * Copyright (c) The University of Nottingham and Yale University, 1994-1997.
- * All rights reserved. See NOTICE for details and conditions of use etc...
- * Hugs version 1.4, December 1997
+ * The Hugs 98 system is Copyright (c) Mark P Jones, Alastair Reid, the
+ * Yale Haskell Group, and the Oregon Graduate Institute of Science and
+ * Technology, 1994-1999, All rights reserved.  It is distributed as
+ * free software under the license in the file "License", which is
+ * included in the distribution.
  *
  * $RCSfile: optimise.c,v $
- * $Revision: 1.5 $
- * $Date: 1999/04/27 10:06:57 $
+ * $Revision: 1.7 $
+ * $Date: 1999/10/15 21:40:52 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -21,6 +23,8 @@
 
 /* #define DEBUG_OPTIMISE */
 
+extern void print ( Cell, Int );
+
 /* --------------------------------------------------------------------------
  * Local functions
  * ------------------------------------------------------------------------*/
@@ -1583,7 +1587,7 @@ StgExpr simplify ( List caseEnv, StgExpr e )
       case LAMBDA:
          stgLambdaBody(e) = simplify(caseEnv,stgLambdaBody(e));
 
-         lambda_local:
+         /* lambda_local: */
          while (whatIsStg(stgLambdaBody(e))==LAMBDA) {
             nLambdasMerged++;
             stgLambdaArgs(e) = appendOnto(stgLambdaArgs(e),
@@ -2201,7 +2205,7 @@ static Bool noisy;
 
 static void local optimiseTopBind( StgVar v )
 {
-   Bool ppPrel = FALSE;
+  /* Bool ppPrel = FALSE; */
    Int  n, m;
    Name naam;
    Int  oldSize, newSize;