[project @ 2000-01-05 19:10:21 by andy]

Commenting out the debugging messages for in the new interface code.

diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 111f1bc..9b69788 100644 (file)
--- a/ghc/interpreter/hugs.c
+++ b/ghc/interpreter/hugs.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: hugs.c,v $
- * $Revision: 1.31 $
- * $Date: 2000/01/05 18:05:33 $
+ * $Revision: 1.32 $
+ * $Date: 2000/01/05 19:10:21 $
  * ------------------------------------------------------------------------*/
 
 #include <setjmp.h>
@@ -2406,7 +2406,9 @@ FILE* fp; {
 
 Void everybody(what)            /* send command `what' to each component of*/
 Int what; {                     /* system to respond as appropriate ...    */
-fprintf ( stderr, "EVERYBODY %d\n", what );
+#if 0
+  fprintf ( stderr, "EVERYBODY %d\n", what );
+#endif
     machdep(what);              /* The order of calling each component is  */
     storage(what);              /* important for the PREPREL command       */
     substitution(what);

diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c
index af108f5..59843bd 100644 (file)
--- a/ghc/interpreter/interface.c
+++ b/ghc/interpreter/interface.c
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: interface.c,v $
- * $Revision: 1.17 $
- * $Date: 2000/01/05 18:05:33 $
+ * $Revision: 1.18 $
+ * $Date: 2000/01/05 19:10:21 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -590,11 +590,11 @@ Void processInterfaces ( void )
     List ifaces       = NIL;  /* :: List I_INTERFACE */
     List iface_sizes  = NIL;  /* :: List Int         */
     List iface_onames = NIL;  /* :: List Text        */
-
+#if 0
     fprintf ( stderr, 
               "processInterfaces: %d interfaces to process\n", 
               length(ifaces_outstanding) );
-
+#endif
 
     /* unzip3 ifaces_outstanding into ifaces, iface_sizes, iface_onames */
     for (xs = ifaces_outstanding; nonNull(xs); xs=tl(xs)) {
@@ -630,7 +630,9 @@ Void processInterfaces ( void )
 
        /* Have we reached a fixed point? */
        i = length(all_known_types);
+#if 0
        printf ( "\n============= %d known types =============\n", i );
+#endif
        if (num_known_types == i) break;
        num_known_types = i;
 
@@ -760,7 +762,9 @@ printf("\n");
 
        /* Have we reached a fixed point? */
        i = length(all_known_types);
+#if 0
        printf ( "\n------------- %d known types -------------\n", i );
+#endif
        if (num_known_types == i) break;
        num_known_types = i;
 
@@ -867,9 +871,11 @@ printf("\n");
           }
        }       
     }
+#if 0
 
     fprintf(stderr, "\n=========================================================\n");
     fprintf(stderr, "=========================================================\n");
+#endif
 
     /* Traverse again the decl lists of the modules, this time 
        calling the finishGHC* functions.  But don't process
@@ -930,9 +936,10 @@ printf("\n");
           }
        }       
     }
-
+#if 0
     fprintf(stderr, "\n+++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n");
     fprintf(stderr, "+++++++++++++++++++++++++++++++++++++++++++++++++++++++++\n");
+#endif
     /* Build the module(m).export lists for each module, by running
        through the export lists in the iface.  Also, do the implicit
        'import Prelude' thing.  And finally, do the object code 
@@ -2394,6 +2401,10 @@ Type type; {
       Sym(gmtime)                    \
 
 
+/* AJG Hack */
+#undef EXTERN_SYMS
+#define EXTERN_SYMS
+
 /* entirely bogus claims about types of these symbols */
 #define Sym(vvv)  extern int vvv;
 #define SymX(vvv) /* nothing */

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index f151506..9ea2919 100644 (file)
--- a/ghc/interpreter/link.c
+++ b/ghc/interpreter/link.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.24 $
- * $Date: 2000/01/05 18:05:34 $
+ * $Revision: 1.25 $
+ * $Date: 2000/01/05 19:10:21 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -490,7 +490,9 @@ Int what; {
                        break;
 
         case POSTPREL: 
+#if 0
          fprintf(stderr, "linkControl(POSTPREL)\n");
+#endif
 if (combined) assert(0);
 break;