From: hwloidl <unknown>
Date: Fri, 14 Jan 2000 14:06:48 +0000 (+0000)
Subject: [project @ 2000-01-14 14:06:48 by hwloidl]
X-Git-Tag: Approximately_9120_patches~5288
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=837abbff4b92909533932fa16cdd31fc8ab10b12;p=ghc-hetmet.git

[project @ 2000-01-14 14:06:48 by hwloidl]
Minor cleanup (to get rid of warnings)
---

diff --git a/ghc/rts/Schedule.h b/ghc/rts/Schedule.h
index 5c90636..a8a3b01 100644
--- a/ghc/rts/Schedule.h
+++ b/ghc/rts/Schedule.h
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Schedule.h,v 1.14 2000/01/14 11:45:21 hwloidl Exp $
+ * $Id: Schedule.h,v 1.15 2000/01/14 14:06:48 hwloidl Exp $
  *
  * (c) The GHC Team 1998-1999
  *
@@ -173,8 +173,10 @@ extern  StgTSO *blocked_queue_hd, *blocked_queue_tl;
 /* Needed by Hugs.
  */
 void interruptStgRts ( void );
+
 // ?? needed -- HWL
 void raiseAsync(StgTSO *tso, StgClosure *exception);
+nat  run_queue_len(void);
 
 //@node Some convenient macros, Index, Scheduler Vars and Data Types
 //@subsection Some convenient macros
diff --git a/ghc/rts/parallel/ParallelDebug.c b/ghc/rts/parallel/ParallelDebug.c
index 2924b51..f9dbb19 100644
--- a/ghc/rts/parallel/ParallelDebug.c
+++ b/ghc/rts/parallel/ParallelDebug.c
@@ -1,5 +1,5 @@
 /*
-  Time-stamp: <Sun Dec 12 1999 20:37:00 Stardate: [-30]4039.08 software>
+  Time-stamp: <Fri Jan 14 2000 13:52:00 Stardate: [-30]4202.88 hwloidl>
 
 Various debugging routines for GranSim and GUM
 */
@@ -1386,5 +1386,27 @@ PrintGraph(StgClosure *p, int indent_level)
 #endif /* GRAN */
 
 #endif /* GRAN || PAR */
+
+#if !defined(GRAN) && !defined(PAR)
+// just dummy defs in this setup
+#include "Rts.h"
+#include "ParallelDebug.h"
+
+char *
+info_type(StgClosure *closure){ 
+  return "petaQ";
+}
+
+char *
+info_type_by_ip(StgInfoTable *ip){ 
+  return "petaQ";
+}
+
+void
+info_hdr_type(StgClosure *closure, char *res){ 
+  strcpy(res,"petaQ");
+}
+#endif /* GRAN || PAR */
+
 //@node End of File,  , Printing Packet Contents, Debugging routines for GranSim and GUM
 //@subsection End of File
diff --git a/ghc/rts/parallel/ParallelDebug.h b/ghc/rts/parallel/ParallelDebug.h
index 62f2232..ad573c1 100644
--- a/ghc/rts/parallel/ParallelDebug.h
+++ b/ghc/rts/parallel/ParallelDebug.h
@@ -1,5 +1,5 @@
 /* 
-   Time-stamp: <Mon Nov 29 1999 17:17:13 Stardate: [-30]3973.60 hwloidl>
+   Time-stamp: <Fri Jan 14 2000 13:47:43 Stardate: [-30]4202.87 hwloidl>
 
    Prototypes of all parallel debugging functions.
    */
@@ -46,4 +46,12 @@ void   PrintGraph(StgClosure *p, int indent_level);
 
 #endif /* GRAN || PAR */
 
+#if !defined(GRAN) && !defined(PAR)
+
+void   info_hdr_type(StgClosure *closure, char *res);
+char  *info_type(StgClosure *closure);
+char  *info_type_by_ip(StgInfoTable *ip);
+
+#endif
+
 #endif /* PARALLEL_DEBUG_H */