From: simonm <unknown>
Date: Mon, 25 Jan 1999 12:01:21 +0000 (+0000)
Subject: [project @ 1999-01-25 12:01:21 by simonm]
X-Git-Tag: Approximately_9120_patches~6693
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=c4b1e8cd3900152d6e38e0b6acf702d2e3f6efc7;p=ghc-hetmet.git

[project @ 1999-01-25 12:01:21 by simonm]
Avoid a couple of C compiler warnings.
---

diff --git a/ghc/rts/hooks/Trace.c b/ghc/rts/hooks/Trace.c
index b24e9e9..55f6c21 100644
--- a/ghc/rts/hooks/Trace.c
+++ b/ghc/rts/hooks/Trace.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Trace.c,v 1.2 1998/12/02 13:29:16 simonm Exp $
+ * $Id: Trace.c,v 1.3 1999/01/25 12:01:21 simonm Exp $
  *
  * User-overridable RTS hooks.
  *
@@ -8,7 +8,7 @@
 #include "Rts.h"
 
 void
-PreTraceHook (long fd)
+PreTraceHook (long fd UNUSED)
 {
   /* Default is not to print anything, however this might be useful:
    *
@@ -18,7 +18,7 @@ PreTraceHook (long fd)
 }
 
 void
-PostTraceHook (long fd)
+PostTraceHook (long fd UNUSED)
 {
   /* Default is not to print anything, however this might be useful:
    *