[project @ 1996-07-25 20:43:49 by partain]

[ghc-hetmet.git] / ghc / runtime / hooks / FreeForeignObj.lc

diff --git a/ghc/runtime/hooks/FreeForeignObj.lc b/ghc/runtime/hooks/FreeForeignObj.lc
new file mode 100644 (file)
index 0000000..14dd4c9
--- /dev/null
+++ b/ghc/runtime/hooks/FreeForeignObj.lc
@@ -0,0 +1,18 @@
+\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}