This is the mail archive of the gcc-bugs@gcc.gnu.org mailing list for the GCC project.

Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

SSA-BRANCH-Crash on typecasting code blocks simple

This code will crash, I have simplified the test case:
Originally from the Postgres perl code.
Is this ok? Otherwise I will file a GNATS.

Using the  ssa cvs from halloween 20021031
void f( int x )
{
    int x ;
    (void)
      (
      { 		
	 x  = 1 ; 
	 return; 
	     
      } 
      );
}
------------------
Pg.i.c: In function `f':
Pg.i.c:3: warning: declaration of `x' shadows a parameter
Pg.i.c:4: internal compiler error: in simplify_stmt_expr, at
c-simplify.c:797
--------------------

$ gcc -v
Reading specs from
/usr/local/lib/gcc-lib/i686-pc-cygwin/3.4-tree-ssa/specs
Configured with: ./configure  : (reconfigured) ./configure
Thread model: single
gcc version 3.4-tree-ssa 20021031 (experimental)

Mike

=====
James Michael DuPont
http://introspector.sourceforge.net/

__________________________________________________
Do you Yahoo!?
U2 on LAUNCH - Exclusive greatest hits videos
http://launch.yahoo.com/u2
typedef long _off_t;
typedef int _ssize_t;
typedef int ptrdiff_t;
typedef unsigned int size_t;
typedef short unsigned int wchar_t;
typedef long int __off_t;
typedef int __pid_t;

__extension__ typedef long long int __loff_t;
typedef unsigned char u_char;
typedef unsigned short u_short;
typedef unsigned int u_int;
typedef unsigned long u_long;



typedef unsigned short ushort;
typedef unsigned int uint;



typedef unsigned long clock_t;




typedef long time_t;




struct timespec {
  time_t tv_sec;
  long tv_nsec;
};

struct itimerspec {
  struct timespec it_interval;
  struct timespec it_value;
};


typedef long daddr_t;
typedef char * caddr_t;


typedef unsigned long ino_t;
typedef short int __int16_t;
typedef unsigned short int __uint16_t;





typedef int __int32_t;
typedef unsigned int __uint32_t;






__extension__ typedef long long __int64_t;
__extension__ typedef unsigned long long __uint64_t;



typedef unsigned long vm_offset_t;
typedef unsigned long vm_size_t;



typedef char int8_t;
typedef unsigned char u_int8_t;
typedef short int16_t;
typedef unsigned short u_int16_t;
typedef int int32_t;
typedef unsigned int u_int32_t;
typedef long long int64_t;
typedef unsigned long long u_int64_t;
typedef int32_t register_t;
typedef int pid_t;
typedef long key_t;
typedef _ssize_t ssize_t;


typedef char * addr_t;
typedef int mode_t;
typedef unsigned short nlink_t;
typedef long fd_mask;







typedef struct _types_fd_set {
        fd_mask fds_bits[(((64)+(((sizeof (fd_mask) * 8))-1))/((sizeof (fd_mask) * 8)))];
} _types_fd_set;
typedef unsigned long clockid_t;




typedef unsigned long timer_t;




typedef long useconds_t;



typedef struct timespec timespec_t, timestruc_t;

typedef long __off32_t;
typedef long long __off64_t;



typedef __off32_t off_t;


typedef short __dev16_t;
typedef unsigned long __dev32_t;



typedef __dev16_t dev_t;


typedef long blksize_t;

typedef long __blkcnt32_t;
typedef long long __blkcnt64_t;



typedef __blkcnt32_t blkcnt_t;


typedef unsigned short __uid16_t;
typedef unsigned short __gid16_t;
typedef unsigned long __uid32_t;
typedef unsigned long __gid32_t;




typedef __uid16_t uid_t;
typedef __gid16_t gid_t;




typedef void *pthread_t;
typedef void *pthread_mutex_t;

typedef void *pthread_key_t;
typedef void *pthread_attr_t;
typedef void *pthread_mutexattr_t;
typedef void *pthread_condattr_t;
typedef void *pthread_cond_t;


typedef struct
{
  pthread_mutex_t mutex;
  int state;
}
pthread_once_t;
typedef void *pthread_rwlock_t;
typedef void *pthread_rwlockattr_t;
typedef __builtin_va_list __gnuc_va_list;
typedef __gnuc_va_list va_list;







int __attribute__((__cdecl__)) isalnum (int __c);
int __attribute__((__cdecl__)) isalpha (int __c);
int __attribute__((__cdecl__)) iscntrl (int __c);
int __attribute__((__cdecl__)) isdigit (int __c);
int __attribute__((__cdecl__)) isgraph (int __c);
int __attribute__((__cdecl__)) islower (int __c);
int __attribute__((__cdecl__)) isprint (int __c);
int __attribute__((__cdecl__)) ispunct (int __c);
int __attribute__((__cdecl__)) isspace (int __c);
int __attribute__((__cdecl__)) isupper (int __c);
int __attribute__((__cdecl__)) isxdigit (int __c);
int __attribute__((__cdecl__)) tolower (int __c);
int __attribute__((__cdecl__)) toupper (int __c);


int __attribute__((__cdecl__)) isblank (int __c);
int __attribute__((__cdecl__)) isascii (int __c);
int __attribute__((__cdecl__)) toascii (int __c);
int __attribute__((__cdecl__)) _tolower (int __c);
int __attribute__((__cdecl__)) _toupper (int __c);
extern __attribute__((dllimport)) const char _ctype_[];










struct lconv
{
  char *decimal_point;
  char *thousands_sep;
  char *grouping;
  char *int_curr_symbol;
  char *currency_symbol;
  char *mon_decimal_point;
  char *mon_thousands_sep;
  char *mon_grouping;
  char *positive_sign;
  char *negative_sign;
  char int_frac_digits;
  char frac_digits;
  char p_cs_precedes;
  char p_sep_by_space;
  char n_cs_precedes;
  char n_sep_by_space;
  char p_sign_posn;
  char n_sign_posn;
};


char *__attribute__((__cdecl__)) setlocale (int category, const char *locale);
struct lconv *__attribute__((__cdecl__)) localeconv (void);


struct _reent;
char *__attribute__((__cdecl__)) _setlocale_r (struct _reent *, int category, const char *locale);
struct lconv *__attribute__((__cdecl__)) _localeconv_r (struct _reent *);




typedef int jmp_buf[(13 * 4)];









typedef unsigned long sigset_t;
struct sigaction
{
        void (*sa_handler)(int);
        sigset_t sa_mask;
        int sa_flags;
};
int __attribute__((__cdecl__)) sigprocmask (int how, const sigset_t *set, sigset_t *oset);


int __attribute__((__cdecl__)) pthread_sigmask (int how, const sigset_t *set, sigset_t *oset);
int __attribute__((__cdecl__)) kill (int, int);
int __attribute__((__cdecl__)) killpg (pid_t, int);
int __attribute__((__cdecl__)) sigaction (int, const struct sigaction *, struct sigaction *);
int __attribute__((__cdecl__)) sigaddset (sigset_t *, const int);
int __attribute__((__cdecl__)) sigdelset (sigset_t *, const int);
int __attribute__((__cdecl__)) sigismember (const sigset_t *, int);
int __attribute__((__cdecl__)) sigfillset (sigset_t *);
int __attribute__((__cdecl__)) sigemptyset (sigset_t *);
int __attribute__((__cdecl__)) sigpending (sigset_t *);
int __attribute__((__cdecl__)) sigsuspend (const sigset_t *);
int __attribute__((__cdecl__)) sigpause (int);







int __attribute__((__cdecl__)) pthread_kill (pthread_t thread, int sig);



typedef int sig_atomic_t;
typedef void (*_sig_func_ptr) (int);

struct _reent;

_sig_func_ptr __attribute__((__cdecl__)) _signal_r (struct _reent *, int, _sig_func_ptr);
int __attribute__((__cdecl__)) _raise_r (struct _reent *, int);


_sig_func_ptr __attribute__((__cdecl__)) signal (int, _sig_func_ptr);
int __attribute__((__cdecl__)) raise (int);









typedef int sigjmp_buf[(13 * 4)+2];



void __attribute__((__cdecl__)) longjmp (jmp_buf __jmpb, int __retval);
int __attribute__((__cdecl__)) setjmp (jmp_buf __jmpb);


















typedef unsigned long __ULong;
struct _glue
{
  struct _glue *_next;
  int _niobs;
  struct __sFILE *_iobs;
};

struct _Bigint
{
  struct _Bigint *_next;
  int _k, _maxwds, _sign, _wds;
  __ULong _x[1];
};


struct __tm
{
  int __tm_sec;
  int __tm_min;
  int __tm_hour;
  int __tm_mday;
  int __tm_mon;
  int __tm_year;
  int __tm_wday;
  int __tm_yday;
  int __tm_isdst;
};
struct _atexit {
        struct _atexit *_next;
        int _ind;
        void (*_fns[32])(void);
        void *_fnargs[32];
        __ULong _fntypes;
};
struct __sbuf {
        unsigned char *_base;
        int _size;
};






typedef long _fpos_t;
struct __sFILE {
  unsigned char *_p;
  int _r;
  int _w;
  short _flags;
  short _file;
  struct __sbuf _bf;
  int _lbfsize;






  void * _cookie;

  _ssize_t __attribute__((__cdecl__)) (*_read) (void * _cookie, char *_buf, int _n);
  _ssize_t __attribute__((__cdecl__)) (*_write) (void * _cookie, const char *_buf, int _n);

  _fpos_t __attribute__((__cdecl__)) (*_seek) (void * _cookie, _fpos_t _offset, int _whence);
  int __attribute__((__cdecl__)) (*_close) (void * _cookie);


  struct __sbuf _ub;
  unsigned char *_up;
  int _ur;


  unsigned char _ubuf[3];
  unsigned char _nbuf[1];


  struct __sbuf _lb;


  int _blksize;
  int _offset;


  struct _reent *_data;

};
struct _rand48 {
  unsigned short _seed[3];
  unsigned short _mult[3];
  unsigned short _add;




};
struct _reent
{
  int _errno;




  struct __sFILE *_stdin, *_stdout, *_stderr;

  int _inc;
  char _emergency[25];

  int _current_category;
  const char *_current_locale;

  int __sdidinit;

  void __attribute__((__cdecl__)) (*__cleanup) (struct _reent *);


  struct _Bigint *_result;
  int _result_k;
  struct _Bigint *_p5s;
  struct _Bigint **_freelist;


  int _cvtlen;
  char *_cvtbuf;

  union
    {
      struct
        {
          unsigned int _unused_rand;
          char * _strtok_last;
          char _asctime_buf[26];
          struct __tm _localtime_buf;
          int _gamma_signgam;
          __extension__ unsigned long long _rand_next;
          struct _rand48 _r48;
          int _mblen_state;
          int _mbtowc_state;
          int _wctomb_state;
          char _l64a_buf[8];
          char _signal_buf[24];
          int _getdate_err;
        } _reent;



      struct
        {

          unsigned char * _nextf[30];
          unsigned int _nmalloc[30];
        } _unused;
    } _new;


  struct _atexit *_atexit;
  struct _atexit _atexit0;


  void (**(_sig_func))(int);




  struct _glue __sglue;
  struct __sFILE __sf[3];
};
extern struct _reent *_impure_ptr ;

void _reclaim_reent (struct _reent *);





typedef struct
{
  int quot;
  int rem;
} div_t;

typedef struct
{
  long quot;
  long rem;
} ldiv_t;
extern __attribute__((dllimport)) int __mb_cur_max;



void __attribute__((__cdecl__)) abort (void) __attribute__ ((noreturn));
int __attribute__((__cdecl__)) abs (int);
int __attribute__((__cdecl__)) atexit (void (*__func)(void));
double __attribute__((__cdecl__)) atof (const char *__nptr);

float __attribute__((__cdecl__)) atoff (const char *__nptr);

int __attribute__((__cdecl__)) atoi (const char *__nptr);
long __attribute__((__cdecl__)) atol (const char *__nptr);
void * __attribute__((__cdecl__)) bsearch (const void * __key, const void * __base, size_t __nmemb, size_t __size, int (* __attribute__((__cdecl__)) _compar) (const void *, const void *));




void * __attribute__((__cdecl__)) calloc (size_t __nmemb, size_t __size);
div_t __attribute__((__cdecl__)) div (int __numer, int __denom);
void __attribute__((__cdecl__)) exit (int __status) __attribute__ ((noreturn));
void __attribute__((__cdecl__)) free (void *);
char * __attribute__((__cdecl__)) getenv (const char *__string);
char * __attribute__((__cdecl__)) _getenv_r (struct _reent *, const char *__string);
char * __attribute__((__cdecl__)) _findenv (const char *, int *);
char * __attribute__((__cdecl__)) _findenv_r (struct _reent *, const char *, int *);
long __attribute__((__cdecl__)) labs (long);
ldiv_t __attribute__((__cdecl__)) ldiv (long __numer, long __denom);
void * __attribute__((__cdecl__)) malloc (size_t __size);
int __attribute__((__cdecl__)) mblen (const char *, size_t);
int __attribute__((__cdecl__)) _mblen_r (struct _reent *, const char *, size_t, int *);
int __attribute__((__cdecl__)) mbtowc (wchar_t *, const char *, size_t);
int __attribute__((__cdecl__)) _mbtowc_r (struct _reent *, wchar_t *, const char *, size_t, int *);
int __attribute__((__cdecl__)) wctomb (char *, wchar_t);
int __attribute__((__cdecl__)) _wctomb_r (struct _reent *, char *, wchar_t, int *);
size_t __attribute__((__cdecl__)) mbstowcs (wchar_t *, const char *, size_t);
size_t __attribute__((__cdecl__)) _mbstowcs_r (struct _reent *, wchar_t *, const char *, size_t, int *);
size_t __attribute__((__cdecl__)) wcstombs (char *, const wchar_t *, size_t);
size_t __attribute__((__cdecl__)) _wcstombs_r (struct _reent *, char *, const wchar_t *, size_t, int *);


int __attribute__((__cdecl__)) mkstemp (char *);
char * __attribute__((__cdecl__)) mktemp (char *);


void __attribute__((__cdecl__)) qsort (void * __base, size_t __nmemb, size_t __size, int(*_compar)(const void *, const void *));
int __attribute__((__cdecl__)) rand (void);
void * __attribute__((__cdecl__)) realloc (void * __r, size_t __size);
void __attribute__((__cdecl__)) srand (unsigned __seed);
double __attribute__((__cdecl__)) strtod (const char *__n, char **__end_PTR);
double __attribute__((__cdecl__)) _strtod_r (struct _reent *,const char *__n, char **__end_PTR);

float __attribute__((__cdecl__)) strtodf (const char *__n, char **__end_PTR);

long __attribute__((__cdecl__)) strtol (const char *__n, char **__end_PTR, int __base);
long __attribute__((__cdecl__)) _strtol_r (struct _reent *,const char *__n, char **__end_PTR, int __base);
unsigned long __attribute__((__cdecl__)) strtoul (const char *__n, char **__end_PTR, int __base);
unsigned long __attribute__((__cdecl__)) _strtoul_r (struct _reent *,const char *__n, char **__end_PTR, int __base);

int __attribute__((__cdecl__)) system (const char *__string);


long __attribute__((__cdecl__)) a64l (const char *__input);
char * __attribute__((__cdecl__)) l64a (long __input);
char * __attribute__((__cdecl__)) _l64a_r (struct _reent *,long __input);
int __attribute__((__cdecl__)) on_exit (void (*__func)(int, void *),void * __arg);
void __attribute__((__cdecl__)) _Exit (int __status) __attribute__ ((noreturn));
int __attribute__((__cdecl__)) putenv (const char *__string);
int __attribute__((__cdecl__)) _putenv_r (struct _reent *, const char *__string);
int __attribute__((__cdecl__)) setenv (const char *__string, const char *__value, int __overwrite);
int __attribute__((__cdecl__)) _setenv_r (struct _reent *, const char *__string, const char *__value, int __overwrite);

char * __attribute__((__cdecl__)) gcvt (double,int,char *);
char * __attribute__((__cdecl__)) gcvtf (float,int,char *);
char * __attribute__((__cdecl__)) fcvt (double,int,int *,int *);
char * __attribute__((__cdecl__)) fcvtf (float,int,int *,int *);
char * __attribute__((__cdecl__)) ecvt (double,int,int *,int *);
char * __attribute__((__cdecl__)) ecvtbuf (double, int, int*, int*, char *);
char * __attribute__((__cdecl__)) fcvtbuf (double, int, int*, int*, char *);
char * __attribute__((__cdecl__)) ecvtf (float,int,int *,int *);
char * __attribute__((__cdecl__)) dtoa (double, int, int, int *, int*, char**);
int __attribute__((__cdecl__)) rand_r (unsigned *__seed);

double __attribute__((__cdecl__)) drand48 (void);
double __attribute__((__cdecl__)) _drand48_r (struct _reent *);
double __attribute__((__cdecl__)) erand48 (unsigned short [3]);
double __attribute__((__cdecl__)) _erand48_r (struct _reent *, unsigned short [3]);
long __attribute__((__cdecl__)) jrand48 (unsigned short [3]);
long __attribute__((__cdecl__)) _jrand48_r (struct _reent *, unsigned short [3]);
void __attribute__((__cdecl__)) lcong48 (unsigned short [7]);
void __attribute__((__cdecl__)) _lcong48_r (struct _reent *, unsigned short [7]);
long __attribute__((__cdecl__)) lrand48 (void);
long __attribute__((__cdecl__)) _lrand48_r (struct _reent *);
long __attribute__((__cdecl__)) mrand48 (void);
long __attribute__((__cdecl__)) _mrand48_r (struct _reent *);
long __attribute__((__cdecl__)) nrand48 (unsigned short [3]);
long __attribute__((__cdecl__)) _nrand48_r (struct _reent *, unsigned short [3]);
unsigned short *
       __attribute__((__cdecl__)) seed48 (unsigned short [3]);
unsigned short *
       __attribute__((__cdecl__)) _seed48_r (struct _reent *, unsigned short [3]);
void __attribute__((__cdecl__)) srand48 (long);
void __attribute__((__cdecl__)) _srand48_r (struct _reent *, long);
long long __attribute__((__cdecl__)) strtoll (const char *__n, char **__end_PTR, int __base);
long long __attribute__((__cdecl__)) _strtoll_r (struct _reent *, const char *__n, char **__end_PTR, int __base);
unsigned long long __attribute__((__cdecl__)) strtoull (const char *__n, char **__end_PTR, int __base);
unsigned long long __attribute__((__cdecl__)) _strtoull_r (struct _reent *, const char *__n, char **__end_PTR, int __base);




char * __attribute__((__cdecl__)) realpath (const char *, char *);
void __attribute__((__cdecl__)) unsetenv (const char *__string);
void __attribute__((__cdecl__)) _unsetenv_r (struct _reent *, const char *__string);
int __attribute__((__cdecl__)) random (void);
long __attribute__((__cdecl__)) srandom (unsigned __seed);
char * __attribute__((__cdecl__)) ptsname (int);
int __attribute__((__cdecl__)) grantpt (int);
int __attribute__((__cdecl__)) unlockpt (int);




char * __attribute__((__cdecl__)) _dtoa_r (struct _reent *, double, int, int, int *, int*, char**);
void * __attribute__((__cdecl__)) _malloc_r (struct _reent *, size_t);
void * __attribute__((__cdecl__)) _calloc_r (struct _reent *, size_t, size_t);
void __attribute__((__cdecl__)) _free_r (struct _reent *, void *);
void * __attribute__((__cdecl__)) _realloc_r (struct _reent *, void *, size_t);
void __attribute__((__cdecl__)) _mstats_r (struct _reent *, char *);
int __attribute__((__cdecl__)) _system_r (struct _reent *, const char *);

void __attribute__((__cdecl__)) __eprintf (const char *, const char *, unsigned int, const char *);












extern char **environ;

void __attribute__((__cdecl__)) _exit (int __status ) __attribute__ ((noreturn));

int __attribute__((__cdecl__)) access (const char *__path, int __amode );
unsigned __attribute__((__cdecl__)) alarm (unsigned __secs );
int __attribute__((__cdecl__)) chdir (const char *__path );
int __attribute__((__cdecl__)) chmod (const char *__path, mode_t __mode );
int __attribute__((__cdecl__)) chown (const char *__path, uid_t __owner, gid_t __group );

int __attribute__((__cdecl__)) chroot (const char *__path );

int __attribute__((__cdecl__)) close (int __fildes );
char __attribute__((__cdecl__)) *ctermid (char *__s );
char __attribute__((__cdecl__)) *cuserid (char *__s );
int __attribute__((__cdecl__)) dup (int __fildes );
int __attribute__((__cdecl__)) dup2 (int __fildes, int __fildes2 );

void __attribute__((__cdecl__)) endusershell (void);

int __attribute__((__cdecl__)) execl (const char *__path, const char *, ... );
int __attribute__((__cdecl__)) execle (const char *__path, const char *, ... );
int __attribute__((__cdecl__)) execlp (const char *__file, const char *, ... );
int __attribute__((__cdecl__)) execv (const char *__path, char * const __argv[] );
int __attribute__((__cdecl__)) execve (const char *__path, char * const __argv[], char * const __envp[] );
int __attribute__((__cdecl__)) execvp (const char *__file, char * const __argv[] );

int __attribute__((__cdecl__)) fchdir (int __fildes);

int __attribute__((__cdecl__)) fchmod (int __fildes, mode_t __mode );
int __attribute__((__cdecl__)) fchown (int __fildes, uid_t __owner, gid_t __group );
pid_t __attribute__((__cdecl__)) fork (void );
long __attribute__((__cdecl__)) fpathconf (int __fd, int __name );
int __attribute__((__cdecl__)) fsync (int __fd);
char __attribute__((__cdecl__)) *getcwd (char *__buf, size_t __size );

int __attribute__((__cdecl__)) getdomainname (char *__name, size_t __len);

gid_t __attribute__((__cdecl__)) getegid (void );
uid_t __attribute__((__cdecl__)) geteuid (void );
gid_t __attribute__((__cdecl__)) getgid (void );
int __attribute__((__cdecl__)) getgroups (int __gidsetsize, gid_t __grouplist[] );
char __attribute__((__cdecl__)) *getlogin (void );

int __attribute__((__cdecl__)) getlogin_r (char *name, size_t namesize);

char __attribute__((__cdecl__)) *getpass (__const char *__prompt);
size_t __attribute__((__cdecl__)) getpagesize (void);
pid_t __attribute__((__cdecl__)) getpgid (pid_t);
pid_t __attribute__((__cdecl__)) getpgrp (void );
pid_t __attribute__((__cdecl__)) getpid (void );
pid_t __attribute__((__cdecl__)) getppid (void );
uid_t __attribute__((__cdecl__)) getuid (void );

char * __attribute__((__cdecl__)) getusershell (void);
char __attribute__((__cdecl__)) *getwd (char *__buf );
int __attribute__((__cdecl__)) iruserok (unsigned long raddr, int superuser, const char *ruser, const char *luser);

int __attribute__((__cdecl__)) isatty (int __fildes );
int __attribute__((__cdecl__)) lchown (const char *__path, uid_t __owner, gid_t __group );
int __attribute__((__cdecl__)) link (const char *__path1, const char *__path2 );
int __attribute__((__cdecl__)) nice (int __nice_value );
off_t __attribute__((__cdecl__)) lseek (int __fildes, off_t __offset, int __whence );
long __attribute__((__cdecl__)) pathconf (const char *__path, int __name );
int __attribute__((__cdecl__)) pause (void );

int __attribute__((__cdecl__)) pthread_atfork (void (*)(void), void (*)(void), void (*)(void));

int __attribute__((__cdecl__)) pipe (int __fildes[2] );
ssize_t __attribute__((__cdecl__)) pread (int __fd, void *__buf, size_t __nbytes, off_t __offset);
ssize_t __attribute__((__cdecl__)) pwrite (int __fd, const void *__buf, size_t __nbytes, off_t __offset);
_ssize_t __attribute__((__cdecl__)) read (int __fd, void *__buf, size_t __nbyte );

int __attribute__((__cdecl__)) revoke (char *path);

int __attribute__((__cdecl__)) rmdir (const char *__path );

int __attribute__((__cdecl__)) ruserok (const char *rhost, int superuser, const char *ruser, const char *luser);




void * __attribute__((__cdecl__)) sbrk (size_t __incr);


int __attribute__((__cdecl__)) setegid (gid_t __gid );
int __attribute__((__cdecl__)) seteuid (uid_t __uid );

int __attribute__((__cdecl__)) setgid (gid_t __gid );
int __attribute__((__cdecl__)) setpgid (pid_t __pid, pid_t __pgid );
int __attribute__((__cdecl__)) setpgrp (void );
pid_t __attribute__((__cdecl__)) setsid (void );
int __attribute__((__cdecl__)) setuid (uid_t __uid );

void __attribute__((__cdecl__)) setusershell (void);

unsigned __attribute__((__cdecl__)) sleep (unsigned int __seconds );
void __attribute__((__cdecl__)) swab (const void *, void *, ssize_t);
long __attribute__((__cdecl__)) sysconf (int __name );
pid_t __attribute__((__cdecl__)) tcgetpgrp (int __fildes );
int __attribute__((__cdecl__)) tcsetpgrp (int __fildes, pid_t __pgrp_id );
char __attribute__((__cdecl__)) *ttyname (int __fildes );
int __attribute__((__cdecl__)) unlink (const char *__path );
int __attribute__((__cdecl__)) vhangup (void );
_ssize_t __attribute__((__cdecl__)) write (int __fd, const void *__buf, size_t __nbyte );


pid_t __attribute__((__cdecl__)) vfork (void );




int __attribute__((__cdecl__)) _close (int __fildes );
pid_t __attribute__((__cdecl__)) _fork (void );
pid_t __attribute__((__cdecl__)) _getpid (void );
int __attribute__((__cdecl__)) _link (const char *__path1, const char *__path2 );
off_t __attribute__((__cdecl__)) _lseek (int __fildes, off_t __offset, int __whence );
_ssize_t __attribute__((__cdecl__)) _read (int __fd, void *__buf, size_t __nbyte );
void * __attribute__((__cdecl__)) _sbrk (size_t __incr);
int __attribute__((__cdecl__)) _unlink (const char *__path );
_ssize_t __attribute__((__cdecl__)) _write (int __fd, const void *__buf, size_t __nbyte );
int __attribute__((__cdecl__)) _execve (const char *__path, char * const __argv[], char * const __envp[] );


int __attribute__((__cdecl__)) getdtablesize (void);
int __attribute__((__cdecl__)) setdtablesize (int);
useconds_t __attribute__((__cdecl__)) ualarm (useconds_t __useconds, useconds_t __interval);
unsigned __attribute__((__cdecl__)) usleep (unsigned int __useconds);
int __attribute__((__cdecl__)) ftruncate (int __fd, off_t __length);
int __attribute__((__cdecl__)) truncate (const char *, off_t __length);


 int __attribute__((__cdecl__)) gethostname (char *__name, size_t __len);

char * __attribute__((__cdecl__)) mktemp (char *);
int __attribute__((__cdecl__)) sync (void);
int __attribute__((__cdecl__)) readlink (const char *__path, char *__buf, int __buflen);
int __attribute__((__cdecl__)) symlink (const char *__name1, const char *__name2);

extern int opterr;
extern int optind;
extern int optopt;
extern int optreset;
extern char *optarg;

int getopt (int, char * const *, const char *);

























void * __attribute__((__cdecl__)) memchr (const void *, int, size_t);
int __attribute__((__cdecl__)) memcmp (const void *, const void *, size_t);
void * __attribute__((__cdecl__)) memcpy (void *, const void *, size_t);
void * __attribute__((__cdecl__)) memmove (void *, const void *, size_t);
void * __attribute__((__cdecl__)) memset (void *, int, size_t);
char *__attribute__((__cdecl__)) strcat (char *, const char *);
char *__attribute__((__cdecl__)) strchr (const char *, int);
int __attribute__((__cdecl__)) strcmp (const char *, const char *);
int __attribute__((__cdecl__)) strcoll (const char *, const char *);
char *__attribute__((__cdecl__)) strcpy (char *, const char *);
size_t __attribute__((__cdecl__)) strcspn (const char *, const char *);
char *__attribute__((__cdecl__)) strerror (int);
size_t __attribute__((__cdecl__)) strlen (const char *);
char *__attribute__((__cdecl__)) strncat (char *, const char *, size_t);
int __attribute__((__cdecl__)) strncmp (const char *, const char *, size_t);
char *__attribute__((__cdecl__)) strncpy (char *, const char *, size_t);
char *__attribute__((__cdecl__)) strpbrk (const char *, const char *);
char *__attribute__((__cdecl__)) strrchr (const char *, int);
size_t __attribute__((__cdecl__)) strspn (const char *, const char *);
char *__attribute__((__cdecl__)) strstr (const char *, const char *);


char *__attribute__((__cdecl__)) strtok (char *, const char *);


size_t __attribute__((__cdecl__)) strxfrm (char *, const char *, size_t);


char *__attribute__((__cdecl__)) strtok_r (char *, const char *, char **);

int __attribute__((__cdecl__)) bcmp (const void *, const void *, size_t);
void __attribute__((__cdecl__)) bcopy (const void *, void *, size_t);
void __attribute__((__cdecl__)) bzero (void *, size_t);
int __attribute__((__cdecl__)) ffs (int);
char *__attribute__((__cdecl__)) index (const char *, int);
void * __attribute__((__cdecl__)) memccpy (void *, const void *, int, size_t);
char *__attribute__((__cdecl__)) rindex (const char *, int);
int __attribute__((__cdecl__)) strcasecmp (const char *, const char *);
char *__attribute__((__cdecl__)) strdup (const char *);
char *__attribute__((__cdecl__)) _strdup_r (struct _reent *, const char *);
char *__attribute__((__cdecl__)) strerror_r (int, char *, size_t);
size_t __attribute__((__cdecl__)) strlcat (char *, const char *, size_t);
size_t __attribute__((__cdecl__)) strlcpy (char *, const char *, size_t);
int __attribute__((__cdecl__)) strncasecmp (const char *, const char *, size_t);
size_t __attribute__((__cdecl__)) strnlen (const char *, size_t);
char *__attribute__((__cdecl__)) strsep (char **, const char *);
char *__attribute__((__cdecl__)) strlwr (char *);
char *__attribute__((__cdecl__)) strupr (char *);


const char *__attribute__((__cdecl__)) strsignal (int __signo);

int __attribute__((__cdecl__)) strtosigno (const char *__name);

void * Perl_malloc (size_t nbytes);
void * Perl_calloc (size_t elements, size_t size);
void * Perl_realloc (void * where, size_t nbytes);


void Perl_mfree (void * where);

typedef struct perl_mstats perl_mstats_t;


enum {
  IPPROTO_IP = 0,
  IPPROTO_ICMP = 1,
  IPPROTO_IGMP = 2,
  IPPROTO_IPIP = 4,
  IPPROTO_TCP = 6,
  IPPROTO_EGP = 8,
  IPPROTO_PUP = 12,
  IPPROTO_UDP = 17,
  IPPROTO_IDP = 22,

  IPPROTO_RAW = 255,
  IPPROTO_MAX
};


enum
  {
    IPPORT_ECHO = 7,
    IPPORT_DISCARD = 9,
    IPPORT_SYSTAT = 11,
    IPPORT_DAYTIME = 13,
    IPPORT_NETSTAT = 15,
    IPPORT_FTP = 21,
    IPPORT_TELNET = 23,
    IPPORT_SMTP = 25,
    IPPORT_TIMESERVER = 37,
    IPPORT_NAMESERVER = 42,
    IPPORT_WHOIS = 43,
    IPPORT_MTP = 57,

    IPPORT_TFTP = 69,
    IPPORT_RJE = 77,
    IPPORT_FINGER = 79,
    IPPORT_TTYLINK = 87,
    IPPORT_SUPDUP = 95,


    IPPORT_EXECSERVER = 512,
    IPPORT_LOGINSERVER = 513,
    IPPORT_CMDSERVER = 514,
    IPPORT_EFSSERVER = 520,


    IPPORT_BIFFUDP = 512,
    IPPORT_WHOSERVER = 513,
    IPPORT_ROUTESERVER = 520,


    IPPORT_RESERVED = 1024,


    IPPORT_USERRESERVED = 5000
  };



struct in_addr {
        unsigned int s_addr;
};



struct ip_mreq
{
        struct in_addr imr_multiaddr;
        struct in_addr imr_interface;
};




struct sockaddr_in {
  short int sin_family;
  unsigned short int sin_port;
  struct in_addr sin_addr;


  unsigned char __pad[16 - sizeof(short int) -
                        sizeof(unsigned short int) - sizeof(struct in_addr)];
};
extern unsigned long int ntohl(unsigned long int);
extern unsigned short int ntohs(unsigned short int);
extern unsigned long int htonl(unsigned long int);
extern unsigned short int htons(unsigned short int);

extern __inline__ unsigned long int __ntohl(unsigned long int);
extern __inline__ unsigned short int __ntohs(unsigned short int);
extern __inline__ unsigned long int __constant_ntohl(unsigned long int);
extern __inline__ unsigned short int __constant_ntohs(unsigned short int);

extern __inline__ unsigned long int
__ntohl(unsigned long int x)
{
        __asm__("xchgb %b0,%h0\n\t"
                "rorl $16,%0\n\t"
                "xchgb %b0,%h0"
                :"=q" (x)
                : "0" (x));
        return x;
}







extern __inline__ unsigned short int
__ntohs(unsigned short int x)
{
        __asm__("xchgb %b0,%h0"
                : "=q" (x)
                : "0" (x));
        return x;
}
struct in6_addr
{
        unsigned char s6_addr[16];
};

struct sockaddr_in6
{
        unsigned short sin6_family;
        unsigned short sin6_port;
        unsigned long sin6_flowinfo;
        struct in6_addr sin6_addr;
};



unsigned long inet_addr (const char *);
int inet_aton (const char *, struct in_addr *);
unsigned long inet_lnaof (struct in_addr);
struct in_addr inet_makeaddr (unsigned long , unsigned long);
unsigned int inet_netof (struct in_addr);
unsigned int inet_network (const char *);
char *inet_ntoa (struct in_addr);





struct tm
{
  int tm_sec;
  int tm_min;
  int tm_hour;
  int tm_mday;
  int tm_mon;
  int tm_year;
  int tm_wday;
  int tm_yday;
  int tm_isdst;
};

clock_t __attribute__((__cdecl__)) clock (void);
double __attribute__((__cdecl__)) difftime (time_t _time2, time_t _time1);
time_t __attribute__((__cdecl__)) mktime (struct tm *_timeptr);
time_t __attribute__((__cdecl__)) time (time_t *_timer);

char *__attribute__((__cdecl__)) asctime (const struct tm *_tblock);
char *__attribute__((__cdecl__)) ctime (const time_t *_time);
struct tm *__attribute__((__cdecl__)) gmtime (const time_t *_timer);
struct tm *__attribute__((__cdecl__)) localtime (const time_t *_timer);

size_t __attribute__((__cdecl__)) strftime (char *_s, size_t _maxsize, const char *_fmt, const struct tm *_t);

char *__attribute__((__cdecl__)) asctime_r (const struct tm *, char *);
char *__attribute__((__cdecl__)) ctime_r (const time_t *, char *);
struct tm *__attribute__((__cdecl__)) gmtime_r (const time_t *, struct tm *);
struct tm *__attribute__((__cdecl__)) localtime_r (const time_t *, struct tm *);








char *__attribute__((__cdecl__)) strptime (const char *, const char *, struct tm *);
void __attribute__((__cdecl__)) tzset (void);
void __attribute__((__cdecl__)) _tzset_r (struct _reent *);
extern __attribute__((dllimport)) time_t _timezone;
extern __attribute__((dllimport)) int _daylight;
extern __attribute__((dllimport)) char *_tzname[2];
char *__attribute__((__cdecl__)) timezone (void);
struct stat
{
  dev_t st_dev;
  ino_t st_ino;
  mode_t st_mode;
  nlink_t st_nlink;
  uid_t st_uid;
  gid_t st_gid;
  dev_t st_rdev;
  off_t st_size;
  timestruc_t st_atim;
  timestruc_t st_mtim;
  timestruc_t st_ctim;
  blksize_t st_blksize;
  blkcnt_t st_blocks;
  long st_spare4[2];
};
int __attribute__((__cdecl__)) chmod ( const char *__path, mode_t __mode );
int __attribute__((__cdecl__)) fchmod (int __fd, mode_t __mode);
int __attribute__((__cdecl__)) fstat ( int __fd, struct stat *__sbuf );
int __attribute__((__cdecl__)) mkdir ( const char *_path, mode_t __mode );
int __attribute__((__cdecl__)) mkfifo ( const char *__path, mode_t __mode );
int __attribute__((__cdecl__)) stat ( const char *__path, struct stat *__sbuf );
mode_t __attribute__((__cdecl__)) umask ( mode_t __mask );


int __attribute__((__cdecl__)) lstat ( const char *__path, struct stat *__buf );
int __attribute__((__cdecl__)) mknod ( const char *__path, mode_t __mode, dev_t __dev );





int __attribute__((__cdecl__)) _fstat ( int __fd, struct stat *__sbuf );
int __attribute__((__cdecl__)) _stat ( const char *__path, struct stat *__sbuf );
struct timeval {
  long tv_sec;
  long tv_usec;
};

struct timezone {
  int tz_minuteswest;
  int tz_dsttime;
};











int select (int __n, _types_fd_set *__readfds, _types_fd_set *__writefds, _types_fd_set *__exceptfds, struct timeval *__timeout);



struct itimerval {
  struct timeval it_interval;
  struct timeval it_value;
};
int __attribute__((__cdecl__)) gettimeofday (struct timeval *__p, struct timezone *__z);
int __attribute__((__cdecl__)) settimeofday (const struct timeval *, const struct timezone *);
int __attribute__((__cdecl__)) utimes (const char *__path, struct timeval *__tvp);
int __attribute__((__cdecl__)) getitimer (int __which, struct itimerval *__value);
int __attribute__((__cdecl__)) setitimer (int __which, const struct itimerval *__value, struct itimerval *__ovalue);






struct tms {
        clock_t tms_utime;
        clock_t tms_stime;
        clock_t tms_cutime;
        clock_t tms_cstime;
};

clock_t __attribute__((__cdecl__)) times (struct tms *);









typedef int error_t;

extern int *__errno (void);




extern __attribute__((dllimport)) const char * const _sys_errlist[];
extern __attribute__((dllimport)) int _sys_nerr;

extern __attribute__((dllimport)) const char * const sys_errlist[];
extern __attribute__((dllimport)) int sys_nerr;






struct sockaddr {
  unsigned short sa_family;
  char sa_data[14];
};

struct ifreq
{


        union
        {
                char ifrn_name[16];
        } ifr_ifrn;

        union {
                struct sockaddr ifru_addr;
                struct sockaddr ifru_broadaddr;
                struct sockaddr ifru_netmask;
                struct sockaddr ifru_hwaddr;
                short ifru_flags;
                int ifru_metric;
                int ifru_mtu;
        } ifr_ifru;
};
struct ifconf
{
        int ifc_len;
        union
        {
                caddr_t ifcu_buf;
                struct ifreq *ifcu_req;
        } ifc_ifcu;
};


struct linger {
  unsigned short l_onoff;
 unsigned short l_linger;
};

struct msghdr
{
        void * msg_name;
        int msg_namelen;
        struct iovec * msg_iov;
        int msg_iovlen;
        void * msg_accrights;
        int msg_accrightslen;
};
  int accept (int, struct sockaddr *__peer, int *);
  int bind (int, const struct sockaddr *__my_addr, int __addrlen);
  int connect (int, const struct sockaddr *, int);
  int getpeername (int, struct sockaddr *__peer, int *);
  int getsockname (int, struct sockaddr *__addr, int *);
  int listen (int, int __n);
  int recv (int, void *__buff, int __len, unsigned int __flags);
  int recvfrom (int, char *__buff, int __len, int __flags,
                         struct sockaddr *__from, int *__fromlen);
  int recvmsg(int s, struct msghdr *msg, int flags);
  int send (int, const void *__buff, int __len, unsigned int __flags);
  int sendmsg(int s, const struct msghdr *msg, int flags);
  int sendto (int, const void *, int, unsigned int, const struct sockaddr *, int);
  int setsockopt (int __s, int __level, int __optname, const void *optval, int __optlen);
  int getsockopt (int __s, int __level, int __optname, void *__optval, int *__optlen);
  int shutdown (int, int);
  int socket (int __family, int __type, int __protocol);
  int socketpair (int __domain, int __type, int __protocol, int *__socket_vec);

  struct servent *getservbyname (const char *__name, const char *__proto);
struct hostent {
        const char *h_name;
        char **h_aliases;
        short h_addrtype;
        short h_length;
        char **h_addr_list;

};






struct netent {
        char *n_name;
        char **n_aliases;
        short n_addrtype;
        unsigned long n_net;
};

struct servent {
        char *s_name;
        char **s_aliases;
        short s_port;
        char *s_proto;
};

struct protoent
{
  char *p_name;
  char **p_aliases;
  short p_proto;
};

struct rpcent {
        char *r_name;
        char **r_aliases;
        int r_number;
};
extern __attribute__((dllimport)) int h_errno;
void endhostent (void);
void endnetent (void);
void endprotoent (void);
void endservent (void);
void endrpcent (void);
struct hostent *gethostbyaddr (const char *, int, int);
struct hostent *gethostbyname (const char *);
struct hostent *gethostent (void);
struct netent *getnetbyaddr (long, int);
struct netent *getnetbyname (const char *);
struct netent *getnetent (void);
struct protoent *getprotobyname (const char *);
struct protoent *getprotobynumber (int);
struct protoent *getprotoent (void);
struct servent *getservbyname (const char *, const char *);
struct servent *getservbyport (int, const char *);
struct servent *getservent (void);
struct rpcent *getrpcent (void);
struct rpcent *getrpcbyname (const char *);
struct rpcent *getrpcbynumber (int);
const char *hstrerror (int);
void herror (const char *);
void sethostent (int);
void setnetent (int);
void setprotoent (int);
void setservent (int);
void setrpcent (int);
        char *strerror (int);


int ioctl (int __fd, int __cmd, ...);







struct dirent
{
  long d_version;
  long __d_reserved[2];
  long d_fd;

  ino_t d_ino;
  char d_name[256];
};



typedef struct __DIR
{

  unsigned long __d_cookie;
  struct dirent *__d_dirent;
  char *__d_dirname;
  __off32_t __d_position;
  unsigned long __d_dirhash;

  union
    {







      char __d_filler[16];
    } __d_u;
} DIR;

DIR *opendir (const char *);
struct dirent *readdir (DIR *);
void rewinddir (DIR *);
int closedir (DIR *);

int dirfd (DIR *);


off_t telldir (DIR *);
void seekdir (DIR *, off_t loc);

int scandir (const char *__dir,
             struct dirent ***__namelist,
             int (*select) (const struct dirent *),
             int (*compar) (const struct dirent **, const struct dirent **));

int alphasort (const struct dirent **__a, const struct dirent **__b);
typedef long IV;
typedef unsigned long UV;


typedef double NV;







typedef union
{
  double value;
  struct
  {






    unsigned int fraction1:32;
    unsigned int fraction0:20;

    unsigned int exponent :11;
    unsigned int sign : 1;
  } number;
  struct
  {






    unsigned int function1:32;
    unsigned int function0:19;

    unsigned int quiet:1;
    unsigned int exponent: 11;
    unsigned int sign : 1;
  } nan;
  struct
  {
    unsigned long lsw;
    unsigned long msw;
  } parts;

  long aslong[2];

} __ieee_double_shape_type;
typedef union
{
  float value;
  struct
  {
    unsigned int fraction0: 7;
    unsigned int fraction1: 16;
    unsigned int exponent: 8;
    unsigned int sign : 1;
  } number;
  struct
  {
    unsigned int function1:16;
    unsigned int function0:6;
    unsigned int quiet:1;
    unsigned int exponent:8;
    unsigned int sign:1;
  } nan;
  long p1;

} __ieee_float_shape_type;
typedef int fp_rnd;





fp_rnd __attribute__((__cdecl__)) fpgetround (void);
fp_rnd __attribute__((__cdecl__)) fpsetround (fp_rnd);



typedef int fp_except;






fp_except __attribute__((__cdecl__)) fpgetmask (void);
fp_except __attribute__((__cdecl__)) fpsetmask (fp_except);
fp_except __attribute__((__cdecl__)) fpgetsticky (void);
fp_except __attribute__((__cdecl__)) fpsetsticky (fp_except);



typedef int fp_rdi;



fp_rdi __attribute__((__cdecl__)) fpgetroundtoi (void);
fp_rdi __attribute__((__cdecl__)) fpsetroundtoi (fp_rdi);

int __attribute__((__cdecl__)) isnan (double);
int __attribute__((__cdecl__)) isinf (double);
int __attribute__((__cdecl__)) finite (double);



int __attribute__((__cdecl__)) isnanf (float);
int __attribute__((__cdecl__)) isinff (float);
int __attribute__((__cdecl__)) finitef (float);
struct perl_mstats {
    UV *nfree;
    UV *ntotal;
    IV topbucket, topbucket_ev, topbucket_odd, totfree, total, total_chain;
    IV total_sbrk, sbrks, sbrk_good, sbrk_slack, start_slack, sbrked_remains;
    IV minbucket;

    UV *bucket_mem_size;
    UV *bucket_available_size;
    UV nbuckets;
};

typedef size_t STRLEN;

typedef struct op OP;
typedef struct cop COP;
typedef struct unop UNOP;
typedef struct binop BINOP;
typedef struct listop LISTOP;
typedef struct logop LOGOP;
typedef struct pmop PMOP;
typedef struct svop SVOP;
typedef struct padop PADOP;
typedef struct pvop PVOP;
typedef struct loop LOOP;

typedef struct interpreter PerlInterpreter;





typedef struct sv SV;
typedef struct av AV;
typedef struct hv HV;
typedef struct cv CV;
typedef struct regexp REGEXP;
typedef struct gp GP;
typedef struct gv GV;
typedef struct io IO;
typedef struct context PERL_CONTEXT;
typedef struct block BLOCK;

typedef struct magic MAGIC;
typedef struct xrv XRV;
typedef struct xpv XPV;
typedef struct xpviv XPVIV;
typedef struct xpvuv XPVUV;
typedef struct xpvnv XPVNV;
typedef struct xpvmg XPVMG;
typedef struct xpvlv XPVLV;
typedef struct xpvav XPVAV;
typedef struct xpvhv XPVHV;
typedef struct xpvgv XPVGV;
typedef struct xpvcv XPVCV;
typedef struct xpvbm XPVBM;
typedef struct xpvfm XPVFM;
typedef struct xpvio XPVIO;
typedef struct mgvtbl MGVTBL;
typedef union any ANY;
typedef struct ptr_tbl_ent PTR_TBL_ENT_t;
typedef struct ptr_tbl PTR_TBL_t;

typedef char I8;
typedef unsigned char U8;
typedef short I16;
typedef unsigned short U16;
typedef long I32;
typedef unsigned long U32;
typedef U16 line_t;
union any {
    void* any_ptr;
    I32 any_i32;
    IV any_iv;
    long any_long;
    void (*any_dptr) (void*);
    void (*any_dxptr) (register PerlInterpreter *my_perl, void*);
};
typedef I32 (*filter_t) (register PerlInterpreter *my_perl, int, SV *, int);






extern void PerlIO_init (void);



typedef void (*Sighandler_t) (int);






typedef _fpos_t fpos_t;
typedef struct __sFILE FILE;

FILE * __attribute__((__cdecl__)) tmpfile (void);
char * __attribute__((__cdecl__)) tmpnam (char *);
int __attribute__((__cdecl__)) fclose (FILE *);
int __attribute__((__cdecl__)) fflush (FILE *);
FILE * __attribute__((__cdecl__)) freopen (const char *, const char *, FILE *);
void __attribute__((__cdecl__)) setbuf (FILE *, char *);
int __attribute__((__cdecl__)) setvbuf (FILE *, char *, int, size_t);
int __attribute__((__cdecl__)) fprintf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) fscanf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) printf (const char *, ...);
int __attribute__((__cdecl__)) scanf (const char *, ...);
int __attribute__((__cdecl__)) sscanf (const char *, const char *, ...);
int __attribute__((__cdecl__)) vfprintf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vprintf (const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vsprintf (char *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) fgetc (FILE *);
char * __attribute__((__cdecl__)) fgets (char *, int, FILE *);
int __attribute__((__cdecl__)) fputc (int, FILE *);
int __attribute__((__cdecl__)) fputs (const char *, FILE *);
int __attribute__((__cdecl__)) getc (FILE *);
int __attribute__((__cdecl__)) getchar (void);
char * __attribute__((__cdecl__)) gets (char *);
int __attribute__((__cdecl__)) putc (int, FILE *);
int __attribute__((__cdecl__)) putchar (int);
int __attribute__((__cdecl__)) puts (const char *);
int __attribute__((__cdecl__)) ungetc (int, FILE *);
size_t __attribute__((__cdecl__)) fread (void *, size_t _size, size_t _n, FILE *);
size_t __attribute__((__cdecl__)) fwrite (const void * , size_t _size, size_t _n, FILE *);
int __attribute__((__cdecl__)) fgetpos (FILE *, fpos_t *);
int __attribute__((__cdecl__)) fseek (FILE *, long, int);
int __attribute__((__cdecl__)) fsetpos (FILE *, const fpos_t *);
long __attribute__((__cdecl__)) ftell ( FILE *);
void __attribute__((__cdecl__)) rewind (FILE *);
void __attribute__((__cdecl__)) clearerr (FILE *);
int __attribute__((__cdecl__)) feof (FILE *);
int __attribute__((__cdecl__)) ferror (FILE *);
void __attribute__((__cdecl__)) perror (const char *);

FILE * __attribute__((__cdecl__)) fopen (const char *_name, const char *_type);
int __attribute__((__cdecl__)) sprintf (char *, const char *, ...);
int __attribute__((__cdecl__)) remove (const char *);
int __attribute__((__cdecl__)) rename (const char *, const char *);


int __attribute__((__cdecl__)) vfiprintf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) iprintf (const char *, ...);
int __attribute__((__cdecl__)) fiprintf (FILE *, const char *, ...);
int __attribute__((__cdecl__)) siprintf (char *, const char *, ...);
char * __attribute__((__cdecl__)) tempnam (const char *, const char *);
int __attribute__((__cdecl__)) vsnprintf (char *, size_t, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vfscanf (FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vscanf (const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) vsscanf (const char *, const char *, __gnuc_va_list);

int __attribute__((__cdecl__)) snprintf (char *, size_t, const char *, ...);
FILE * __attribute__((__cdecl__)) fdopen (int, const char *);

int __attribute__((__cdecl__)) fileno (FILE *);
int __attribute__((__cdecl__)) getw (FILE *);
int __attribute__((__cdecl__)) pclose (FILE *);
FILE * __attribute__((__cdecl__)) popen (const char *, const char *);
int __attribute__((__cdecl__)) putw (int, FILE *);
FILE * __attribute__((__cdecl__)) _fdopen_r (struct _reent *, int, const char *);
FILE * __attribute__((__cdecl__)) _fopen_r (struct _reent *, const char *, const char *);
int __attribute__((__cdecl__)) _fscanf_r (struct _reent *, FILE *, const char *, ...);
int __attribute__((__cdecl__)) _getchar_r (struct _reent *);
char * __attribute__((__cdecl__)) _gets_r (struct _reent *, char *);
int __attribute__((__cdecl__)) _iprintf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _mkstemp_r (struct _reent *, char *);
char * __attribute__((__cdecl__)) _mktemp_r (struct _reent *, char *);
void __attribute__((__cdecl__)) _perror_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _printf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _putchar_r (struct _reent *, int);
int __attribute__((__cdecl__)) _puts_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _remove_r (struct _reent *, const char *);
int __attribute__((__cdecl__)) _rename_r (struct _reent *, const char *_old, const char *_new);

int __attribute__((__cdecl__)) _scanf_r (struct _reent *, const char *, ...);
int __attribute__((__cdecl__)) _sprintf_r (struct _reent *, char *, const char *, ...);
int __attribute__((__cdecl__)) _snprintf_r (struct _reent *, char *, size_t, const char *, ...);
int __attribute__((__cdecl__)) _sscanf_r (struct _reent *, const char *, const char *, ...);
char * __attribute__((__cdecl__)) _tempnam_r (struct _reent *, const char *, const char *);
FILE * __attribute__((__cdecl__)) _tmpfile_r (struct _reent *);
char * __attribute__((__cdecl__)) _tmpnam_r (struct _reent *, char *);
int __attribute__((__cdecl__)) _vfprintf_r (struct _reent *, FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vprintf_r (struct _reent *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsprintf_r (struct _reent *, char *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsnprintf_r (struct _reent *, char *, size_t, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vfscanf_r (struct _reent *, FILE *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vscanf_r (struct _reent *, const char *, __gnuc_va_list);
int __attribute__((__cdecl__)) _vsscanf_r (struct _reent *, const char *, const char *, __gnuc_va_list);

ssize_t __attribute__((__cdecl__)) __getdelim (char **, size_t *, int, FILE *);
ssize_t __attribute__((__cdecl__)) __getline (char **, size_t *, FILE *);





int __attribute__((__cdecl__)) __srget (FILE *);
int __attribute__((__cdecl__)) __swbuf (int, FILE *);






FILE *__attribute__((__cdecl__)) funopen (const void * _cookie, int (*readfn)(void * _cookie, char *_buf, int _n), int (*writefn)(void * _cookie, const char *_buf, int _n), fpos_t (*seekfn)(void * _cookie, fpos_t _off, int _whence), int (*closefn)(void * _cookie));
static __inline__ int __sgetc(FILE *__p)
  {
    int __c = (--(__p)->_r < 0 ? __srget(__p) : (int)(*(__p)->_p++));
    if ((__p->_flags & 0x4000) && (__c == '\r'))
      {
      int __c2 = (--(__p)->_r < 0 ? __srget(__p) : (int)(*(__p)->_p++));
      if (__c2 == '\n')
        __c = __c2;
      else
        ungetc(__c2, __p);
      }
    return __c;
  }

extern int PerlIO_sprintf (char *, int, const char *,...)
                                        __attribute__((__format__ (__printf__, 3, 4)));

struct regnode {
    U8 flags;
    U8 type;
    U16 next_off;
};

typedef struct regnode regnode;

struct reg_substr_data;

struct reg_data;

typedef struct regexp {
        I32 *startp;
        I32 *endp;
        regnode *regstclass;
        struct reg_substr_data *substrs;
        char *precomp;
        struct reg_data *data;
        char *subbeg;

        I32 sublen;
        I32 refcnt;
        I32 minlen;
        I32 prelen;
        U32 nparens;
        U32 lastparen;
        U32 reganch;

        regnode program[1];
} regexp;
struct re_scream_pos_data_s;
typedef enum {
        SVt_NULL,
        SVt_IV,
        SVt_NV,
        SVt_RV,
        SVt_PV,
        SVt_PVIV,
        SVt_PVNV,
        SVt_PVMG,
        SVt_PVBM,
        SVt_PVLV,
        SVt_PVAV,
        SVt_PVHV,
        SVt_PVCV,
        SVt_PVGV,
        SVt_PVFM,
        SVt_PVIO
} svtype;



struct sv {
    void* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct gv {
    XPVGV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct cv {
    XPVCV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct av {
    XPVAV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct hv {
    XPVHV* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};

struct io {
    XPVIO* sv_any;
    U32 sv_refcnt;
    U32 sv_flags;
};
struct xrv {
    SV * xrv_rv;
};

struct xpv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
};

struct xpviv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
};

struct xpvuv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    UV xuv_uv;
};

struct xpvnv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
};


struct xpvmg {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;
};

struct xpvlv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    STRLEN xlv_targoff;
    STRLEN xlv_targlen;
    SV* xlv_targ;
    char xlv_type;
};

struct xpvgv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    GP* xgv_gp;
    char* xgv_name;
    STRLEN xgv_namelen;
    HV* xgv_stash;
    U8 xgv_flags;
};

struct xpvbm {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    I32 xbm_useful;
    U16 xbm_previous;
    U8 xbm_rare;
};



typedef U16 cv_flags_t;

struct xpvfm {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    HV * xcv_stash;
    OP * xcv_start;
    OP * xcv_root;
    void (*xcv_xsub)(register PerlInterpreter *my_perl, CV*);
    ANY xcv_xsubany;
    GV * xcv_gv;
    char * xcv_file;
    long xcv_depth;
    AV * xcv_padlist;
    CV * xcv_outside;




    cv_flags_t xcv_flags;

    I32 xfm_lines;
};

struct xpvio {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xiv_iv;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    FILE * xio_ifp;
    FILE * xio_ofp;
    union {
        DIR * xiou_dirp;
        void * xiou_any;
    } xio_dirpu;
    long xio_lines;
    long xio_page;
    long xio_page_len;
    long xio_lines_left;
    char * xio_top_name;
    GV * xio_top_gv;
    char * xio_fmt_name;
    GV * xio_fmt_gv;
    char * xio_bottom_name;
    GV * xio_bottom_gv;
    short xio_subprocess;
    char xio_type;
    char xio_flags;
};
struct gp {
    SV * gp_sv;
    U32 gp_refcnt;
    struct io * gp_io;
    CV * gp_form;
    AV * gp_av;
    HV * gp_hv;
    GV * gp_egv;
    CV * gp_cv;
    U32 gp_cvgen;
    U32 gp_flags;
    line_t gp_line;
    char * gp_file;
};
struct xpvcv {
    char * xpv_pv;
    STRLEN xpv_cur;
    STRLEN xpv_len;
    IV xof_off;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    HV * xcv_stash;
    OP * xcv_start;
    OP * xcv_root;
    void (*xcv_xsub) (register PerlInterpreter *my_perl, CV*);
    ANY xcv_xsubany;
    GV * xcv_gv;
    char * xcv_file;
    long xcv_depth;
    AV * xcv_padlist;
    CV * xcv_outside;




    cv_flags_t xcv_flags;
};





typedef enum opcode {
        OP_NULL,
        OP_STUB,
        OP_SCALAR,
        OP_PUSHMARK,
        OP_WANTARRAY,
        OP_CONST,
        OP_GVSV,
        OP_GV,
        OP_GELEM,
        OP_PADSV,
        OP_PADAV,
        OP_PADHV,
        OP_PADANY,
        OP_PUSHRE,
        OP_RV2GV,
        OP_RV2SV,
        OP_AV2ARYLEN,
        OP_RV2CV,
        OP_ANONCODE,
        OP_PROTOTYPE,
        OP_REFGEN,
        OP_SREFGEN,
        OP_REF,
        OP_BLESS,
        OP_BACKTICK,
        OP_GLOB,
        OP_READLINE,
        OP_RCATLINE,
        OP_REGCMAYBE,
        OP_REGCRESET,
        OP_REGCOMP,
        OP_MATCH,
        OP_QR,
        OP_SUBST,
        OP_SUBSTCONT,
        OP_TRANS,
        OP_SASSIGN,
        OP_AASSIGN,
        OP_CHOP,
        OP_SCHOP,
        OP_CHOMP,
        OP_SCHOMP,
        OP_DEFINED,
        OP_UNDEF,
        OP_STUDY,
        OP_POS,
        OP_PREINC,
        OP_I_PREINC,
        OP_PREDEC,
        OP_I_PREDEC,
        OP_POSTINC,
        OP_I_POSTINC,
        OP_POSTDEC,
        OP_I_POSTDEC,
        OP_POW,
        OP_MULTIPLY,
        OP_I_MULTIPLY,
        OP_DIVIDE,
        OP_I_DIVIDE,
        OP_MODULO,
        OP_I_MODULO,
        OP_REPEAT,
        OP_ADD,
        OP_I_ADD,
        OP_SUBTRACT,
        OP_I_SUBTRACT,
        OP_CONCAT,
        OP_STRINGIFY,
        OP_LEFT_SHIFT,
        OP_RIGHT_SHIFT,
        OP_LT,
        OP_I_LT,
        OP_GT,
        OP_I_GT,
        OP_LE,
        OP_I_LE,
        OP_GE,
        OP_I_GE,
        OP_EQ,
        OP_I_EQ,
        OP_NE,
        OP_I_NE,
        OP_NCMP,
        OP_I_NCMP,
        OP_SLT,
        OP_SGT,
        OP_SLE,
        OP_SGE,
        OP_SEQ,
        OP_SNE,
        OP_SCMP,
        OP_BIT_AND,
        OP_BIT_XOR,
        OP_BIT_OR,
        OP_NEGATE,
        OP_I_NEGATE,
        OP_NOT,
        OP_COMPLEMENT,
        OP_ATAN2,
        OP_SIN,
        OP_COS,
        OP_RAND,
        OP_SRAND,
        OP_EXP,
        OP_LOG,
        OP_SQRT,
        OP_INT,
        OP_HEX,
        OP_OCT,
        OP_ABS,
        OP_LENGTH,
        OP_SUBSTR,
        OP_VEC,
        OP_INDEX,
        OP_RINDEX,
        OP_SPRINTF,
        OP_FORMLINE,
        OP_ORD,
        OP_CHR,
        OP_CRYPT,
        OP_UCFIRST,
        OP_LCFIRST,
        OP_UC,
        OP_LC,
        OP_QUOTEMETA,
        OP_RV2AV,
        OP_AELEMFAST,
        OP_AELEM,
        OP_ASLICE,
        OP_EACH,
        OP_VALUES,
        OP_KEYS,
        OP_DELETE,
        OP_EXISTS,
        OP_RV2HV,
        OP_HELEM,
        OP_HSLICE,
        OP_UNPACK,
        OP_PACK,
        OP_SPLIT,
        OP_JOIN,
        OP_LIST,
        OP_LSLICE,
        OP_ANONLIST,
        OP_ANONHASH,
        OP_SPLICE,
        OP_PUSH,
        OP_POP,
        OP_SHIFT,
        OP_UNSHIFT,
        OP_SORT,
        OP_REVERSE,
        OP_GREPSTART,
        OP_GREPWHILE,
        OP_MAPSTART,
        OP_MAPWHILE,
        OP_RANGE,
        OP_FLIP,
        OP_FLOP,
        OP_AND,
        OP_OR,
        OP_XOR,
        OP_COND_EXPR,
        OP_ANDASSIGN,
        OP_ORASSIGN,
        OP_METHOD,
        OP_ENTERSUB,
        OP_LEAVESUB,
        OP_LEAVESUBLV,
        OP_CALLER,
        OP_WARN,
        OP_DIE,
        OP_RESET,
        OP_LINESEQ,
        OP_NEXTSTATE,
        OP_DBSTATE,
        OP_UNSTACK,
        OP_ENTER,
        OP_LEAVE,
        OP_SCOPE,
        OP_ENTERITER,
        OP_ITER,
        OP_ENTERLOOP,
        OP_LEAVELOOP,
        OP_RETURN,
        OP_LAST,
        OP_NEXT,
        OP_REDO,
        OP_DUMP,
        OP_GOTO,
        OP_EXIT,
        OP_OPEN,
        OP_CLOSE,
        OP_PIPE_OP,
        OP_FILENO,
        OP_UMASK,
        OP_BINMODE,
        OP_TIE,
        OP_UNTIE,
        OP_TIED,
        OP_DBMOPEN,
        OP_DBMCLOSE,
        OP_SSELECT,
        OP_SELECT,
        OP_GETC,
        OP_READ,
        OP_ENTERWRITE,
        OP_LEAVEWRITE,
        OP_PRTF,
        OP_PRINT,
        OP_SYSOPEN,
        OP_SYSSEEK,
        OP_SYSREAD,
        OP_SYSWRITE,
        OP_SEND,
        OP_RECV,
        OP_EOF,
        OP_TELL,
        OP_SEEK,
        OP_TRUNCATE,
        OP_FCNTL,
        OP_IOCTL,
        OP_FLOCK,
        OP_SOCKET,
        OP_SOCKPAIR,
        OP_BIND,
        OP_CONNECT,
        OP_LISTEN,
        OP_ACCEPT,
        OP_SHUTDOWN,
        OP_GSOCKOPT,
        OP_SSOCKOPT,
        OP_GETSOCKNAME,
        OP_GETPEERNAME,
        OP_LSTAT,
        OP_STAT,
        OP_FTRREAD,
        OP_FTRWRITE,
        OP_FTREXEC,
        OP_FTEREAD,
        OP_FTEWRITE,
        OP_FTEEXEC,
        OP_FTIS,
        OP_FTEOWNED,
        OP_FTROWNED,
        OP_FTZERO,
        OP_FTSIZE,
        OP_FTMTIME,
        OP_FTATIME,
        OP_FTCTIME,
        OP_FTSOCK,
        OP_FTCHR,
        OP_FTBLK,
        OP_FTFILE,
        OP_FTDIR,
        OP_FTPIPE,
        OP_FTLINK,
        OP_FTSUID,
        OP_FTSGID,
        OP_FTSVTX,
        OP_FTTTY,
        OP_FTTEXT,
        OP_FTBINARY,
        OP_CHDIR,
        OP_CHOWN,
        OP_CHROOT,
        OP_UNLINK,
        OP_CHMOD,
        OP_UTIME,
        OP_RENAME,
        OP_LINK,
        OP_SYMLINK,
        OP_READLINK,
        OP_MKDIR,
        OP_RMDIR,
        OP_OPEN_DIR,
        OP_READDIR,
        OP_TELLDIR,
        OP_SEEKDIR,
        OP_REWINDDIR,
        OP_CLOSEDIR,
        OP_FORK,
        OP_WAIT,
        OP_WAITPID,
        OP_SYSTEM,
        OP_EXEC,
        OP_KILL,
        OP_GETPPID,
        OP_GETPGRP,
        OP_SETPGRP,
        OP_GETPRIORITY,
        OP_SETPRIORITY,
        OP_TIME,
        OP_TMS,
        OP_LOCALTIME,
        OP_GMTIME,
        OP_ALARM,
        OP_SLEEP,
        OP_SHMGET,
        OP_SHMCTL,
        OP_SHMREAD,
        OP_SHMWRITE,
        OP_MSGGET,
        OP_MSGCTL,
        OP_MSGSND,
        OP_MSGRCV,
        OP_SEMGET,
        OP_SEMCTL,
        OP_SEMOP,
        OP_REQUIRE,
        OP_DOFILE,
        OP_ENTEREVAL,
        OP_LEAVEEVAL,
        OP_ENTERTRY,
        OP_LEAVETRY,
        OP_GHBYNAME,
        OP_GHBYADDR,
        OP_GHOSTENT,
        OP_GNBYNAME,
        OP_GNBYADDR,
        OP_GNETENT,
        OP_GPBYNAME,
        OP_GPBYNUMBER,
        OP_GPROTOENT,
        OP_GSBYNAME,
        OP_GSBYPORT,
        OP_GSERVENT,
        OP_SHOSTENT,
        OP_SNETENT,
        OP_SPROTOENT,
        OP_SSERVENT,
        OP_EHOSTENT,
        OP_ENETENT,
        OP_EPROTOENT,
        OP_ESERVENT,
        OP_GPWNAM,
        OP_GPWUID,
        OP_GPWENT,
        OP_SPWENT,
        OP_EPWENT,
        OP_GGRNAM,
        OP_GGRGID,
        OP_GGRENT,
        OP_SGRENT,
        OP_EGRENT,
        OP_GETLOGIN,
        OP_SYSCALL,
        OP_LOCK,
        OP_THREADSV,
        OP_SETSTATE,
        OP_METHOD_NAMED,
        OP_max
} opcode;
typedef U32 PADOFFSET;
struct op {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
};

struct unop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
};

struct binop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
};

struct logop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_other;
};

struct listop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
};

struct pmop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
    OP * op_pmreplroot;
    OP * op_pmreplstart;
    PMOP * op_pmnext;
    REGEXP * op_pmregexp;
    U16 op_pmflags;
    U16 op_pmpermflags;
    U8 op_pmdynflags;
};
struct svop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    SV * op_sv;
};

struct padop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    PADOFFSET op_padix;
};

struct pvop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    char * op_pv;
};

struct loop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    OP * op_first;
    OP * op_last;
    OP * op_redoop;
    OP * op_nextop;
    OP * op_lastop;
};
struct cop {
    OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter *my_perl); PADOFFSET op_targ; U16 op_type; U16 op_seq; U8 op_flags; U8 op_private;
    char * cop_label;




    HV * cop_stash;
    GV * cop_filegv;

    U32 cop_seq;
    I32 cop_arybase;
    line_t cop_line;
    SV * cop_warnings;
};
struct block_sub {
    CV * cv;
    GV * gv;
    GV * dfoutgv;

    AV * savearray;

    AV * argarray;
    U16 olddepth;
    U8 hasargs;
    U8 lval;
    SV ** oldcurpad;
};
struct block_eval {
    I32 old_in_eval;
    I32 old_op_type;
    SV * old_namesv;
    OP * old_eval_root;
    SV * cur_text;
    CV * cv;
};
struct block_loop {
    char * label;
    I32 resetsp;
    OP * redo_op;
    OP * next_op;
    OP * last_op;




    SV ** itervar;

    SV * itersave;
    SV * iterlval;
    AV * iterary;
    IV iterix;
    IV itermax;
};
struct block {
    I32 blku_oldsp;
    COP * blku_oldcop;
    I32 blku_oldretsp;
    I32 blku_oldmarksp;
    I32 blku_oldscopesp;
    PMOP * blku_oldpm;
    U8 blku_gimme;

    union {
        struct block_sub blku_sub;
        struct block_eval blku_eval;
        struct block_loop blku_loop;
    } blk_u;
};
struct subst {
    I32 sbu_iters;
    I32 sbu_maxiters;
    I32 sbu_rflags;
    I32 sbu_oldsave;
    char sbu_once;
    char sbu_rxtainted;
    char * sbu_orig;
    SV * sbu_dstr;
    SV * sbu_targ;
    char * sbu_s;
    char * sbu_m;
    char * sbu_strend;
    void * sbu_rxres;
    REGEXP * sbu_rx;
};
struct context {
    U32 cx_type;
    union {
        struct block cx_blk;
        struct subst cx_subst;
    } cx_u;
};
struct stackinfo {
    AV * si_stack;
    PERL_CONTEXT * si_cxstack;
    I32 si_cxix;
    I32 si_cxmax;
    I32 si_type;
    struct stackinfo * si_prev;
    struct stackinfo * si_next;
    I32 si_markoff;


};

typedef struct stackinfo PERL_SI;
struct xpvav {
    char* xav_array;
    ssize_t xav_fill;
    ssize_t xav_max;
    IV xof_off;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    SV** xav_alloc;
    SV* xav_arylen;
    U8 xav_flags;
};
typedef struct he HE;
typedef struct hek HEK;


struct he {
    HE *hent_next;
    HEK *hent_hek;
    SV *hent_val;
};


struct hek {
    U32 hek_hash;
    I32 hek_len;
    char hek_key[1];
};



struct xpvhv {
    char * xhv_array;
    STRLEN xhv_fill;
    STRLEN xhv_max;
    IV xhv_keys;
    NV xnv_nv;
    MAGIC* xmg_magic;
    HV* xmg_stash;

    I32 xhv_riter;
    HE *xhv_eiter;
    PMOP *xhv_pmroot;
    char *xhv_name;
};
struct mgvtbl {
    int (*svt_get) (register PerlInterpreter *my_perl, SV *sv, MAGIC* mg);
    int (*svt_set) (register PerlInterpreter *my_perl, SV *sv, MAGIC* mg);
    U32 (*svt_len) (register PerlInterpreter *my_perl, SV *sv, MAGIC* mg);
    int (*svt_clear)(register PerlInterpreter *my_perl, SV *sv, MAGIC* mg);
    int (*svt_free) (register PerlInterpreter *my_perl, SV *sv, MAGIC* mg);
};


struct magic {
    MAGIC* mg_moremagic;
    MGVTBL* mg_virtual;
    U16 mg_private;
    char mg_type;
    U8 mg_flags;
    SV* mg_obj;
    char* mg_ptr;
    I32 mg_len;
};
struct jmpenv {
    struct jmpenv * je_prev;
    sigjmp_buf je_buf;
    int je_ret;
    char je_mustcatch;




};

typedef struct jmpenv JMPENV;

extern __attribute__((dllimport)) const unsigned char PL_utf8skip[];





typedef struct curcur CURCUR;
struct curcur {
    int parenfloor;
    int cur;
    int min;
    int max;
    int minmod;
    regnode * scan;
    regnode * next;
    char * lastloc;
    CURCUR * oldcc;
};

typedef struct _sublex_info SUBLEXINFO;
struct _sublex_info {
    I32 super_state;
    I32 sub_inwhat;
    OP *sub_op;
    char *super_bufptr;
    char *super_bufend;
};

typedef struct magic_state MGS;

struct scan_data_t;
struct regnode_charclass_class;

typedef I32 CHECKPOINT;

struct ptr_tbl_ent {
    struct ptr_tbl_ent* next;
    void* oldval;
    void* newval;
};

struct ptr_tbl {
    struct ptr_tbl_ent** tbl_ary;
    UV tbl_max;
    UV tbl_items;
};
uid_t getuid (void);
uid_t geteuid (void);
gid_t getgid (void);
gid_t getegid (void);
struct ufuncs {
    I32 (*uf_val)(IV, SV*);
    I32 (*uf_set)(IV, SV*);
    IV uf_index;
};



char *mktemp (char*);

double atof (const char*);















union __dmath
{
  __ULong i[2];
  double d;
};




extern __attribute__((dllimport)) const union __dmath __infinity[];
extern double atan (double);
extern double cos (double);
extern double sin (double);
extern double tan (double);
extern double tanh (double);
extern double frexp (double, int *);
extern double modf (double, double *);
extern double ceil (double);
extern double fabs (double);
extern double floor (double);






extern double acos (double);
extern double asin (double);
extern double atan2 (double, double);
extern double cosh (double);
extern double sinh (double);
extern double exp (double);
extern double ldexp (double, int);
extern double log (double);
extern double log10 (double);
extern double pow (double, double);
extern double sqrt (double);
extern double fmod (double, double);
typedef float float_t;
typedef double double_t;
extern int __fpclassifyf (float x);
extern int __fpclassifyd (double x);
extern double infinity (void);
extern double nan (void);
extern int isnan (double);
extern int isinf (double);
extern int finite (double);
extern double copysign (double, double);
extern int ilogb (double);

extern double asinh (double);
extern double cbrt (double);
extern double nextafter (double, double);
extern double rint (double);
extern double scalbn (double, int);

extern double exp2 (double);
extern double scalbln (double, long int);
extern double tgamma (double);
extern double nearbyint (double);
extern long int lrint (double);
extern double round (double);
extern long int lround (double);
extern double trunc (double);
extern double remquo (double, double, int *);
extern double copysign (double, double);
extern double fdim (double, double);
extern double fmax (double, double);
extern double fmin (double, double);
extern double fma (double, double, double);


extern double log1p (double);
extern double expm1 (double);



extern double acosh (double);
extern double atanh (double);
extern double remainder (double, double);
extern double gamma (double);
extern double gamma_r (double, int *);
extern double lgamma (double);
extern double lgamma_r (double, int *);
extern double erf (double);
extern double erfc (double);
extern double y0 (double);
extern double y1 (double);
extern double yn (int, double);
extern double j0 (double);
extern double j1 (double);
extern double jn (int, double);



extern double hypot (double, double);


extern double cabs();
extern double drem (double, double);
extern float atanf (float);
extern float cosf (float);
extern float sinf (float);
extern float tanf (float);
extern float tanhf (float);
extern float frexpf (float, int *);
extern float modff (float, float *);
extern float ceilf (float);
extern float fabsf (float);
extern float floorf (float);


extern float acosf (float);
extern float asinf (float);
extern float atan2f (float, float);
extern float coshf (float);
extern float sinhf (float);
extern float expf (float);
extern float ldexpf (float, int);
extern float logf (float);
extern float log10f (float);
extern float powf (float, float);
extern float sqrtf (float);
extern float fmodf (float, float);
extern float exp2f (float);
extern float scalblnf (float, long int);
extern float tgammaf (float);
extern float nearbyintf (float);
extern long int lrintf (float);
extern float roundf (float);
extern long int lroundf (float);
extern float truncf (float);
extern float remquof (float, float, int *);
extern float copysignf (float, float);
extern float fdimf (float, float);
extern float fmaxf (float, float);
extern float fminf (float, float);
extern float fmaf (float, float, float);

extern float infinityf (void);
extern float nanf (void);
extern int isnanf (float);
extern int isinff (float);
extern int finitef (float);
extern float copysignf (float, float);
extern int ilogbf (float);

extern float asinhf (float);
extern float cbrtf (float);
extern float nextafterf (float, float);
extern float rintf (float);
extern float scalbnf (float, int);
extern float log1pf (float);
extern float expm1f (float);


extern float acoshf (float);
extern float atanhf (float);
extern float remainderf (float, float);
extern float gammaf (float);
extern float gammaf_r (float, int *);
extern float lgammaf (float);
extern float lgammaf_r (float, int *);
extern float erff (float);
extern float erfcf (float);
extern float y0f (float);
extern float y1f (float);
extern float ynf (int, float);
extern float j0f (float);
extern float j1f (float);
extern float jnf (int, float);

extern float hypotf (float, float);

extern float cabsf();
extern float dremf (float, float);






extern int *__signgam (void);
struct exception

{
  int type;
  char *name;
  double arg1;
  double arg2;
  double retval;
  int err;
};




extern int matherr (struct exception *e);
enum __fdlibm_version
{
  __fdlibm_ieee = -1,
  __fdlibm_svid,
  __fdlibm_xopen,
  __fdlibm_posix
};




extern __attribute__((dllimport)) const enum __fdlibm_version __fdlib_version;

char *crypt (const char*, const char*);




char *getenv (const char*);
char *getlogin (void);
typedef struct sigaction Sigsave_t;
typedef int (*runops_proc_t) (register PerlInterpreter *my_perl);
typedef OP* (*PPADDR_t[]) (register PerlInterpreter *my_perl);
extern char ** environ;







extern __attribute__((dllimport)) const char PL_warn_uninit[]
  ;
extern __attribute__((dllimport)) const char PL_warn_nosemi[]
  ;
extern __attribute__((dllimport)) const char PL_warn_reserved[]
  ;
extern __attribute__((dllimport)) const char PL_warn_nl[]
  ;
extern __attribute__((dllimport)) const char PL_no_wrongref[]
  ;
extern __attribute__((dllimport)) const char PL_no_symref[]
  ;
extern __attribute__((dllimport)) const char PL_no_usym[]
  ;
extern __attribute__((dllimport)) const char PL_no_aelem[]
  ;
extern __attribute__((dllimport)) const char PL_no_helem[]
  ;
extern __attribute__((dllimport)) const char PL_no_modify[]
  ;
extern __attribute__((dllimport)) const char PL_no_mem[]
  ;
extern __attribute__((dllimport)) const char PL_no_security[]
  ;
extern __attribute__((dllimport)) const char PL_no_sock_func[]
  ;
extern __attribute__((dllimport)) const char PL_no_dir_func[]
  ;
extern __attribute__((dllimport)) const char PL_no_func[]
  ;
extern __attribute__((dllimport)) const char PL_no_myglob[]
  ;

extern __attribute__((dllimport)) const char PL_uuemap[65]
  ;






extern __attribute__((dllimport)) char *PL_sig_name[];
extern __attribute__((dllimport)) int PL_sig_num[];
extern __attribute__((dllimport)) const unsigned char PL_fold[];
extern __attribute__((dllimport)) unsigned char PL_fold_locale[];
extern __attribute__((dllimport)) const unsigned char PL_freq[];







typedef union {
    I32 ival;
    char *pval;
    OP *opval;
    GV *gvval;
} YYSTYPE;



typedef enum {
    XOPERATOR,
    XTERM,
    XREF,
    XSTATE,
    XBLOCK,
    XATTRBLOCK,
    XATTRTERM,
    XTERMBLOCK
} expectation;

enum {
    want_vtbl_sv,
    want_vtbl_env,
    want_vtbl_envelem,
    want_vtbl_sig,
    want_vtbl_sigelem,
    want_vtbl_pack,
    want_vtbl_packelem,
    want_vtbl_dbline,
    want_vtbl_isa,
    want_vtbl_isaelem,
    want_vtbl_arylen,
    want_vtbl_glob,
    want_vtbl_mglob,
    want_vtbl_nkeys,
    want_vtbl_taint,
    want_vtbl_substr,
    want_vtbl_vec,
    want_vtbl_pos,
    want_vtbl_bm,
    want_vtbl_fm,
    want_vtbl_uvar,
    want_vtbl_defelem,
    want_vtbl_regexp,
    want_vtbl_collxfrm,
    want_vtbl_amagic,
    want_vtbl_amagicelem,



    want_vtbl_regdata,
    want_vtbl_regdatum,
    want_vtbl_backref
};
typedef regexp*(*regcomp_t) (register PerlInterpreter *my_perl, char* exp, char* xend, PMOP* pm);
typedef I32 (*regexec_t) (register PerlInterpreter *my_perl, regexp* prog, char* stringarg,
                                      char* strend, char* strbeg, I32 minend,
                                      SV* screamer, void* data, U32 flags);
typedef char* (*re_intuit_start_t) (register PerlInterpreter *my_perl, regexp *prog, SV *sv,
                                                char *strpos, char *strend,
                                                U32 flags,
                                                struct re_scream_pos_data_s *d);
typedef SV* (*re_intuit_string_t) (register PerlInterpreter *my_perl, regexp *prog);
typedef void (*regfree_t) (register PerlInterpreter *my_perl, struct regexp* r);

typedef void (*DESTRUCTORFUNC_NOCONTEXT_t) (void*);
typedef void (*DESTRUCTORFUNC_t) (register PerlInterpreter *my_perl, void*);
typedef void (*SVFUNC_t) (register PerlInterpreter *my_perl, SV*);
typedef I32 (*SVCOMPARE_t) (register PerlInterpreter *my_perl, SV*, SV*);
typedef void (*XSINIT_t) (register PerlInterpreter *my_perl);
typedef void (*ATEXIT_t) (register PerlInterpreter *my_perl, void*);
typedef void (*XSUBADDR_t) (register PerlInterpreter *my_perl, CV *);
typedef struct exitlistentry {
    void (*fn) (register PerlInterpreter *my_perl, void*);
    void *ptr;
} PerlExitListEntry;
struct interpreter {

SV ** Tstack_sp;



OP * Top;

SV ** Tcurpad;

SV ** Tstack_base;
SV ** Tstack_max;

I32 * Tscopestack;
I32 Tscopestack_ix;
I32 Tscopestack_max;

ANY * Tsavestack;

I32 Tsavestack_ix;
I32 Tsavestack_max;

SV ** Ttmps_stack;
I32 Ttmps_ix;
I32 Ttmps_floor;
I32 Ttmps_max;

I32 * Tmarkstack;
I32 * Tmarkstack_ptr;
I32 * Tmarkstack_max;

OP ** Tretstack;
I32 Tretstack_ix;
I32 Tretstack_max;

SV * TSv;
XPV * TXpv;
STRLEN Tna;



struct stat Tstatbuf;
struct stat Tstatcache;
GV * Tstatgv;
SV * Tstatname;


struct tms Ttimesbuf;



char Ttainted;
PMOP * Tcurpm;
SV * Tnrs;
SV * Trs;
GV * Tlast_in_gv;
char * Tofs;
STRLEN Tofslen;
GV * Tdefoutgv;
char * Tchopset;
SV * Tformtarget;
SV * Tbodytarget;
SV * Ttoptarget;


HV * Tdefstash;
HV * Tcurstash;

OP * Trestartop;
COP * volatile Tcurcop;
volatile int Tin_eval;
int Tdelaymagic;
char Tdirty;
int Tlocalizing;

AV * Tcurstack;
PERL_SI * Tcurstackinfo;
AV * Tmainstack;

JMPENV * Ttop_env;
JMPENV Tstart_env;



SV * Terrors;


SV * Tav_fetch_sv;
SV * Thv_fetch_sv;
HE Thv_fetch_ent_mh;

I32 Tmodcount;

OP* Tlastgotoprobe;
I32 Tdumpindent;


OP * Tsortcop;
HV * Tsortstash;
GV * Tfirstgv;
GV * Tsecondgv;
I32 Tsortcxix;


char* Tefloatbuf;
STRLEN Tefloatsize;



I32 * Tscreamfirst;
I32 * Tscreamnext;
I32 Tmaxscream;
SV * Tlastscream;

regnode Tregdummy;
char* Tregcomp_parse;
char* Tregxend;
regnode* Tregcode;
I32 Tregnaughty;
I32 Tregsawback;
char * Tregprecomp;
I32 Tregnpar;
I32 Tregsize;
U16 Tregflags;
U32 Tregseen;
I32 Tseen_zerolen;
I32 Tseen_evals;
regexp * Tregcomp_rx;
I32 Textralen;
int Tcolorset;
char * Tcolors[6];
I32 Treg_whilem_seen;
char * Treginput;
char * Tregbol;
char * Tregeol;
I32 * Tregstartp;
I32 * Tregendp;
U32 * Treglastparen;
char * Tregtill;
char Tregprev;
char ** Treg_start_tmp;
U32 Treg_start_tmpl;
struct reg_data * Tregdata;

char * Tbostr;
U32 Treg_flags;
I32 Treg_eval_set;
I32 Tregnarrate;
regnode * Tregprogram;
int Tregindent;
CURCUR * Tregcc;
struct re_cc_state * Treg_call_cc;
regexp * Treg_re;
char * Treg_ganch;
SV * Treg_sv;
MAGIC * Treg_magic;
I32 Treg_oldpos;
PMOP* Treg_oldcurpm;
PMOP* Treg_curpm;
char* Treg_oldsaved;
STRLEN Treg_oldsavedlen;
I32 Treg_maxiter;
I32 Treg_leftiter;
char * Treg_poscache;
STRLEN Treg_poscache_size;

regcomp_t Tregcompp;

regexec_t Tregexecp;

re_intuit_start_t Tregint_start;

re_intuit_string_t Tregint_string;

regfree_t Tregfree;


int Treginterp_cnt;

char * Treg_starttry;
char ** Twatchaddr;
char * Twatchok;

int Iorigargc;
char ** Iorigargv;
GV * Ienvgv;
GV * Iincgv;
GV * Ihintgv;
char * Iorigfilename;
SV * Idiehook;
SV * Iwarnhook;


char Iminus_c;
SV * Ipatchlevel;
char ** Ilocalpatches;
char * Isplitstr;
char Ipreprocess;
char Iminus_n;
char Iminus_p;
char Iminus_l;
char Iminus_a;
char Iminus_F;
char Idoswitches;
U8 Idowarn;
char Iwidesyscalls;
char Idoextract;
char Isawampersand;
char Iunsafe;
char * Iinplace;
SV * Ie_script;
U32 Iperldb;



int Iperl_destruct_level;


time_t Ibasetime;
SV * Iformfeed;


I32 Imaxsysfd;

int Imultiline;
I32 Istatusvalue;
U8 Iexit_flags;





GV * Istdingv;
GV * Istderrgv;
GV * Idefgv;
GV * Iargvgv;
GV * Iargvoutgv;
AV * Iargvout_stack;




GV * Ireplgv;


GV * Ierrgv;


GV * IDBgv;
GV * IDBline;
GV * IDBsub;
SV * IDBsingle;
SV * IDBtrace;
SV * IDBsignal;
AV * Ilineary;
AV * Idbargs;


HV * Idebstash;
HV * Iglobalstash;
SV * Icurstname;
AV * Ibeginav;
AV * Iendav;
AV * Icheckav;
AV * Iinitav;
HV * Istrtab;
U32 Isub_generation;


I32 Isv_count;
I32 Isv_objcount;
SV* Isv_root;
SV* Isv_arenaroot;


int Iforkprocess;


AV * Ifdpid;


char Itainting;
char * Iop_mask;


CV * Imain_cv;
OP * Imain_root;
OP * Imain_start;
OP * Ieval_root;
OP * Ieval_start;


COP * Icurcopdb;
line_t Icopline;


int Ifilemode;
int Ilastfd;
char * Ioldname;
char ** IArgv;
char * ICmd;
I32 Igensym;
char Ipreambled;
AV * Ipreambleav;
int Ilaststatval;
I32 Ilaststype;
SV * Imess_sv;


char * Iors;
STRLEN Iorslen;
char * Iofmt;


PerlExitListEntry * Iexitlist;

I32 Iexitlistlen;
HV * Imodglobal;


U32 * Iprofiledata;
FILE * volatile Irsfp;
AV * Irsfp_filters;

COP Icompiling;

CV * Icompcv;
AV * Icomppad;
AV * Icomppad_name;
I32 Icomppad_name_fill;
I32 Icomppad_name_floor;







int Igeneration;
CV * IDBcv;

char Iin_clean_objs;
char Iin_clean_all;

char * Ilinestart;
char Ipending_ident;
SUBLEXINFO Isublex_info;







uid_t Iuid;
uid_t Ieuid;
gid_t Igid;
gid_t Iegid;
char Inomemok;
U32 Ian;
U32 Icop_seqmax;
U16 Iop_seqmax;
U32 Ievalseq;
char ** Iorigenviron;
U32 Iorigalen;
HV * Ipidstatus;
int Imaxo;
char * Iosname;
char * Ish_path;
Sighandler_t Isighandlerp;

XPV* Ixiv_arenaroot;
IV * Ixiv_root;
NV * Ixnv_root;
XRV * Ixrv_root;
XPV * Ixpv_root;
XPVIV * Ixpviv_root;
XPVNV * Ixpvnv_root;
XPVCV * Ixpvcv_root;
XPVAV * Ixpvav_root;
XPVHV * Ixpvhv_root;
XPVMG * Ixpvmg_root;
XPVLV * Ixpvlv_root;
XPVBM * Ixpvbm_root;
HE * Ihe_root;
char * Inice_chunk;
U32 Inice_chunk_size;

runops_proc_t Irunops;

char Itokenbuf[256];
SV Isv_undef;
SV Isv_no;
SV Isv_yes;






U32 Ilex_state;
U32 Ilex_defer;
int Ilex_expect;
I32 Ilex_brackets;
I32 Ilex_formbrack;
I32 Ilex_casemods;
I32 Ilex_dojoin;
I32 Ilex_starts;
SV * Ilex_stuff;
SV * Ilex_repl;
OP * Ilex_op;
OP * Ilex_inpat;
I32 Ilex_inwhat;
char * Ilex_brackstack;
char * Ilex_casestack;


YYSTYPE Inextval[5];
I32 Inexttype[5];
I32 Inexttoke;

SV * Ilinestr;
char * Ibufptr;
char * Ioldbufptr;
char * Ioldoldbufptr;
char * Ibufend;
int Iexpect;

I32 Imulti_start;
I32 Imulti_end;
I32 Imulti_open;
I32 Imulti_close;

I32 Ierror_count;
I32 Isubline;
SV * Isubname;

I32 Imin_intro_pending;
I32 Imax_intro_pending;
I32 Ipadix;
I32 Ipadix_floor;
I32 Ipad_reset_pending;

char * Ilast_uni;
char * Ilast_lop;
U16 Ilast_lop_op;
I32 Iin_my;
HV * Iin_my_stash;




U32 Ihints;

volatile U32 Idebug;

long Iamagic_generation;


U32 Icollation_ix;
char * Icollation_name;
char Icollation_standard;

size_t Icollxfrm_base;
size_t Icollxfrm_mult;




char * Inumeric_name;
char Inumeric_standard;

char Inumeric_local;

char Idummy1_bincompat;





SV * Iutf8_alnum;
SV * Iutf8_alnumc;
SV * Iutf8_ascii;
SV * Iutf8_alpha;
SV * Iutf8_space;
SV * Iutf8_cntrl;
SV * Iutf8_graph;
SV * Iutf8_digit;
SV * Iutf8_upper;
SV * Iutf8_lower;
SV * Iutf8_print;
SV * Iutf8_punct;
SV * Iutf8_xdigit;
SV * Iutf8_mark;
SV * Iutf8_toupper;
SV * Iutf8_totitle;
SV * Iutf8_tolower;
HV * Ilast_swash_hv;
U32 Ilast_swash_klen;
U8 Ilast_swash_key[10];
U8 * Ilast_swash_tmps;
STRLEN Ilast_swash_slen;


int Iyydebug;
int Iyynerrs;
int Iyyerrflag;
int Iyychar;
YYSTYPE Iyyval;
YYSTYPE Iyylval;

int Iglob_index;
char Isrand_called;
char Iuudmap[256];
char * Ibitcount;
SV** Ipsig_ptr;
SV** Ipsig_name;
AV* Ibeginav_save;






HV * Inullstash;

XPV* Ixnv_arenaroot;
XPV* Ixrv_arenaroot;
XPV* Ixpv_arenaroot;
XPVIV* Ixpviv_arenaroot;
XPVNV* Ixpvnv_arenaroot;
XPVCV* Ixpvcv_arenaroot;
XPVAV* Ixpvav_arenaroot;
XPVHV* Ixpvhv_arenaroot;
XPVMG* Ixpvmg_arenaroot;
XPVLV* Ixpvlv_arenaroot;
XPVBM* Ixpvbm_arenaroot;
XPV* Ihe_arenaroot;



SV * Inumeric_radix_sv;




char object_compatibility[30];
};
typedef void *Thread;





 PerlInterpreter* perl_alloc(void);
 void perl_construct(PerlInterpreter* interp);
 void perl_destruct(PerlInterpreter* interp);
 void perl_free(PerlInterpreter* interp);
 int perl_run(PerlInterpreter* interp);
 int perl_parse(PerlInterpreter* interp, XSINIT_t xsinit, int argc, char** argv, char** env);
 void * Perl_malloc(size_t nbytes);
 void * Perl_calloc(size_t elements, size_t size);
 void * Perl_realloc(void * where, size_t nbytes);
 void Perl_mfree(void * where);
 size_t Perl_malloced_size(void *p);


 void* Perl_get_context(void);
 void Perl_set_context(void *thx);









OP *Perl_ck_anoncode (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_bitop (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_concat (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_defined (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_delete (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_eof (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_eval (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_exec (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_exists (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_exit (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_ftst (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_fun (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_glob (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_grep (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_index (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_join (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_lengthconst (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_lfun (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_listiob (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_match (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_method (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_null (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_open (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_repeat (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_require (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_return (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_rfun (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_rvconst (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_sassign (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_select (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_shift (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_sort (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_spair (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_split (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_subr (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_substr (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_svconst (register PerlInterpreter *my_perl, OP *o);
OP *Perl_ck_trunc (register PerlInterpreter *my_perl, OP *o);


OP *Perl_pp_null (register PerlInterpreter *my_perl);
OP *Perl_pp_stub (register PerlInterpreter *my_perl);
OP *Perl_pp_scalar (register PerlInterpreter *my_perl);
OP *Perl_pp_pushmark (register PerlInterpreter *my_perl);
OP *Perl_pp_wantarray (register PerlInterpreter *my_perl);
OP *Perl_pp_const (register PerlInterpreter *my_perl);
OP *Perl_pp_gvsv (register PerlInterpreter *my_perl);
OP *Perl_pp_gv (register PerlInterpreter *my_perl);
OP *Perl_pp_gelem (register PerlInterpreter *my_perl);
OP *Perl_pp_padsv (register PerlInterpreter *my_perl);
OP *Perl_pp_padav (register PerlInterpreter *my_perl);
OP *Perl_pp_padhv (register PerlInterpreter *my_perl);
OP *Perl_pp_padany (register PerlInterpreter *my_perl);
OP *Perl_pp_pushre (register PerlInterpreter *my_perl);
OP *Perl_pp_rv2gv (register PerlInterpreter *my_perl);
OP *Perl_pp_rv2sv (register PerlInterpreter *my_perl);
OP *Perl_pp_av2arylen (register PerlInterpreter *my_perl);
OP *Perl_pp_rv2cv (register PerlInterpreter *my_perl);
OP *Perl_pp_anoncode (register PerlInterpreter *my_perl);
OP *Perl_pp_prototype (register PerlInterpreter *my_perl);
OP *Perl_pp_refgen (register PerlInterpreter *my_perl);
OP *Perl_pp_srefgen (register PerlInterpreter *my_perl);
OP *Perl_pp_ref (register PerlInterpreter *my_perl);
OP *Perl_pp_bless (register PerlInterpreter *my_perl);
OP *Perl_pp_backtick (register PerlInterpreter *my_perl);
OP *Perl_pp_glob (register PerlInterpreter *my_perl);
OP *Perl_pp_readline (register PerlInterpreter *my_perl);
OP *Perl_pp_rcatline (register PerlInterpreter *my_perl);
OP *Perl_pp_regcmaybe (register PerlInterpreter *my_perl);
OP *Perl_pp_regcreset (register PerlInterpreter *my_perl);
OP *Perl_pp_regcomp (register PerlInterpreter *my_perl);
OP *Perl_pp_match (register PerlInterpreter *my_perl);
OP *Perl_pp_qr (register PerlInterpreter *my_perl);
OP *Perl_pp_subst (register PerlInterpreter *my_perl);
OP *Perl_pp_substcont (register PerlInterpreter *my_perl);
OP *Perl_pp_trans (register PerlInterpreter *my_perl);
OP *Perl_pp_sassign (register PerlInterpreter *my_perl);
OP *Perl_pp_aassign (register PerlInterpreter *my_perl);
OP *Perl_pp_chop (register PerlInterpreter *my_perl);
OP *Perl_pp_schop (register PerlInterpreter *my_perl);
OP *Perl_pp_chomp (register PerlInterpreter *my_perl);
OP *Perl_pp_schomp (register PerlInterpreter *my_perl);
OP *Perl_pp_defined (register PerlInterpreter *my_perl);
OP *Perl_pp_undef (register PerlInterpreter *my_perl);
OP *Perl_pp_study (register PerlInterpreter *my_perl);
OP *Perl_pp_pos (register PerlInterpreter *my_perl);
OP *Perl_pp_preinc (register PerlInterpreter *my_perl);
OP *Perl_pp_predec (register PerlInterpreter *my_perl);
OP *Perl_pp_postinc (register PerlInterpreter *my_perl);
OP *Perl_pp_postdec (register PerlInterpreter *my_perl);
OP *Perl_pp_pow (register PerlInterpreter *my_perl);
OP *Perl_pp_multiply (register PerlInterpreter *my_perl);
OP *Perl_pp_i_multiply (register PerlInterpreter *my_perl);
OP *Perl_pp_divide (register PerlInterpreter *my_perl);
OP *Perl_pp_i_divide (register PerlInterpreter *my_perl);
OP *Perl_pp_modulo (register PerlInterpreter *my_perl);
OP *Perl_pp_i_modulo (register PerlInterpreter *my_perl);
OP *Perl_pp_repeat (register PerlInterpreter *my_perl);
OP *Perl_pp_add (register PerlInterpreter *my_perl);
OP *Perl_pp_i_add (register PerlInterpreter *my_perl);
OP *Perl_pp_subtract (register PerlInterpreter *my_perl);
OP *Perl_pp_i_subtract (register PerlInterpreter *my_perl);
OP *Perl_pp_concat (register PerlInterpreter *my_perl);
OP *Perl_pp_stringify (register PerlInterpreter *my_perl);
OP *Perl_pp_left_shift (register PerlInterpreter *my_perl);
OP *Perl_pp_right_shift (register PerlInterpreter *my_perl);
OP *Perl_pp_lt (register PerlInterpreter *my_perl);
OP *Perl_pp_i_lt (register PerlInterpreter *my_perl);
OP *Perl_pp_gt (register PerlInterpreter *my_perl);
OP *Perl_pp_i_gt (register PerlInterpreter *my_perl);
OP *Perl_pp_le (register PerlInterpreter *my_perl);
OP *Perl_pp_i_le (register PerlInterpreter *my_perl);
OP *Perl_pp_ge (register PerlInterpreter *my_perl);
OP *Perl_pp_i_ge (register PerlInterpreter *my_perl);
OP *Perl_pp_eq (register PerlInterpreter *my_perl);
OP *Perl_pp_i_eq (register PerlInterpreter *my_perl);
OP *Perl_pp_ne (register PerlInterpreter *my_perl);
OP *Perl_pp_i_ne (register PerlInterpreter *my_perl);
OP *Perl_pp_ncmp (register PerlInterpreter *my_perl);
OP *Perl_pp_i_ncmp (register PerlInterpreter *my_perl);
OP *Perl_pp_slt (register PerlInterpreter *my_perl);
OP *Perl_pp_sgt (register PerlInterpreter *my_perl);
OP *Perl_pp_sle (register PerlInterpreter *my_perl);
OP *Perl_pp_sge (register PerlInterpreter *my_perl);
OP *Perl_pp_seq (register PerlInterpreter *my_perl);
OP *Perl_pp_sne (register PerlInterpreter *my_perl);
OP *Perl_pp_scmp (register PerlInterpreter *my_perl);
OP *Perl_pp_bit_and (register PerlInterpreter *my_perl);
OP *Perl_pp_bit_xor (register PerlInterpreter *my_perl);
OP *Perl_pp_bit_or (register PerlInterpreter *my_perl);
OP *Perl_pp_negate (register PerlInterpreter *my_perl);
OP *Perl_pp_i_negate (register PerlInterpreter *my_perl);
OP *Perl_pp_not (register PerlInterpreter *my_perl);
OP *Perl_pp_complement (register PerlInterpreter *my_perl);
OP *Perl_pp_atan2 (register PerlInterpreter *my_perl);
OP *Perl_pp_sin (register PerlInterpreter *my_perl);
OP *Perl_pp_cos (register PerlInterpreter *my_perl);
OP *Perl_pp_rand (register PerlInterpreter *my_perl);
OP *Perl_pp_srand (register PerlInterpreter *my_perl);
OP *Perl_pp_exp (register PerlInterpreter *my_perl);
OP *Perl_pp_log (register PerlInterpreter *my_perl);
OP *Perl_pp_sqrt (register PerlInterpreter *my_perl);
OP *Perl_pp_int (register PerlInterpreter *my_perl);
OP *Perl_pp_hex (register PerlInterpreter *my_perl);
OP *Perl_pp_oct (register PerlInterpreter *my_perl);
OP *Perl_pp_abs (register PerlInterpreter *my_perl);
OP *Perl_pp_length (register PerlInterpreter *my_perl);
OP *Perl_pp_substr (register PerlInterpreter *my_perl);
OP *Perl_pp_vec (register PerlInterpreter *my_perl);
OP *Perl_pp_index (register PerlInterpreter *my_perl);
OP *Perl_pp_rindex (register PerlInterpreter *my_perl);
OP *Perl_pp_sprintf (register PerlInterpreter *my_perl);
OP *Perl_pp_formline (register PerlInterpreter *my_perl);
OP *Perl_pp_ord (register PerlInterpreter *my_perl);
OP *Perl_pp_chr (register PerlInterpreter *my_perl);
OP *Perl_pp_crypt (register PerlInterpreter *my_perl);
OP *Perl_pp_ucfirst (register PerlInterpreter *my_perl);
OP *Perl_pp_lcfirst (register PerlInterpreter *my_perl);
OP *Perl_pp_uc (register PerlInterpreter *my_perl);
OP *Perl_pp_lc (register PerlInterpreter *my_perl);
OP *Perl_pp_quotemeta (register PerlInterpreter *my_perl);
OP *Perl_pp_rv2av (register PerlInterpreter *my_perl);
OP *Perl_pp_aelemfast (register PerlInterpreter *my_perl);
OP *Perl_pp_aelem (register PerlInterpreter *my_perl);
OP *Perl_pp_aslice (register PerlInterpreter *my_perl);
OP *Perl_pp_each (register PerlInterpreter *my_perl);
OP *Perl_pp_values (register PerlInterpreter *my_perl);
OP *Perl_pp_keys (register PerlInterpreter *my_perl);
OP *Perl_pp_delete (register PerlInterpreter *my_perl);
OP *Perl_pp_exists (register PerlInterpreter *my_perl);
OP *Perl_pp_rv2hv (register PerlInterpreter *my_perl);
OP *Perl_pp_helem (register PerlInterpreter *my_perl);
OP *Perl_pp_hslice (register PerlInterpreter *my_perl);
OP *Perl_pp_unpack (register PerlInterpreter *my_perl);
OP *Perl_pp_pack (register PerlInterpreter *my_perl);
OP *Perl_pp_split (register PerlInterpreter *my_perl);
OP *Perl_pp_join (register PerlInterpreter *my_perl);
OP *Perl_pp_list (register PerlInterpreter *my_perl);
OP *Perl_pp_lslice (register PerlInterpreter *my_perl);
OP *Perl_pp_anonlist (register PerlInterpreter *my_perl);
OP *Perl_pp_anonhash (register PerlInterpreter *my_perl);
OP *Perl_pp_splice (register PerlInterpreter *my_perl);
OP *Perl_pp_push (register PerlInterpreter *my_perl);
OP *Perl_pp_pop (register PerlInterpreter *my_perl);
OP *Perl_pp_shift (register PerlInterpreter *my_perl);
OP *Perl_pp_unshift (register PerlInterpreter *my_perl);
OP *Perl_pp_sort (register PerlInterpreter *my_perl);
OP *Perl_pp_reverse (register PerlInterpreter *my_perl);
OP *Perl_pp_grepstart (register PerlInterpreter *my_perl);
OP *Perl_pp_grepwhile (register PerlInterpreter *my_perl);
OP *Perl_pp_mapstart (register PerlInterpreter *my_perl);
OP *Perl_pp_mapwhile (register PerlInterpreter *my_perl);
OP *Perl_pp_range (register PerlInterpreter *my_perl);
OP *Perl_pp_flip (register PerlInterpreter *my_perl);
OP *Perl_pp_flop (register PerlInterpreter *my_perl);
OP *Perl_pp_and (register PerlInterpreter *my_perl);
OP *Perl_pp_or (register PerlInterpreter *my_perl);
OP *Perl_pp_xor (register PerlInterpreter *my_perl);
OP *Perl_pp_cond_expr (register PerlInterpreter *my_perl);
OP *Perl_pp_andassign (register PerlInterpreter *my_perl);
OP *Perl_pp_orassign (register PerlInterpreter *my_perl);
OP *Perl_pp_method (register PerlInterpreter *my_perl);
OP *Perl_pp_entersub (register PerlInterpreter *my_perl);
OP *Perl_pp_leavesub (register PerlInterpreter *my_perl);
OP *Perl_pp_leavesublv (register PerlInterpreter *my_perl);
OP *Perl_pp_caller (register PerlInterpreter *my_perl);
OP *Perl_pp_warn (register PerlInterpreter *my_perl);
OP *Perl_pp_die (register PerlInterpreter *my_perl);
OP *Perl_pp_reset (register PerlInterpreter *my_perl);
OP *Perl_pp_lineseq (register PerlInterpreter *my_perl);
OP *Perl_pp_nextstate (register PerlInterpreter *my_perl);
OP *Perl_pp_dbstate (register PerlInterpreter *my_perl);
OP *Perl_pp_unstack (register PerlInterpreter *my_perl);
OP *Perl_pp_enter (register PerlInterpreter *my_perl);
OP *Perl_pp_leave (register PerlInterpreter *my_perl);
OP *Perl_pp_scope (register PerlInterpreter *my_perl);
OP *Perl_pp_enteriter (register PerlInterpreter *my_perl);
OP *Perl_pp_iter (register PerlInterpreter *my_perl);
OP *Perl_pp_enterloop (register PerlInterpreter *my_perl);
OP *Perl_pp_leaveloop (register PerlInterpreter *my_perl);
OP *Perl_pp_return (register PerlInterpreter *my_perl);
OP *Perl_pp_last (register PerlInterpreter *my_perl);
OP *Perl_pp_next (register PerlInterpreter *my_perl);
OP *Perl_pp_redo (register PerlInterpreter *my_perl);
OP *Perl_pp_dump (register PerlInterpreter *my_perl);
OP *Perl_pp_goto (register PerlInterpreter *my_perl);
OP *Perl_pp_exit (register PerlInterpreter *my_perl);
OP *Perl_pp_open (register PerlInterpreter *my_perl);
OP *Perl_pp_close (register PerlInterpreter *my_perl);
OP *Perl_pp_pipe_op (register PerlInterpreter *my_perl);
OP *Perl_pp_fileno (register PerlInterpreter *my_perl);
OP *Perl_pp_umask (register PerlInterpreter *my_perl);
OP *Perl_pp_binmode (register PerlInterpreter *my_perl);
OP *Perl_pp_tie (register PerlInterpreter *my_perl);
OP *Perl_pp_untie (register PerlInterpreter *my_perl);
OP *Perl_pp_tied (register PerlInterpreter *my_perl);
OP *Perl_pp_dbmopen (register PerlInterpreter *my_perl);
OP *Perl_pp_dbmclose (register PerlInterpreter *my_perl);
OP *Perl_pp_sselect (register PerlInterpreter *my_perl);
OP *Perl_pp_select (register PerlInterpreter *my_perl);
OP *Perl_pp_getc (register PerlInterpreter *my_perl);
OP *Perl_pp_read (register PerlInterpreter *my_perl);
OP *Perl_pp_enterwrite (register PerlInterpreter *my_perl);
OP *Perl_pp_leavewrite (register PerlInterpreter *my_perl);
OP *Perl_pp_prtf (register PerlInterpreter *my_perl);
OP *Perl_pp_print (register PerlInterpreter *my_perl);
OP *Perl_pp_sysopen (register PerlInterpreter *my_perl);
OP *Perl_pp_sysseek (register PerlInterpreter *my_perl);
OP *Perl_pp_sysread (register PerlInterpreter *my_perl);
OP *Perl_pp_syswrite (register PerlInterpreter *my_perl);
OP *Perl_pp_send (register PerlInterpreter *my_perl);
OP *Perl_pp_recv (register PerlInterpreter *my_perl);
OP *Perl_pp_eof (register PerlInterpreter *my_perl);
OP *Perl_pp_tell (register PerlInterpreter *my_perl);
OP *Perl_pp_seek (register PerlInterpreter *my_perl);
OP *Perl_pp_truncate (register PerlInterpreter *my_perl);
OP *Perl_pp_fcntl (register PerlInterpreter *my_perl);
OP *Perl_pp_ioctl (register PerlInterpreter *my_perl);
OP *Perl_pp_flock (register PerlInterpreter *my_perl);
OP *Perl_pp_socket (register PerlInterpreter *my_perl);
OP *Perl_pp_sockpair (register PerlInterpreter *my_perl);
OP *Perl_pp_bind (register PerlInterpreter *my_perl);
OP *Perl_pp_connect (register PerlInterpreter *my_perl);
OP *Perl_pp_listen (register PerlInterpreter *my_perl);
OP *Perl_pp_accept (register PerlInterpreter *my_perl);
OP *Perl_pp_shutdown (register PerlInterpreter *my_perl);
OP *Perl_pp_gsockopt (register PerlInterpreter *my_perl);
OP *Perl_pp_ssockopt (register PerlInterpreter *my_perl);
OP *Perl_pp_getsockname (register PerlInterpreter *my_perl);
OP *Perl_pp_getpeername (register PerlInterpreter *my_perl);
OP *Perl_pp_lstat (register PerlInterpreter *my_perl);
OP *Perl_pp_stat (register PerlInterpreter *my_perl);
OP *Perl_pp_ftrread (register PerlInterpreter *my_perl);
OP *Perl_pp_ftrwrite (register PerlInterpreter *my_perl);
OP *Perl_pp_ftrexec (register PerlInterpreter *my_perl);
OP *Perl_pp_fteread (register PerlInterpreter *my_perl);
OP *Perl_pp_ftewrite (register PerlInterpreter *my_perl);
OP *Perl_pp_fteexec (register PerlInterpreter *my_perl);
OP *Perl_pp_ftis (register PerlInterpreter *my_perl);
OP *Perl_pp_fteowned (register PerlInterpreter *my_perl);
OP *Perl_pp_ftrowned (register PerlInterpreter *my_perl);
OP *Perl_pp_ftzero (register PerlInterpreter *my_perl);
OP *Perl_pp_ftsize (register PerlInterpreter *my_perl);
OP *Perl_pp_ftmtime (register PerlInterpreter *my_perl);
OP *Perl_pp_ftatime (register PerlInterpreter *my_perl);
OP *Perl_pp_ftctime (register PerlInterpreter *my_perl);
OP *Perl_pp_ftsock (register PerlInterpreter *my_perl);
OP *Perl_pp_ftchr (register PerlInterpreter *my_perl);
OP *Perl_pp_ftblk (register PerlInterpreter *my_perl);
OP *Perl_pp_ftfile (register PerlInterpreter *my_perl);
OP *Perl_pp_ftdir (register PerlInterpreter *my_perl);
OP *Perl_pp_ftpipe (register PerlInterpreter *my_perl);
OP *Perl_pp_ftlink (register PerlInterpreter *my_perl);
OP *Perl_pp_ftsuid (register PerlInterpreter *my_perl);
OP *Perl_pp_ftsgid (register PerlInterpreter *my_perl);
OP *Perl_pp_ftsvtx (register PerlInterpreter *my_perl);
OP *Perl_pp_fttty (register PerlInterpreter *my_perl);
OP *Perl_pp_fttext (register PerlInterpreter *my_perl);
OP *Perl_pp_ftbinary (register PerlInterpreter *my_perl);
OP *Perl_pp_chdir (register PerlInterpreter *my_perl);
OP *Perl_pp_chown (register PerlInterpreter *my_perl);
OP *Perl_pp_chroot (register PerlInterpreter *my_perl);
OP *Perl_pp_unlink (register PerlInterpreter *my_perl);
OP *Perl_pp_chmod (register PerlInterpreter *my_perl);
OP *Perl_pp_utime (register PerlInterpreter *my_perl);
OP *Perl_pp_rename (register PerlInterpreter *my_perl);
OP *Perl_pp_link (register PerlInterpreter *my_perl);
OP *Perl_pp_symlink (register PerlInterpreter *my_perl);
OP *Perl_pp_readlink (register PerlInterpreter *my_perl);
OP *Perl_pp_mkdir (register PerlInterpreter *my_perl);
OP *Perl_pp_rmdir (register PerlInterpreter *my_perl);
OP *Perl_pp_open_dir (register PerlInterpreter *my_perl);
OP *Perl_pp_readdir (register PerlInterpreter *my_perl);
OP *Perl_pp_telldir (register PerlInterpreter *my_perl);
OP *Perl_pp_seekdir (register PerlInterpreter *my_perl);
OP *Perl_pp_rewinddir (register PerlInterpreter *my_perl);
OP *Perl_pp_closedir (register PerlInterpreter *my_perl);
OP *Perl_pp_fork (register PerlInterpreter *my_perl);
OP *Perl_pp_wait (register PerlInterpreter *my_perl);
OP *Perl_pp_waitpid (register PerlInterpreter *my_perl);
OP *Perl_pp_system (register PerlInterpreter *my_perl);
OP *Perl_pp_exec (register PerlInterpreter *my_perl);
OP *Perl_pp_kill (register PerlInterpreter *my_perl);
OP *Perl_pp_getppid (register PerlInterpreter *my_perl);
OP *Perl_pp_getpgrp (register PerlInterpreter *my_perl);
OP *Perl_pp_setpgrp (register PerlInterpreter *my_perl);
OP *Perl_pp_getpriority (register PerlInterpreter *my_perl);
OP *Perl_pp_setpriority (register PerlInterpreter *my_perl);
OP *Perl_pp_time (register PerlInterpreter *my_perl);
OP *Perl_pp_tms (register PerlInterpreter *my_perl);
OP *Perl_pp_localtime (register PerlInterpreter *my_perl);
OP *Perl_pp_gmtime (register PerlInterpreter *my_perl);
OP *Perl_pp_alarm (register PerlInterpreter *my_perl);
OP *Perl_pp_sleep (register PerlInterpreter *my_perl);
OP *Perl_pp_shmget (register PerlInterpreter *my_perl);
OP *Perl_pp_shmctl (register PerlInterpreter *my_perl);
OP *Perl_pp_shmread (register PerlInterpreter *my_perl);
OP *Perl_pp_shmwrite (register PerlInterpreter *my_perl);
OP *Perl_pp_msgget (register PerlInterpreter *my_perl);
OP *Perl_pp_msgctl (register PerlInterpreter *my_perl);
OP *Perl_pp_msgsnd (register PerlInterpreter *my_perl);
OP *Perl_pp_msgrcv (register PerlInterpreter *my_perl);
OP *Perl_pp_semget (register PerlInterpreter *my_perl);
OP *Perl_pp_semctl (register PerlInterpreter *my_perl);
OP *Perl_pp_semop (register PerlInterpreter *my_perl);
OP *Perl_pp_require (register PerlInterpreter *my_perl);
OP *Perl_pp_dofile (register PerlInterpreter *my_perl);
OP *Perl_pp_entereval (register PerlInterpreter *my_perl);
OP *Perl_pp_leaveeval (register PerlInterpreter *my_perl);
OP *Perl_pp_entertry (register PerlInterpreter *my_perl);
OP *Perl_pp_leavetry (register PerlInterpreter *my_perl);
OP *Perl_pp_ghbyname (register PerlInterpreter *my_perl);
OP *Perl_pp_ghbyaddr (register PerlInterpreter *my_perl);
OP *Perl_pp_ghostent (register PerlInterpreter *my_perl);
OP *Perl_pp_gnbyname (register PerlInterpreter *my_perl);
OP *Perl_pp_gnbyaddr (register PerlInterpreter *my_perl);
OP *Perl_pp_gnetent (register PerlInterpreter *my_perl);
OP *Perl_pp_gpbyname (register PerlInterpreter *my_perl);
OP *Perl_pp_gpbynumber (register PerlInterpreter *my_perl);
OP *Perl_pp_gprotoent (register PerlInterpreter *my_perl);
OP *Perl_pp_gsbyname (register PerlInterpreter *my_perl);
OP *Perl_pp_gsbyport (register PerlInterpreter *my_perl);
OP *Perl_pp_gservent (register PerlInterpreter *my_perl);
OP *Perl_pp_shostent (register PerlInterpreter *my_perl);
OP *Perl_pp_snetent (register PerlInterpreter *my_perl);
OP *Perl_pp_sprotoent (register PerlInterpreter *my_perl);
OP *Perl_pp_sservent (register PerlInterpreter *my_perl);
OP *Perl_pp_ehostent (register PerlInterpreter *my_perl);
OP *Perl_pp_enetent (register PerlInterpreter *my_perl);
OP *Perl_pp_eprotoent (register PerlInterpreter *my_perl);
OP *Perl_pp_eservent (register PerlInterpreter *my_perl);
OP *Perl_pp_gpwnam (register PerlInterpreter *my_perl);
OP *Perl_pp_gpwuid (register PerlInterpreter *my_perl);
OP *Perl_pp_gpwent (register PerlInterpreter *my_perl);
OP *Perl_pp_spwent (register PerlInterpreter *my_perl);
OP *Perl_pp_epwent (register PerlInterpreter *my_perl);
OP *Perl_pp_ggrnam (register PerlInterpreter *my_perl);
OP *Perl_pp_ggrgid (register PerlInterpreter *my_perl);
OP *Perl_pp_ggrent (register PerlInterpreter *my_perl);
OP *Perl_pp_sgrent (register PerlInterpreter *my_perl);
OP *Perl_pp_egrent (register PerlInterpreter *my_perl);
OP *Perl_pp_getlogin (register PerlInterpreter *my_perl);
OP *Perl_pp_syscall (register PerlInterpreter *my_perl);
OP *Perl_pp_lock (register PerlInterpreter *my_perl);
OP *Perl_pp_threadsv (register PerlInterpreter *my_perl);
OP *Perl_pp_setstate (register PerlInterpreter *my_perl);
OP *Perl_pp_method_named (register PerlInterpreter *my_perl);
 SV* Perl_amagic_call(register PerlInterpreter *my_perl, SV* left, SV* right, int method, int dir);
 char Perl_Gv_AMupdate(register PerlInterpreter *my_perl, HV* stash);
 OP* Perl_append_elem(register PerlInterpreter *my_perl, I32 optype, OP* head, OP* tail);
 OP* Perl_append_list(register PerlInterpreter *my_perl, I32 optype, LISTOP* first, LISTOP* last);
 I32 Perl_apply(register PerlInterpreter *my_perl, I32 type, SV** mark, SV** sp);
 void Perl_apply_attrs_string(register PerlInterpreter *my_perl, char *stashpv, CV *cv, char *attrstr, STRLEN len);
 SV* Perl_avhv_delete_ent(register PerlInterpreter *my_perl, AV *ar, SV* keysv, I32 flags, U32 hash);
 char Perl_avhv_exists_ent(register PerlInterpreter *my_perl, AV *ar, SV* keysv, U32 hash);
 SV** Perl_avhv_fetch_ent(register PerlInterpreter *my_perl, AV *ar, SV* keysv, I32 lval, U32 hash);
 SV** Perl_avhv_store_ent(register PerlInterpreter *my_perl, AV *ar, SV* keysv, SV* val, U32 hash);
 HE* Perl_avhv_iternext(register PerlInterpreter *my_perl, AV *ar);
 SV* Perl_avhv_iterval(register PerlInterpreter *my_perl, AV *ar, HE* entry);
 HV* Perl_avhv_keys(register PerlInterpreter *my_perl, AV *ar);
 void Perl_av_clear(register PerlInterpreter *my_perl, AV* ar);
 SV* Perl_av_delete(register PerlInterpreter *my_perl, AV* ar, I32 key, I32 flags);
 char Perl_av_exists(register PerlInterpreter *my_perl, AV* ar, I32 key);
 void Perl_av_extend(register PerlInterpreter *my_perl, AV* ar, I32 key);
 AV* Perl_av_fake(register PerlInterpreter *my_perl, I32 size, SV** svp);
 SV** Perl_av_fetch(register PerlInterpreter *my_perl, AV* ar, I32 key, I32 lval);
 void Perl_av_fill(register PerlInterpreter *my_perl, AV* ar, I32 fill);
 I32 Perl_av_len(register PerlInterpreter *my_perl, AV* ar);
 AV* Perl_av_make(register PerlInterpreter *my_perl, I32 size, SV** svp);
 SV* Perl_av_pop(register PerlInterpreter *my_perl, AV* ar);
 void Perl_av_push(register PerlInterpreter *my_perl, AV* ar, SV* val);
 void Perl_av_reify(register PerlInterpreter *my_perl, AV* ar);
 SV* Perl_av_shift(register PerlInterpreter *my_perl, AV* ar);
 SV** Perl_av_store(register PerlInterpreter *my_perl, AV* ar, I32 key, SV* val);
 void Perl_av_undef(register PerlInterpreter *my_perl, AV* ar);
 void Perl_av_unshift(register PerlInterpreter *my_perl, AV* ar, I32 num);
 OP* Perl_bind_match(register PerlInterpreter *my_perl, I32 type, OP* left, OP* pat);
 OP* Perl_block_end(register PerlInterpreter *my_perl, I32 floor, OP* seq);
 I32 Perl_block_gimme(register PerlInterpreter *my_perl);
 int Perl_block_start(register PerlInterpreter *my_perl, int full);
 void Perl_boot_core_UNIVERSAL(register PerlInterpreter *my_perl);
 void Perl_call_list(register PerlInterpreter *my_perl, I32 oldscope, AV* av_list);
 char Perl_cando(register PerlInterpreter *my_perl, mode_t mode, uid_t effective, struct stat* statbufp);
 U32 Perl_cast_ulong(register PerlInterpreter *my_perl, NV f);
 I32 Perl_cast_i32(register PerlInterpreter *my_perl, NV f);
 IV Perl_cast_iv(register PerlInterpreter *my_perl, NV f);
 UV Perl_cast_uv(register PerlInterpreter *my_perl, NV f);






 OP* Perl_convert(register PerlInterpreter *my_perl, I32 optype, I32 flags, OP* o);
 void Perl_croak(register PerlInterpreter *my_perl, const char* pat, ...) __attribute__((noreturn))



;
 void Perl_vcroak(register PerlInterpreter *my_perl, const char* pat, va_list* args) __attribute__((noreturn));

 void Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn))



;
 OP* Perl_die_nocontext(const char* pat, ...)



;
 void Perl_deb_nocontext(const char* pat, ...)



;
 char* Perl_form_nocontext(const char* pat, ...)



;
 void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...);
 SV* Perl_mess_nocontext(const char* pat, ...)



;
 void Perl_warn_nocontext(const char* pat, ...)



;
 void Perl_warner_nocontext(U32 err, const char* pat, ...)



;
 SV* Perl_newSVpvf_nocontext(const char* pat, ...)



;
 void Perl_sv_catpvf_nocontext(SV* sv, const char* pat, ...)



;
 void Perl_sv_setpvf_nocontext(SV* sv, const char* pat, ...)



;
 void Perl_sv_catpvf_mg_nocontext(SV* sv, const char* pat, ...)



;
 void Perl_sv_setpvf_mg_nocontext(SV* sv, const char* pat, ...)



;
 int Perl_fprintf_nocontext(FILE* stream, const char* fmt, ...)



;
 int Perl_printf_nocontext(const char* fmt, ...)



;

 void Perl_cv_ckproto(register PerlInterpreter *my_perl, CV* cv, GV* gv, char* p);
 CV* Perl_cv_clone(register PerlInterpreter *my_perl, CV* proto);
 SV* Perl_cv_const_sv(register PerlInterpreter *my_perl, CV* cv);
 SV* Perl_op_const_sv(register PerlInterpreter *my_perl, OP* o, CV* cv);
 void Perl_cv_undef(register PerlInterpreter *my_perl, CV* cv);
 void Perl_cx_dump(register PerlInterpreter *my_perl, PERL_CONTEXT* cs);
 SV* Perl_filter_add(register PerlInterpreter *my_perl, filter_t funcp, SV* datasv);
 void Perl_filter_del(register PerlInterpreter *my_perl, filter_t funcp);
 I32 Perl_filter_read(register PerlInterpreter *my_perl, int idx, SV* buffer, int maxlen);
 char** Perl_get_op_descs(register PerlInterpreter *my_perl);
 char** Perl_get_op_names(register PerlInterpreter *my_perl);
 char* Perl_get_no_modify(register PerlInterpreter *my_perl);
 U32* Perl_get_opargs(register PerlInterpreter *my_perl);
 PPADDR_t* Perl_get_ppaddr(register PerlInterpreter *my_perl);
 I32 Perl_cxinc(register PerlInterpreter *my_perl);
 void Perl_deb(register PerlInterpreter *my_perl, const char* pat, ...)



;
 void Perl_vdeb(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 void Perl_debprofdump(register PerlInterpreter *my_perl);
 I32 Perl_debop(register PerlInterpreter *my_perl, OP* o);
 I32 Perl_debstack(register PerlInterpreter *my_perl);
 I32 Perl_debstackptrs(register PerlInterpreter *my_perl);
 char* Perl_delimcpy(register PerlInterpreter *my_perl, char* to, char* toend, char* from, char* fromend, int delim, I32* retlen);
 void Perl_deprecate(register PerlInterpreter *my_perl, char* s);
 OP* Perl_die(register PerlInterpreter *my_perl, const char* pat, ...)



;
 OP* Perl_vdie(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 OP* Perl_die_where(register PerlInterpreter *my_perl, char* message, STRLEN msglen);
 void Perl_dounwind(register PerlInterpreter *my_perl, I32 cxix);
 char Perl_do_aexec(register PerlInterpreter *my_perl, SV* really, SV** mark, SV** sp);
 char Perl_do_aexec5(register PerlInterpreter *my_perl, SV* really, SV** mark, SV** sp, int fd, int flag);
 int Perl_do_binmode(register PerlInterpreter *my_perl, FILE *fp, int iotype, int mode);
 void Perl_do_chop(register PerlInterpreter *my_perl, SV* asv, SV* sv);
 char Perl_do_close(register PerlInterpreter *my_perl, GV* gv, char not_implicit);
 char Perl_do_eof(register PerlInterpreter *my_perl, GV* gv);
 char Perl_do_exec(register PerlInterpreter *my_perl, char* cmd);

 char Perl_do_exec3(register PerlInterpreter *my_perl, char* cmd, int fd, int flag);

 void Perl_do_execfree(register PerlInterpreter *my_perl);
 void Perl_do_join(register PerlInterpreter *my_perl, SV* sv, SV* del, SV** mark, SV** sp);
 OP* Perl_do_kv(register PerlInterpreter *my_perl);
 char Perl_do_open(register PerlInterpreter *my_perl, GV* gv, char* name, I32 len, int as_raw, int rawmode, int rawperm, FILE* supplied_fp);
 char Perl_do_open9(register PerlInterpreter *my_perl, GV *gv, char *name, I32 len, int as_raw, int rawmode, int rawperm, FILE *supplied_fp, SV *svs, I32 num);
 void Perl_do_pipe(register PerlInterpreter *my_perl, SV* sv, GV* rgv, GV* wgv);
 char Perl_do_print(register PerlInterpreter *my_perl, SV* sv, FILE* fp);
 OP* Perl_do_readline(register PerlInterpreter *my_perl);
 I32 Perl_do_chomp(register PerlInterpreter *my_perl, SV* sv);
 char Perl_do_seek(register PerlInterpreter *my_perl, GV* gv, off_t pos, int whence);
 void Perl_do_sprintf(register PerlInterpreter *my_perl, SV* sv, I32 len, SV** sarg);
 off_t Perl_do_sysseek(register PerlInterpreter *my_perl, GV* gv, off_t pos, int whence);
 off_t Perl_do_tell(register PerlInterpreter *my_perl, GV* gv);
 I32 Perl_do_trans(register PerlInterpreter *my_perl, SV* sv);
 UV Perl_do_vecget(register PerlInterpreter *my_perl, SV* sv, I32 offset, I32 size);
 void Perl_do_vecset(register PerlInterpreter *my_perl, SV* sv);
 void Perl_do_vop(register PerlInterpreter *my_perl, I32 optype, SV* sv, SV* left, SV* right);
 OP* Perl_dofile(register PerlInterpreter *my_perl, OP* term);
 I32 Perl_dowantarray(register PerlInterpreter *my_perl);
 void Perl_dump_all(register PerlInterpreter *my_perl);
 void Perl_dump_eval(register PerlInterpreter *my_perl);



 void Perl_dump_form(register PerlInterpreter *my_perl, GV* gv);
 void Perl_gv_dump(register PerlInterpreter *my_perl, GV* gv);
 void Perl_op_dump(register PerlInterpreter *my_perl, OP* arg);
 void Perl_pmop_dump(register PerlInterpreter *my_perl, PMOP* pm);
 void Perl_dump_packsubs(register PerlInterpreter *my_perl, HV* stash);
 void Perl_dump_sub(register PerlInterpreter *my_perl, GV* gv);
 void Perl_fbm_compile(register PerlInterpreter *my_perl, SV* sv, U32 flags);
 char* Perl_fbm_instr(register PerlInterpreter *my_perl, unsigned char* big, unsigned char* bigend, SV* littlesv, U32 flags);
 char* Perl_find_script(register PerlInterpreter *my_perl, char *scriptname, char dosearch, char **search_ext, I32 flags);



 OP* Perl_force_list(register PerlInterpreter *my_perl, OP* arg);
 OP* Perl_fold_constants(register PerlInterpreter *my_perl, OP* arg);
 char* Perl_form(register PerlInterpreter *my_perl, const char* pat, ...)



;
 char* Perl_vform(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 void Perl_free_tmps(register PerlInterpreter *my_perl);
 OP* Perl_gen_constant_list(register PerlInterpreter *my_perl, OP* o);

 char* Perl_getenv_len(register PerlInterpreter *my_perl, const char* key, unsigned long *len);

 void Perl_gp_free(register PerlInterpreter *my_perl, GV* gv);
 GP* Perl_gp_ref(register PerlInterpreter *my_perl, GP* gp);
 GV* Perl_gv_AVadd(register PerlInterpreter *my_perl, GV* gv);
 GV* Perl_gv_HVadd(register PerlInterpreter *my_perl, GV* gv);
 GV* Perl_gv_IOadd(register PerlInterpreter *my_perl, GV* gv);
 GV* Perl_gv_autoload4(register PerlInterpreter *my_perl, HV* stash, const char* name, STRLEN len, I32 method);
 void Perl_gv_check(register PerlInterpreter *my_perl, HV* stash);
 void Perl_gv_efullname(register PerlInterpreter *my_perl, SV* sv, GV* gv);
 void Perl_gv_efullname3(register PerlInterpreter *my_perl, SV* sv, GV* gv, const char* prefix);
 void Perl_gv_efullname4(register PerlInterpreter *my_perl, SV* sv, GV* gv, const char* prefix, char keepmain);
 GV* Perl_gv_fetchfile(register PerlInterpreter *my_perl, const char* name);
 GV* Perl_gv_fetchmeth(register PerlInterpreter *my_perl, HV* stash, const char* name, STRLEN len, I32 level);
 GV* Perl_gv_fetchmethod(register PerlInterpreter *my_perl, HV* stash, const char* name);
 GV* Perl_gv_fetchmethod_autoload(register PerlInterpreter *my_perl, HV* stash, const char* name, I32 autoload);
 GV* Perl_gv_fetchpv(register PerlInterpreter *my_perl, const char* name, I32 add, I32 sv_type);
 void Perl_gv_fullname(register PerlInterpreter *my_perl, SV* sv, GV* gv);
 void Perl_gv_fullname3(register PerlInterpreter *my_perl, SV* sv, GV* gv, const char* prefix);
 void Perl_gv_fullname4(register PerlInterpreter *my_perl, SV* sv, GV* gv, const char* prefix, char keepmain);
 void Perl_gv_init(register PerlInterpreter *my_perl, GV* gv, HV* stash, const char* name, STRLEN len, int multi);
 HV* Perl_gv_stashpv(register PerlInterpreter *my_perl, const char* name, I32 create);
 HV* Perl_gv_stashpvn(register PerlInterpreter *my_perl, const char* name, U32 namelen, I32 create);
 HV* Perl_gv_stashsv(register PerlInterpreter *my_perl, SV* sv, I32 create);
 void Perl_hv_clear(register PerlInterpreter *my_perl, HV* tb);
 void Perl_hv_delayfree_ent(register PerlInterpreter *my_perl, HV* hv, HE* entry);
 SV* Perl_hv_delete(register PerlInterpreter *my_perl, HV* tb, const char* key, U32 klen, I32 flags);
 SV* Perl_hv_delete_ent(register PerlInterpreter *my_perl, HV* tb, SV* key, I32 flags, U32 hash);
 char Perl_hv_exists(register PerlInterpreter *my_perl, HV* tb, const char* key, U32 klen);
 char Perl_hv_exists_ent(register PerlInterpreter *my_perl, HV* tb, SV* key, U32 hash);
 SV** Perl_hv_fetch(register PerlInterpreter *my_perl, HV* tb, const char* key, U32 klen, I32 lval);
 HE* Perl_hv_fetch_ent(register PerlInterpreter *my_perl, HV* tb, SV* key, I32 lval, U32 hash);
 void Perl_hv_free_ent(register PerlInterpreter *my_perl, HV* hv, HE* entry);
 I32 Perl_hv_iterinit(register PerlInterpreter *my_perl, HV* tb);
 char* Perl_hv_iterkey(register PerlInterpreter *my_perl, HE* entry, I32* retlen);
 SV* Perl_hv_iterkeysv(register PerlInterpreter *my_perl, HE* entry);
 HE* Perl_hv_iternext(register PerlInterpreter *my_perl, HV* tb);
 SV* Perl_hv_iternextsv(register PerlInterpreter *my_perl, HV* hv, char** key, I32* retlen);
 SV* Perl_hv_iterval(register PerlInterpreter *my_perl, HV* tb, HE* entry);
 void Perl_hv_ksplit(register PerlInterpreter *my_perl, HV* hv, IV newmax);
 void Perl_hv_magic(register PerlInterpreter *my_perl, HV* hv, GV* gv, int how);
 SV** Perl_hv_store(register PerlInterpreter *my_perl, HV* tb, const char* key, U32 klen, SV* val, U32 hash);
 HE* Perl_hv_store_ent(register PerlInterpreter *my_perl, HV* tb, SV* key, SV* val, U32 hash);
 void Perl_hv_undef(register PerlInterpreter *my_perl, HV* tb);
 I32 Perl_ibcmp(register PerlInterpreter *my_perl, const char* a, const char* b, I32 len);
 I32 Perl_ibcmp_locale(register PerlInterpreter *my_perl, const char* a, const char* b, I32 len);
 char Perl_ingroup(register PerlInterpreter *my_perl, gid_t testgid, uid_t effective);
 void Perl_init_debugger(register PerlInterpreter *my_perl);
 void Perl_init_stacks(register PerlInterpreter *my_perl);
 U32 Perl_intro_my(register PerlInterpreter *my_perl);
 char* Perl_instr(register PerlInterpreter *my_perl, const char* big, const char* little);
 char Perl_io_close(register PerlInterpreter *my_perl, IO* io, char not_implicit);
 OP* Perl_invert(register PerlInterpreter *my_perl, OP* cmd);
 char Perl_is_gv_magical(register PerlInterpreter *my_perl, char *name, STRLEN len, U32 flags);
 I32 Perl_is_lvalue_sub(register PerlInterpreter *my_perl);
 char Perl_is_uni_alnum(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_alnumc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_idfirst(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_alpha(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_ascii(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_space(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_cntrl(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_graph(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_digit(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_upper(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_lower(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_print(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_punct(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_xdigit(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_upper(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_title(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_lower(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_alnum_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_alnumc_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_idfirst_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_alpha_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_ascii_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_space_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_cntrl_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_graph_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_digit_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_upper_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_lower_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_print_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_punct_lc(register PerlInterpreter *my_perl, U32 c);
 char Perl_is_uni_xdigit_lc(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_upper_lc(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_title_lc(register PerlInterpreter *my_perl, U32 c);
 U32 Perl_to_uni_lower_lc(register PerlInterpreter *my_perl, U32 c);
 STRLEN Perl_is_utf8_char(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_string(register PerlInterpreter *my_perl, U8 *s, STRLEN len);
 char Perl_is_utf8_alnum(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_alnumc(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_idfirst(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_alpha(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_ascii(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_space(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_cntrl(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_digit(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_graph(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_upper(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_lower(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_print(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_punct(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_xdigit(register PerlInterpreter *my_perl, U8 *p);
 char Perl_is_utf8_mark(register PerlInterpreter *my_perl, U8 *p);
 OP* Perl_jmaybe(register PerlInterpreter *my_perl, OP* arg);
 I32 Perl_keyword(register PerlInterpreter *my_perl, char* d, I32 len);
 void Perl_leave_scope(register PerlInterpreter *my_perl, I32 base);
 void Perl_lex_end(register PerlInterpreter *my_perl);
 void Perl_lex_start(register PerlInterpreter *my_perl, SV* line);
 OP* Perl_linklist(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_list(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_listkids(register PerlInterpreter *my_perl, OP* o);
 void Perl_load_module(register PerlInterpreter *my_perl, U32 flags, SV* name, SV* ver, ...);
 void Perl_vload_module(register PerlInterpreter *my_perl, U32 flags, SV* name, SV* ver, va_list* args);
 OP* Perl_localize(register PerlInterpreter *my_perl, OP* arg, I32 lexical);
 I32 Perl_looks_like_number(register PerlInterpreter *my_perl, SV* sv);
 int Perl_magic_clearenv(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_clear_all_env(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_clearpack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_clearsig(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_existspack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_freeregexp(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_get(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getarylen(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getdefelem(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getglob(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getnkeys(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getpack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getpos(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getsig(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getsubstr(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_gettaint(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getuvar(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_getvec(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 U32 Perl_magic_len(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);



 int Perl_magic_nextpack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg, SV* key);
 U32 Perl_magic_regdata_cnt(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_regdatum_get(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_regdatum_set(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_set(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setamagic(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setarylen(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setbm(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setdbline(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);

 int Perl_magic_setcollxfrm(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);

 int Perl_magic_setdefelem(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setenv(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setfm(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setisa(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setglob(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setmglob(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setnkeys(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setpack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setpos(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setsig(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setsubstr(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_settaint(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setuvar(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_setvec(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_set_all_env(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 U32 Perl_magic_sizepack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 int Perl_magic_wipepack(register PerlInterpreter *my_perl, SV* sv, MAGIC* mg);
 void Perl_magicname(register PerlInterpreter *my_perl, char* sym, char* name, I32 namlen);
 void Perl_markstack_grow(register PerlInterpreter *my_perl);

 char* Perl_mem_collxfrm(register PerlInterpreter *my_perl, const char* s, STRLEN len, STRLEN* xlen);

 SV* Perl_mess(register PerlInterpreter *my_perl, const char* pat, ...)



;
 SV* Perl_vmess(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 void Perl_qerror(register PerlInterpreter *my_perl, SV* err);
 int Perl_mg_clear(register PerlInterpreter *my_perl, SV* sv);
 int Perl_mg_copy(register PerlInterpreter *my_perl, SV* sv, SV* nsv, const char* key, I32 klen);
 MAGIC* Perl_mg_find(register PerlInterpreter *my_perl, SV* sv, int type);
 int Perl_mg_free(register PerlInterpreter *my_perl, SV* sv);
 int Perl_mg_get(register PerlInterpreter *my_perl, SV* sv);
 U32 Perl_mg_length(register PerlInterpreter *my_perl, SV* sv);
 void Perl_mg_magical(register PerlInterpreter *my_perl, SV* sv);
 int Perl_mg_set(register PerlInterpreter *my_perl, SV* sv);
 I32 Perl_mg_size(register PerlInterpreter *my_perl, SV* sv);
 OP* Perl_mod(register PerlInterpreter *my_perl, OP* o, I32 type);
 int Perl_mode_from_discipline(register PerlInterpreter *my_perl, SV* discp);
 char* Perl_moreswitches(register PerlInterpreter *my_perl, char* s);
 OP* Perl_my(register PerlInterpreter *my_perl, OP* o);
 NV Perl_my_atof(register PerlInterpreter *my_perl, const char *s);






 void Perl_my_exit(register PerlInterpreter *my_perl, U32 status) __attribute__((noreturn));
 void Perl_my_failure_exit(register PerlInterpreter *my_perl) __attribute__((noreturn));
 I32 Perl_my_fflush_all(register PerlInterpreter *my_perl);
 I32 Perl_my_lstat(register PerlInterpreter *my_perl);







 I32 Perl_my_pclose(register PerlInterpreter *my_perl, FILE* ptr);
 FILE* Perl_my_popen(register PerlInterpreter *my_perl, char* cmd, char* mode);

 void Perl_my_setenv(register PerlInterpreter *my_perl, char* nam, char* val);
 I32 Perl_my_stat(register PerlInterpreter *my_perl);





 void Perl_my_unexec(register PerlInterpreter *my_perl);
 OP* Perl_newANONLIST(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_newANONHASH(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_newANONSUB(register PerlInterpreter *my_perl, I32 floor, OP* proto, OP* block);
 OP* Perl_newASSIGNOP(register PerlInterpreter *my_perl, I32 flags, OP* left, I32 optype, OP* right);
 OP* Perl_newCONDOP(register PerlInterpreter *my_perl, I32 flags, OP* expr, OP* trueop, OP* falseop);
 void Perl_newCONSTSUB(register PerlInterpreter *my_perl, HV* stash, char* name, SV* sv);
 void Perl_newFORM(register PerlInterpreter *my_perl, I32 floor, OP* o, OP* block);
 OP* Perl_newFOROP(register PerlInterpreter *my_perl, I32 flags, char* label, line_t forline, OP* sclr, OP* expr, OP*block, OP*cont);
 OP* Perl_newLOGOP(register PerlInterpreter *my_perl, I32 optype, I32 flags, OP* left, OP* right);
 OP* Perl_newLOOPEX(register PerlInterpreter *my_perl, I32 type, OP* label);
 OP* Perl_newLOOPOP(register PerlInterpreter *my_perl, I32 flags, I32 debuggable, OP* expr, OP* block);
 OP* Perl_newNULLLIST(register PerlInterpreter *my_perl);
 OP* Perl_newOP(register PerlInterpreter *my_perl, I32 optype, I32 flags);
 void Perl_newPROG(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_newRANGE(register PerlInterpreter *my_perl, I32 flags, OP* left, OP* right);
 OP* Perl_newSLICEOP(register PerlInterpreter *my_perl, I32 flags, OP* subscript, OP* listop);
 OP* Perl_newSTATEOP(register PerlInterpreter *my_perl, I32 flags, char* label, OP* o);
 CV* Perl_newSUB(register PerlInterpreter *my_perl, I32 floor, OP* o, OP* proto, OP* block);
 CV* Perl_newXS(register PerlInterpreter *my_perl, char* name, XSUBADDR_t f, char* filename);
 AV* Perl_newAV(register PerlInterpreter *my_perl);
 OP* Perl_newAVREF(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_newBINOP(register PerlInterpreter *my_perl, I32 type, I32 flags, OP* first, OP* last);
 OP* Perl_newCVREF(register PerlInterpreter *my_perl, I32 flags, OP* o);
 OP* Perl_newGVOP(register PerlInterpreter *my_perl, I32 type, I32 flags, GV* gv);
 GV* Perl_newGVgen(register PerlInterpreter *my_perl, char* pack);
 OP* Perl_newGVREF(register PerlInterpreter *my_perl, I32 type, OP* o);
 OP* Perl_newHVREF(register PerlInterpreter *my_perl, OP* o);
 HV* Perl_newHV(register PerlInterpreter *my_perl);
 HV* Perl_newHVhv(register PerlInterpreter *my_perl, HV* hv);
 IO* Perl_newIO(register PerlInterpreter *my_perl);
 OP* Perl_newLISTOP(register PerlInterpreter *my_perl, I32 type, I32 flags, OP* first, OP* last);
 OP* Perl_newPADOP(register PerlInterpreter *my_perl, I32 type, I32 flags, SV* sv);
 OP* Perl_newPMOP(register PerlInterpreter *my_perl, I32 type, I32 flags);
 OP* Perl_newPVOP(register PerlInterpreter *my_perl, I32 type, I32 flags, char* pv);
 SV* Perl_newRV(register PerlInterpreter *my_perl, SV* pref);
 SV* Perl_newRV_noinc(register PerlInterpreter *my_perl, SV *sv);
 SV* Perl_newSV(register PerlInterpreter *my_perl, STRLEN len);
 OP* Perl_newSVREF(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_newSVOP(register PerlInterpreter *my_perl, I32 type, I32 flags, SV* sv);
 SV* Perl_newSViv(register PerlInterpreter *my_perl, IV i);
 SV* Perl_newSVuv(register PerlInterpreter *my_perl, UV u);
 SV* Perl_newSVnv(register PerlInterpreter *my_perl, NV n);
 SV* Perl_newSVpv(register PerlInterpreter *my_perl, const char* s, STRLEN len);
 SV* Perl_newSVpvn(register PerlInterpreter *my_perl, const char* s, STRLEN len);
 SV* Perl_newSVpvf(register PerlInterpreter *my_perl, const char* pat, ...)



;
 SV* Perl_vnewSVpvf(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 SV* Perl_newSVrv(register PerlInterpreter *my_perl, SV* rv, const char* classname);
 SV* Perl_newSVsv(register PerlInterpreter *my_perl, SV* old);
 OP* Perl_newUNOP(register PerlInterpreter *my_perl, I32 type, I32 flags, OP* first);
 OP* Perl_newWHILEOP(register PerlInterpreter *my_perl, I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont);

 PERL_SI* Perl_new_stackinfo(register PerlInterpreter *my_perl, I32 stitems, I32 cxitems);
 FILE* Perl_nextargv(register PerlInterpreter *my_perl, GV* gv);
 char* Perl_ninstr(register PerlInterpreter *my_perl, const char* big, const char* bigend, const char* little, const char* lend);
 OP* Perl_oopsCV(register PerlInterpreter *my_perl, OP* o);
 void Perl_op_free(register PerlInterpreter *my_perl, OP* arg);
 void Perl_package(register PerlInterpreter *my_perl, OP* o);
 PADOFFSET Perl_pad_alloc(register PerlInterpreter *my_perl, I32 optype, U32 tmptype);
 PADOFFSET Perl_pad_allocmy(register PerlInterpreter *my_perl, char* name);
 PADOFFSET Perl_pad_findmy(register PerlInterpreter *my_perl, char* name);
 OP* Perl_oopsAV(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_oopsHV(register PerlInterpreter *my_perl, OP* o);
 void Perl_pad_leavemy(register PerlInterpreter *my_perl, I32 fill);
 SV* Perl_pad_sv(register PerlInterpreter *my_perl, PADOFFSET po);
 void Perl_pad_free(register PerlInterpreter *my_perl, PADOFFSET po);
 void Perl_pad_reset(register PerlInterpreter *my_perl);
 void Perl_pad_swipe(register PerlInterpreter *my_perl, PADOFFSET po);
 void Perl_peep(register PerlInterpreter *my_perl, OP* o);
 void Perl_call_atexit(register PerlInterpreter *my_perl, ATEXIT_t fn, void *ptr);
 I32 Perl_call_argv(register PerlInterpreter *my_perl, const char* sub_name, I32 flags, char** argv);
 I32 Perl_call_method(register PerlInterpreter *my_perl, const char* methname, I32 flags);
 I32 Perl_call_pv(register PerlInterpreter *my_perl, const char* sub_name, I32 flags);
 I32 Perl_call_sv(register PerlInterpreter *my_perl, SV* sv, I32 flags);
 SV* Perl_eval_pv(register PerlInterpreter *my_perl, const char* p, I32 croak_on_error);
 I32 Perl_eval_sv(register PerlInterpreter *my_perl, SV* sv, I32 flags);
 SV* Perl_get_sv(register PerlInterpreter *my_perl, const char* name, I32 create);
 AV* Perl_get_av(register PerlInterpreter *my_perl, const char* name, I32 create);
 HV* Perl_get_hv(register PerlInterpreter *my_perl, const char* name, I32 create);
 CV* Perl_get_cv(register PerlInterpreter *my_perl, const char* name, I32 create);
 int Perl_init_i18nl10n(register PerlInterpreter *my_perl, int printwarn);
 int Perl_init_i18nl14n(register PerlInterpreter *my_perl, int printwarn);
 void Perl_new_collate(register PerlInterpreter *my_perl, char* newcoll);
 void Perl_new_ctype(register PerlInterpreter *my_perl, char* newctype);
 void Perl_new_numeric(register PerlInterpreter *my_perl, char* newcoll);
 void Perl_set_numeric_local(register PerlInterpreter *my_perl);
 void Perl_set_numeric_radix(register PerlInterpreter *my_perl);
 void Perl_set_numeric_standard(register PerlInterpreter *my_perl);
 void Perl_require_pv(register PerlInterpreter *my_perl, const char* pv);
 void Perl_pidgone(register PerlInterpreter *my_perl, pid_t pid, int status);
 void Perl_pmflag(register PerlInterpreter *my_perl, U16* pmfl, int ch);
 OP* Perl_pmruntime(register PerlInterpreter *my_perl, OP* pm, OP* expr, OP* repl);
 OP* Perl_pmtrans(register PerlInterpreter *my_perl, OP* o, OP* expr, OP* repl);
 OP* Perl_pop_return(register PerlInterpreter *my_perl);
 void Perl_pop_scope(register PerlInterpreter *my_perl);
 OP* Perl_prepend_elem(register PerlInterpreter *my_perl, I32 optype, OP* head, OP* tail);
 void Perl_push_return(register PerlInterpreter *my_perl, OP* o);
 void Perl_push_scope(register PerlInterpreter *my_perl);
 OP* Perl_ref(register PerlInterpreter *my_perl, OP* o, I32 type);
 OP* Perl_refkids(register PerlInterpreter *my_perl, OP* o, I32 type);
 void Perl_regdump(register PerlInterpreter *my_perl, regexp* r);
 I32 Perl_pregexec(register PerlInterpreter *my_perl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave);
 void Perl_pregfree(register PerlInterpreter *my_perl, struct regexp* r);
 regexp* Perl_pregcomp(register PerlInterpreter *my_perl, char* exp, char* xend, PMOP* pm);
 char* Perl_re_intuit_start(register PerlInterpreter *my_perl, regexp* prog, SV* sv, char* strpos, char* strend, U32 flags, struct re_scream_pos_data_s *data);
 SV* Perl_re_intuit_string(register PerlInterpreter *my_perl, regexp* prog);
 I32 Perl_regexec_flags(register PerlInterpreter *my_perl, regexp* prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags);
 regnode* Perl_regnext(register PerlInterpreter *my_perl, regnode* p);
 void Perl_regprop(register PerlInterpreter *my_perl, SV* sv, regnode* o);
 void Perl_repeatcpy(register PerlInterpreter *my_perl, char* to, const char* from, I32 len, I32 count);
 char* Perl_rninstr(register PerlInterpreter *my_perl, const char* big, const char* bigend, const char* little, const char* lend);
 Sighandler_t Perl_rsignal(register PerlInterpreter *my_perl, int i, Sighandler_t t);
 int Perl_rsignal_restore(register PerlInterpreter *my_perl, int i, Sigsave_t* t);
 int Perl_rsignal_save(register PerlInterpreter *my_perl, int i, Sighandler_t t1, Sigsave_t* t2);
 Sighandler_t Perl_rsignal_state(register PerlInterpreter *my_perl, int i);
 void Perl_rxres_free(register PerlInterpreter *my_perl, void** rsp);
 void Perl_rxres_restore(register PerlInterpreter *my_perl, void** rsp, REGEXP* prx);
 void Perl_rxres_save(register PerlInterpreter *my_perl, void** rsp, REGEXP* prx);



 char* Perl_savepv(register PerlInterpreter *my_perl, const char* sv);
 char* Perl_savepvn(register PerlInterpreter *my_perl, const char* sv, I32 len);
 void Perl_savestack_grow(register PerlInterpreter *my_perl);
 void Perl_save_aelem(register PerlInterpreter *my_perl, AV* av, I32 idx, SV **sptr);
 I32 Perl_save_alloc(register PerlInterpreter *my_perl, I32 size, I32 pad);
 void Perl_save_aptr(register PerlInterpreter *my_perl, AV** aptr);
 AV* Perl_save_ary(register PerlInterpreter *my_perl, GV* gv);
 void Perl_save_clearsv(register PerlInterpreter *my_perl, SV** svp);
 void Perl_save_delete(register PerlInterpreter *my_perl, HV* hv, char* key, I32 klen);
 void Perl_save_destructor(register PerlInterpreter *my_perl, DESTRUCTORFUNC_NOCONTEXT_t f, void* p);
 void Perl_save_destructor_x(register PerlInterpreter *my_perl, DESTRUCTORFUNC_t f, void* p);
 void Perl_save_freesv(register PerlInterpreter *my_perl, SV* sv);
 void Perl_save_freeop(register PerlInterpreter *my_perl, OP* o);
 void Perl_save_freepv(register PerlInterpreter *my_perl, char* pv);
 void Perl_save_generic_svref(register PerlInterpreter *my_perl, SV** sptr);
 void Perl_save_generic_pvref(register PerlInterpreter *my_perl, char** str);
 void Perl_save_gp(register PerlInterpreter *my_perl, GV* gv, I32 empty);
 HV* Perl_save_hash(register PerlInterpreter *my_perl, GV* gv);
 void Perl_save_helem(register PerlInterpreter *my_perl, HV* hv, SV *key, SV **sptr);
 void Perl_save_hints(register PerlInterpreter *my_perl);
 void Perl_save_hptr(register PerlInterpreter *my_perl, HV** hptr);
 void Perl_save_I16(register PerlInterpreter *my_perl, I16* intp);
 void Perl_save_I32(register PerlInterpreter *my_perl, I32* intp);
 void Perl_save_I8(register PerlInterpreter *my_perl, I8* bytep);
 void Perl_save_int(register PerlInterpreter *my_perl, int* intp);
 void Perl_save_item(register PerlInterpreter *my_perl, SV* item);
 void Perl_save_iv(register PerlInterpreter *my_perl, IV* iv);
 void Perl_save_list(register PerlInterpreter *my_perl, SV** sarg, I32 maxsarg);
 void Perl_save_long(register PerlInterpreter *my_perl, long* longp);
 void Perl_save_mortalizesv(register PerlInterpreter *my_perl, SV* sv);
 void Perl_save_nogv(register PerlInterpreter *my_perl, GV* gv);
 void Perl_save_op(register PerlInterpreter *my_perl);
 SV* Perl_save_scalar(register PerlInterpreter *my_perl, GV* gv);
 void Perl_save_pptr(register PerlInterpreter *my_perl, char** pptr);
 void Perl_save_vptr(register PerlInterpreter *my_perl, void* pptr);
 void Perl_save_re_context(register PerlInterpreter *my_perl);
 void Perl_save_padsv(register PerlInterpreter *my_perl, PADOFFSET off);
 void Perl_save_sptr(register PerlInterpreter *my_perl, SV** sptr);
 SV* Perl_save_svref(register PerlInterpreter *my_perl, SV** sptr);
 SV** Perl_save_threadsv(register PerlInterpreter *my_perl, PADOFFSET i);
 OP* Perl_sawparens(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_scalar(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_scalarkids(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_scalarseq(register PerlInterpreter *my_perl, OP* o);
 OP* Perl_scalarvoid(register PerlInterpreter *my_perl, OP* o);
 NV Perl_scan_bin(register PerlInterpreter *my_perl, char* start, STRLEN len, STRLEN* retlen);
 NV Perl_scan_hex(register PerlInterpreter *my_perl, char* start, STRLEN len, STRLEN* retlen);
 char* Perl_scan_num(register PerlInterpreter *my_perl, char* s, YYSTYPE *lvalp);
 NV Perl_scan_oct(register PerlInterpreter *my_perl, char* start, STRLEN len, STRLEN* retlen);
 OP* Perl_scope(register PerlInterpreter *my_perl, OP* o);
 char* Perl_screaminstr(register PerlInterpreter *my_perl, SV* bigsv, SV* littlesv, I32 start_shift, I32 end_shift, I32 *state, I32 last);

 I32 Perl_setenv_getix(register PerlInterpreter *my_perl, char* nam);

 void Perl_setdefout(register PerlInterpreter *my_perl, GV* gv);
 char* Perl_sharepvn(register PerlInterpreter *my_perl, const char* sv, I32 len, U32 hash);
 HEK* Perl_share_hek(register PerlInterpreter *my_perl, const char* sv, I32 len, U32 hash);
 void Perl_sighandler(int sig);
 SV** Perl_stack_grow(register PerlInterpreter *my_perl, SV** sp, SV**p, int n);
 I32 Perl_start_subparse(register PerlInterpreter *my_perl, I32 is_format, U32 flags);
 void Perl_sub_crush_depth(register PerlInterpreter *my_perl, CV* cv);
 char Perl_sv_2bool(register PerlInterpreter *my_perl, SV* sv);
 CV* Perl_sv_2cv(register PerlInterpreter *my_perl, SV* sv, HV** st, GV** gvp, I32 lref);
 IO* Perl_sv_2io(register PerlInterpreter *my_perl, SV* sv);
 IV Perl_sv_2iv(register PerlInterpreter *my_perl, SV* sv);
 SV* Perl_sv_2mortal(register PerlInterpreter *my_perl, SV* sv);
 NV Perl_sv_2nv(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_2pv(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 char* Perl_sv_2pvutf8(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 char* Perl_sv_2pvbyte(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 UV Perl_sv_2uv(register PerlInterpreter *my_perl, SV* sv);
 IV Perl_sv_iv(register PerlInterpreter *my_perl, SV* sv);
 UV Perl_sv_uv(register PerlInterpreter *my_perl, SV* sv);
 NV Perl_sv_nv(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_pvn(register PerlInterpreter *my_perl, SV *sv, STRLEN *len);
 char* Perl_sv_pvutf8n(register PerlInterpreter *my_perl, SV *sv, STRLEN *len);
 char* Perl_sv_pvbyten(register PerlInterpreter *my_perl, SV *sv, STRLEN *len);
 I32 Perl_sv_true(register PerlInterpreter *my_perl, SV *sv);
 void Perl_sv_add_arena(register PerlInterpreter *my_perl, char* ptr, U32 size, U32 flags);
 int Perl_sv_backoff(register PerlInterpreter *my_perl, SV* sv);
 SV* Perl_sv_bless(register PerlInterpreter *my_perl, SV* sv, HV* stash);
 void Perl_sv_catpvf(register PerlInterpreter *my_perl, SV* sv, const char* pat, ...)



;
 void Perl_sv_vcatpvf(register PerlInterpreter *my_perl, SV* sv, const char* pat, va_list* args);
 void Perl_sv_catpv(register PerlInterpreter *my_perl, SV* sv, const char* ptr);
 void Perl_sv_catpvn(register PerlInterpreter *my_perl, SV* sv, const char* ptr, STRLEN len);
 void Perl_sv_catsv(register PerlInterpreter *my_perl, SV* dsv, SV* ssv);
 void Perl_sv_chop(register PerlInterpreter *my_perl, SV* sv, char* ptr);
 I32 Perl_sv_clean_all(register PerlInterpreter *my_perl);
 void Perl_sv_clean_objs(register PerlInterpreter *my_perl);
 void Perl_sv_clear(register PerlInterpreter *my_perl, SV* sv);
 I32 Perl_sv_cmp(register PerlInterpreter *my_perl, SV* sv1, SV* sv2);
 I32 Perl_sv_cmp_locale(register PerlInterpreter *my_perl, SV* sv1, SV* sv2);

 char* Perl_sv_collxfrm(register PerlInterpreter *my_perl, SV* sv, STRLEN* nxp);

 OP* Perl_sv_compile_2op(register PerlInterpreter *my_perl, SV* sv, OP** startp, char* code, AV** avp);
 void Perl_sv_dec(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_dump(register PerlInterpreter *my_perl, SV* sv);
 char Perl_sv_derived_from(register PerlInterpreter *my_perl, SV* sv, const char* name);
 I32 Perl_sv_eq(register PerlInterpreter *my_perl, SV* sv1, SV* sv2);
 void Perl_sv_free(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_free_arenas(register PerlInterpreter *my_perl);
 char* Perl_sv_gets(register PerlInterpreter *my_perl, SV* sv, FILE* fp, I32 append);
 char* Perl_sv_grow(register PerlInterpreter *my_perl, SV* sv, STRLEN newlen);
 void Perl_sv_inc(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_insert(register PerlInterpreter *my_perl, SV* bigsv, STRLEN offset, STRLEN len, char* little, STRLEN littlelen);
 int Perl_sv_isa(register PerlInterpreter *my_perl, SV* sv, const char* name);
 int Perl_sv_isobject(register PerlInterpreter *my_perl, SV* sv);
 STRLEN Perl_sv_len(register PerlInterpreter *my_perl, SV* sv);
 STRLEN Perl_sv_len_utf8(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_magic(register PerlInterpreter *my_perl, SV* sv, SV* obj, int how, const char* name, I32 namlen);
 SV* Perl_sv_mortalcopy(register PerlInterpreter *my_perl, SV* oldsv);
 SV* Perl_sv_newmortal(register PerlInterpreter *my_perl);
 SV* Perl_sv_newref(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_peek(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_pos_u2b(register PerlInterpreter *my_perl, SV* sv, I32* offsetp, I32* lenp);
 void Perl_sv_pos_b2u(register PerlInterpreter *my_perl, SV* sv, I32* offsetp);
 char* Perl_sv_pvn_force(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 char* Perl_sv_pvutf8n_force(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 char* Perl_sv_pvbyten_force(register PerlInterpreter *my_perl, SV* sv, STRLEN* lp);
 char* Perl_sv_reftype(register PerlInterpreter *my_perl, SV* sv, int ob);
 void Perl_sv_replace(register PerlInterpreter *my_perl, SV* sv, SV* nsv);
 void Perl_sv_report_used(register PerlInterpreter *my_perl);
 void Perl_sv_reset(register PerlInterpreter *my_perl, char* s, HV* stash);
 void Perl_sv_setpvf(register PerlInterpreter *my_perl, SV* sv, const char* pat, ...)



;
 void Perl_sv_vsetpvf(register PerlInterpreter *my_perl, SV* sv, const char* pat, va_list* args);
 void Perl_sv_setiv(register PerlInterpreter *my_perl, SV* sv, IV num);
 void Perl_sv_setpviv(register PerlInterpreter *my_perl, SV* sv, IV num);
 void Perl_sv_setuv(register PerlInterpreter *my_perl, SV* sv, UV num);
 void Perl_sv_setnv(register PerlInterpreter *my_perl, SV* sv, NV num);
 SV* Perl_sv_setref_iv(register PerlInterpreter *my_perl, SV* rv, const char* classname, IV iv);
 SV* Perl_sv_setref_nv(register PerlInterpreter *my_perl, SV* rv, const char* classname, NV nv);
 SV* Perl_sv_setref_pv(register PerlInterpreter *my_perl, SV* rv, const char* classname, void* pv);
 SV* Perl_sv_setref_pvn(register PerlInterpreter *my_perl, SV* rv, const char* classname, char* pv, STRLEN n);
 void Perl_sv_setpv(register PerlInterpreter *my_perl, SV* sv, const char* ptr);
 void Perl_sv_setpvn(register PerlInterpreter *my_perl, SV* sv, const char* ptr, STRLEN len);
 void Perl_sv_setsv(register PerlInterpreter *my_perl, SV* dsv, SV* ssv);
 void Perl_sv_taint(register PerlInterpreter *my_perl, SV* sv);
 char Perl_sv_tainted(register PerlInterpreter *my_perl, SV* sv);
 int Perl_sv_unmagic(register PerlInterpreter *my_perl, SV* sv, int type);
 void Perl_sv_unref(register PerlInterpreter *my_perl, SV* sv);
 void Perl_sv_untaint(register PerlInterpreter *my_perl, SV* sv);
 char Perl_sv_upgrade(register PerlInterpreter *my_perl, SV* sv, U32 mt);
 void Perl_sv_usepvn(register PerlInterpreter *my_perl, SV* sv, char* ptr, STRLEN len);
 void Perl_sv_vcatpvfn(register PerlInterpreter *my_perl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, char *maybe_tainted);
 void Perl_sv_vsetpvfn(register PerlInterpreter *my_perl, SV* sv, const char* pat, STRLEN patlen, va_list* args, SV** svargs, I32 svmax, char *maybe_tainted);
 NV Perl_str_to_version(register PerlInterpreter *my_perl, SV *sv);
 SV* Perl_swash_init(register PerlInterpreter *my_perl, char* pkg, char* name, SV* listsv, I32 minbits, I32 none);
 UV Perl_swash_fetch(register PerlInterpreter *my_perl, SV *sv, U8 *ptr);
 void Perl_taint_env(register PerlInterpreter *my_perl);
 void Perl_taint_proper(register PerlInterpreter *my_perl, const char* f, const char* s);
 UV Perl_to_utf8_lower(register PerlInterpreter *my_perl, U8 *p);
 UV Perl_to_utf8_upper(register PerlInterpreter *my_perl, U8 *p);
 UV Perl_to_utf8_title(register PerlInterpreter *my_perl, U8 *p);






 void Perl_unsharepvn(register PerlInterpreter *my_perl, const char* sv, I32 len, U32 hash);
 void Perl_unshare_hek(register PerlInterpreter *my_perl, HEK* hek);
 void Perl_utilize(register PerlInterpreter *my_perl, int aver, I32 floor, OP* version, OP* id, OP* arg);
 U8* Perl_utf16_to_utf8(register PerlInterpreter *my_perl, U8* p, U8 *d, I32 bytelen, I32 *newlen);
 U8* Perl_utf16_to_utf8_reversed(register PerlInterpreter *my_perl, U8* p, U8 *d, I32 bytelen, I32 *newlen);
 STRLEN Perl_utf8_length(register PerlInterpreter *my_perl, U8* s, U8 *e);
 IV Perl_utf8_distance(register PerlInterpreter *my_perl, U8 *a, U8 *b);
 U8* Perl_utf8_hop(register PerlInterpreter *my_perl, U8 *s, I32 off);
 U8* Perl_utf8_to_bytes(register PerlInterpreter *my_perl, U8 *s, STRLEN *len);
 U8* Perl_bytes_from_utf8(register PerlInterpreter *my_perl, U8 *s, STRLEN *len, char *is_utf8);
 U8* Perl_bytes_to_utf8(register PerlInterpreter *my_perl, U8 *s, STRLEN *len);
 UV Perl_utf8_to_uv_simple(register PerlInterpreter *my_perl, U8 *s, STRLEN* retlen);
 UV Perl_utf8_to_uv(register PerlInterpreter *my_perl, U8 *s, STRLEN curlen, STRLEN* retlen, U32 flags);
 U8* Perl_uv_to_utf8(register PerlInterpreter *my_perl, U8 *d, UV uv);
 void Perl_vivify_defelem(register PerlInterpreter *my_perl, SV* sv);
 void Perl_vivify_ref(register PerlInterpreter *my_perl, SV* sv, U32 to_what);
 I32 Perl_wait4pid(register PerlInterpreter *my_perl, pid_t pid, int* statusp, int flags);
 void Perl_report_evil_fh(register PerlInterpreter *my_perl, GV *gv, IO *io, I32 op);
 void Perl_report_uninit(register PerlInterpreter *my_perl);
 void Perl_warn(register PerlInterpreter *my_perl, const char* pat, ...)



;
 void Perl_vwarn(register PerlInterpreter *my_perl, const char* pat, va_list* args);
 void Perl_warner(register PerlInterpreter *my_perl, U32 err, const char* pat, ...)



;
 void Perl_vwarner(register PerlInterpreter *my_perl, U32 err, const char* pat, va_list* args);
 void Perl_watch(register PerlInterpreter *my_perl, char** addr);
 I32 Perl_whichsig(register PerlInterpreter *my_perl, char* sig);
 int Perl_yyerror(register PerlInterpreter *my_perl, char* s);



 int Perl_yylex(register PerlInterpreter *my_perl);
 int Perl_yyparse(register PerlInterpreter *my_perl);
 int Perl_yywarn(register PerlInterpreter *my_perl, char* s);

 void Perl_dump_mstats(register PerlInterpreter *my_perl, char* s);
 int Perl_get_mstats(register PerlInterpreter *my_perl, perl_mstats_t *buf, int buflen, int level);

 void * Perl_safesysmalloc(size_t nbytes);
 void * Perl_safesyscalloc(size_t elements, size_t size);
 void * Perl_safesysrealloc(void * where, size_t nbytes);
 void Perl_safesysfree(void * where);
 int Perl_runops_standard(register PerlInterpreter *my_perl);
 int Perl_runops_debug(register PerlInterpreter *my_perl);



 void Perl_sv_catpvf_mg(register PerlInterpreter *my_perl, SV *sv, const char* pat, ...)



;
 void Perl_sv_vcatpvf_mg(register PerlInterpreter *my_perl, SV* sv, const char* pat, va_list* args);
 void Perl_sv_catpv_mg(register PerlInterpreter *my_perl, SV *sv, const char *ptr);
 void Perl_sv_catpvn_mg(register PerlInterpreter *my_perl, SV *sv, const char *ptr, STRLEN len);
 void Perl_sv_catsv_mg(register PerlInterpreter *my_perl, SV *dstr, SV *sstr);
 void Perl_sv_setpvf_mg(register PerlInterpreter *my_perl, SV *sv, const char* pat, ...)



;
 void Perl_sv_vsetpvf_mg(register PerlInterpreter *my_perl, SV* sv, const char* pat, va_list* args);
 void Perl_sv_setiv_mg(register PerlInterpreter *my_perl, SV *sv, IV i);
 void Perl_sv_setpviv_mg(register PerlInterpreter *my_perl, SV *sv, IV iv);
 void Perl_sv_setuv_mg(register PerlInterpreter *my_perl, SV *sv, UV u);
 void Perl_sv_setnv_mg(register PerlInterpreter *my_perl, SV *sv, NV num);
 void Perl_sv_setpv_mg(register PerlInterpreter *my_perl, SV *sv, const char *ptr);
 void Perl_sv_setpvn_mg(register PerlInterpreter *my_perl, SV *sv, const char *ptr, STRLEN len);
 void Perl_sv_setsv_mg(register PerlInterpreter *my_perl, SV *dstr, SV *sstr);
 void Perl_sv_usepvn_mg(register PerlInterpreter *my_perl, SV *sv, char *ptr, STRLEN len);
 MGVTBL* Perl_get_vtbl(register PerlInterpreter *my_perl, int vtbl_id);
 char* Perl_pv_display(register PerlInterpreter *my_perl, SV *sv, char *pv, STRLEN cur, STRLEN len, STRLEN pvlim);
 void Perl_dump_indent(register PerlInterpreter *my_perl, I32 level, FILE *file, const char* pat, ...)



;
 void Perl_dump_vindent(register PerlInterpreter *my_perl, I32 level, FILE *file, const char* pat, va_list *args);
 void Perl_do_gv_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, char *name, GV *sv);
 void Perl_do_gvgv_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, char *name, GV *sv);
 void Perl_do_hv_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, char *name, HV *sv);
 void Perl_do_magic_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, MAGIC *mg, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim);
 void Perl_do_op_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, OP *o);
 void Perl_do_pmop_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, PMOP *pm);
 void Perl_do_sv_dump(register PerlInterpreter *my_perl, I32 level, FILE *file, SV *sv, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim);
 void Perl_magic_dump(register PerlInterpreter *my_perl, MAGIC *mg);




 void Perl_reginitcolors(register PerlInterpreter *my_perl);
 char* Perl_sv_2pv_nolen(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_2pvutf8_nolen(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_2pvbyte_nolen(register PerlInterpreter *my_perl, SV* sv);
 char* Perl_sv_pv(register PerlInterpreter *my_perl, SV *sv);
 char* Perl_sv_pvutf8(register PerlInterpreter *my_perl, SV *sv);
 char* Perl_sv_pvbyte(register PerlInterpreter *my_perl, SV *sv);
 void Perl_sv_utf8_upgrade(register PerlInterpreter *my_perl, SV *sv);
 char Perl_sv_utf8_downgrade(register PerlInterpreter *my_perl, SV *sv, char fail_ok);
 void Perl_sv_utf8_encode(register PerlInterpreter *my_perl, SV *sv);
 char Perl_sv_utf8_decode(register PerlInterpreter *my_perl, SV *sv);
 void Perl_sv_force_normal(register PerlInterpreter *my_perl, SV *sv);
 void Perl_sv_add_backref(register PerlInterpreter *my_perl, SV *tsv, SV *sv);
 void Perl_sv_del_backref(register PerlInterpreter *my_perl, SV *sv);
 void Perl_tmps_grow(register PerlInterpreter *my_perl, I32 n);
 SV* Perl_sv_rvweaken(register PerlInterpreter *my_perl, SV *sv);
 int Perl_magic_killbackrefs(register PerlInterpreter *my_perl, SV *sv, MAGIC *mg);
 OP* Perl_newANONATTRSUB(register PerlInterpreter *my_perl, I32 floor, OP *proto, OP *attrs, OP *block);
 CV* Perl_newATTRSUB(register PerlInterpreter *my_perl, I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
 void Perl_newMYSUB(register PerlInterpreter *my_perl, I32 floor, OP *o, OP *proto, OP *attrs, OP *block);
 OP * Perl_my_attrs(register PerlInterpreter *my_perl, OP *o, OP *attrs);
 void Perl_boot_core_xsutils(register PerlInterpreter *my_perl);











extern __attribute__((dllimport)) char *PL_op_name[];
extern __attribute__((dllimport)) char *PL_op_desc[];






extern __attribute__((dllimport)) OP * (*PL_ppaddr[])(register PerlInterpreter *my_perl);
extern __attribute__((dllimport)) OP * (*PL_check[]) (register PerlInterpreter *my_perl, OP *op);
extern __attribute__((dllimport)) U32 PL_opargs[];








extern __attribute__((dllimport)) PerlInterpreter * PL_curinterp;
extern __attribute__((dllimport)) const char * PL_Yes ;
extern __attribute__((dllimport)) const char * PL_No ;
extern __attribute__((dllimport)) const char * PL_hexdigit ;
extern __attribute__((dllimport)) const char * PL_patleave ;


extern __attribute__((dllimport)) char PL_do_undump ;










extern __attribute__((dllimport)) MGVTBL PL_vtbl_sv;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_env;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_envelem;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_sig;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_sigelem;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_pack;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_packelem;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_dbline;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_isa;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_isaelem;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_arylen;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_glob;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_mglob;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_nkeys;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_taint;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_substr;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_vec;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_pos;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_bm;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_fm;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_uvar;





extern __attribute__((dllimport)) MGVTBL PL_vtbl_defelem;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_regexp;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_regdata;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_regdatum;


extern __attribute__((dllimport)) MGVTBL PL_vtbl_collxfrm;


extern __attribute__((dllimport)) MGVTBL PL_vtbl_amagic;
extern __attribute__((dllimport)) MGVTBL PL_vtbl_amagicelem;

extern __attribute__((dllimport)) MGVTBL PL_vtbl_backref;



enum {
  fallback_amg, abs_amg,
  bool__amg, nomethod_amg,
  string_amg, numer_amg,
  add_amg, add_ass_amg,
  subtr_amg, subtr_ass_amg,
  mult_amg, mult_ass_amg,
  div_amg, div_ass_amg,
  modulo_amg, modulo_ass_amg,
  pow_amg, pow_ass_amg,
  lshift_amg, lshift_ass_amg,
  rshift_amg, rshift_ass_amg,
  band_amg, band_ass_amg,
  bor_amg, bor_ass_amg,
  bxor_amg, bxor_ass_amg,
  lt_amg, le_amg,
  gt_amg, ge_amg,
  eq_amg, ne_amg,
  ncmp_amg, scmp_amg,
  slt_amg, sle_amg,
  sgt_amg, sge_amg,
  seq_amg, sne_amg,
  not_amg, compl_amg,
  inc_amg, dec_amg,
  atan2_amg, cos_amg,
  sin_amg, exp_amg,
  log_amg, sqrt_amg,
  repeat_amg, repeat_ass_amg,
  concat_amg, concat_ass_amg,
  copy_amg, neg_amg,
  to_sv_amg, to_av_amg,
  to_hv_amg, to_gv_amg,
  to_cv_amg, iter_amg,
  max_amg_code

};
extern __attribute__((dllimport)) const char * PL_AMG_names[max_amg_code];




struct am_table {
  long was_ok_sub;
  long was_ok_am;
  U32 flags;
  CV* table[max_amg_code];
  long fallback;
};
struct am_table_short {
  long was_ok_sub;
  long was_ok_am;
  U32 flags;
};
typedef struct am_table AMT;
typedef struct am_table_short AMTS;
struct flock {
        short l_type;
        short l_whence;
        long l_start;
        long l_len;
        short l_pid;
        short l_xxx;
};



struct eflock {
        short l_type;
        short l_whence;
        long l_start;
        long l_len;
        short l_pid;
        short l_xxx;
        long l_rpid;
        long l_rsys;
};






extern int open (const char *, int, ...);
extern int creat (const char *, mode_t);
extern int fcntl (int, int, ...);



extern int _open (const char *, int, ...);
extern int _fcntl (int, int, ...);

extern SV *** Perl_Tstack_sp_ptr(register PerlInterpreter *my_perl);



extern OP ** Perl_Top_ptr(register PerlInterpreter *my_perl);

extern SV *** Perl_Tcurpad_ptr(register PerlInterpreter *my_perl);

extern SV *** Perl_Tstack_base_ptr(register PerlInterpreter *my_perl);
extern SV *** Perl_Tstack_max_ptr(register PerlInterpreter *my_perl);

extern I32 ** Perl_Tscopestack_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tscopestack_ix_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tscopestack_max_ptr(register PerlInterpreter *my_perl);

extern ANY ** Perl_Tsavestack_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Tsavestack_ix_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tsavestack_max_ptr(register PerlInterpreter *my_perl);

extern SV *** Perl_Ttmps_stack_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ttmps_ix_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ttmps_floor_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ttmps_max_ptr(register PerlInterpreter *my_perl);

extern I32 ** Perl_Tmarkstack_ptr(register PerlInterpreter *my_perl);
extern I32 ** Perl_Tmarkstack_ptr_ptr(register PerlInterpreter *my_perl);
extern I32 ** Perl_Tmarkstack_max_ptr(register PerlInterpreter *my_perl);

extern OP *** Perl_Tretstack_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tretstack_ix_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tretstack_max_ptr(register PerlInterpreter *my_perl);

extern SV ** Perl_TSv_ptr(register PerlInterpreter *my_perl);
extern XPV ** Perl_TXpv_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Tna_ptr(register PerlInterpreter *my_perl);



extern struct stat* Perl_Tstatbuf_ptr(register PerlInterpreter *my_perl);
extern struct stat* Perl_Tstatcache_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Tstatgv_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Tstatname_ptr(register PerlInterpreter *my_perl);


extern struct tms* Perl_Ttimesbuf_ptr(register PerlInterpreter *my_perl);



extern char* Perl_Ttainted_ptr(register PerlInterpreter *my_perl);
extern PMOP ** Perl_Tcurpm_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Tnrs_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Trs_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Tlast_in_gv_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tofs_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Tofslen_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Tdefoutgv_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tchopset_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Tformtarget_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Tbodytarget_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Ttoptarget_ptr(register PerlInterpreter *my_perl);


extern HV ** Perl_Tdefstash_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Tcurstash_ptr(register PerlInterpreter *my_perl);

extern OP ** Perl_Trestartop_ptr(register PerlInterpreter *my_perl);
extern COP * volatile* Perl_Tcurcop_ptr(register PerlInterpreter *my_perl);
extern volatile int* Perl_Tin_eval_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Tdelaymagic_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Tdirty_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Tlocalizing_ptr(register PerlInterpreter *my_perl);

extern AV ** Perl_Tcurstack_ptr(register PerlInterpreter *my_perl);
extern PERL_SI ** Perl_Tcurstackinfo_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Tmainstack_ptr(register PerlInterpreter *my_perl);

extern JMPENV ** Perl_Ttop_env_ptr(register PerlInterpreter *my_perl);
extern JMPENV* Perl_Tstart_env_ptr(register PerlInterpreter *my_perl);



extern SV ** Perl_Terrors_ptr(register PerlInterpreter *my_perl);


extern SV ** Perl_Tav_fetch_sv_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Thv_fetch_sv_ptr(register PerlInterpreter *my_perl);
extern HE* Perl_Thv_fetch_ent_mh_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Tmodcount_ptr(register PerlInterpreter *my_perl);

extern OP** Perl_Tlastgotoprobe_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tdumpindent_ptr(register PerlInterpreter *my_perl);


extern OP ** Perl_Tsortcop_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Tsortstash_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Tfirstgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Tsecondgv_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tsortcxix_ptr(register PerlInterpreter *my_perl);


extern char** Perl_Tefloatbuf_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Tefloatsize_ptr(register PerlInterpreter *my_perl);



extern I32 ** Perl_Tscreamfirst_ptr(register PerlInterpreter *my_perl);
extern I32 ** Perl_Tscreamnext_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tmaxscream_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Tlastscream_ptr(register PerlInterpreter *my_perl);

extern regnode* Perl_Tregdummy_ptr(register PerlInterpreter *my_perl);
extern char** Perl_Tregcomp_parse_ptr(register PerlInterpreter *my_perl);
extern char** Perl_Tregxend_ptr(register PerlInterpreter *my_perl);
extern regnode** Perl_Tregcode_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tregnaughty_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tregsawback_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tregprecomp_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tregnpar_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tregsize_ptr(register PerlInterpreter *my_perl);
extern U16* Perl_Tregflags_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Tregseen_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tseen_zerolen_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tseen_evals_ptr(register PerlInterpreter *my_perl);
extern regexp ** Perl_Tregcomp_rx_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Textralen_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Tcolorset_ptr(register PerlInterpreter *my_perl);
typedef char * PL_Tcolors_t[6]; extern PL_Tcolors_t* Perl_Tcolors_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Treg_whilem_seen_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Treginput_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tregbol_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tregeol_ptr(register PerlInterpreter *my_perl);
extern I32 ** Perl_Tregstartp_ptr(register PerlInterpreter *my_perl);
extern I32 ** Perl_Tregendp_ptr(register PerlInterpreter *my_perl);
extern U32 ** Perl_Treglastparen_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Tregtill_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Tregprev_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_Treg_start_tmp_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Treg_start_tmpl_ptr(register PerlInterpreter *my_perl);
extern struct reg_data ** Perl_Tregdata_ptr(register PerlInterpreter *my_perl);

extern char ** Perl_Tbostr_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Treg_flags_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Treg_eval_set_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Tregnarrate_ptr(register PerlInterpreter *my_perl);
extern regnode ** Perl_Tregprogram_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Tregindent_ptr(register PerlInterpreter *my_perl);
extern CURCUR ** Perl_Tregcc_ptr(register PerlInterpreter *my_perl);
extern struct re_cc_state ** Perl_Treg_call_cc_ptr(register PerlInterpreter *my_perl);
extern regexp ** Perl_Treg_re_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Treg_ganch_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Treg_sv_ptr(register PerlInterpreter *my_perl);
extern MAGIC ** Perl_Treg_magic_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Treg_oldpos_ptr(register PerlInterpreter *my_perl);
extern PMOP** Perl_Treg_oldcurpm_ptr(register PerlInterpreter *my_perl);
extern PMOP** Perl_Treg_curpm_ptr(register PerlInterpreter *my_perl);
extern char** Perl_Treg_oldsaved_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Treg_oldsavedlen_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Treg_maxiter_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Treg_leftiter_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Treg_poscache_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Treg_poscache_size_ptr(register PerlInterpreter *my_perl);

extern regcomp_t* Perl_Tregcompp_ptr(register PerlInterpreter *my_perl);

extern regexec_t* Perl_Tregexecp_ptr(register PerlInterpreter *my_perl);

extern re_intuit_start_t* Perl_Tregint_start_ptr(register PerlInterpreter *my_perl);

extern re_intuit_string_t* Perl_Tregint_string_ptr(register PerlInterpreter *my_perl);

extern regfree_t* Perl_Tregfree_ptr(register PerlInterpreter *my_perl);


extern int* Perl_Treginterp_cnt_ptr(register PerlInterpreter *my_perl);

extern char ** Perl_Treg_starttry_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_Twatchaddr_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Twatchok_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Iorigargc_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_Iorigargv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Ienvgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Iincgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Ihintgv_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Iorigfilename_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Idiehook_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iwarnhook_ptr(register PerlInterpreter *my_perl);


extern char* Perl_Iminus_c_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Ipatchlevel_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_Ilocalpatches_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Isplitstr_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Ipreprocess_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iminus_n_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iminus_p_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iminus_l_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iminus_a_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iminus_F_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Idoswitches_ptr(register PerlInterpreter *my_perl);
extern U8* Perl_Idowarn_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iwidesyscalls_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Idoextract_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Isawampersand_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iunsafe_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Iinplace_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Ie_script_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Iperldb_ptr(register PerlInterpreter *my_perl);



extern int* Perl_Iperl_destruct_level_ptr(register PerlInterpreter *my_perl);


extern time_t* Perl_Ibasetime_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iformfeed_ptr(register PerlInterpreter *my_perl);


extern I32* Perl_Imaxsysfd_ptr(register PerlInterpreter *my_perl);

extern int* Perl_Imultiline_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Istatusvalue_ptr(register PerlInterpreter *my_perl);
extern U8* Perl_Iexit_flags_ptr(register PerlInterpreter *my_perl);





extern GV ** Perl_Istdingv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Istderrgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Idefgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Iargvgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_Iargvoutgv_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Iargvout_stack_ptr(register PerlInterpreter *my_perl);




extern GV ** Perl_Ireplgv_ptr(register PerlInterpreter *my_perl);


extern GV ** Perl_Ierrgv_ptr(register PerlInterpreter *my_perl);


extern GV ** Perl_IDBgv_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_IDBline_ptr(register PerlInterpreter *my_perl);
extern GV ** Perl_IDBsub_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_IDBsingle_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_IDBtrace_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_IDBsignal_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Ilineary_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Idbargs_ptr(register PerlInterpreter *my_perl);


extern HV ** Perl_Idebstash_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Iglobalstash_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Icurstname_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Ibeginav_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Iendav_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Icheckav_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Iinitav_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Istrtab_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Isub_generation_ptr(register PerlInterpreter *my_perl);


extern I32* Perl_Isv_count_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Isv_objcount_ptr(register PerlInterpreter *my_perl);
extern SV** Perl_Isv_root_ptr(register PerlInterpreter *my_perl);
extern SV** Perl_Isv_arenaroot_ptr(register PerlInterpreter *my_perl);


extern int* Perl_Iforkprocess_ptr(register PerlInterpreter *my_perl);


extern AV ** Perl_Ifdpid_ptr(register PerlInterpreter *my_perl);


extern char* Perl_Itainting_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Iop_mask_ptr(register PerlInterpreter *my_perl);


extern CV ** Perl_Imain_cv_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Imain_root_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Imain_start_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Ieval_root_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Ieval_start_ptr(register PerlInterpreter *my_perl);


extern COP ** Perl_Icurcopdb_ptr(register PerlInterpreter *my_perl);
extern line_t* Perl_Icopline_ptr(register PerlInterpreter *my_perl);


extern int* Perl_Ifilemode_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Ilastfd_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ioldname_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_IArgv_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_ICmd_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Igensym_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Ipreambled_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Ipreambleav_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Ilaststatval_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilaststype_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Imess_sv_ptr(register PerlInterpreter *my_perl);


extern char ** Perl_Iors_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Iorslen_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Iofmt_ptr(register PerlInterpreter *my_perl);


extern PerlExitListEntry ** Perl_Iexitlist_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Iexitlistlen_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Imodglobal_ptr(register PerlInterpreter *my_perl);


extern U32 ** Perl_Iprofiledata_ptr(register PerlInterpreter *my_perl);
extern FILE * volatile* Perl_Irsfp_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Irsfp_filters_ptr(register PerlInterpreter *my_perl);

extern COP* Perl_Icompiling_ptr(register PerlInterpreter *my_perl);

extern CV ** Perl_Icompcv_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Icomppad_ptr(register PerlInterpreter *my_perl);
extern AV ** Perl_Icomppad_name_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Icomppad_name_fill_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Icomppad_name_floor_ptr(register PerlInterpreter *my_perl);







extern int* Perl_Igeneration_ptr(register PerlInterpreter *my_perl);
extern CV ** Perl_IDBcv_ptr(register PerlInterpreter *my_perl);

extern char* Perl_Iin_clean_objs_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Iin_clean_all_ptr(register PerlInterpreter *my_perl);

extern char ** Perl_Ilinestart_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Ipending_ident_ptr(register PerlInterpreter *my_perl);
extern SUBLEXINFO* Perl_Isublex_info_ptr(register PerlInterpreter *my_perl);







extern uid_t* Perl_Iuid_ptr(register PerlInterpreter *my_perl);
extern uid_t* Perl_Ieuid_ptr(register PerlInterpreter *my_perl);
extern gid_t* Perl_Igid_ptr(register PerlInterpreter *my_perl);
extern gid_t* Perl_Iegid_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Inomemok_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Ian_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Icop_seqmax_ptr(register PerlInterpreter *my_perl);
extern U16* Perl_Iop_seqmax_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Ievalseq_ptr(register PerlInterpreter *my_perl);
extern char *** Perl_Iorigenviron_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Iorigalen_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Ipidstatus_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Imaxo_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Iosname_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ish_path_ptr(register PerlInterpreter *my_perl);
extern Sighandler_t* Perl_Isighandlerp_ptr(register PerlInterpreter *my_perl);

extern XPV** Perl_Ixiv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern IV ** Perl_Ixiv_root_ptr(register PerlInterpreter *my_perl);
extern NV ** Perl_Ixnv_root_ptr(register PerlInterpreter *my_perl);
extern XRV ** Perl_Ixrv_root_ptr(register PerlInterpreter *my_perl);
extern XPV ** Perl_Ixpv_root_ptr(register PerlInterpreter *my_perl);
extern XPVIV ** Perl_Ixpviv_root_ptr(register PerlInterpreter *my_perl);
extern XPVNV ** Perl_Ixpvnv_root_ptr(register PerlInterpreter *my_perl);
extern XPVCV ** Perl_Ixpvcv_root_ptr(register PerlInterpreter *my_perl);
extern XPVAV ** Perl_Ixpvav_root_ptr(register PerlInterpreter *my_perl);
extern XPVHV ** Perl_Ixpvhv_root_ptr(register PerlInterpreter *my_perl);
extern XPVMG ** Perl_Ixpvmg_root_ptr(register PerlInterpreter *my_perl);
extern XPVLV ** Perl_Ixpvlv_root_ptr(register PerlInterpreter *my_perl);
extern XPVBM ** Perl_Ixpvbm_root_ptr(register PerlInterpreter *my_perl);
extern HE ** Perl_Ihe_root_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Inice_chunk_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Inice_chunk_size_ptr(register PerlInterpreter *my_perl);

extern runops_proc_t* Perl_Irunops_ptr(register PerlInterpreter *my_perl);

typedef char PL_Itokenbuf_t[256]; extern PL_Itokenbuf_t* Perl_Itokenbuf_ptr(register PerlInterpreter *my_perl);
extern SV* Perl_Isv_undef_ptr(register PerlInterpreter *my_perl);
extern SV* Perl_Isv_no_ptr(register PerlInterpreter *my_perl);
extern SV* Perl_Isv_yes_ptr(register PerlInterpreter *my_perl);






extern U32* Perl_Ilex_state_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Ilex_defer_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Ilex_expect_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_brackets_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_formbrack_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_casemods_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_dojoin_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_starts_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Ilex_stuff_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Ilex_repl_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Ilex_op_ptr(register PerlInterpreter *my_perl);
extern OP ** Perl_Ilex_inpat_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ilex_inwhat_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ilex_brackstack_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ilex_casestack_ptr(register PerlInterpreter *my_perl);


typedef YYSTYPE PL_Inextval_t[5]; extern PL_Inextval_t* Perl_Inextval_ptr(register PerlInterpreter *my_perl);
typedef I32 PL_Inexttype_t[5]; extern PL_Inexttype_t* Perl_Inexttype_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Inexttoke_ptr(register PerlInterpreter *my_perl);

extern SV ** Perl_Ilinestr_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ibufptr_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ioldbufptr_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ioldoldbufptr_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ibufend_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Iexpect_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Imulti_start_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Imulti_end_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Imulti_open_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Imulti_close_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Ierror_count_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Isubline_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Isubname_ptr(register PerlInterpreter *my_perl);

extern I32* Perl_Imin_intro_pending_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Imax_intro_pending_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ipadix_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ipadix_floor_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Ipad_reset_pending_ptr(register PerlInterpreter *my_perl);

extern char ** Perl_Ilast_uni_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ilast_lop_ptr(register PerlInterpreter *my_perl);
extern U16* Perl_Ilast_lop_op_ptr(register PerlInterpreter *my_perl);
extern I32* Perl_Iin_my_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Iin_my_stash_ptr(register PerlInterpreter *my_perl);




extern U32* Perl_Ihints_ptr(register PerlInterpreter *my_perl);

extern volatile U32* Perl_Idebug_ptr(register PerlInterpreter *my_perl);

extern long* Perl_Iamagic_generation_ptr(register PerlInterpreter *my_perl);


extern U32* Perl_Icollation_ix_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Icollation_name_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Icollation_standard_ptr(register PerlInterpreter *my_perl);

extern size_t* Perl_Icollxfrm_base_ptr(register PerlInterpreter *my_perl);
extern size_t* Perl_Icollxfrm_mult_ptr(register PerlInterpreter *my_perl);




extern char ** Perl_Inumeric_name_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Inumeric_standard_ptr(register PerlInterpreter *my_perl);

extern char* Perl_Inumeric_local_ptr(register PerlInterpreter *my_perl);

extern char* Perl_Idummy1_bincompat_ptr(register PerlInterpreter *my_perl);





extern SV ** Perl_Iutf8_alnum_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_alnumc_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_ascii_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_alpha_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_space_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_cntrl_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_graph_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_digit_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_upper_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_lower_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_print_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_punct_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_xdigit_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_mark_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_toupper_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_totitle_ptr(register PerlInterpreter *my_perl);
extern SV ** Perl_Iutf8_tolower_ptr(register PerlInterpreter *my_perl);
extern HV ** Perl_Ilast_swash_hv_ptr(register PerlInterpreter *my_perl);
extern U32* Perl_Ilast_swash_klen_ptr(register PerlInterpreter *my_perl);
typedef U8 PL_Ilast_swash_key_t[10]; extern PL_Ilast_swash_key_t* Perl_Ilast_swash_key_ptr(register PerlInterpreter *my_perl);
extern U8 ** Perl_Ilast_swash_tmps_ptr(register PerlInterpreter *my_perl);
extern STRLEN* Perl_Ilast_swash_slen_ptr(register PerlInterpreter *my_perl);


extern int* Perl_Iyydebug_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Iyynerrs_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Iyyerrflag_ptr(register PerlInterpreter *my_perl);
extern int* Perl_Iyychar_ptr(register PerlInterpreter *my_perl);
extern YYSTYPE* Perl_Iyyval_ptr(register PerlInterpreter *my_perl);
extern YYSTYPE* Perl_Iyylval_ptr(register PerlInterpreter *my_perl);

extern int* Perl_Iglob_index_ptr(register PerlInterpreter *my_perl);
extern char* Perl_Isrand_called_ptr(register PerlInterpreter *my_perl);
typedef char PL_Iuudmap_t[256]; extern PL_Iuudmap_t* Perl_Iuudmap_ptr(register PerlInterpreter *my_perl);
extern char ** Perl_Ibitcount_ptr(register PerlInterpreter *my_perl);
extern SV*** Perl_Ipsig_ptr_ptr(register PerlInterpreter *my_perl);
extern SV*** Perl_Ipsig_name_ptr(register PerlInterpreter *my_perl);
extern AV** Perl_Ibeginav_save_ptr(register PerlInterpreter *my_perl);






extern HV ** Perl_Inullstash_ptr(register PerlInterpreter *my_perl);

extern XPV** Perl_Ixnv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPV** Perl_Ixrv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPV** Perl_Ixpv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVIV** Perl_Ixpviv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVNV** Perl_Ixpvnv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVCV** Perl_Ixpvcv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVAV** Perl_Ixpvav_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVHV** Perl_Ixpvhv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVMG** Perl_Ixpvmg_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVLV** Perl_Ixpvlv_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPVBM** Perl_Ixpvbm_arenaroot_ptr(register PerlInterpreter *my_perl);
extern XPV** Perl_Ihe_arenaroot_ptr(register PerlInterpreter *my_perl);



extern SV ** Perl_Inumeric_radix_sv_ptr(register PerlInterpreter *my_perl);
extern PerlInterpreter ** Perl_Gcurinterp_ptr(register PerlInterpreter *my_perl);
extern const char ** Perl_GYes_ptr(register PerlInterpreter *my_perl);
extern const char ** Perl_GNo_ptr(register PerlInterpreter *my_perl);
extern const char ** Perl_Ghexdigit_ptr(register PerlInterpreter *my_perl);
extern const char ** Perl_Gpatleave_ptr(register PerlInterpreter *my_perl);


extern char* Perl_Gdo_undump_ptr(register PerlInterpreter *my_perl);











typedef unsigned int Oid;
typedef enum
{





        CONNECTION_OK,
        CONNECTION_BAD,






        CONNECTION_STARTED,
        CONNECTION_MADE,
        CONNECTION_AWAITING_RESPONSE,

        CONNECTION_AUTH_OK,

        CONNECTION_SETENV
} ConnStatusType;

typedef enum
{
        PGRES_POLLING_FAILED = 0,
        PGRES_POLLING_READING,
        PGRES_POLLING_WRITING,
        PGRES_POLLING_OK,
        PGRES_POLLING_ACTIVE
} PostgresPollingStatusType;

typedef enum
{
        PGRES_EMPTY_QUERY = 0,
        PGRES_COMMAND_OK,


        PGRES_TUPLES_OK,


        PGRES_COPY_OUT,
        PGRES_COPY_IN,
        PGRES_BAD_RESPONSE,

        PGRES_NONFATAL_ERROR,
        PGRES_FATAL_ERROR
} ExecStatusType;




typedef struct pg_conn PGconn;






typedef struct pg_result PGresult;







typedef struct pgNotify
{
        char relname[32];

        int be_pid;
} PGnotify;



typedef void (*PQnoticeProcessor) (void *arg, const char *message);


typedef char pqbool;

typedef struct _PQprintOpt
{
        pqbool header;

        pqbool align;
        pqbool standard;
        pqbool html3;
        pqbool expanded;
        pqbool pager;
        char *fieldSep;
        char *tableOpt;
        char *caption;
        char **fieldName;

} PQprintOpt;
typedef struct _PQconninfoOption
{
        char *keyword;
        char *envvar;
        char *compiled;
        char *val;
        char *label;
        char *dispchar;




        int dispsize;
} PQconninfoOption;





typedef struct
{
        int len;
        int isint;
        union
        {
                int *ptr;
                int integer;
        } u;
} PQArgBlock;
extern PGconn *PQconnectStart(const char *conninfo);
extern PostgresPollingStatusType PQconnectPoll(PGconn *conn);


extern PGconn *PQconnectdb(const char *conninfo);
extern PGconn *PQsetdbLogin(const char *pghost, const char *pgport,
                         const char *pgoptions, const char *pgtty,
                         const char *dbName,
                         const char *login, const char *pwd);





extern void PQfinish(PGconn *conn);


extern PQconninfoOption *PQconndefaults(void);


extern void PQconninfoFree(PQconninfoOption *connOptions);






extern int PQresetStart(PGconn *conn);
extern PostgresPollingStatusType PQresetPoll(PGconn *conn);


extern void PQreset(PGconn *conn);


extern int PQrequestCancel(PGconn *conn);


extern char *PQdb(const PGconn *conn);
extern char *PQuser(const PGconn *conn);
extern char *PQpass(const PGconn *conn);
extern char *PQhost(const PGconn *conn);
extern char *PQport(const PGconn *conn);
extern char *PQtty(const PGconn *conn);
extern char *PQoptions(const PGconn *conn);
extern ConnStatusType PQstatus(const PGconn *conn);
extern char *PQerrorMessage(const PGconn *conn);
extern int PQsocket(const PGconn *conn);
extern int PQbackendPID(const PGconn *conn);
extern int PQclientEncoding(const PGconn *conn);
extern int PQsetClientEncoding(PGconn *conn, const char *encoding);
extern void PQtrace(PGconn *conn, FILE *debug_port);
extern void PQuntrace(PGconn *conn);


extern PQnoticeProcessor PQsetNoticeProcessor(PGconn *conn,
                                         PQnoticeProcessor proc,
                                         void *arg);




extern size_t PQescapeString(char *to, const char *from, size_t length);
extern unsigned char *PQescapeBytea(unsigned char *bintext, size_t binlen,
                          size_t *bytealen);


extern PGresult *PQexec(PGconn *conn, const char *query);
extern PGnotify *PQnotifies(PGconn *conn);
extern void PQfreeNotify(PGnotify *notify);


extern int PQsendQuery(PGconn *conn, const char *query);
extern PGresult *PQgetResult(PGconn *conn);


extern int PQisBusy(PGconn *conn);
extern int PQconsumeInput(PGconn *conn);


extern int PQgetline(PGconn *conn, char *string, int length);
extern int PQputline(PGconn *conn, const char *string);
extern int PQgetlineAsync(PGconn *conn, char *buffer, int bufsize);
extern int PQputnbytes(PGconn *conn, const char *buffer, int nbytes);
extern int PQendcopy(PGconn *conn);


extern int PQsetnonblocking(PGconn *conn, int arg);
extern int PQisnonblocking(const PGconn *conn);


extern int PQflush(PGconn *conn);





extern PGresult *PQfn(PGconn *conn,
         int fnid,
         int *result_buf,
         int *result_len,
         int result_is_int,
         const PQArgBlock *args,
         int nargs);


extern ExecStatusType PQresultStatus(const PGresult *res);
extern char *PQresStatus(ExecStatusType status);
extern char *PQresultErrorMessage(const PGresult *res);
extern int PQntuples(const PGresult *res);
extern int PQnfields(const PGresult *res);
extern int PQbinaryTuples(const PGresult *res);
extern char *PQfname(const PGresult *res, int field_num);
extern int PQfnumber(const PGresult *res, const char *field_name);
extern Oid PQftype(const PGresult *res, int field_num);
extern int PQfsize(const PGresult *res, int field_num);
extern int PQfmod(const PGresult *res, int field_num);
extern char *PQcmdStatus(PGresult *res);
extern char *PQoidStatus(const PGresult *res);
extern Oid PQoidValue(const PGresult *res);
extern char *PQcmdTuples(PGresult *res);
extern char *PQgetvalue(const PGresult *res, int tup_num, int field_num);
extern int PQgetlength(const PGresult *res, int tup_num, int field_num);
extern int PQgetisnull(const PGresult *res, int tup_num, int field_num);


extern void PQclear(PGresult *res);






extern PGresult *PQmakeEmptyPGresult(PGconn *conn, ExecStatusType status);



extern void
PQprint(FILE *fout,
                const PGresult *res,
                const PQprintOpt *ps);




extern void
PQdisplayTuples(const PGresult *res,
                                FILE *fp,
                                int fillAlign,
                                const char *fieldSep,
                                int printHeader,
                                int quiet);

extern void
PQprintTuples(const PGresult *res,
                          FILE *fout,
                          int printAttName,
                          int terseOutput,
                          int width);

extern int lo_open(PGconn *conn, Oid lobjId, int mode);
extern int lo_close(PGconn *conn, int fd);
extern int lo_read(PGconn *conn, int fd, char *buf, size_t len);
extern int lo_write(PGconn *conn, int fd, char *buf, size_t len);
extern int lo_lseek(PGconn *conn, int fd, int offset, int whence);
extern Oid lo_creat(PGconn *conn, int mode);
extern int lo_tell(PGconn *conn, int fd);
extern int lo_unlink(PGconn *conn, Oid lobjId);
extern Oid lo_import(PGconn *conn, const char *filename);
extern int lo_export(PGconn *conn, Oid lobjId, const char *filename);



__attribute__((dllexport)) void XS_Pg_constant(register PerlInterpreter *my_perl, CV* cv)
{

    register SV **sp = (*Perl_Tstack_sp_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))))); register SV **mark = (*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))))) + (*(*Perl_Tmarkstack_ptr_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))--); I32 ax = mark - (*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))))) + 1; I32 items = sp - mark;
    if (items != 2)
        Perl_croak(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))), "Usage: Pg::constant(name, arg)");
    {
        char * name = (char *)((((*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (0)])->sv_flags & (0x00040000)) == 0x00040000 ? (((*Perl_Tna_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))))) = ((XPV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (0)])->sv_any)->xpv_cur), ((XPV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (0)])->sv_any)->xpv_pv) : Perl_sv_2pv(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))), (*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (0)],&(*Perl_Tna_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))));
        int arg = (int)((((*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (1)])->sv_flags & 0x00010000) ? ((XPVIV*) ((*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (1)])->sv_any)->xiv_iv : Perl_sv_2iv(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))), (*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[ax + (1)]));
        double RETVAL;
        SV * targ = (((*Perl_Top_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))->op_private & 32) ? (*Perl_Tcurpad_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))[(*Perl_Top_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))))->op_targ] : Perl_sv_newmortal(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0)))))));

        RETVAL = constant(name, arg);
        (sp = (*Perl_Tstack_base_ptr(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))))) + ax - 1); (void)( { Perl_sv_setnv(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))), targ,(NV)((double)RETVAL)); (void)( { (void)( { if (((targ)->sv_flags & 0x00004000)) Perl_mg_set(((PerlInterpreter *)((*Perl_Gcurinterp_ptr(((void *)0))))), targ); } ); (*++sp = (targ)); } ); } );
    }

        
    (void)
    (
    { 
      (
       
       *Perl_Tstack_sp_ptr(
			   (
			    (
			     PerlInterpreter *
			     )
			    (
			       (
				*Perl_Gcurinterp_ptr(
						     (
						      (
						       void *)
						      0)
						     )
				)
			       )
			      )
			     )
	 )
	  = (
	     *Perl_Tstack_base_ptr(
				   (
				    (
				     PerlInterpreter *)
				    (
				     (
				      *Perl_Gcurinterp_ptr(
							   (
							    (
							     void *)
							    0)
							   )
				      )
				     )
				    )
				   )
	     )
	  + ax + (
		  (1)
		  - 1)
	  ; return; } )
      ;


     
}
Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]