From 2a134ddd1c6ec42cc8f0c5af1c06df65e919ee4e Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Thu, 20 Jan 2005 14:30:17 +0000
Subject: [PATCH] [project @ 2005-01-20 14:30:17 by simonmar] Avoid a warning

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

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;
 
-- 
1.7.10.4