From 34ecfdd9414254c1cbc839983a6a1a8f5a272773 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Tue, 16 Jan 2001 11:28:45 +0000
Subject: [PATCH] [project @ 2001-01-16 11:28:45 by simonmar] add dummy
 freeHaskellFunctionPtr when we don't have a real one on
 this arch.

---
 ghc/rts/Adjustor.c |    6 ++++++
 1 file changed, 6 insertions(+)

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