From 0870b75144596a265ab8e339485305e6b1cf0923 Mon Sep 17 00:00:00 2001
From: sof <unknown>
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 14dd4c92a8cf..000000000000
--- 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}
--
GitLab