From: sof <unknown>
Date: Fri, 14 Aug 1998 10:55:14 +0000 (+0000)
Subject: [project @ 1998-08-14 10:55:14 by sof]
X-Git-Tag: Approx_2487_patches~441
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=15370daddf8033f41e0d09512355e108a9479402;p=ghc-hetmet.git

[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
--- 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.