From e9d28592282175b5e03d0ff1d396ba1b5895c898 Mon Sep 17 00:00:00 2001 From: matthewc Date: Tue, 14 May 2002 08:27:11 +0000 Subject: [PATCH] [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) --- ghc/rts/Adjustor.c | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) 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) -- 1.7.10.4