From: matthewc <unknown>
Date: Tue, 14 May 2002 08:27:11 +0000 (+0000)
Subject: [project @ 2002-05-14 08:27:11 by matthewc]
X-Git-Tag: Approx_11550_changesets_converted~2034
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=e9d28592282175b5e03d0ff1d396ba1b5895c898;p=ghc-hetmet.git

[project @ 2002-05-14 08:27:11 by matthewc]
Make adjustor unavailability on a particular platform a runtime barf
instead of an #error (to allow the remainder of ghc to function without
architecture-specific support)
---

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index 72cc3b6..eea4611 100644
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -42,7 +42,6 @@ Haskell side.
 #include "RtsFlags.h"
 
 /* Heavily arch-specific, I'm afraid.. */
-#if defined(i386_TARGET_ARCH) || defined(sparc_TARGET_ARCH) || defined(alpha_TARGET_ARCH) || defined(powerpc_TARGET_ARCH)
 
 #if defined(i386_TARGET_ARCH)
 /* Now here's something obscure for you:
@@ -365,7 +364,7 @@ TODO: Depending on how much allocation overhead stgMallocBytes uses for
 		}
 	}
 #else
-#error Adjustor creation is not supported on this platform.
+    barf("adjustor creation not supported on this platform");
 #endif
     break;
   
@@ -378,7 +377,6 @@ TODO: Depending on how much allocation overhead stgMallocBytes uses for
   return adjustor;
 }
 
-#endif
 
 void
 freeHaskellFunctionPtr(void* ptr)