X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FStablePtrOps.lc;h=6861bff31ce65f0ccf3552f36bd9eeff12cc3d7e;hb=f7ecf7234c224489be8a5e63fced903b655d92ee;hp=4730355956fcf29e62f65106482f0bbfcc0723ae;hpb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/StablePtrOps.lc b/ghc/runtime/c-as-asm/StablePtrOps.lc
index 4730355..6861bff 100644
--- a/ghc/runtime/c-as-asm/StablePtrOps.lc
+++ b/ghc/runtime/c-as-asm/StablePtrOps.lc
@@ -14,35 +14,23 @@ change it to take/return a byte array anyway.  Code in PerformIO.lhc
 is even more dated.)
 
 \begin{code}
-#ifndef PAR
+#if !defined(PAR)
 
 #include "rtsdefs.h"
 
 extern StgPtr unstable_Closure;
 
-#ifndef __STG_TAILJUMPS__
-extern int doSanityChks;
-extern void checkAStack(STG_NO_ARGS);
-#endif
-
 void
 enterStablePtr(stableIndex, startCode)
   StgStablePtr stableIndex;
   StgFunPtr startCode;
 {
-  unstable_Closure = _deRefStablePointer(stableIndex, StorageMgrInfo.StablePointerTable);
+    unstable_Closure
+      = _deRefStablePointer(stableIndex, StorageMgrInfo.StablePointerTable);
 
 /* ToDo: Set arity to right value - if necessary */
 
-#if defined(__STG_TAILJUMPS__)
-  miniInterpret(startCode);
-#else
-  if (doSanityChks)
-    miniInterpret_debug(startCode, checkAStack);
-  else
     miniInterpret(startCode);
-#endif /* not tail-jumping */
-
 }
 \end{code}
 
@@ -93,14 +81,14 @@ deRefStablePointer(stableIndex)
 }
 \end{code}
 
-Despite the file name, we have two small malloc ptr operation - not
+Despite the file name, we have a little ForeignObj operation here - not
 worth putting in a file by itself.
 
 \begin{code}
 StgInt 
-eqMallocPtr(p1, p2)
-  StgMallocPtr p1;
-  StgMallocPtr p2;
+eqForeignObj(p1, p2)
+  StgForeignObj p1;
+  StgForeignObj p2;
 {
   return (p1 == p2);
 }