From: panne <unknown>
Date: Thu, 26 Aug 1999 08:24:16 +0000 (+0000)
Subject: [project @ 1999-08-26 08:23:44 by panne]
X-Git-Tag: Approximately_9120_patches~5869
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e4ee96833917856570a3d85b2399b6ac18c9889c;p=ghc-hetmet.git

[project @ 1999-08-26 08:23:44 by panne]
Fixed typo UNUSED => STG_UNUSED
---

diff --git a/ghc/rts/gum/LLComms.c b/ghc/rts/gum/LLComms.c
index ccf1a21..e816f48 100644
--- a/ghc/rts/gum/LLComms.c
+++ b/ghc/rts/gum/LLComms.c
@@ -1,6 +1,6 @@
 /* -----------------------------------------------------------------------------
  *
- * $Id: LLComms.c,v 1.2 1998/12/02 13:29:06 simonm Exp $
+ * $Id: LLComms.c,v 1.3 1999/08/26 08:23:44 panne Exp $
  *
  * GUM Low-Level Inter-Task Communication
  *
@@ -65,8 +65,8 @@ GetOpName(nat op)
  */
 
 static void
-trace_SendOp(OPCODE op, GLOBAL_TASK_ID dest UNUSED,
-	     unsigned int data1 UNUSED, unsigned int data2 UNUSED)
+trace_SendOp(OPCODE op, GLOBAL_TASK_ID dest STG_UNUSED,
+	     unsigned int data1 STG_UNUSED, unsigned int data2 STG_UNUSED)
 {
     char *OpName;
 
diff --git a/ghc/rts/hooks/Trace.c b/ghc/rts/hooks/Trace.c
index 55f6c21..fb3fb68 100644
--- a/ghc/rts/hooks/Trace.c
+++ b/ghc/rts/hooks/Trace.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Trace.c,v 1.3 1999/01/25 12:01:21 simonm Exp $
+ * $Id: Trace.c,v 1.4 1999/08/26 08:24:16 panne Exp $
  *
  * User-overridable RTS hooks.
  *
@@ -8,7 +8,7 @@
 #include "Rts.h"
 
 void
-PreTraceHook (long fd UNUSED)
+PreTraceHook (long fd STG_UNUSED)
 {
   /* Default is not to print anything, however this might be useful:
    *
@@ -18,7 +18,7 @@ PreTraceHook (long fd UNUSED)
 }
 
 void
-PostTraceHook (long fd UNUSED)
+PostTraceHook (long fd STG_UNUSED)
 {
   /* Default is not to print anything, however this might be useful:
    *