home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2006 November (DVD) / PCWELT_11_2006.ISO / casper / filesystem.squashfs / usr / lib / perl / 5.8.8 / sys / ucontext.ph < prev    next >
Encoding:
Text File  |  2006-07-07  |  1.4 KB  |  34 lines
  1. require '_h2ph_pre.ph';
  2.  
  3. no warnings 'redefine';
  4.  
  5. unless(defined(&_SYS_UCONTEXT_H)) {
  6.     eval 'sub _SYS_UCONTEXT_H () {1;}' unless defined(&_SYS_UCONTEXT_H);
  7.     require 'features.ph';
  8.     require 'signal.ph';
  9.     require 'bits/sigcontext.ph';
  10.     eval 'sub NGREG () {19;}' unless defined(&NGREG);
  11.     if(defined(&__USE_GNU)) {
  12.     eval("sub REG_GS () { 0; }") unless defined(®_GS);
  13.     eval("sub REG_FS () { 1; }") unless defined(®_FS);
  14.     eval("sub REG_ES () { 2; }") unless defined(®_ES);
  15.     eval("sub REG_DS () { 3; }") unless defined(®_DS);
  16.     eval("sub REG_EDI () { 4; }") unless defined(®_EDI);
  17.     eval("sub REG_ESI () { 5; }") unless defined(®_ESI);
  18.     eval("sub REG_EBP () { 6; }") unless defined(®_EBP);
  19.     eval("sub REG_ESP () { 7; }") unless defined(®_ESP);
  20.     eval("sub REG_EBX () { 8; }") unless defined(®_EBX);
  21.     eval("sub REG_EDX () { 9; }") unless defined(®_EDX);
  22.     eval("sub REG_ECX () { 10; }") unless defined(®_ECX);
  23.     eval("sub REG_EAX () { 11; }") unless defined(®_EAX);
  24.     eval("sub REG_TRAPNO () { 12; }") unless defined(®_TRAPNO);
  25.     eval("sub REG_ERR () { 13; }") unless defined(®_ERR);
  26.     eval("sub REG_EIP () { 14; }") unless defined(®_EIP);
  27.     eval("sub REG_CS () { 15; }") unless defined(®_CS);
  28.     eval("sub REG_EFL () { 16; }") unless defined(®_EFL);
  29.     eval("sub REG_UESP () { 17; }") unless defined(®_UESP);
  30.     eval("sub REG_SS () { 18; }") unless defined(®_SS);
  31.     }
  32. }
  33. 1;
  34.