[project @ 1999-03-03 19:26:31 by sof]

[ghc-hetmet.git] / ghc / rts / Adjustor.c

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index b976f38..f3974f7 100644 (file)
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -99,7 +99,7 @@ createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr)
 
     The ccall'ing version is a tad different, passing in the return
     address of the caller to the auto-generated C stub (which enters
-    via the stable pointer.) (The auto-generated C stub is on this
+    via the stable pointer.) (The auto-generated C stub is in on this
     game, don't worry :-)
 
     The adjustor makes the assumption that any return value
@@ -147,9 +147,9 @@ freeHaskellFunctionPtr(void* ptr)
 
  /* Free the stable pointer first..*/
  if (*(unsigned char*)ptr == 0x68) { /* Aha, a ccall adjustor! */
-    freeStablePointer(*((StgStablePtr*)((unsigned char*)ptr + 0x01)));
+    freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x01)));
  } else {
-    freeStablePointer(*((StgStablePtr*)((unsigned char*)ptr + 0x02)));
+    freeStablePtr(*((StgStablePtr*)((unsigned char*)ptr + 0x02)));
  }    
  *((unsigned char*)ptr) = '\0';