From 0870b75144596a265ab8e339485305e6b1cf0923 Mon Sep 17 00:00:00 2001 From: sof Date: Fri, 14 Mar 1997 03:13:24 +0000 Subject: [PATCH] [project @ 1997-03-14 03:13:24 by sof] Remnant from MallocPtr days removed --- ghc/runtime/hooks/FreeForeignObj.lc | 18 ------------------ 1 file changed, 18 deletions(-) delete mode 100644 ghc/runtime/hooks/FreeForeignObj.lc 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} -- 1.7.10.4