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

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

diff --git a/ghc/runtime/c-as-asm/FreeMallocPtr.lc b/ghc/runtime/c-as-asm/FreeMallocPtr.lc
index f29ade0..8dd9d03 100644 (file)
--- a/ghc/runtime/c-as-asm/FreeMallocPtr.lc
+++ b/ghc/runtime/c-as-asm/FreeMallocPtr.lc
@@ -1,5 +1,7 @@
 \section[freemallocptr]{FreeMallocPtr}
 
+ToDo: obliterate -- SOF
+
 This is the default definition of FreeMallocPtr.  It is a file by
 itself so that the linker can choose to ignore it if it has already
 seen a definition of FreeMallocPtr.
@@ -10,8 +12,7 @@ seen a definition of FreeMallocPtr.
 #include "rtsdefs.h"
 
 void
-FreeMallocPtr (mp)
-  StgMallocPtr mp;
+FreeMallocPtr (StgForeignObj mp)
 {
     fprintf(stderr, "Error: No deallocation routine for MallocPtr %lx\n", (W_) mp);
     EXIT(EXIT_FAILURE);