[project @ 2005-01-20 14:30:17 by simonmar]

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

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index bf4540a..3d111b5 100644 (file)
--- a/ghc/rts/Adjustor.c
+++ b/ghc/rts/Adjustor.c
@@ -192,7 +192,13 @@ typedef struct AdjustorStub {
 #endif
 
 void*
-createAdjustor(int cconv, StgStablePtr hptr, StgFunPtr wptr, char *typeString)
+createAdjustor(int cconv, StgStablePtr hptr,
+              StgFunPtr wptr,
+              char *typeString
+#if !defined(powerpc_TARGET_ARCH) && !defined(powerpc64_TARGET_ARCH)
+                 STG_UNUSED
+#endif
+              )
 {
   void *adjustor = NULL;