[project @ 2001-01-16 11:28:45 by simonmar]

add dummy freeHaskellFunctionPtr when we don't have a real one on this arch.

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index 24fa13a..aa0a9ce 100644 (file)
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -249,5 +249,11 @@ freeHaskellFunctionPtr(void* ptr)
  free(ptr);
 }
 
+#else /* Provide dummy */
+void
+freeHaskellFunctionPtr(void* ptr)
+{
+}
+
 #endif /* i386_TARGET_ARCH || sparc_TARGET_ARCH */