[project @ 2001-04-10 13:52:31 by sewardj]

[ghc-hetmet.git] / ghc / rts / Adjustor.c

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 */