From: sewardj <unknown>
Date: Fri, 14 Apr 2000 15:08:14 +0000 (+0000)
Subject: [project @ 2000-04-14 15:08:14 by sewardj]
X-Git-Tag: Approximately_9120_patches~4694
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=456949b3b02d49ec4ccd18605002806a080c0cca;hp=d21ef7f6b0e2f42559062a4bd8d8ca662ed4809e;p=ghc-hetmet.git

[project @ 2000-04-14 15:08:14 by sewardj]
gcc-warning-avoiding-wibble
---

diff --git a/ghc/rts/QueueTemplate.h b/ghc/rts/QueueTemplate.h
index b4a3513..71a53ae 100644
--- a/ghc/rts/QueueTemplate.h
+++ b/ghc/rts/QueueTemplate.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: QueueTemplate.h,v 1.5 1999/12/07 11:15:02 sewardj Exp $
+ * $Id: QueueTemplate.h,v 1.6 2000/04/14 15:08:14 sewardj Exp $
  *
  * (c) The GHC Team, 1998
  *
@@ -16,8 +16,8 @@
  *   static void freeQueue  ( Queue* q );
  *
  * $RCSfile: QueueTemplate.h,v $
- * $Revision: 1.5 $
- * $Date: 1999/12/07 11:15:02 $
+ * $Revision: 1.6 $
+ * $Date: 2000/04/14 15:08:14 $
  *
  * ------------------------------------------------------------------------*/
 
@@ -84,7 +84,7 @@ static void mycat2(insert,Queue)( Queue* q, Type x )
 }
 
 
-void mycat2(set,Queue)( Queue* q, nat i, Type x )
+static void mycat2(set,Queue)( Queue* q, nat i, Type x )
 {
     ASSERT(i < q->len);
     q->elems[i] = x;