X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FQueueTemplate.h;h=b4a3513c7254b75786722968e00fbfef1dcc09ed;hb=b822aa0e9411a1909988c0367d342671806a0f75;hp=2fb146e2eaa7c1de34ba7a0e2cb2b29c4723a67e;hpb=b9ad54f9b2bb99d2d3d62c61e2da71e076938f18;p=ghc-hetmet.git

diff --git a/ghc/rts/QueueTemplate.h b/ghc/rts/QueueTemplate.h
index 2fb146e..b4a3513 100644
--- a/ghc/rts/QueueTemplate.h
+++ b/ghc/rts/QueueTemplate.h
@@ -1,6 +1,6 @@
 
 /* -----------------------------------------------------------------------------
- * $Id: QueueTemplate.h,v 1.4 1999/04/27 10:07:19 sewardj Exp $
+ * $Id: QueueTemplate.h,v 1.5 1999/12/07 11:15:02 sewardj Exp $
  *
  * (c) The GHC Team, 1998
  *
@@ -16,8 +16,8 @@
  *   static void freeQueue  ( Queue* q );
  *
  * $RCSfile: QueueTemplate.h,v $
- * $Revision: 1.4 $
- * $Date: 1999/04/27 10:07:19 $
+ * $Revision: 1.5 $
+ * $Date: 1999/12/07 11:15:02 $
  *
  * ------------------------------------------------------------------------*/
 
@@ -37,6 +37,16 @@ typedef struct {
 } Queue;
 
 
+#if MAKE_findIn
+static int mycat2(findIn,Queue)( Queue* q, Type x )
+{
+   nat i;
+   for (i = 0; i < q->len; i++)
+      if (q->elems[i] == x) return i;
+   return -1;
+}
+#endif
+
 static void mycat2(init,Queue)( Queue* q )
 {
    q->len   = 0;