From: sof <unknown>
Date: Fri, 14 Mar 1997 03:13:24 +0000 (+0000)
Subject: [project @ 1997-03-14 03:13:24 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~807
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0870b75144596a265ab8e339485305e6b1cf0923;p=ghc-hetmet.git

[project @ 1997-03-14 03:13:24 by sof]
Remnant from MallocPtr days removed
---

diff --git a/ghc/runtime/hooks/FreeForeignObj.lc b/ghc/runtime/hooks/FreeForeignObj.lc
deleted file mode 100644
index 14dd4c9..0000000
--- a/ghc/runtime/hooks/FreeForeignObj.lc
+++ /dev/null
@@ -1,18 +0,0 @@
-\section{FreeForeignObj}
-
-ToDo: obliterate -- SOF
-
-This is the default definition of freeForeignObj.  It is a file by
-itself so that the linker can choose to ignore it if it has already
-seen a definition of freeForeignObj.
-
-\begin{code}
-#include "rtsdefs.h"
-
-void
-freeForeignObj (StgForeignObj mp)
-{
-    fprintf(stderr, "Error: No deallocation routine for ForeignObj %lx\n", (W_) mp);
-    EXIT(EXIT_FAILURE);
-}
-\end{code}