[project @ 1996-07-19 18:36:04 by partain]

[ghc-hetmet.git] / ghc / runtime / c-as-asm / StablePtrOps.lc

diff --git a/ghc/runtime/c-as-asm/StablePtrOps.lc b/ghc/runtime/c-as-asm/StablePtrOps.lc
index 4730355..6861bff 100644 (file)
--- 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);
 }