From: simonmar <unknown>
Date: Tue, 16 Jan 2001 11:28:45 +0000 (+0000)
Subject: [project @ 2001-01-16 11:28:45 by simonmar]
X-Git-Tag: Approximately_9120_patches~2897
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=34ecfdd9414254c1cbc839983a6a1a8f5a272773;p=ghc-hetmet.git

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