From: simonmar <unknown>
Date: Thu, 20 Jan 2005 14:30:17 +0000 (+0000)
Subject: [project @ 2005-01-20 14:30:17 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1216
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2a134ddd1c6ec42cc8f0c5af1c06df65e919ee4e;p=ghc-hetmet.git

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

diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index bf4540a..3d111b5 100644
--- 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;