]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Avoid warnings due to unused variables.
authorFlorian Ragwitz <rafl@debian.org>
Wed, 4 Feb 2009 21:56:38 +0000 (22:56 +0100)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 4 Feb 2009 22:01:30 +0000 (23:01 +0100)
Upper.xs

index c7b3a6e299c34638079caa028be99cf3447887fe..d628f1d3e47d0637c1ffbb058f4e79ada7c5bbd6 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -578,6 +578,8 @@ STATIC void su_unwind(pTHX_ void *ud_) {
  SV **savesp = MY_CXT.savesp;
  I32 mark;
 
+ PERL_UNUSED_VAR(ud_);
+
  if (savesp)
   PL_stack_sp = savesp;
 
@@ -723,6 +725,7 @@ void
 CLONE(...)
 PROTOTYPE: DISABLE
 CODE:
+ PERL_UNUSED_VAR(items);
 #if SU_THREADSAFE
  MY_CXT_CLONE;
 #endif /* SU_THREADSAFE */