ext/Devel/PPPort/parts/inc/variables

   1 ################################################################################
   2 ##
   3 ##  $Revision: 4 $
   4 ##  $Author: mhx $
   5 ##  $Date: 2006/01/14 18:07:58 +0100 $
   6 ##
   7 ################################################################################
   8 ##
   9 ##  Version 3.x, Copyright (C) 2004-2006, Marcus Holland-Moritz.
  10 ##  Version 2.x, Copyright (C) 2001, Paul Marquess.
  11 ##  Version 1.x, Copyright (C) 1999, Kenneth Albanowski.
  12 ##
  13 ##  This program is free software; you can redistribute it and/or
  14 ##  modify it under the same terms as Perl itself.
  15 ##
  16 ################################################################################
  17
  18 =provides
  19
  20 PL_signals
  21 PERL_SIGNALS_UNSAFE_FLAG
  22
  23 =implementation
  24
  25 #ifndef PERL_SIGNALS_UNSAFE_FLAG
  26
  27 #define PERL_SIGNALS_UNSAFE_FLAG 0x0001
  28
  29 __NEED_VAR__ U32 PL_signals = PERL_SIGNALS_UNSAFE_FLAG;
  30
  31 #endif
  32
  33 =xsinit
  34
  35 #define NEED_PL_signals
  36
  37 =xsmisc
  38
  39 U32 get_PL_signals_1(void)
  40 {
  41   return PL_signals;
  42 }
  43
  44 extern U32 get_PL_signals_2(void);
  45 extern U32 get_PL_signals_3(void);
  46
  47 =xsubs
  48
  49 int
  50 compare_PL_signals()
  51         CODE:
  52                 {
  53                   U32 ref = get_PL_signals_1();
  54                   RETVAL = ref == get_PL_signals_2() && ref == get_PL_signals_3();
  55                 }
  56         OUTPUT:
  57                 RETVAL
  58
  59 =tests plan => 1
  60
  61 ok(Devel::PPPort::compare_PL_signals());
  62