X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fhooks%2FFreeForeignObj.lc;fp=ghc%2Fruntime%2Fhooks%2FFreeForeignObj.lc;h=14dd4c92a8cfa628c73db97b87c345b063b21e42;hb=5eb1c77c795f92ed0f4c8023847e9d4be1a4fd0d;hp=0000000000000000000000000000000000000000;hpb=f7ecf7234c224489be8a5e63fced903b655d92ee;p=ghc-hetmet.git

diff --git a/ghc/runtime/hooks/FreeForeignObj.lc b/ghc/runtime/hooks/FreeForeignObj.lc
new file mode 100644
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}