summaryrefslogtreecommitdiff
path: root/ghc/rts/Adjustor.c
diff options
context:
space:
mode:
authorsimonmar <unknown>2005-01-20 14:30:17 +0000
committersimonmar <unknown>2005-01-20 14:30:17 +0000
commit2a134ddd1c6ec42cc8f0c5af1c06df65e919ee4e (patch)
tree35c32cbd765fd3716bb749f51d3a8f469b1e35c7 /ghc/rts/Adjustor.c
parentc830ae13ccd7373b5478e10382a57d497ebc6a40 (diff)
downloadhaskell-2a134ddd1c6ec42cc8f0c5af1c06df65e919ee4e.tar.gz
[project @ 2005-01-20 14:30:17 by simonmar]
Avoid a warning
Diffstat (limited to 'ghc/rts/Adjustor.c')
-rw-r--r--ghc/rts/Adjustor.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/ghc/rts/Adjustor.c b/ghc/rts/Adjustor.c
index bf4540af19..3d111b5d2e 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;