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

Avoid a warning

[project @ 2005-01-20 14:30:17 by simonmar]
Avoid a warning
2a134ddd · simonmar · c830ae13 · 2a134ddd
Commit 2a134ddd authored Jan 20, 2005 by simonmar
Hide whitespace changes
Inline Side-by-side

Showing with 7 additions and 1 deletion

ghc/rts/Adjustor.c ghc/rts/Adjustor.c +7 -1

No files found.
--- 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;