[project @ 1998-08-14 10:55:14 by sof]

Added eqStablePtr

diff --git a/ghc/runtime/c-as-asm/StablePtrOps.lc b/ghc/runtime/c-as-asm/StablePtrOps.lc
index 89e35e1..93559b5 100644 (file)
--- a/ghc/runtime/c-as-asm/StablePtrOps.lc
+++ b/ghc/runtime/c-as-asm/StablePtrOps.lc
@@ -157,6 +157,14 @@ eqForeignObj(p1, p2)
 {
   return (p1 == p2);
 }
+
+StgInt 
+eqStablePtr(p1, p2)
+  StgStablePtr p1;
+  StgStablePtr p2;
+{
+  return (p1 == p2);
+}
 \end{code}
 
 And some code that HAS NO RIGHT being here.