X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fruntime%2Fc-as-asm%2FFreeMallocPtr.lc;fp=ghc%2Fruntime%2Fc-as-asm%2FFreeMallocPtr.lc;h=f29ade0c4e17cbae85dbec98c57cfcbd7e660937;hb=e7d21ee4f8ac907665a7e170c71d59e13a01da09;hp=0000000000000000000000000000000000000000;hpb=e48474bff05e6cfb506660420f025f694c870d38;p=ghc-hetmet.git

diff --git a/ghc/runtime/c-as-asm/FreeMallocPtr.lc b/ghc/runtime/c-as-asm/FreeMallocPtr.lc
new file mode 100644
index 0000000..f29ade0
--- /dev/null
+++ b/ghc/runtime/c-as-asm/FreeMallocPtr.lc
@@ -0,0 +1,21 @@
+\section[freemallocptr]{FreeMallocPtr}
+
+This is the default definition of FreeMallocPtr.  It is a file by
+itself so that the linker can choose to ignore it if it has already
+seen a definition of FreeMallocPtr.
+
+\begin{code}
+#ifndef PAR
+
+#include "rtsdefs.h"
+
+void
+FreeMallocPtr (mp)
+  StgMallocPtr mp;
+{
+    fprintf(stderr, "Error: No deallocation routine for MallocPtr %lx\n", (W_) mp);
+    EXIT(EXIT_FAILURE);
+}
+
+#endif /* not PAR */
+\end{code}