From e1016718c1943444a5a53537e61afd784c96eb7b Mon Sep 17 00:00:00 2001
From: andy <unknown>
Date: Wed, 5 Jan 2000 19:10:21 +0000
Subject: [PATCH] [project @ 2000-01-05 19:10:21 by andy] Commenting out the
debugging messages for in the new interface code.
---
ghc/interpreter/hugs.c | 8 +++++---
ghc/interpreter/interface.c | 21 ++++++++++++++++-----
ghc/interpreter/link.c | 6 ++++--
3 files changed, 25 insertions(+), 10 deletions(-)
diff --git a/ghc/interpreter/hugs.c b/ghc/interpreter/hugs.c
index 111f1bcacb3b..9b697881ff97 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.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 af108f532623..59843bd71566 100644
--- 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 f151506711f2..9ea291952870 100644
--- 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;
--
GitLab