From 15370daddf8033f41e0d09512355e108a9479402 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Fri, 14 Aug 1998 10:55:14 +0000
Subject: [PATCH] [project @ 1998-08-14 10:55:14 by sof] Added eqStablePtr

---
 ghc/runtime/c-as-asm/StablePtrOps.lc |    8 ++++++++
 1 file changed, 8 insertions(+)

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