lang/perl5/patches/patch-aq

   1 $NetBSD: patch-aq,v 1.2 2008/10/10 21:58:43 he Exp $
   2
   3 --- XSUB.h.orig 2007-12-18 11:47:07.000000000 +0100
   4 +++ XSUB.h
   5 @@ -94,6 +94,9 @@ is a lexical $_ in scope.
   6  #ifndef PERL_UNUSED_VAR
   7  #  define PERL_UNUSED_VAR(x) ((void)x)
   8  #endif
   9 +#ifndef PERL_UNUSED_DECL
  10 +#  define PERL_UNUSED_DECL
  11 +#endif
  12
  13  #define ST(off) PL_stack_base[ax + (off)]
  14
  15 @@ -117,15 +120,7 @@ is a lexical $_ in scope.
  16  #  define XS(name) EXPORT_C XSPROTO(name)
  17  #endif
  18  #ifndef XS
  19 -#  if defined(HASATTRIBUTE_UNUSED) && !defined(__cplusplus)
  20 -#    define XS(name) void name(pTHX_ CV* cv __attribute__unused__)
  21 -#  else
  22 -#    ifdef __cplusplus
  23 -#      define XS(name) extern "C" XSPROTO(name)
  24 -#    else
  25 -#      define XS(name) XSPROTO(name)
  26 -#    endif
  27 -#  endif
  28 +#  define XS(name) void name(pTHX_ CV* cv PERL_UNUSED_DECL)
  29  #endif
  30
  31  #define dAX const I32 ax = (I32)(MARK - PL_stack_base + 1)