X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FFreeMallocPtr.lc;fp=ghc%2Fruntime%2Fc-as-asm%2FFreeMallocPtr.lc;h=8dd9d03e0f649aa465b45d3cf8090cdbe33f2d6d;hb=769ce8e72ae626356ce57162b7ff448c0ef7e700;hp=f29ade0c4e17cbae85dbec98c57cfcbd7e660937;hpb=a7e6cdbfc4f27c2e0ab9c12ebe6431c246c74c6d;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/FreeMallocPtr.lc b/ghc/runtime/c-as-asm/FreeMallocPtr.lc
index f29ade0..8dd9d03 100644
--- 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);