// /usr/lib/gcc/arm-linux-gnueabi/4.6.1/cc1 -fpreprocessed mg.i -quiet -dumpbase mg.c -marm -march=armv7-a -mfloat-abi=softfp -mfpu=vfpv3-d16 -auxbase mg -g -O2 -Wall -Wextra -Wdeclaration-after-statement -Wendif-labels -Wc++-compat -version -fno-strict-aliasing -fstack-protector -fstack-protector -o - -frandom-seed=0 # 1 "mg.c" # 1 "/root/perl-5.12.4//" # 1 "" # 1 "" # 1 "mg.c" # 40 "mg.c" # 1 "EXTERN.h" 1 # 41 "mg.c" 2 # 1 "perl.h" 1 # 38 "perl.h" # 1 "config.h" 1 # 39 "perl.h" 2 # 583 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/types.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/types.h" 3 4 # 1 "/usr/include/features.h" 1 3 4 # 323 "/usr/include/features.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/predefs.h" 1 3 4 # 324 "/usr/include/features.h" 2 3 4 # 356 "/usr/include/features.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/cdefs.h" 1 3 4 # 353 "/usr/include/arm-linux-gnueabi/sys/cdefs.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 354 "/usr/include/arm-linux-gnueabi/sys/cdefs.h" 2 3 4 # 357 "/usr/include/features.h" 2 3 4 # 388 "/usr/include/features.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/gnu/stubs.h" 1 3 4 # 389 "/usr/include/features.h" 2 3 4 # 27 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/types.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/bits/types.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 29 "/usr/include/arm-linux-gnueabi/bits/types.h" 2 3 4 typedef unsigned char __u_char; typedef unsigned short int __u_short; typedef unsigned int __u_int; typedef unsigned long int __u_long; typedef signed char __int8_t; typedef unsigned char __uint8_t; typedef signed short int __int16_t; typedef unsigned short int __uint16_t; typedef signed int __int32_t; typedef unsigned int __uint32_t; __extension__ typedef signed long long int __int64_t; __extension__ typedef unsigned long long int __uint64_t; __extension__ typedef long long int __quad_t; __extension__ typedef unsigned long long int __u_quad_t; # 131 "/usr/include/arm-linux-gnueabi/bits/types.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/typesizes.h" 1 3 4 # 132 "/usr/include/arm-linux-gnueabi/bits/types.h" 2 3 4 __extension__ typedef __u_quad_t __dev_t; __extension__ typedef unsigned int __uid_t; __extension__ typedef unsigned int __gid_t; __extension__ typedef unsigned long int __ino_t; __extension__ typedef __u_quad_t __ino64_t; __extension__ typedef unsigned int __mode_t; __extension__ typedef unsigned int __nlink_t; __extension__ typedef long int __off_t; __extension__ typedef __quad_t __off64_t; __extension__ typedef int __pid_t; __extension__ typedef struct { int __val[2]; } __fsid_t; __extension__ typedef long int __clock_t; __extension__ typedef unsigned long int __rlim_t; __extension__ typedef __u_quad_t __rlim64_t; __extension__ typedef unsigned int __id_t; __extension__ typedef long int __time_t; __extension__ typedef unsigned int __useconds_t; __extension__ typedef long int __suseconds_t; __extension__ typedef int __daddr_t; __extension__ typedef long int __swblk_t; __extension__ typedef int __key_t; __extension__ typedef int __clockid_t; __extension__ typedef void * __timer_t; __extension__ typedef long int __blksize_t; __extension__ typedef long int __blkcnt_t; __extension__ typedef __quad_t __blkcnt64_t; __extension__ typedef unsigned long int __fsblkcnt_t; __extension__ typedef __u_quad_t __fsblkcnt64_t; __extension__ typedef unsigned long int __fsfilcnt_t; __extension__ typedef __u_quad_t __fsfilcnt64_t; __extension__ typedef int __ssize_t; typedef __off64_t __loff_t; typedef __quad_t *__qaddr_t; typedef char *__caddr_t; __extension__ typedef int __intptr_t; __extension__ typedef unsigned int __socklen_t; # 31 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 typedef __u_char u_char; typedef __u_short u_short; typedef __u_int u_int; typedef __u_long u_long; typedef __quad_t quad_t; typedef __u_quad_t u_quad_t; typedef __fsid_t fsid_t; typedef __loff_t loff_t; typedef __ino64_t ino_t; typedef __ino64_t ino64_t; typedef __dev_t dev_t; typedef __gid_t gid_t; typedef __mode_t mode_t; typedef __nlink_t nlink_t; typedef __uid_t uid_t; typedef __off64_t off_t; typedef __off64_t off64_t; typedef __pid_t pid_t; typedef __id_t id_t; typedef __ssize_t ssize_t; typedef __daddr_t daddr_t; typedef __caddr_t caddr_t; typedef __key_t key_t; # 133 "/usr/include/arm-linux-gnueabi/sys/types.h" 3 4 # 1 "/usr/include/time.h" 1 3 4 # 58 "/usr/include/time.h" 3 4 typedef __clock_t clock_t; # 74 "/usr/include/time.h" 3 4 typedef __time_t time_t; # 92 "/usr/include/time.h" 3 4 typedef __clockid_t clockid_t; # 104 "/usr/include/time.h" 3 4 typedef __timer_t timer_t; # 134 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 typedef __useconds_t useconds_t; typedef __suseconds_t suseconds_t; # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 212 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 3 4 typedef unsigned int size_t; # 148 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 typedef unsigned long int ulong; typedef unsigned short int ushort; typedef unsigned int uint; # 195 "/usr/include/arm-linux-gnueabi/sys/types.h" 3 4 typedef int int8_t __attribute__ ((__mode__ (__QI__))); typedef int int16_t __attribute__ ((__mode__ (__HI__))); typedef int int32_t __attribute__ ((__mode__ (__SI__))); typedef int int64_t __attribute__ ((__mode__ (__DI__))); typedef unsigned int u_int8_t __attribute__ ((__mode__ (__QI__))); typedef unsigned int u_int16_t __attribute__ ((__mode__ (__HI__))); typedef unsigned int u_int32_t __attribute__ ((__mode__ (__SI__))); typedef unsigned int u_int64_t __attribute__ ((__mode__ (__DI__))); typedef int register_t __attribute__ ((__mode__ (__word__))); # 217 "/usr/include/arm-linux-gnueabi/sys/types.h" 3 4 # 1 "/usr/include/endian.h" 1 3 4 # 37 "/usr/include/endian.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/endian.h" 1 3 4 # 38 "/usr/include/endian.h" 2 3 4 # 61 "/usr/include/endian.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/byteswap.h" 1 3 4 # 62 "/usr/include/endian.h" 2 3 4 # 218 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/select.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/select.h" 1 3 4 # 32 "/usr/include/arm-linux-gnueabi/sys/select.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 3 4 typedef int __sig_atomic_t; typedef struct { unsigned long int __val[(1024 / (8 * sizeof (unsigned long int)))]; } __sigset_t; # 35 "/usr/include/arm-linux-gnueabi/sys/select.h" 2 3 4 typedef __sigset_t sigset_t; # 1 "/usr/include/time.h" 1 3 4 # 120 "/usr/include/time.h" 3 4 struct timespec { __time_t tv_sec; long int tv_nsec; }; # 45 "/usr/include/arm-linux-gnueabi/sys/select.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/time.h" 1 3 4 # 75 "/usr/include/arm-linux-gnueabi/bits/time.h" 3 4 struct timeval { __time_t tv_sec; __suseconds_t tv_usec; }; # 47 "/usr/include/arm-linux-gnueabi/sys/select.h" 2 3 4 # 55 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 typedef long int __fd_mask; # 67 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 typedef struct { __fd_mask fds_bits[1024 / (8 * (int) sizeof (__fd_mask))]; } fd_set; typedef __fd_mask fd_mask; # 99 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 # 109 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 extern int select (int __nfds, fd_set *__restrict __readfds, fd_set *__restrict __writefds, fd_set *__restrict __exceptfds, struct timeval *__restrict __timeout); # 121 "/usr/include/arm-linux-gnueabi/sys/select.h" 3 4 extern int pselect (int __nfds, fd_set *__restrict __readfds, fd_set *__restrict __writefds, fd_set *__restrict __exceptfds, const struct timespec *__restrict __timeout, const __sigset_t *__restrict __sigmask); # 221 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/sysmacros.h" 1 3 4 # 30 "/usr/include/arm-linux-gnueabi/sys/sysmacros.h" 3 4 __extension__ extern unsigned int gnu_dev_major (unsigned long long int __dev) __attribute__ ((__nothrow__)); __extension__ extern unsigned int gnu_dev_minor (unsigned long long int __dev) __attribute__ ((__nothrow__)); __extension__ extern unsigned long long int gnu_dev_makedev (unsigned int __major, unsigned int __minor) __attribute__ ((__nothrow__)); __extension__ extern __inline unsigned int __attribute__ ((__nothrow__)) gnu_dev_major (unsigned long long int __dev) { return ((__dev >> 8) & 0xfff) | ((unsigned int) (__dev >> 32) & ~0xfff); } __extension__ extern __inline unsigned int __attribute__ ((__nothrow__)) gnu_dev_minor (unsigned long long int __dev) { return (__dev & 0xff) | ((unsigned int) (__dev >> 12) & ~0xff); } __extension__ extern __inline unsigned long long int __attribute__ ((__nothrow__)) gnu_dev_makedev (unsigned int __major, unsigned int __minor) { return ((__minor & 0xff) | ((__major & 0xfff) << 8) | (((unsigned long long int) (__minor & ~0xff)) << 12) | (((unsigned long long int) (__major & ~0xfff)) << 32)); } # 224 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 typedef __blksize_t blksize_t; # 249 "/usr/include/arm-linux-gnueabi/sys/types.h" 3 4 typedef __blkcnt64_t blkcnt_t; typedef __fsblkcnt64_t fsblkcnt_t; typedef __fsfilcnt64_t fsfilcnt_t; typedef __blkcnt64_t blkcnt64_t; typedef __fsblkcnt64_t fsblkcnt64_t; typedef __fsfilcnt64_t fsfilcnt64_t; # 1 "/usr/include/arm-linux-gnueabi/bits/pthreadtypes.h" 1 3 4 # 38 "/usr/include/arm-linux-gnueabi/bits/pthreadtypes.h" 3 4 typedef unsigned long int pthread_t; typedef union { char __size[36]; long int __align; } pthread_attr_t; typedef struct __pthread_internal_slist { struct __pthread_internal_slist *__next; } __pthread_slist_t; typedef union { struct __pthread_mutex_s { int __lock; unsigned int __count; int __owner; int __kind; unsigned int __nusers; __extension__ union { int __spins; __pthread_slist_t __list; }; } __data; char __size[24]; long int __align; } pthread_mutex_t; typedef union { char __size[4]; long int __align; } pthread_mutexattr_t; typedef union { struct { int __lock; unsigned int __futex; __extension__ unsigned long long int __total_seq; __extension__ unsigned long long int __wakeup_seq; __extension__ unsigned long long int __woken_seq; void *__mutex; unsigned int __nwaiters; unsigned int __broadcast_seq; } __data; char __size[48]; __extension__ long long int __align; } pthread_cond_t; typedef union { char __size[4]; long int __align; } pthread_condattr_t; typedef unsigned int pthread_key_t; typedef int pthread_once_t; typedef union { struct { int __lock; unsigned int __nr_readers; unsigned int __readers_wakeup; unsigned int __writer_wakeup; unsigned int __nr_readers_queued; unsigned int __nr_writers_queued; # 141 "/usr/include/arm-linux-gnueabi/bits/pthreadtypes.h" 3 4 unsigned char __flags; unsigned char __shared; unsigned char __pad1; unsigned char __pad2; int __writer; } __data; char __size[32]; long int __align; } pthread_rwlock_t; typedef union { char __size[8]; long int __align; } pthread_rwlockattr_t; typedef volatile int pthread_spinlock_t; typedef union { char __size[20]; long int __align; } pthread_barrier_t; typedef union { char __size[4]; int __align; } pthread_barrierattr_t; # 272 "/usr/include/arm-linux-gnueabi/sys/types.h" 2 3 4 # 584 "perl.h" 2 # 594 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stdarg.h" 1 3 4 # 40 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stdarg.h" 3 4 typedef __builtin_va_list __gnuc_va_list; # 102 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stdarg.h" 3 4 typedef __gnuc_va_list va_list; # 595 "perl.h" 2 # 614 "perl.h" # 1 "/usr/include/ctype.h" 1 3 4 # 30 "/usr/include/ctype.h" 3 4 # 48 "/usr/include/ctype.h" 3 4 enum { _ISupper = ((0) < 8 ? ((1 << (0)) << 8) : ((1 << (0)) >> 8)), _ISlower = ((1) < 8 ? ((1 << (1)) << 8) : ((1 << (1)) >> 8)), _ISalpha = ((2) < 8 ? ((1 << (2)) << 8) : ((1 << (2)) >> 8)), _ISdigit = ((3) < 8 ? ((1 << (3)) << 8) : ((1 << (3)) >> 8)), _ISxdigit = ((4) < 8 ? ((1 << (4)) << 8) : ((1 << (4)) >> 8)), _ISspace = ((5) < 8 ? ((1 << (5)) << 8) : ((1 << (5)) >> 8)), _ISprint = ((6) < 8 ? ((1 << (6)) << 8) : ((1 << (6)) >> 8)), _ISgraph = ((7) < 8 ? ((1 << (7)) << 8) : ((1 << (7)) >> 8)), _ISblank = ((8) < 8 ? ((1 << (8)) << 8) : ((1 << (8)) >> 8)), _IScntrl = ((9) < 8 ? ((1 << (9)) << 8) : ((1 << (9)) >> 8)), _ISpunct = ((10) < 8 ? ((1 << (10)) << 8) : ((1 << (10)) >> 8)), _ISalnum = ((11) < 8 ? ((1 << (11)) << 8) : ((1 << (11)) >> 8)) }; # 81 "/usr/include/ctype.h" 3 4 extern __const unsigned short int **__ctype_b_loc (void) __attribute__ ((__nothrow__)) __attribute__ ((__const)); extern __const __int32_t **__ctype_tolower_loc (void) __attribute__ ((__nothrow__)) __attribute__ ((__const)); extern __const __int32_t **__ctype_toupper_loc (void) __attribute__ ((__nothrow__)) __attribute__ ((__const)); # 96 "/usr/include/ctype.h" 3 4 extern int isalnum (int) __attribute__ ((__nothrow__)); extern int isalpha (int) __attribute__ ((__nothrow__)); extern int iscntrl (int) __attribute__ ((__nothrow__)); extern int isdigit (int) __attribute__ ((__nothrow__)); extern int islower (int) __attribute__ ((__nothrow__)); extern int isgraph (int) __attribute__ ((__nothrow__)); extern int isprint (int) __attribute__ ((__nothrow__)); extern int ispunct (int) __attribute__ ((__nothrow__)); extern int isspace (int) __attribute__ ((__nothrow__)); extern int isupper (int) __attribute__ ((__nothrow__)); extern int isxdigit (int) __attribute__ ((__nothrow__)); extern int tolower (int __c) __attribute__ ((__nothrow__)); extern int toupper (int __c) __attribute__ ((__nothrow__)); # 128 "/usr/include/ctype.h" 3 4 extern int isblank (int) __attribute__ ((__nothrow__)); extern int isctype (int __c, int __mask) __attribute__ ((__nothrow__)); extern int isascii (int __c) __attribute__ ((__nothrow__)); extern int toascii (int __c) __attribute__ ((__nothrow__)); extern int _toupper (int) __attribute__ ((__nothrow__)); extern int _tolower (int) __attribute__ ((__nothrow__)); # 190 "/usr/include/ctype.h" 3 4 extern __inline int __attribute__ ((__nothrow__)) tolower (int __c) { return __c >= -128 && __c < 256 ? (*__ctype_tolower_loc ())[__c] : __c; } extern __inline int __attribute__ ((__nothrow__)) toupper (int __c) { return __c >= -128 && __c < 256 ? (*__ctype_toupper_loc ())[__c] : __c; } # 233 "/usr/include/ctype.h" 3 4 # 1 "/usr/include/xlocale.h" 1 3 4 # 28 "/usr/include/xlocale.h" 3 4 typedef struct __locale_struct { struct __locale_data *__locales[13]; const unsigned short int *__ctype_b; const int *__ctype_tolower; const int *__ctype_toupper; const char *__names[13]; } *__locale_t; typedef __locale_t locale_t; # 234 "/usr/include/ctype.h" 2 3 4 # 247 "/usr/include/ctype.h" 3 4 extern int isalnum_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isalpha_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int iscntrl_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isdigit_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int islower_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isgraph_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isprint_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int ispunct_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isspace_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isupper_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isxdigit_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int isblank_l (int, __locale_t) __attribute__ ((__nothrow__)); extern int __tolower_l (int __c, __locale_t __l) __attribute__ ((__nothrow__)); extern int tolower_l (int __c, __locale_t __l) __attribute__ ((__nothrow__)); extern int __toupper_l (int __c, __locale_t __l) __attribute__ ((__nothrow__)); extern int toupper_l (int __c, __locale_t __l) __attribute__ ((__nothrow__)); # 323 "/usr/include/ctype.h" 3 4 # 615 "perl.h" 2 # 626 "perl.h" # 1 "/usr/include/locale.h" 1 3 4 # 29 "/usr/include/locale.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 30 "/usr/include/locale.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/locale.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/bits/locale.h" 3 4 enum { __LC_CTYPE = 0, __LC_NUMERIC = 1, __LC_TIME = 2, __LC_COLLATE = 3, __LC_MONETARY = 4, __LC_MESSAGES = 5, __LC_ALL = 6, __LC_PAPER = 7, __LC_NAME = 8, __LC_ADDRESS = 9, __LC_TELEPHONE = 10, __LC_MEASUREMENT = 11, __LC_IDENTIFICATION = 12 }; # 31 "/usr/include/locale.h" 2 3 4 # 51 "/usr/include/locale.h" 3 4 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 int_p_cs_precedes; char int_p_sep_by_space; char int_n_cs_precedes; char int_n_sep_by_space; char int_p_sign_posn; char int_n_sign_posn; # 121 "/usr/include/locale.h" 3 4 }; extern char *setlocale (int __category, __const char *__locale) __attribute__ ((__nothrow__)); extern struct lconv *localeconv (void) __attribute__ ((__nothrow__)); # 152 "/usr/include/locale.h" 3 4 extern __locale_t newlocale (int __category_mask, __const char *__locale, __locale_t __base) __attribute__ ((__nothrow__)); # 187 "/usr/include/locale.h" 3 4 extern __locale_t duplocale (__locale_t __dataset) __attribute__ ((__nothrow__)); extern void freelocale (__locale_t __dataset) __attribute__ ((__nothrow__)); extern __locale_t uselocale (__locale_t __dataset) __attribute__ ((__nothrow__)); # 627 "perl.h" 2 # 643 "perl.h" # 1 "/usr/include/setjmp.h" 1 3 4 # 28 "/usr/include/setjmp.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/setjmp.h" 1 3 4 # 35 "/usr/include/arm-linux-gnueabi/bits/setjmp.h" 3 4 typedef int __jmp_buf[64] __attribute__((__aligned__ (8))); # 31 "/usr/include/setjmp.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 1 3 4 # 32 "/usr/include/setjmp.h" 2 3 4 struct __jmp_buf_tag { __jmp_buf __jmpbuf; int __mask_was_saved; __sigset_t __saved_mask; }; typedef struct __jmp_buf_tag jmp_buf[1]; extern int setjmp (jmp_buf __env) __attribute__ ((__nothrow__)); extern int __sigsetjmp (struct __jmp_buf_tag __env[1], int __savemask) __attribute__ ((__nothrow__)); extern int _setjmp (struct __jmp_buf_tag __env[1]) __attribute__ ((__nothrow__)); # 78 "/usr/include/setjmp.h" 3 4 extern void longjmp (struct __jmp_buf_tag __env[1], int __val) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern void _longjmp (struct __jmp_buf_tag __env[1], int __val) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); typedef struct __jmp_buf_tag sigjmp_buf[1]; # 110 "/usr/include/setjmp.h" 3 4 extern void siglongjmp (sigjmp_buf __env, int __val) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); # 1 "/usr/include/arm-linux-gnueabi/bits/setjmp2.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/setjmp2.h" 3 4 extern void longjmp (struct __jmp_buf_tag __env[1], int __val) __asm__ ("" "__longjmp_chk") __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern void _longjmp (struct __jmp_buf_tag __env[1], int __val) __asm__ ("" "__longjmp_chk") __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern void siglongjmp (struct __jmp_buf_tag __env[1], int __val) __asm__ ("" "__longjmp_chk") __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); # 118 "/usr/include/setjmp.h" 2 3 4 # 644 "perl.h" 2 # 1 "/usr/include/arm-linux-gnueabi/sys/param.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/sys/param.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 34 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/syslimits.h" 1 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 169 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 3 4 # 1 "/usr/include/limits.h" 1 3 4 # 145 "/usr/include/limits.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/posix1_lim.h" 1 3 4 # 157 "/usr/include/arm-linux-gnueabi/bits/posix1_lim.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/local_lim.h" 1 3 4 # 39 "/usr/include/arm-linux-gnueabi/bits/local_lim.h" 3 4 # 1 "/usr/include/linux/limits.h" 1 3 4 # 40 "/usr/include/arm-linux-gnueabi/bits/local_lim.h" 2 3 4 # 158 "/usr/include/arm-linux-gnueabi/bits/posix1_lim.h" 2 3 4 # 146 "/usr/include/limits.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/posix2_lim.h" 1 3 4 # 150 "/usr/include/limits.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/xopen_lim.h" 1 3 4 # 34 "/usr/include/arm-linux-gnueabi/bits/xopen_lim.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stdio_lim.h" 1 3 4 # 35 "/usr/include/arm-linux-gnueabi/bits/xopen_lim.h" 2 3 4 # 154 "/usr/include/limits.h" 2 3 4 # 170 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 2 3 4 # 8 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/syslimits.h" 2 3 4 # 35 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 2 3 4 # 28 "/usr/include/arm-linux-gnueabi/sys/param.h" 2 3 4 # 1 "/usr/include/linux/param.h" 1 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/param.h" 1 3 4 # 5 "/usr/include/linux/param.h" 2 3 4 # 30 "/usr/include/arm-linux-gnueabi/sys/param.h" 2 3 4 # 650 "perl.h" 2 # 1 "/usr/include/stdlib.h" 1 3 4 # 33 "/usr/include/stdlib.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 324 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 3 4 typedef unsigned int wchar_t; # 34 "/usr/include/stdlib.h" 2 3 4 # 42 "/usr/include/stdlib.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/waitflags.h" 1 3 4 # 43 "/usr/include/stdlib.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/waitstatus.h" 1 3 4 # 67 "/usr/include/arm-linux-gnueabi/bits/waitstatus.h" 3 4 union wait { int w_status; struct { unsigned int __w_termsig:7; unsigned int __w_coredump:1; unsigned int __w_retcode:8; unsigned int:16; } __wait_terminated; struct { unsigned int __w_stopval:8; unsigned int __w_stopsig:8; unsigned int:16; } __wait_stopped; }; # 44 "/usr/include/stdlib.h" 2 3 4 # 68 "/usr/include/stdlib.h" 3 4 typedef union { union wait *__uptr; int *__iptr; } __WAIT_STATUS __attribute__ ((__transparent_union__)); # 96 "/usr/include/stdlib.h" 3 4 typedef struct { int quot; int rem; } div_t; typedef struct { long int quot; long int rem; } ldiv_t; __extension__ typedef struct { long long int quot; long long int rem; } lldiv_t; # 140 "/usr/include/stdlib.h" 3 4 extern size_t __ctype_get_mb_cur_max (void) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern double atof (__const char *__nptr) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int atoi (__const char *__nptr) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern long int atol (__const char *__nptr) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); __extension__ extern long long int atoll (__const char *__nptr) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern double strtod (__const char *__restrict __nptr, char **__restrict __endptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern float strtof (__const char *__restrict __nptr, char **__restrict __endptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern long double strtold (__const char *__restrict __nptr, char **__restrict __endptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern long int strtol (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern unsigned long int strtoul (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); __extension__ extern long long int strtoq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); __extension__ extern unsigned long long int strtouq (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); __extension__ extern long long int strtoll (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); __extension__ extern unsigned long long int strtoull (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 240 "/usr/include/stdlib.h" 3 4 extern long int strtol_l (__const char *__restrict __nptr, char **__restrict __endptr, int __base, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 4))) __attribute__ ((__warn_unused_result__)); extern unsigned long int strtoul_l (__const char *__restrict __nptr, char **__restrict __endptr, int __base, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 4))) __attribute__ ((__warn_unused_result__)); __extension__ extern long long int strtoll_l (__const char *__restrict __nptr, char **__restrict __endptr, int __base, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 4))) __attribute__ ((__warn_unused_result__)); __extension__ extern unsigned long long int strtoull_l (__const char *__restrict __nptr, char **__restrict __endptr, int __base, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 4))) __attribute__ ((__warn_unused_result__)); extern double strtod_l (__const char *__restrict __nptr, char **__restrict __endptr, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))) __attribute__ ((__warn_unused_result__)); extern float strtof_l (__const char *__restrict __nptr, char **__restrict __endptr, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))) __attribute__ ((__warn_unused_result__)); extern long double strtold_l (__const char *__restrict __nptr, char **__restrict __endptr, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))) __attribute__ ((__warn_unused_result__)); extern __inline double __attribute__ ((__nothrow__)) atof (__const char *__nptr) { return strtod (__nptr, (char **) ((void *)0)); } extern __inline int __attribute__ ((__nothrow__)) atoi (__const char *__nptr) { return (int) strtol (__nptr, (char **) ((void *)0), 10); } extern __inline long int __attribute__ ((__nothrow__)) atol (__const char *__nptr) { return strtol (__nptr, (char **) ((void *)0), 10); } __extension__ extern __inline long long int __attribute__ ((__nothrow__)) atoll (__const char *__nptr) { return strtoll (__nptr, (char **) ((void *)0), 10); } # 311 "/usr/include/stdlib.h" 3 4 extern char *l64a (long int __n) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern long int a64l (__const char *__s) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 327 "/usr/include/stdlib.h" 3 4 extern long int random (void) __attribute__ ((__nothrow__)); extern void srandom (unsigned int __seed) __attribute__ ((__nothrow__)); extern char *initstate (unsigned int __seed, char *__statebuf, size_t __statelen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern char *setstate (char *__statebuf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); struct random_data { int32_t *fptr; int32_t *rptr; int32_t *state; int rand_type; int rand_deg; int rand_sep; int32_t *end_ptr; }; extern int random_r (struct random_data *__restrict __buf, int32_t *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int srandom_r (unsigned int __seed, struct random_data *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int initstate_r (unsigned int __seed, char *__restrict __statebuf, size_t __statelen, struct random_data *__restrict __buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))); extern int setstate_r (char *__restrict __statebuf, struct random_data *__restrict __buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int rand (void) __attribute__ ((__nothrow__)); extern void srand (unsigned int __seed) __attribute__ ((__nothrow__)); extern int rand_r (unsigned int *__seed) __attribute__ ((__nothrow__)); extern double drand48 (void) __attribute__ ((__nothrow__)); extern double erand48 (unsigned short int __xsubi[3]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern long int lrand48 (void) __attribute__ ((__nothrow__)); extern long int nrand48 (unsigned short int __xsubi[3]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern long int mrand48 (void) __attribute__ ((__nothrow__)); extern long int jrand48 (unsigned short int __xsubi[3]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void srand48 (long int __seedval) __attribute__ ((__nothrow__)); extern unsigned short int *seed48 (unsigned short int __seed16v[3]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void lcong48 (unsigned short int __param[7]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); struct drand48_data { unsigned short int __x[3]; unsigned short int __old_x[3]; unsigned short int __c; unsigned short int __init; unsigned long long int __a; }; extern int drand48_r (struct drand48_data *__restrict __buffer, double *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int erand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, double *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int lrand48_r (struct drand48_data *__restrict __buffer, long int *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int nrand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, long int *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int mrand48_r (struct drand48_data *__restrict __buffer, long int *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int jrand48_r (unsigned short int __xsubi[3], struct drand48_data *__restrict __buffer, long int *__restrict __result) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int srand48_r (long int __seedval, struct drand48_data *__buffer) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int seed48_r (unsigned short int __seed16v[3], struct drand48_data *__buffer) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int lcong48_r (unsigned short int __param[7], struct drand48_data *__buffer) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); # 471 "/usr/include/stdlib.h" 3 4 extern void *malloc (size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__)); extern void *calloc (size_t __nmemb, size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__)); # 485 "/usr/include/stdlib.h" 3 4 extern void *realloc (void *__ptr, size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void free (void *__ptr) __attribute__ ((__nothrow__)); extern void cfree (void *__ptr) __attribute__ ((__nothrow__)); # 1 "/usr/include/alloca.h" 1 3 4 # 25 "/usr/include/alloca.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 26 "/usr/include/alloca.h" 2 3 4 extern void *alloca (size_t __size) __attribute__ ((__nothrow__)); # 498 "/usr/include/stdlib.h" 2 3 4 extern void *valloc (size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__)); extern int posix_memalign (void **__memptr, size_t __alignment, size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern void abort (void) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern int atexit (void (*__func) (void)) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 528 "/usr/include/stdlib.h" 3 4 extern int at_quick_exit (void (*__func) (void)) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int on_exit (void (*__func) (int __status, void *__arg), void *__arg) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void exit (int __status) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern void quick_exit (int __status) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern void _Exit (int __status) __attribute__ ((__nothrow__)) __attribute__ ((__noreturn__)); extern char *getenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern char *__secure_getenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int putenv (char *__string) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int setenv (__const char *__name, __const char *__value, int __replace) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int unsetenv (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int clearenv (void) __attribute__ ((__nothrow__)); # 606 "/usr/include/stdlib.h" 3 4 extern char *mktemp (char *__template) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 623 "/usr/include/stdlib.h" 3 4 extern int mkstemp (char *__template) __asm__ ("" "mkstemp64") __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int mkstemp64 (char *__template) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 645 "/usr/include/stdlib.h" 3 4 extern int mkstemps (char *__template, int __suffixlen) __asm__ ("" "mkstemps64") __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int mkstemps64 (char *__template, int __suffixlen) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 663 "/usr/include/stdlib.h" 3 4 extern char *mkdtemp (char *__template) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 677 "/usr/include/stdlib.h" 3 4 extern int mkostemp (char *__template, int __flags) __asm__ ("" "mkostemp64") __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int mkostemp64 (char *__template, int __flags) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 698 "/usr/include/stdlib.h" 3 4 extern int mkostemps (char *__template, int __suffixlen, int __flags) __asm__ ("" "mkostemps64") __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int mkostemps64 (char *__template, int __suffixlen, int __flags) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 717 "/usr/include/stdlib.h" 3 4 extern int system (__const char *__command) __attribute__ ((__warn_unused_result__)); extern char *canonicalize_file_name (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 734 "/usr/include/stdlib.h" 3 4 extern char *realpath (__const char *__restrict __name, char *__restrict __resolved) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); typedef int (*__compar_fn_t) (__const void *, __const void *); typedef __compar_fn_t comparison_fn_t; typedef int (*__compar_d_fn_t) (__const void *, __const void *, void *); extern void *bsearch (__const void *__key, __const void *__base, size_t __nmemb, size_t __size, __compar_fn_t __compar) __attribute__ ((__nonnull__ (1, 2, 5))) __attribute__ ((__warn_unused_result__)); extern void qsort (void *__base, size_t __nmemb, size_t __size, __compar_fn_t __compar) __attribute__ ((__nonnull__ (1, 4))); extern void qsort_r (void *__base, size_t __nmemb, size_t __size, __compar_d_fn_t __compar, void *__arg) __attribute__ ((__nonnull__ (1, 4))); extern int abs (int __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); extern long int labs (long int __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); __extension__ extern long long int llabs (long long int __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); extern div_t div (int __numer, int __denom) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); extern ldiv_t ldiv (long int __numer, long int __denom) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); __extension__ extern lldiv_t lldiv (long long int __numer, long long int __denom) __attribute__ ((__nothrow__)) __attribute__ ((__const__)) __attribute__ ((__warn_unused_result__)); # 808 "/usr/include/stdlib.h" 3 4 extern char *ecvt (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__)); extern char *fcvt (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__)); extern char *gcvt (double __value, int __ndigit, char *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))) __attribute__ ((__warn_unused_result__)); extern char *qecvt (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__)); extern char *qfcvt (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))) __attribute__ ((__warn_unused_result__)); extern char *qgcvt (long double __value, int __ndigit, char *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))) __attribute__ ((__warn_unused_result__)); extern int ecvt_r (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5))); extern int fcvt_r (double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5))); extern int qecvt_r (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5))); extern int qfcvt_r (long double __value, int __ndigit, int *__restrict __decpt, int *__restrict __sign, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4, 5))); extern int mblen (__const char *__s, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int mbtowc (wchar_t *__restrict __pwc, __const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int wctomb (char *__s, wchar_t __wchar) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern size_t mbstowcs (wchar_t *__restrict __pwcs, __const char *__restrict __s, size_t __n) __attribute__ ((__nothrow__)); extern size_t wcstombs (char *__restrict __s, __const wchar_t *__restrict __pwcs, size_t __n) __attribute__ ((__nothrow__)); # 885 "/usr/include/stdlib.h" 3 4 extern int rpmatch (__const char *__response) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 896 "/usr/include/stdlib.h" 3 4 extern int getsubopt (char **__restrict __optionp, char *__const *__restrict __tokens, char **__restrict __valuep) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2, 3))) __attribute__ ((__warn_unused_result__)); extern void setkey (__const char *__key) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int posix_openpt (int __oflag) __attribute__ ((__warn_unused_result__)); extern int grantpt (int __fd) __attribute__ ((__nothrow__)); extern int unlockpt (int __fd) __attribute__ ((__nothrow__)); extern char *ptsname (int __fd) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int ptsname_r (int __fd, char *__buf, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int getpt (void); extern int getloadavg (double __loadavg[], int __nelem) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 1 "/usr/include/arm-linux-gnueabi/bits/stdlib.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/stdlib.h" 3 4 extern char *__realpath_chk (__const char *__restrict __name, char *__restrict __resolved, size_t __resolvedlen) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *__realpath_alias (__const char *__restrict __name, char *__restrict __resolved) __asm__ ("" "realpath") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *__realpath_chk_warn (__const char *__restrict __name, char *__restrict __resolved, size_t __resolvedlen) __asm__ ("" "__realpath_chk") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("second argument of realpath must be either NULL or at " "least PATH_MAX bytes long buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char * __attribute__ ((__nothrow__)) realpath (__const char *__restrict __name, char *__restrict __resolved) { if (__builtin_object_size (__resolved, 2 > 1) != (size_t) -1) { if (__builtin_object_size (__resolved, 2 > 1) < 4096) return __realpath_chk_warn (__name, __resolved, __builtin_object_size (__resolved, 2 > 1)); return __realpath_chk (__name, __resolved, __builtin_object_size (__resolved, 2 > 1)); } return __realpath_alias (__name, __resolved); } extern int __ptsname_r_chk (int __fd, char *__buf, size_t __buflen, size_t __nreal) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int __ptsname_r_alias (int __fd, char *__buf, size_t __buflen) __asm__ ("" "ptsname_r") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int __ptsname_r_chk_warn (int __fd, char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__ptsname_r_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__((__warning__ ("ptsname_r called with buflen bigger than " "size of buf"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) ptsname_r (int __fd, char *__buf, size_t __buflen) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__buflen)) return __ptsname_r_chk (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1)); if (__buflen > __builtin_object_size (__buf, 2 > 1)) return __ptsname_r_chk_warn (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1)); } return __ptsname_r_alias (__fd, __buf, __buflen); } extern int __wctomb_chk (char *__s, wchar_t __wchar, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int __wctomb_alias (char *__s, wchar_t __wchar) __asm__ ("" "wctomb") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) int __attribute__ ((__nothrow__)) wctomb (char *__s, wchar_t __wchar) { if (__builtin_object_size (__s, 2 > 1) != (size_t) -1 && 16 > __builtin_object_size (__s, 2 > 1)) return __wctomb_chk (__s, __wchar, __builtin_object_size (__s, 2 > 1)); return __wctomb_alias (__s, __wchar); } extern size_t __mbstowcs_chk (wchar_t *__restrict __dst, __const char *__restrict __src, size_t __len, size_t __dstlen) __attribute__ ((__nothrow__)); extern size_t __mbstowcs_alias (wchar_t *__restrict __dst, __const char *__restrict __src, size_t __len) __asm__ ("" "mbstowcs") __attribute__ ((__nothrow__)) ; extern size_t __mbstowcs_chk_warn (wchar_t *__restrict __dst, __const char *__restrict __src, size_t __len, size_t __dstlen) __asm__ ("" "__mbstowcs_chk") __attribute__ ((__nothrow__)) __attribute__((__warning__ ("mbstowcs called with dst buffer smaller than len " "* sizeof (wchar_t)"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) size_t __attribute__ ((__nothrow__)) mbstowcs (wchar_t *__restrict __dst, __const char *__restrict __src, size_t __len) { if (__builtin_object_size (__dst, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__len)) return __mbstowcs_chk (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t)); if (__len > __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t)) return __mbstowcs_chk_warn (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1) / sizeof (wchar_t)); } return __mbstowcs_alias (__dst, __src, __len); } extern size_t __wcstombs_chk (char *__restrict __dst, __const wchar_t *__restrict __src, size_t __len, size_t __dstlen) __attribute__ ((__nothrow__)); extern size_t __wcstombs_alias (char *__restrict __dst, __const wchar_t *__restrict __src, size_t __len) __asm__ ("" "wcstombs") __attribute__ ((__nothrow__)) ; extern size_t __wcstombs_chk_warn (char *__restrict __dst, __const wchar_t *__restrict __src, size_t __len, size_t __dstlen) __asm__ ("" "__wcstombs_chk") __attribute__ ((__nothrow__)) __attribute__((__warning__ ("wcstombs called with dst buffer smaller than len"))); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) size_t __attribute__ ((__nothrow__)) wcstombs (char *__restrict __dst, __const wchar_t *__restrict __src, size_t __len) { if (__builtin_object_size (__dst, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__len)) return __wcstombs_chk (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1)); if (__len > __builtin_object_size (__dst, 2 > 1)) return __wcstombs_chk_warn (__dst, __src, __len, __builtin_object_size (__dst, 2 > 1)); } return __wcstombs_alias (__dst, __src, __len); } # 956 "/usr/include/stdlib.h" 2 3 4 # 964 "/usr/include/stdlib.h" 3 4 # 655 "perl.h" 2 # 1 "/usr/include/unistd.h" 1 3 4 # 28 "/usr/include/unistd.h" 3 4 # 203 "/usr/include/unistd.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/posix_opt.h" 1 3 4 # 204 "/usr/include/unistd.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/environments.h" 1 3 4 # 23 "/usr/include/arm-linux-gnueabi/bits/environments.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/environments.h" 2 3 4 # 208 "/usr/include/unistd.h" 2 3 4 # 227 "/usr/include/unistd.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 228 "/usr/include/unistd.h" 2 3 4 # 268 "/usr/include/unistd.h" 3 4 typedef __intptr_t intptr_t; typedef __socklen_t socklen_t; # 288 "/usr/include/unistd.h" 3 4 extern int access (__const char *__name, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int euidaccess (__const char *__name, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int eaccess (__const char *__name, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int faccessat (int __fd, __const char *__file, int __type, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__)); # 334 "/usr/include/unistd.h" 3 4 extern __off64_t lseek (int __fd, __off64_t __offset, int __whence) __asm__ ("" "lseek64") __attribute__ ((__nothrow__)) ; extern __off64_t lseek64 (int __fd, __off64_t __offset, int __whence) __attribute__ ((__nothrow__)); extern int close (int __fd); extern ssize_t read (int __fd, void *__buf, size_t __nbytes) __attribute__ ((__warn_unused_result__)); extern ssize_t write (int __fd, __const void *__buf, size_t __n) __attribute__ ((__warn_unused_result__)); # 385 "/usr/include/unistd.h" 3 4 extern ssize_t pread (int __fd, void *__buf, size_t __nbytes, __off64_t __offset) __asm__ ("" "pread64") __attribute__ ((__warn_unused_result__)); extern ssize_t pwrite (int __fd, __const void *__buf, size_t __nbytes, __off64_t __offset) __asm__ ("" "pwrite64") __attribute__ ((__warn_unused_result__)); # 401 "/usr/include/unistd.h" 3 4 extern ssize_t pread64 (int __fd, void *__buf, size_t __nbytes, __off64_t __offset) __attribute__ ((__warn_unused_result__)); extern ssize_t pwrite64 (int __fd, __const void *__buf, size_t __n, __off64_t __offset) __attribute__ ((__warn_unused_result__)); extern int pipe (int __pipedes[2]) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int pipe2 (int __pipedes[2], int __flags) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 429 "/usr/include/unistd.h" 3 4 extern unsigned int alarm (unsigned int __seconds) __attribute__ ((__nothrow__)); # 441 "/usr/include/unistd.h" 3 4 extern unsigned int sleep (unsigned int __seconds); extern __useconds_t ualarm (__useconds_t __value, __useconds_t __interval) __attribute__ ((__nothrow__)); extern int usleep (__useconds_t __useconds); # 466 "/usr/include/unistd.h" 3 4 extern int pause (void); extern int chown (__const char *__file, __uid_t __owner, __gid_t __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int fchown (int __fd, __uid_t __owner, __gid_t __group) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int lchown (__const char *__file, __uid_t __owner, __gid_t __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int fchownat (int __fd, __const char *__file, __uid_t __owner, __gid_t __group, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__)); extern int chdir (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int fchdir (int __fd) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 508 "/usr/include/unistd.h" 3 4 extern char *getcwd (char *__buf, size_t __size) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *get_current_dir_name (void) __attribute__ ((__nothrow__)); extern char *getwd (char *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__deprecated__)) __attribute__ ((__warn_unused_result__)); extern int dup (int __fd) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int dup2 (int __fd, int __fd2) __attribute__ ((__nothrow__)); extern int dup3 (int __fd, int __fd2, int __flags) __attribute__ ((__nothrow__)); extern char **__environ; extern char **environ; extern int execve (__const char *__path, char *__const __argv[], char *__const __envp[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int fexecve (int __fd, char *__const __argv[], char *__const __envp[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int execv (__const char *__path, char *__const __argv[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int execle (__const char *__path, __const char *__arg, ...) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int execl (__const char *__path, __const char *__arg, ...) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int execvp (__const char *__file, char *__const __argv[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int execlp (__const char *__file, __const char *__arg, ...) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int execvpe (__const char *__file, char *__const __argv[], char *__const __envp[]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int nice (int __inc) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void _exit (int __status) __attribute__ ((__noreturn__)); # 1 "/usr/include/arm-linux-gnueabi/bits/confname.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/confname.h" 3 4 enum { _PC_LINK_MAX, _PC_MAX_CANON, _PC_MAX_INPUT, _PC_NAME_MAX, _PC_PATH_MAX, _PC_PIPE_BUF, _PC_CHOWN_RESTRICTED, _PC_NO_TRUNC, _PC_VDISABLE, _PC_SYNC_IO, _PC_ASYNC_IO, _PC_PRIO_IO, _PC_SOCK_MAXBUF, _PC_FILESIZEBITS, _PC_REC_INCR_XFER_SIZE, _PC_REC_MAX_XFER_SIZE, _PC_REC_MIN_XFER_SIZE, _PC_REC_XFER_ALIGN, _PC_ALLOC_SIZE_MIN, _PC_SYMLINK_MAX, _PC_2_SYMLINKS }; enum { _SC_ARG_MAX, _SC_CHILD_MAX, _SC_CLK_TCK, _SC_NGROUPS_MAX, _SC_OPEN_MAX, _SC_STREAM_MAX, _SC_TZNAME_MAX, _SC_JOB_CONTROL, _SC_SAVED_IDS, _SC_REALTIME_SIGNALS, _SC_PRIORITY_SCHEDULING, _SC_TIMERS, _SC_ASYNCHRONOUS_IO, _SC_PRIORITIZED_IO, _SC_SYNCHRONIZED_IO, _SC_FSYNC, _SC_MAPPED_FILES, _SC_MEMLOCK, _SC_MEMLOCK_RANGE, _SC_MEMORY_PROTECTION, _SC_MESSAGE_PASSING, _SC_SEMAPHORES, _SC_SHARED_MEMORY_OBJECTS, _SC_AIO_LISTIO_MAX, _SC_AIO_MAX, _SC_AIO_PRIO_DELTA_MAX, _SC_DELAYTIMER_MAX, _SC_MQ_OPEN_MAX, _SC_MQ_PRIO_MAX, _SC_VERSION, _SC_PAGESIZE, _SC_RTSIG_MAX, _SC_SEM_NSEMS_MAX, _SC_SEM_VALUE_MAX, _SC_SIGQUEUE_MAX, _SC_TIMER_MAX, _SC_BC_BASE_MAX, _SC_BC_DIM_MAX, _SC_BC_SCALE_MAX, _SC_BC_STRING_MAX, _SC_COLL_WEIGHTS_MAX, _SC_EQUIV_CLASS_MAX, _SC_EXPR_NEST_MAX, _SC_LINE_MAX, _SC_RE_DUP_MAX, _SC_CHARCLASS_NAME_MAX, _SC_2_VERSION, _SC_2_C_BIND, _SC_2_C_DEV, _SC_2_FORT_DEV, _SC_2_FORT_RUN, _SC_2_SW_DEV, _SC_2_LOCALEDEF, _SC_PII, _SC_PII_XTI, _SC_PII_SOCKET, _SC_PII_INTERNET, _SC_PII_OSI, _SC_POLL, _SC_SELECT, _SC_UIO_MAXIOV, _SC_IOV_MAX = _SC_UIO_MAXIOV, _SC_PII_INTERNET_STREAM, _SC_PII_INTERNET_DGRAM, _SC_PII_OSI_COTS, _SC_PII_OSI_CLTS, _SC_PII_OSI_M, _SC_T_IOV_MAX, _SC_THREADS, _SC_THREAD_SAFE_FUNCTIONS, _SC_GETGR_R_SIZE_MAX, _SC_GETPW_R_SIZE_MAX, _SC_LOGIN_NAME_MAX, _SC_TTY_NAME_MAX, _SC_THREAD_DESTRUCTOR_ITERATIONS, _SC_THREAD_KEYS_MAX, _SC_THREAD_STACK_MIN, _SC_THREAD_THREADS_MAX, _SC_THREAD_ATTR_STACKADDR, _SC_THREAD_ATTR_STACKSIZE, _SC_THREAD_PRIORITY_SCHEDULING, _SC_THREAD_PRIO_INHERIT, _SC_THREAD_PRIO_PROTECT, _SC_THREAD_PROCESS_SHARED, _SC_NPROCESSORS_CONF, _SC_NPROCESSORS_ONLN, _SC_PHYS_PAGES, _SC_AVPHYS_PAGES, _SC_ATEXIT_MAX, _SC_PASS_MAX, _SC_XOPEN_VERSION, _SC_XOPEN_XCU_VERSION, _SC_XOPEN_UNIX, _SC_XOPEN_CRYPT, _SC_XOPEN_ENH_I18N, _SC_XOPEN_SHM, _SC_2_CHAR_TERM, _SC_2_C_VERSION, _SC_2_UPE, _SC_XOPEN_XPG2, _SC_XOPEN_XPG3, _SC_XOPEN_XPG4, _SC_CHAR_BIT, _SC_CHAR_MAX, _SC_CHAR_MIN, _SC_INT_MAX, _SC_INT_MIN, _SC_LONG_BIT, _SC_WORD_BIT, _SC_MB_LEN_MAX, _SC_NZERO, _SC_SSIZE_MAX, _SC_SCHAR_MAX, _SC_SCHAR_MIN, _SC_SHRT_MAX, _SC_SHRT_MIN, _SC_UCHAR_MAX, _SC_UINT_MAX, _SC_ULONG_MAX, _SC_USHRT_MAX, _SC_NL_ARGMAX, _SC_NL_LANGMAX, _SC_NL_MSGMAX, _SC_NL_NMAX, _SC_NL_SETMAX, _SC_NL_TEXTMAX, _SC_XBS5_ILP32_OFF32, _SC_XBS5_ILP32_OFFBIG, _SC_XBS5_LP64_OFF64, _SC_XBS5_LPBIG_OFFBIG, _SC_XOPEN_LEGACY, _SC_XOPEN_REALTIME, _SC_XOPEN_REALTIME_THREADS, _SC_ADVISORY_INFO, _SC_BARRIERS, _SC_BASE, _SC_C_LANG_SUPPORT, _SC_C_LANG_SUPPORT_R, _SC_CLOCK_SELECTION, _SC_CPUTIME, _SC_THREAD_CPUTIME, _SC_DEVICE_IO, _SC_DEVICE_SPECIFIC, _SC_DEVICE_SPECIFIC_R, _SC_FD_MGMT, _SC_FIFO, _SC_PIPE, _SC_FILE_ATTRIBUTES, _SC_FILE_LOCKING, _SC_FILE_SYSTEM, _SC_MONOTONIC_CLOCK, _SC_MULTI_PROCESS, _SC_SINGLE_PROCESS, _SC_NETWORKING, _SC_READER_WRITER_LOCKS, _SC_SPIN_LOCKS, _SC_REGEXP, _SC_REGEX_VERSION, _SC_SHELL, _SC_SIGNALS, _SC_SPAWN, _SC_SPORADIC_SERVER, _SC_THREAD_SPORADIC_SERVER, _SC_SYSTEM_DATABASE, _SC_SYSTEM_DATABASE_R, _SC_TIMEOUTS, _SC_TYPED_MEMORY_OBJECTS, _SC_USER_GROUPS, _SC_USER_GROUPS_R, _SC_2_PBS, _SC_2_PBS_ACCOUNTING, _SC_2_PBS_LOCATE, _SC_2_PBS_MESSAGE, _SC_2_PBS_TRACK, _SC_SYMLOOP_MAX, _SC_STREAMS, _SC_2_PBS_CHECKPOINT, _SC_V6_ILP32_OFF32, _SC_V6_ILP32_OFFBIG, _SC_V6_LP64_OFF64, _SC_V6_LPBIG_OFFBIG, _SC_HOST_NAME_MAX, _SC_TRACE, _SC_TRACE_EVENT_FILTER, _SC_TRACE_INHERIT, _SC_TRACE_LOG, _SC_LEVEL1_ICACHE_SIZE, _SC_LEVEL1_ICACHE_ASSOC, _SC_LEVEL1_ICACHE_LINESIZE, _SC_LEVEL1_DCACHE_SIZE, _SC_LEVEL1_DCACHE_ASSOC, _SC_LEVEL1_DCACHE_LINESIZE, _SC_LEVEL2_CACHE_SIZE, _SC_LEVEL2_CACHE_ASSOC, _SC_LEVEL2_CACHE_LINESIZE, _SC_LEVEL3_CACHE_SIZE, _SC_LEVEL3_CACHE_ASSOC, _SC_LEVEL3_CACHE_LINESIZE, _SC_LEVEL4_CACHE_SIZE, _SC_LEVEL4_CACHE_ASSOC, _SC_LEVEL4_CACHE_LINESIZE, _SC_IPV6 = _SC_LEVEL1_ICACHE_SIZE + 50, _SC_RAW_SOCKETS, _SC_V7_ILP32_OFF32, _SC_V7_ILP32_OFFBIG, _SC_V7_LP64_OFF64, _SC_V7_LPBIG_OFFBIG, _SC_SS_REPL_MAX, _SC_TRACE_EVENT_NAME_MAX, _SC_TRACE_NAME_MAX, _SC_TRACE_SYS_MAX, _SC_TRACE_USER_EVENT_MAX, _SC_XOPEN_STREAMS, _SC_THREAD_ROBUST_PRIO_INHERIT, _SC_THREAD_ROBUST_PRIO_PROTECT }; enum { _CS_PATH, _CS_V6_WIDTH_RESTRICTED_ENVS, _CS_GNU_LIBC_VERSION, _CS_GNU_LIBPTHREAD_VERSION, _CS_V5_WIDTH_RESTRICTED_ENVS, _CS_V7_WIDTH_RESTRICTED_ENVS, _CS_LFS_CFLAGS = 1000, _CS_LFS_LDFLAGS, _CS_LFS_LIBS, _CS_LFS_LINTFLAGS, _CS_LFS64_CFLAGS, _CS_LFS64_LDFLAGS, _CS_LFS64_LIBS, _CS_LFS64_LINTFLAGS, _CS_XBS5_ILP32_OFF32_CFLAGS = 1100, _CS_XBS5_ILP32_OFF32_LDFLAGS, _CS_XBS5_ILP32_OFF32_LIBS, _CS_XBS5_ILP32_OFF32_LINTFLAGS, _CS_XBS5_ILP32_OFFBIG_CFLAGS, _CS_XBS5_ILP32_OFFBIG_LDFLAGS, _CS_XBS5_ILP32_OFFBIG_LIBS, _CS_XBS5_ILP32_OFFBIG_LINTFLAGS, _CS_XBS5_LP64_OFF64_CFLAGS, _CS_XBS5_LP64_OFF64_LDFLAGS, _CS_XBS5_LP64_OFF64_LIBS, _CS_XBS5_LP64_OFF64_LINTFLAGS, _CS_XBS5_LPBIG_OFFBIG_CFLAGS, _CS_XBS5_LPBIG_OFFBIG_LDFLAGS, _CS_XBS5_LPBIG_OFFBIG_LIBS, _CS_XBS5_LPBIG_OFFBIG_LINTFLAGS, _CS_POSIX_V6_ILP32_OFF32_CFLAGS, _CS_POSIX_V6_ILP32_OFF32_LDFLAGS, _CS_POSIX_V6_ILP32_OFF32_LIBS, _CS_POSIX_V6_ILP32_OFF32_LINTFLAGS, _CS_POSIX_V6_ILP32_OFFBIG_CFLAGS, _CS_POSIX_V6_ILP32_OFFBIG_LDFLAGS, _CS_POSIX_V6_ILP32_OFFBIG_LIBS, _CS_POSIX_V6_ILP32_OFFBIG_LINTFLAGS, _CS_POSIX_V6_LP64_OFF64_CFLAGS, _CS_POSIX_V6_LP64_OFF64_LDFLAGS, _CS_POSIX_V6_LP64_OFF64_LIBS, _CS_POSIX_V6_LP64_OFF64_LINTFLAGS, _CS_POSIX_V6_LPBIG_OFFBIG_CFLAGS, _CS_POSIX_V6_LPBIG_OFFBIG_LDFLAGS, _CS_POSIX_V6_LPBIG_OFFBIG_LIBS, _CS_POSIX_V6_LPBIG_OFFBIG_LINTFLAGS, _CS_POSIX_V7_ILP32_OFF32_CFLAGS, _CS_POSIX_V7_ILP32_OFF32_LDFLAGS, _CS_POSIX_V7_ILP32_OFF32_LIBS, _CS_POSIX_V7_ILP32_OFF32_LINTFLAGS, _CS_POSIX_V7_ILP32_OFFBIG_CFLAGS, _CS_POSIX_V7_ILP32_OFFBIG_LDFLAGS, _CS_POSIX_V7_ILP32_OFFBIG_LIBS, _CS_POSIX_V7_ILP32_OFFBIG_LINTFLAGS, _CS_POSIX_V7_LP64_OFF64_CFLAGS, _CS_POSIX_V7_LP64_OFF64_LDFLAGS, _CS_POSIX_V7_LP64_OFF64_LIBS, _CS_POSIX_V7_LP64_OFF64_LINTFLAGS, _CS_POSIX_V7_LPBIG_OFFBIG_CFLAGS, _CS_POSIX_V7_LPBIG_OFFBIG_LDFLAGS, _CS_POSIX_V7_LPBIG_OFFBIG_LIBS, _CS_POSIX_V7_LPBIG_OFFBIG_LINTFLAGS, _CS_V6_ENV, _CS_V7_ENV }; # 607 "/usr/include/unistd.h" 2 3 4 extern long int pathconf (__const char *__path, int __name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern long int fpathconf (int __fd, int __name) __attribute__ ((__nothrow__)); extern long int sysconf (int __name) __attribute__ ((__nothrow__)); extern size_t confstr (int __name, char *__buf, size_t __len) __attribute__ ((__nothrow__)); extern __pid_t getpid (void) __attribute__ ((__nothrow__)); extern __pid_t getppid (void) __attribute__ ((__nothrow__)); extern __pid_t getpgrp (void) __attribute__ ((__nothrow__)); # 643 "/usr/include/unistd.h" 3 4 extern __pid_t __getpgid (__pid_t __pid) __attribute__ ((__nothrow__)); extern __pid_t getpgid (__pid_t __pid) __attribute__ ((__nothrow__)); extern int setpgid (__pid_t __pid, __pid_t __pgid) __attribute__ ((__nothrow__)); # 669 "/usr/include/unistd.h" 3 4 extern int setpgrp (void) __attribute__ ((__nothrow__)); # 686 "/usr/include/unistd.h" 3 4 extern __pid_t setsid (void) __attribute__ ((__nothrow__)); extern __pid_t getsid (__pid_t __pid) __attribute__ ((__nothrow__)); extern __uid_t getuid (void) __attribute__ ((__nothrow__)); extern __uid_t geteuid (void) __attribute__ ((__nothrow__)); extern __gid_t getgid (void) __attribute__ ((__nothrow__)); extern __gid_t getegid (void) __attribute__ ((__nothrow__)); extern int getgroups (int __size, __gid_t __list[]) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int group_member (__gid_t __gid) __attribute__ ((__nothrow__)); extern int setuid (__uid_t __uid) __attribute__ ((__nothrow__)); extern int setreuid (__uid_t __ruid, __uid_t __euid) __attribute__ ((__nothrow__)); extern int seteuid (__uid_t __uid) __attribute__ ((__nothrow__)); extern int setgid (__gid_t __gid) __attribute__ ((__nothrow__)); extern int setregid (__gid_t __rgid, __gid_t __egid) __attribute__ ((__nothrow__)); extern int setegid (__gid_t __gid) __attribute__ ((__nothrow__)); extern int getresuid (__uid_t *__ruid, __uid_t *__euid, __uid_t *__suid) __attribute__ ((__nothrow__)); extern int getresgid (__gid_t *__rgid, __gid_t *__egid, __gid_t *__sgid) __attribute__ ((__nothrow__)); extern int setresuid (__uid_t __ruid, __uid_t __euid, __uid_t __suid) __attribute__ ((__nothrow__)); extern int setresgid (__gid_t __rgid, __gid_t __egid, __gid_t __sgid) __attribute__ ((__nothrow__)); extern __pid_t fork (void) __attribute__ ((__nothrow__)); extern __pid_t vfork (void) __attribute__ ((__nothrow__)); extern char *ttyname (int __fd) __attribute__ ((__nothrow__)); extern int ttyname_r (int __fd, char *__buf, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__)); extern int isatty (int __fd) __attribute__ ((__nothrow__)); extern int ttyslot (void) __attribute__ ((__nothrow__)); extern int link (__const char *__from, __const char *__to) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)); extern int linkat (int __fromfd, __const char *__from, int __tofd, __const char *__to, int __flags) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))) __attribute__ ((__warn_unused_result__)); extern int symlink (__const char *__from, __const char *__to) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)); extern ssize_t readlink (__const char *__restrict __path, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)); extern int symlinkat (__const char *__from, int __tofd, __const char *__to) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))) __attribute__ ((__warn_unused_result__)); extern ssize_t readlinkat (int __fd, __const char *__restrict __path, char *__restrict __buf, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)); extern int unlink (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int unlinkat (int __fd, __const char *__name, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int rmdir (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern __pid_t tcgetpgrp (int __fd) __attribute__ ((__nothrow__)); extern int tcsetpgrp (int __fd, __pid_t __pgrp_id) __attribute__ ((__nothrow__)); extern char *getlogin (void); extern int getlogin_r (char *__name, size_t __name_len) __attribute__ ((__nonnull__ (1))); extern int setlogin (__const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 890 "/usr/include/unistd.h" 3 4 # 1 "/usr/include/getopt.h" 1 3 4 # 59 "/usr/include/getopt.h" 3 4 extern char *optarg; # 73 "/usr/include/getopt.h" 3 4 extern int optind; extern int opterr; extern int optopt; # 152 "/usr/include/getopt.h" 3 4 extern int getopt (int ___argc, char *const *___argv, const char *__shortopts) __attribute__ ((__nothrow__)); # 891 "/usr/include/unistd.h" 2 3 4 extern int gethostname (char *__name, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sethostname (__const char *__name, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int sethostid (long int __id) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int getdomainname (char *__name, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int setdomainname (__const char *__name, size_t __len) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int vhangup (void) __attribute__ ((__nothrow__)); extern int revoke (__const char *__file) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int profil (unsigned short int *__sample_buffer, size_t __size, size_t __offset, unsigned int __scale) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int acct (__const char *__name) __attribute__ ((__nothrow__)); extern char *getusershell (void) __attribute__ ((__nothrow__)); extern void endusershell (void) __attribute__ ((__nothrow__)); extern void setusershell (void) __attribute__ ((__nothrow__)); extern int daemon (int __nochdir, int __noclose) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int chroot (__const char *__path) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern char *getpass (__const char *__prompt) __attribute__ ((__nonnull__ (1))); # 976 "/usr/include/unistd.h" 3 4 extern int fsync (int __fd); extern long int gethostid (void); extern void sync (void) __attribute__ ((__nothrow__)); extern int getpagesize (void) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int getdtablesize (void) __attribute__ ((__nothrow__)); # 1011 "/usr/include/unistd.h" 3 4 extern int truncate (__const char *__file, __off64_t __length) __asm__ ("" "truncate64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int truncate64 (__const char *__file, __off64_t __length) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); # 1032 "/usr/include/unistd.h" 3 4 extern int ftruncate (int __fd, __off64_t __length) __asm__ ("" "ftruncate64") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int ftruncate64 (int __fd, __off64_t __length) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 1050 "/usr/include/unistd.h" 3 4 extern int brk (void *__addr) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void *sbrk (intptr_t __delta) __attribute__ ((__nothrow__)); # 1071 "/usr/include/unistd.h" 3 4 extern long int syscall (long int __sysno, ...) __attribute__ ((__nothrow__)); # 1097 "/usr/include/unistd.h" 3 4 extern int lockf (int __fd, int __cmd, __off64_t __len) __asm__ ("" "lockf64") __attribute__ ((__warn_unused_result__)); extern int lockf64 (int __fd, int __cmd, __off64_t __len) __attribute__ ((__warn_unused_result__)); # 1125 "/usr/include/unistd.h" 3 4 extern int fdatasync (int __fildes); extern char *crypt (__const char *__key, __const char *__salt) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void encrypt (char *__libc_block, int __edflag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void swab (__const void *__restrict __from, void *__restrict __to, ssize_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *ctermid (char *__s) __attribute__ ((__nothrow__)); # 1 "/usr/include/arm-linux-gnueabi/bits/unistd.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/unistd.h" 3 4 extern ssize_t __read_chk (int __fd, void *__buf, size_t __nbytes, size_t __buflen) __attribute__ ((__warn_unused_result__)); extern ssize_t __read_alias (int __fd, void *__buf, size_t __nbytes) __asm__ ("" "read") __attribute__ ((__warn_unused_result__)); extern ssize_t __read_chk_warn (int __fd, void *__buf, size_t __nbytes, size_t __buflen) __asm__ ("" "__read_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("read called with bigger length than size of " "the destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) ssize_t read (int __fd, void *__buf, size_t __nbytes) { if (__builtin_object_size (__buf, 0) != (size_t) -1) { if (!__builtin_constant_p (__nbytes)) return __read_chk (__fd, __buf, __nbytes, __builtin_object_size (__buf, 0)); if (__nbytes > __builtin_object_size (__buf, 0)) return __read_chk_warn (__fd, __buf, __nbytes, __builtin_object_size (__buf, 0)); } return __read_alias (__fd, __buf, __nbytes); } extern ssize_t __pread_chk (int __fd, void *__buf, size_t __nbytes, __off_t __offset, size_t __bufsize) __attribute__ ((__warn_unused_result__)); extern ssize_t __pread64_chk (int __fd, void *__buf, size_t __nbytes, __off64_t __offset, size_t __bufsize) __attribute__ ((__warn_unused_result__)); extern ssize_t __pread_alias (int __fd, void *__buf, size_t __nbytes, __off_t __offset) __asm__ ("" "pread") __attribute__ ((__warn_unused_result__)); extern ssize_t __pread64_alias (int __fd, void *__buf, size_t __nbytes, __off64_t __offset) __asm__ ("" "pread64") __attribute__ ((__warn_unused_result__)); extern ssize_t __pread_chk_warn (int __fd, void *__buf, size_t __nbytes, __off_t __offset, size_t __bufsize) __asm__ ("" "__pread_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("pread called with bigger length than size of " "the destination buffer"))) ; extern ssize_t __pread64_chk_warn (int __fd, void *__buf, size_t __nbytes, __off64_t __offset, size_t __bufsize) __asm__ ("" "__pread64_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("pread64 called with bigger length than size of " "the destination buffer"))) ; # 87 "/usr/include/arm-linux-gnueabi/bits/unistd.h" 3 4 extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) ssize_t pread (int __fd, void *__buf, size_t __nbytes, __off64_t __offset) { if (__builtin_object_size (__buf, 0) != (size_t) -1) { if (!__builtin_constant_p (__nbytes)) return __pread64_chk (__fd, __buf, __nbytes, __offset, __builtin_object_size (__buf, 0)); if ( __nbytes > __builtin_object_size (__buf, 0)) return __pread64_chk_warn (__fd, __buf, __nbytes, __offset, __builtin_object_size (__buf, 0)); } return __pread64_alias (__fd, __buf, __nbytes, __offset); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) ssize_t pread64 (int __fd, void *__buf, size_t __nbytes, __off64_t __offset) { if (__builtin_object_size (__buf, 0) != (size_t) -1) { if (!__builtin_constant_p (__nbytes)) return __pread64_chk (__fd, __buf, __nbytes, __offset, __builtin_object_size (__buf, 0)); if ( __nbytes > __builtin_object_size (__buf, 0)) return __pread64_chk_warn (__fd, __buf, __nbytes, __offset, __builtin_object_size (__buf, 0)); } return __pread64_alias (__fd, __buf, __nbytes, __offset); } extern ssize_t __readlink_chk (__const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)); extern ssize_t __readlink_alias (__const char *__restrict __path, char *__restrict __buf, size_t __len) __asm__ ("" "readlink") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)); extern ssize_t __readlink_chk_warn (__const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __asm__ ("" "__readlink_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("readlink called with bigger length " "than size of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__warn_unused_result__)) ssize_t __attribute__ ((__nothrow__)) readlink (__const char *__restrict __path, char *__restrict __buf, size_t __len) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__len)) return __readlink_chk (__path, __buf, __len, __builtin_object_size (__buf, 2 > 1)); if ( __len > __builtin_object_size (__buf, 2 > 1)) return __readlink_chk_warn (__path, __buf, __len, __builtin_object_size (__buf, 2 > 1)); } return __readlink_alias (__path, __buf, __len); } extern ssize_t __readlinkat_chk (int __fd, __const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)); extern ssize_t __readlinkat_alias (int __fd, __const char *__restrict __path, char *__restrict __buf, size_t __len) __asm__ ("" "readlinkat") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)); extern ssize_t __readlinkat_chk_warn (int __fd, __const char *__restrict __path, char *__restrict __buf, size_t __len, size_t __buflen) __asm__ ("" "__readlinkat_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("readlinkat called with bigger " "length than size of destination " "buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (2, 3))) __attribute__ ((__warn_unused_result__)) ssize_t __attribute__ ((__nothrow__)) readlinkat (int __fd, __const char *__restrict __path, char *__restrict __buf, size_t __len) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__len)) return __readlinkat_chk (__fd, __path, __buf, __len, __builtin_object_size (__buf, 2 > 1)); if (__len > __builtin_object_size (__buf, 2 > 1)) return __readlinkat_chk_warn (__fd, __path, __buf, __len, __builtin_object_size (__buf, 2 > 1)); } return __readlinkat_alias (__fd, __path, __buf, __len); } extern char *__getcwd_chk (char *__buf, size_t __size, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *__getcwd_alias (char *__buf, size_t __size) __asm__ ("" "getcwd") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *__getcwd_chk_warn (char *__buf, size_t __size, size_t __buflen) __asm__ ("" "__getcwd_chk") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getcwd caller with bigger length than size of " "destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char * __attribute__ ((__nothrow__)) getcwd (char *__buf, size_t __size) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__size)) return __getcwd_chk (__buf, __size, __builtin_object_size (__buf, 2 > 1)); if (__size > __builtin_object_size (__buf, 2 > 1)) return __getcwd_chk_warn (__buf, __size, __builtin_object_size (__buf, 2 > 1)); } return __getcwd_alias (__buf, __size); } extern char *__getwd_chk (char *__buf, size_t buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern char *__getwd_warn (char *__buf) __asm__ ("" "getwd") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("please use getcwd instead, as getwd " "doesn't specify buffer size"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__deprecated__)) __attribute__ ((__warn_unused_result__)) char * __attribute__ ((__nothrow__)) getwd (char *__buf) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) return __getwd_chk (__buf, __builtin_object_size (__buf, 2 > 1)); return __getwd_warn (__buf); } extern size_t __confstr_chk (int __name, char *__buf, size_t __len, size_t __buflen) __attribute__ ((__nothrow__)); extern size_t __confstr_alias (int __name, char *__buf, size_t __len) __asm__ ("" "confstr") __attribute__ ((__nothrow__)) ; extern size_t __confstr_chk_warn (int __name, char *__buf, size_t __len, size_t __buflen) __asm__ ("" "__confstr_chk") __attribute__ ((__nothrow__)) __attribute__((__warning__ ("confstr called with bigger length than size of destination " "buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) size_t __attribute__ ((__nothrow__)) confstr (int __name, char *__buf, size_t __len) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__len)) return __confstr_chk (__name, __buf, __len, __builtin_object_size (__buf, 2 > 1)); if (__builtin_object_size (__buf, 2 > 1) < __len) return __confstr_chk_warn (__name, __buf, __len, __builtin_object_size (__buf, 2 > 1)); } return __confstr_alias (__name, __buf, __len); } extern int __getgroups_chk (int __size, __gid_t __list[], size_t __listlen) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int __getgroups_alias (int __size, __gid_t __list[]) __asm__ ("" "getgroups") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int __getgroups_chk_warn (int __size, __gid_t __list[], size_t __listlen) __asm__ ("" "__getgroups_chk") __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getgroups called with bigger group count than what " "can fit into destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) getgroups (int __size, __gid_t __list[]) { if (__builtin_object_size (__list, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__size) || __size < 0) return __getgroups_chk (__size, __list, __builtin_object_size (__list, 2 > 1)); if (__size * sizeof (__gid_t) > __builtin_object_size (__list, 2 > 1)) return __getgroups_chk_warn (__size, __list, __builtin_object_size (__list, 2 > 1)); } return __getgroups_alias (__size, __list); } extern int __ttyname_r_chk (int __fd, char *__buf, size_t __buflen, size_t __nreal) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int __ttyname_r_alias (int __fd, char *__buf, size_t __buflen) __asm__ ("" "ttyname_r") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int __ttyname_r_chk_warn (int __fd, char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__ttyname_r_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__((__warning__ ("ttyname_r called with bigger buflen than " "size of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) ttyname_r (int __fd, char *__buf, size_t __buflen) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__buflen)) return __ttyname_r_chk (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1)); if (__buflen > __builtin_object_size (__buf, 2 > 1)) return __ttyname_r_chk_warn (__fd, __buf, __buflen, __builtin_object_size (__buf, 2 > 1)); } return __ttyname_r_alias (__fd, __buf, __buflen); } extern int __getlogin_r_chk (char *__buf, size_t __buflen, size_t __nreal) __attribute__ ((__nonnull__ (1))); extern int __getlogin_r_alias (char *__buf, size_t __buflen) __asm__ ("" "getlogin_r") __attribute__ ((__nonnull__ (1))); extern int __getlogin_r_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__getlogin_r_chk") __attribute__ ((__nonnull__ (1))) __attribute__((__warning__ ("getlogin_r called with bigger buflen than " "size of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int getlogin_r (char *__buf, size_t __buflen) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__buflen)) return __getlogin_r_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); if (__buflen > __builtin_object_size (__buf, 2 > 1)) return __getlogin_r_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); } return __getlogin_r_alias (__buf, __buflen); } extern int __gethostname_chk (char *__buf, size_t __buflen, size_t __nreal) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int __gethostname_alias (char *__buf, size_t __buflen) __asm__ ("" "gethostname") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int __gethostname_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__gethostname_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__((__warning__ ("gethostname called with bigger buflen than " "size of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) gethostname (char *__buf, size_t __buflen) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__buflen)) return __gethostname_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); if (__buflen > __builtin_object_size (__buf, 2 > 1)) return __gethostname_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); } return __gethostname_alias (__buf, __buflen); } extern int __getdomainname_chk (char *__buf, size_t __buflen, size_t __nreal) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int __getdomainname_alias (char *__buf, size_t __buflen) __asm__ ("" "getdomainname") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern int __getdomainname_chk_warn (char *__buf, size_t __buflen, size_t __nreal) __asm__ ("" "__getdomainname_chk") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("getdomainname called with bigger " "buflen than size of destination " "buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) getdomainname (char *__buf, size_t __buflen) { if (__builtin_object_size (__buf, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__buflen)) return __getdomainname_chk (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); if (__buflen > __builtin_object_size (__buf, 2 > 1)) return __getdomainname_chk_warn (__buf, __buflen, __builtin_object_size (__buf, 2 > 1)); } return __getdomainname_alias (__buf, __buflen); } # 1161 "/usr/include/unistd.h" 2 3 4 # 660 "perl.h" 2 # 1 "/usr/include/arm-linux-gnueabi/sys/wait.h" 1 3 4 # 29 "/usr/include/arm-linux-gnueabi/sys/wait.h" 3 4 # 1 "/usr/include/signal.h" 1 3 4 # 31 "/usr/include/signal.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 1 3 4 # 104 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 3 4 extern int __sigismember (__const __sigset_t *, int); extern int __sigaddset (__sigset_t *, int); extern int __sigdelset (__sigset_t *, int); # 118 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 3 4 extern __inline int __sigismember (__const __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return (__set->__val[__word] & __mask) ? 1 : 0; } extern __inline int __sigaddset ( __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return ((__set->__val[__word] |= __mask), 0); } extern __inline int __sigdelset ( __sigset_t *__set, int __sig) { unsigned long int __mask = (((unsigned long int) 1) << (((__sig) - 1) % (8 * sizeof (unsigned long int)))); unsigned long int __word = (((__sig) - 1) / (8 * sizeof (unsigned long int))); return ((__set->__val[__word] &= ~__mask), 0); } # 34 "/usr/include/signal.h" 2 3 4 typedef __sig_atomic_t sig_atomic_t; # 58 "/usr/include/signal.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/signum.h" 1 3 4 # 59 "/usr/include/signal.h" 2 3 4 # 76 "/usr/include/signal.h" 3 4 # 1 "/usr/include/time.h" 1 3 4 # 77 "/usr/include/signal.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 2 3 4 typedef union sigval { int sival_int; void *sival_ptr; } sigval_t; # 51 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 typedef struct siginfo { int si_signo; int si_errno; int si_code; union { int _pad[((128 / sizeof (int)) - 3)]; struct { __pid_t si_pid; __uid_t si_uid; } _kill; struct { int si_tid; int si_overrun; sigval_t si_sigval; } _timer; struct { __pid_t si_pid; __uid_t si_uid; sigval_t si_sigval; } _rt; struct { __pid_t si_pid; __uid_t si_uid; int si_status; __clock_t si_utime; __clock_t si_stime; } _sigchld; struct { void *si_addr; } _sigfault; struct { long int si_band; int si_fd; } _sigpoll; } _sifields; } siginfo_t; # 129 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 enum { SI_ASYNCNL = -60, SI_TKILL = -6, SI_SIGIO, SI_ASYNCIO, SI_MESGQ, SI_TIMER, SI_QUEUE, SI_USER, SI_KERNEL = 0x80 }; enum { ILL_ILLOPC = 1, ILL_ILLOPN, ILL_ILLADR, ILL_ILLTRP, ILL_PRVOPC, ILL_PRVREG, ILL_COPROC, ILL_BADSTK }; enum { FPE_INTDIV = 1, FPE_INTOVF, FPE_FLTDIV, FPE_FLTOVF, FPE_FLTUND, FPE_FLTRES, FPE_FLTINV, FPE_FLTSUB }; enum { SEGV_MAPERR = 1, SEGV_ACCERR }; enum { BUS_ADRALN = 1, BUS_ADRERR, BUS_OBJERR }; enum { TRAP_BRKPT = 1, TRAP_TRACE }; enum { CLD_EXITED = 1, CLD_KILLED, CLD_DUMPED, CLD_TRAPPED, CLD_STOPPED, CLD_CONTINUED }; enum { POLL_IN = 1, POLL_OUT, POLL_MSG, POLL_ERR, POLL_PRI, POLL_HUP }; # 273 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 typedef struct sigevent { sigval_t sigev_value; int sigev_signo; int sigev_notify; union { int _pad[((64 / sizeof (int)) - 3)]; __pid_t _tid; struct { void (*_function) (sigval_t); void *_attribute; } _sigev_thread; } _sigev_un; } sigevent_t; enum { SIGEV_SIGNAL = 0, SIGEV_NONE, SIGEV_THREAD, SIGEV_THREAD_ID = 4 }; # 80 "/usr/include/signal.h" 2 3 4 typedef void (*__sighandler_t) (int); extern __sighandler_t __sysv_signal (int __sig, __sighandler_t __handler) __attribute__ ((__nothrow__)); extern __sighandler_t sysv_signal (int __sig, __sighandler_t __handler) __attribute__ ((__nothrow__)); extern __sighandler_t signal (int __sig, __sighandler_t __handler) __attribute__ ((__nothrow__)); # 113 "/usr/include/signal.h" 3 4 extern __sighandler_t bsd_signal (int __sig, __sighandler_t __handler) __attribute__ ((__nothrow__)); extern int kill (__pid_t __pid, int __sig) __attribute__ ((__nothrow__)); extern int killpg (__pid_t __pgrp, int __sig) __attribute__ ((__nothrow__)); extern int raise (int __sig) __attribute__ ((__nothrow__)); extern __sighandler_t ssignal (int __sig, __sighandler_t __handler) __attribute__ ((__nothrow__)); extern int gsignal (int __sig) __attribute__ ((__nothrow__)); extern void psignal (int __sig, __const char *__s); extern void psiginfo (__const siginfo_t *__pinfo, __const char *__s); # 168 "/usr/include/signal.h" 3 4 extern int __sigpause (int __sig_or_mask, int __is_sig); # 177 "/usr/include/signal.h" 3 4 extern int sigpause (int __sig) __asm__ ("__xpg_sigpause"); # 196 "/usr/include/signal.h" 3 4 extern int sigblock (int __mask) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int sigsetmask (int __mask) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int siggetmask (void) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); # 211 "/usr/include/signal.h" 3 4 typedef __sighandler_t sighandler_t; typedef __sighandler_t sig_t; extern int sigemptyset (sigset_t *__set) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigfillset (sigset_t *__set) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigaddset (sigset_t *__set, int __signo) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigdelset (sigset_t *__set, int __signo) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigismember (__const sigset_t *__set, int __signo) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigisemptyset (__const sigset_t *__set) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigandset (sigset_t *__set, __const sigset_t *__left, __const sigset_t *__right) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2, 3))); extern int sigorset (sigset_t *__set, __const sigset_t *__left, __const sigset_t *__right) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2, 3))); # 1 "/usr/include/arm-linux-gnueabi/bits/sigaction.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/sigaction.h" 3 4 struct sigaction { union { __sighandler_t sa_handler; void (*sa_sigaction) (int, siginfo_t *, void *); } __sigaction_handler; __sigset_t sa_mask; int sa_flags; void (*sa_restorer) (void); }; # 253 "/usr/include/signal.h" 2 3 4 extern int sigprocmask (int __how, __const sigset_t *__restrict __set, sigset_t *__restrict __oset) __attribute__ ((__nothrow__)); extern int sigsuspend (__const sigset_t *__set) __attribute__ ((__nonnull__ (1))); extern int sigaction (int __sig, __const struct sigaction *__restrict __act, struct sigaction *__restrict __oact) __attribute__ ((__nothrow__)); extern int sigpending (sigset_t *__set) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int sigwait (__const sigset_t *__restrict __set, int *__restrict __sig) __attribute__ ((__nonnull__ (1, 2))); extern int sigwaitinfo (__const sigset_t *__restrict __set, siginfo_t *__restrict __info) __attribute__ ((__nonnull__ (1))); extern int sigtimedwait (__const sigset_t *__restrict __set, siginfo_t *__restrict __info, __const struct timespec *__restrict __timeout) __attribute__ ((__nonnull__ (1))); extern int sigqueue (__pid_t __pid, int __sig, __const union sigval __val) __attribute__ ((__nothrow__)); # 310 "/usr/include/signal.h" 3 4 extern __const char *__const _sys_siglist[65]; extern __const char *__const sys_siglist[65]; struct sigvec { __sighandler_t sv_handler; int sv_mask; int sv_flags; }; # 334 "/usr/include/signal.h" 3 4 extern int sigvec (int __sig, __const struct sigvec *__vec, struct sigvec *__ovec) __attribute__ ((__nothrow__)); # 1 "/usr/include/arm-linux-gnueabi/bits/sigcontext.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/bits/sigcontext.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/sigcontext.h" 1 3 4 # 9 "/usr/include/arm-linux-gnueabi/asm/sigcontext.h" 3 4 struct sigcontext { unsigned long trap_no; unsigned long error_code; unsigned long oldmask; unsigned long arm_r0; unsigned long arm_r1; unsigned long arm_r2; unsigned long arm_r3; unsigned long arm_r4; unsigned long arm_r5; unsigned long arm_r6; unsigned long arm_r7; unsigned long arm_r8; unsigned long arm_r9; unsigned long arm_r10; unsigned long arm_fp; unsigned long arm_ip; unsigned long arm_sp; unsigned long arm_lr; unsigned long arm_pc; unsigned long arm_cpsr; unsigned long fault_address; }; # 29 "/usr/include/arm-linux-gnueabi/bits/sigcontext.h" 2 3 4 # 340 "/usr/include/signal.h" 2 3 4 extern int sigreturn (struct sigcontext *__scp) __attribute__ ((__nothrow__)); # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 350 "/usr/include/signal.h" 2 3 4 extern int siginterrupt (int __sig, int __interrupt) __attribute__ ((__nothrow__)); # 1 "/usr/include/arm-linux-gnueabi/bits/sigstack.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/sigstack.h" 3 4 struct sigstack { void *ss_sp; int ss_onstack; }; enum { SS_ONSTACK = 1, SS_DISABLE }; # 50 "/usr/include/arm-linux-gnueabi/bits/sigstack.h" 3 4 typedef struct sigaltstack { void *ss_sp; int ss_flags; size_t ss_size; } stack_t; # 357 "/usr/include/signal.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/ucontext.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/sys/ucontext.h" 3 4 # 1 "/usr/include/signal.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/ucontext.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/procfs.h" 1 3 4 # 32 "/usr/include/arm-linux-gnueabi/sys/procfs.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/time.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/sys/time.h" 3 4 # 1 "/usr/include/time.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/sys/time.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/time.h" 1 3 4 # 30 "/usr/include/arm-linux-gnueabi/sys/time.h" 2 3 4 # 39 "/usr/include/arm-linux-gnueabi/sys/time.h" 3 4 # 57 "/usr/include/arm-linux-gnueabi/sys/time.h" 3 4 struct timezone { int tz_minuteswest; int tz_dsttime; }; typedef struct timezone *__restrict __timezone_ptr_t; # 73 "/usr/include/arm-linux-gnueabi/sys/time.h" 3 4 extern int gettimeofday (struct timeval *__restrict __tv, __timezone_ptr_t __tz) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int settimeofday (__const struct timeval *__tv, __const struct timezone *__tz) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int adjtime (__const struct timeval *__delta, struct timeval *__olddelta) __attribute__ ((__nothrow__)); enum __itimer_which { ITIMER_REAL = 0, ITIMER_VIRTUAL = 1, ITIMER_PROF = 2 }; struct itimerval { struct timeval it_interval; struct timeval it_value; }; typedef enum __itimer_which __itimer_which_t; extern int getitimer (__itimer_which_t __which, struct itimerval *__value) __attribute__ ((__nothrow__)); extern int setitimer (__itimer_which_t __which, __const struct itimerval *__restrict __new, struct itimerval *__restrict __old) __attribute__ ((__nothrow__)); extern int utimes (__const char *__file, __const struct timeval __tvp[2]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int lutimes (__const char *__file, __const struct timeval __tvp[2]) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int futimes (int __fd, __const struct timeval __tvp[2]) __attribute__ ((__nothrow__)); extern int futimesat (int __fd, __const char *__file, __const struct timeval __tvp[2]) __attribute__ ((__nothrow__)); # 191 "/usr/include/arm-linux-gnueabi/sys/time.h" 3 4 # 33 "/usr/include/arm-linux-gnueabi/sys/procfs.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/user.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/user.h" 3 4 struct user_fpregs { struct fp_reg { unsigned int sign1:1; unsigned int unused:15; unsigned int sign2:1; unsigned int exponent:14; unsigned int j:1; unsigned int mantissa1:31; unsigned int mantissa0:32; } fpregs[8]; unsigned int fpsr:32; unsigned int fpcr:32; unsigned char ftype[8]; unsigned int init_flag; }; struct user_regs { unsigned long int uregs[18]; }; struct user { struct user_regs regs; int u_fpvalid; unsigned long int u_tsize; unsigned long int u_dsize; unsigned long int u_ssize; unsigned long start_code; unsigned long start_stack; long int signal; int reserved; struct user_regs *u_ar0; unsigned long magic; char u_comm[32]; int u_debugreg[8]; struct user_fpregs u_fp; struct user_fpregs *u_fp0; }; # 35 "/usr/include/arm-linux-gnueabi/sys/procfs.h" 2 3 4 typedef unsigned long elf_greg_t; typedef elf_greg_t elf_gregset_t[(sizeof (struct user_regs) / sizeof(elf_greg_t))]; typedef struct user_fpregs elf_fpregset_t; struct elf_siginfo { int si_signo; int si_code; int si_errno; }; # 66 "/usr/include/arm-linux-gnueabi/sys/procfs.h" 3 4 struct elf_prstatus { struct elf_siginfo pr_info; short int pr_cursig; unsigned long int pr_sigpend; unsigned long int pr_sighold; __pid_t pr_pid; __pid_t pr_ppid; __pid_t pr_pgrp; __pid_t pr_sid; struct timeval pr_utime; struct timeval pr_stime; struct timeval pr_cutime; struct timeval pr_cstime; elf_gregset_t pr_reg; int pr_fpvalid; }; struct elf_prpsinfo { char pr_state; char pr_sname; char pr_zomb; char pr_nice; unsigned long int pr_flag; unsigned short int pr_uid; unsigned short int pr_gid; int pr_pid, pr_ppid, pr_pgrp, pr_sid; char pr_fname[16]; char pr_psargs[(80)]; }; typedef void *psaddr_t; typedef elf_gregset_t prgregset_t; typedef elf_fpregset_t prfpregset_t; typedef __pid_t lwpid_t; typedef struct elf_prstatus prstatus_t; typedef struct elf_prpsinfo prpsinfo_t; # 27 "/usr/include/arm-linux-gnueabi/sys/ucontext.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sigcontext.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/sys/ucontext.h" 2 3 4 typedef int greg_t; typedef elf_gregset_t gregset_t; enum { R0 = 0, R1 = 1, R2 = 2, R3 = 3, R4 = 4, R5 = 5, R6 = 6, R7 = 7, R8 = 8, R9 = 9, R10 = 10, R11 = 11, R12 = 12, R13 = 13, R14 = 14, R15 = 15 }; typedef elf_fpregset_t fpregset_t; typedef struct sigcontext mcontext_t; typedef struct ucontext { unsigned long uc_flags; struct ucontext *uc_link; stack_t uc_stack; mcontext_t uc_mcontext; __sigset_t uc_sigmask; unsigned long uc_regspace[128] __attribute__((__aligned__(8))); } ucontext_t; # 360 "/usr/include/signal.h" 2 3 4 extern int sigstack (struct sigstack *__ss, struct sigstack *__oss) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int sigaltstack (__const struct sigaltstack *__restrict __ss, struct sigaltstack *__restrict __oss) __attribute__ ((__nothrow__)); extern int sighold (int __sig) __attribute__ ((__nothrow__)); extern int sigrelse (int __sig) __attribute__ ((__nothrow__)); extern int sigignore (int __sig) __attribute__ ((__nothrow__)); extern __sighandler_t sigset (int __sig, __sighandler_t __disp) __attribute__ ((__nothrow__)); # 1 "/usr/include/arm-linux-gnueabi/bits/sigthread.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/bits/sigthread.h" 3 4 extern int pthread_sigmask (int __how, __const __sigset_t *__restrict __newmask, __sigset_t *__restrict __oldmask)__attribute__ ((__nothrow__)); extern int pthread_kill (pthread_t __threadid, int __signo) __attribute__ ((__nothrow__)); extern int pthread_sigqueue (pthread_t __threadid, int __signo, const union sigval __value) __attribute__ ((__nothrow__)); # 396 "/usr/include/signal.h" 2 3 4 extern int __libc_current_sigrtmin (void) __attribute__ ((__nothrow__)); extern int __libc_current_sigrtmax (void) __attribute__ ((__nothrow__)); # 32 "/usr/include/arm-linux-gnueabi/sys/wait.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/resource.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/sys/resource.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/resource.h" 1 3 4 # 33 "/usr/include/arm-linux-gnueabi/bits/resource.h" 3 4 enum __rlimit_resource { RLIMIT_CPU = 0, RLIMIT_FSIZE = 1, RLIMIT_DATA = 2, RLIMIT_STACK = 3, RLIMIT_CORE = 4, __RLIMIT_RSS = 5, RLIMIT_NOFILE = 7, __RLIMIT_OFILE = RLIMIT_NOFILE, RLIMIT_AS = 9, __RLIMIT_NPROC = 6, __RLIMIT_MEMLOCK = 8, __RLIMIT_LOCKS = 10, __RLIMIT_SIGPENDING = 11, __RLIMIT_MSGQUEUE = 12, __RLIMIT_NICE = 13, __RLIMIT_RTPRIO = 14, __RLIMIT_RTTIME = 15, __RLIMIT_NLIMITS = 16, __RLIM_NLIMITS = __RLIMIT_NLIMITS }; # 135 "/usr/include/arm-linux-gnueabi/bits/resource.h" 3 4 typedef __rlim64_t rlim_t; typedef __rlim64_t rlim64_t; struct rlimit { rlim_t rlim_cur; rlim_t rlim_max; }; struct rlimit64 { rlim64_t rlim_cur; rlim64_t rlim_max; }; enum __rusage_who { RUSAGE_SELF = 0, RUSAGE_CHILDREN = -1 , RUSAGE_THREAD = 1 }; # 1 "/usr/include/arm-linux-gnueabi/bits/time.h" 1 3 4 # 182 "/usr/include/arm-linux-gnueabi/bits/resource.h" 2 3 4 struct rusage { struct timeval ru_utime; struct timeval ru_stime; long int ru_maxrss; long int ru_ixrss; long int ru_idrss; long int ru_isrss; long int ru_minflt; long int ru_majflt; long int ru_nswap; long int ru_inblock; long int ru_oublock; long int ru_msgsnd; long int ru_msgrcv; long int ru_nsignals; long int ru_nvcsw; long int ru_nivcsw; }; enum __priority_which { PRIO_PROCESS = 0, PRIO_PGRP = 1, PRIO_USER = 2 }; # 253 "/usr/include/arm-linux-gnueabi/bits/resource.h" 3 4 extern int prlimit (__pid_t __pid, enum __rlimit_resource __resource, __const struct rlimit *__new_limit, struct rlimit *__old_limit) __asm__ ("" "prlimit64") __attribute__ ((__nothrow__)) ; extern int prlimit64 (__pid_t __pid, enum __rlimit_resource __resource, __const struct rlimit64 *__new_limit, struct rlimit64 *__old_limit) __attribute__ ((__nothrow__)); # 26 "/usr/include/arm-linux-gnueabi/sys/resource.h" 2 3 4 # 39 "/usr/include/arm-linux-gnueabi/sys/resource.h" 3 4 typedef enum __rlimit_resource __rlimit_resource_t; typedef enum __rusage_who __rusage_who_t; typedef enum __priority_which __priority_which_t; # 55 "/usr/include/arm-linux-gnueabi/sys/resource.h" 3 4 extern int getrlimit (__rlimit_resource_t __resource, struct rlimit *__rlimits) __asm__ ("" "getrlimit64") __attribute__ ((__nothrow__)) ; extern int getrlimit64 (__rlimit_resource_t __resource, struct rlimit64 *__rlimits) __attribute__ ((__nothrow__)); # 74 "/usr/include/arm-linux-gnueabi/sys/resource.h" 3 4 extern int setrlimit (__rlimit_resource_t __resource, __const struct rlimit *__rlimits) __asm__ ("" "setrlimit64") __attribute__ ((__nothrow__)) ; extern int setrlimit64 (__rlimit_resource_t __resource, __const struct rlimit64 *__rlimits) __attribute__ ((__nothrow__)); extern int getrusage (__rusage_who_t __who, struct rusage *__usage) __attribute__ ((__nothrow__)); extern int getpriority (__priority_which_t __which, id_t __who) __attribute__ ((__nothrow__)); extern int setpriority (__priority_which_t __which, id_t __who, int __prio) __attribute__ ((__nothrow__)); # 33 "/usr/include/arm-linux-gnueabi/sys/wait.h" 2 3 4 # 102 "/usr/include/arm-linux-gnueabi/sys/wait.h" 3 4 typedef enum { P_ALL, P_PID, P_PGID } idtype_t; # 116 "/usr/include/arm-linux-gnueabi/sys/wait.h" 3 4 extern __pid_t wait (__WAIT_STATUS __stat_loc); # 139 "/usr/include/arm-linux-gnueabi/sys/wait.h" 3 4 extern __pid_t waitpid (__pid_t __pid, int *__stat_loc, int __options); # 1 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 2 3 4 # 144 "/usr/include/arm-linux-gnueabi/sys/wait.h" 2 3 4 # 155 "/usr/include/arm-linux-gnueabi/sys/wait.h" 3 4 extern int waitid (idtype_t __idtype, __id_t __id, siginfo_t *__infop, int __options); struct rusage; extern __pid_t wait3 (__WAIT_STATUS __stat_loc, int __options, struct rusage * __usage) __attribute__ ((__nothrow__)); extern __pid_t wait4 (__pid_t __pid, __WAIT_STATUS __stat_loc, int __options, struct rusage *__usage) __attribute__ ((__nothrow__)); # 665 "perl.h" 2 # 954 "perl.h" # 1 "embed.h" 1 # 955 "perl.h" 2 # 971 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 150 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 3 4 typedef int ptrdiff_t; # 972 "perl.h" 2 # 1 "/usr/include/string.h" 1 3 4 # 29 "/usr/include/string.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 35 "/usr/include/string.h" 2 3 4 # 44 "/usr/include/string.h" 3 4 extern void *memcpy (void *__restrict __dest, __const void *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void *memmove (void *__dest, __const void *__src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void *memccpy (void *__restrict __dest, __const void *__restrict __src, int __c, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void *memset (void *__s, int __c, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int memcmp (__const void *__s1, __const void *__s2, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 95 "/usr/include/string.h" 3 4 extern void *memchr (__const void *__s, int __c, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); # 109 "/usr/include/string.h" 3 4 extern void *rawmemchr (__const void *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); # 120 "/usr/include/string.h" 3 4 extern void *memrchr (__const void *__s, int __c, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); extern char *strcpy (char *__restrict __dest, __const char *__restrict __src) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strncpy (char *__restrict __dest, __const char *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strcat (char *__restrict __dest, __const char *__restrict __src) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strncat (char *__restrict __dest, __const char *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int strcmp (__const char *__s1, __const char *__s2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int strncmp (__const char *__s1, __const char *__s2, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int strcoll (__const char *__s1, __const char *__s2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern size_t strxfrm (char *__restrict __dest, __const char *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); # 165 "/usr/include/string.h" 3 4 extern int strcoll_l (__const char *__s1, __const char *__s2, __locale_t __l) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2, 3))); extern size_t strxfrm_l (char *__dest, __const char *__src, size_t __n, __locale_t __l) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))); extern char *strdup (__const char *__s) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__nonnull__ (1))); extern char *strndup (__const char *__string, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__nonnull__ (1))); # 210 "/usr/include/string.h" 3 4 # 235 "/usr/include/string.h" 3 4 extern char *strchr (__const char *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); # 262 "/usr/include/string.h" 3 4 extern char *strrchr (__const char *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); # 276 "/usr/include/string.h" 3 4 extern char *strchrnul (__const char *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); extern size_t strcspn (__const char *__s, __const char *__reject) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern size_t strspn (__const char *__s, __const char *__accept) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 314 "/usr/include/string.h" 3 4 extern char *strpbrk (__const char *__s, __const char *__accept) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 342 "/usr/include/string.h" 3 4 extern char *strstr (__const char *__haystack, __const char *__needle) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strtok (char *__restrict __s, __const char *__restrict __delim) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern char *__strtok_r (char *__restrict __s, __const char *__restrict __delim, char **__restrict __save_ptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern char *strtok_r (char *__restrict __s, __const char *__restrict __delim, char **__restrict __save_ptr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); # 373 "/usr/include/string.h" 3 4 extern char *strcasestr (__const char *__haystack, __const char *__needle) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern void *memmem (__const void *__haystack, size_t __haystacklen, __const void *__needle, size_t __needlelen) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 3))); extern void *__mempcpy (void *__restrict __dest, __const void *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void *mempcpy (void *__restrict __dest, __const void *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern size_t strlen (__const char *__s) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); extern size_t strnlen (__const char *__string, size_t __maxlen) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); extern char *strerror (int __errnum) __attribute__ ((__nothrow__)); # 438 "/usr/include/string.h" 3 4 extern char *strerror_r (int __errnum, char *__buf, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern char *strerror_l (int __errnum, __locale_t __l) __attribute__ ((__nothrow__)); extern void __bzero (void *__s, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void bcopy (__const void *__src, void *__dest, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void bzero (void *__s, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int bcmp (__const void *__s1, __const void *__s2, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 489 "/usr/include/string.h" 3 4 extern char *index (__const char *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); # 517 "/usr/include/string.h" 3 4 extern char *rindex (__const char *__s, int __c) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1))); extern int ffs (int __i) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int ffsl (long int __l) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); __extension__ extern int ffsll (long long int __ll) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int strcasecmp (__const char *__s1, __const char *__s2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int strncasecmp (__const char *__s1, __const char *__s2, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int strcasecmp_l (__const char *__s1, __const char *__s2, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2, 3))); extern int strncasecmp_l (__const char *__s1, __const char *__s2, size_t __n, __locale_t __loc) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2, 4))); extern char *strsep (char **__restrict __stringp, __const char *__restrict __delim) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strsignal (int __sig) __attribute__ ((__nothrow__)); extern char *__stpcpy (char *__restrict __dest, __const char *__restrict __src) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *stpcpy (char *__restrict __dest, __const char *__restrict __src) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *__stpncpy (char *__restrict __dest, __const char *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern char *stpncpy (char *__restrict __dest, __const char *__restrict __src, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int strverscmp (__const char *__s1, __const char *__s2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern char *strfry (char *__string) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void *memfrob (void *__s, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 606 "/usr/include/string.h" 3 4 extern char *basename (__const char *__filename) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 634 "/usr/include/string.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/string.h" 1 3 4 # 635 "/usr/include/string.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/string2.h" 1 3 4 # 80 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 typedef struct { unsigned char __arr[2]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR2; typedef struct { unsigned char __arr[3]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR3; typedef struct { unsigned char __arr[4]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR4; typedef struct { unsigned char __arr[5]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR5; typedef struct { unsigned char __arr[6]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR6; typedef struct { unsigned char __arr[7]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR7; typedef struct { unsigned char __arr[8]; } __attribute__ ((__packed__)) __STRING2_COPY_ARR8; # 394 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern void *__rawmemchr (const void *__s, int __c); # 969 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern __inline size_t __strcspn_c1 (__const char *__s, int __reject); extern __inline size_t __strcspn_c1 (__const char *__s, int __reject) { register size_t __result = 0; while (__s[__result] != '\0' && __s[__result] != __reject) ++__result; return __result; } extern __inline size_t __strcspn_c2 (__const char *__s, int __reject1, int __reject2); extern __inline size_t __strcspn_c2 (__const char *__s, int __reject1, int __reject2) { register size_t __result = 0; while (__s[__result] != '\0' && __s[__result] != __reject1 && __s[__result] != __reject2) ++__result; return __result; } extern __inline size_t __strcspn_c3 (__const char *__s, int __reject1, int __reject2, int __reject3); extern __inline size_t __strcspn_c3 (__const char *__s, int __reject1, int __reject2, int __reject3) { register size_t __result = 0; while (__s[__result] != '\0' && __s[__result] != __reject1 && __s[__result] != __reject2 && __s[__result] != __reject3) ++__result; return __result; } # 1045 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern __inline size_t __strspn_c1 (__const char *__s, int __accept); extern __inline size_t __strspn_c1 (__const char *__s, int __accept) { register size_t __result = 0; while (__s[__result] == __accept) ++__result; return __result; } extern __inline size_t __strspn_c2 (__const char *__s, int __accept1, int __accept2); extern __inline size_t __strspn_c2 (__const char *__s, int __accept1, int __accept2) { register size_t __result = 0; while (__s[__result] == __accept1 || __s[__result] == __accept2) ++__result; return __result; } extern __inline size_t __strspn_c3 (__const char *__s, int __accept1, int __accept2, int __accept3); extern __inline size_t __strspn_c3 (__const char *__s, int __accept1, int __accept2, int __accept3) { register size_t __result = 0; while (__s[__result] == __accept1 || __s[__result] == __accept2 || __s[__result] == __accept3) ++__result; return __result; } # 1121 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern __inline char *__strpbrk_c2 (__const char *__s, int __accept1, int __accept2); extern __inline char * __strpbrk_c2 (__const char *__s, int __accept1, int __accept2) { while (*__s != '\0' && *__s != __accept1 && *__s != __accept2) ++__s; return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s; } extern __inline char *__strpbrk_c3 (__const char *__s, int __accept1, int __accept2, int __accept3); extern __inline char * __strpbrk_c3 (__const char *__s, int __accept1, int __accept2, int __accept3) { while (*__s != '\0' && *__s != __accept1 && *__s != __accept2 && *__s != __accept3) ++__s; return *__s == '\0' ? ((void *)0) : (char *) (size_t) __s; } # 1172 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern __inline char *__strtok_r_1c (char *__s, char __sep, char **__nextp); extern __inline char * __strtok_r_1c (char *__s, char __sep, char **__nextp) { char *__result; if (__s == ((void *)0)) __s = *__nextp; while (*__s == __sep) ++__s; __result = ((void *)0); if (*__s != '\0') { __result = __s++; while (*__s != '\0') if (*__s++ == __sep) { __s[-1] = '\0'; break; } } *__nextp = __s; return __result; } # 1204 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern char *__strsep_g (char **__stringp, __const char *__delim); # 1222 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern __inline char *__strsep_1c (char **__s, char __reject); extern __inline char * __strsep_1c (char **__s, char __reject) { register char *__retval = *__s; if (__retval != ((void *)0) && (*__s = (__extension__ (__builtin_constant_p (__reject) && !__builtin_constant_p (__retval) && (__reject) == '\0' ? (char *) __rawmemchr (__retval, __reject) : __builtin_strchr (__retval, __reject)))) != ((void *)0)) *(*__s)++ = '\0'; return __retval; } extern __inline char *__strsep_2c (char **__s, char __reject1, char __reject2); extern __inline char * __strsep_2c (char **__s, char __reject1, char __reject2) { register char *__retval = *__s; if (__retval != ((void *)0)) { register char *__cp = __retval; while (1) { if (*__cp == '\0') { __cp = ((void *)0); break; } if (*__cp == __reject1 || *__cp == __reject2) { *__cp++ = '\0'; break; } ++__cp; } *__s = __cp; } return __retval; } extern __inline char *__strsep_3c (char **__s, char __reject1, char __reject2, char __reject3); extern __inline char * __strsep_3c (char **__s, char __reject1, char __reject2, char __reject3) { register char *__retval = *__s; if (__retval != ((void *)0)) { register char *__cp = __retval; while (1) { if (*__cp == '\0') { __cp = ((void *)0); break; } if (*__cp == __reject1 || *__cp == __reject2 || *__cp == __reject3) { *__cp++ = '\0'; break; } ++__cp; } *__s = __cp; } return __retval; } # 1303 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern char *__strdup (__const char *__string) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)); # 1322 "/usr/include/arm-linux-gnueabi/bits/string2.h" 3 4 extern char *__strndup (__const char *__string, size_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)); # 638 "/usr/include/string.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/string3.h" 1 3 4 # 23 "/usr/include/arm-linux-gnueabi/bits/string3.h" 3 4 extern void __warn_memset_zero_len (void) __attribute__((__warning__ ("memset used with constant zero length parameter; this could be due to transposed parameters"))) ; # 48 "/usr/include/arm-linux-gnueabi/bits/string3.h" 3 4 extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void * __attribute__ ((__nothrow__)) memcpy (void *__restrict __dest, __const void *__restrict __src, size_t __len) { return __builtin___memcpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 0)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void * __attribute__ ((__nothrow__)) memmove (void *__dest, __const void *__src, size_t __len) { return __builtin___memmove_chk (__dest, __src, __len, __builtin_object_size (__dest, 0)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void * __attribute__ ((__nothrow__)) mempcpy (void *__restrict __dest, __const void *__restrict __src, size_t __len) { return __builtin___mempcpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 0)); } # 76 "/usr/include/arm-linux-gnueabi/bits/string3.h" 3 4 extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void * __attribute__ ((__nothrow__)) memset (void *__dest, int __ch, size_t __len) { if (__builtin_constant_p (__len) && __len == 0 && (!__builtin_constant_p (__ch) || __ch != 0)) { __warn_memset_zero_len (); return __dest; } return __builtin___memset_chk (__dest, __ch, __len, __builtin_object_size (__dest, 0)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void __attribute__ ((__nothrow__)) bcopy (__const void *__src, void *__dest, size_t __len) { (void) __builtin___memmove_chk (__dest, __src, __len, __builtin_object_size (__dest, 0)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) void __attribute__ ((__nothrow__)) bzero (void *__dest, size_t __len) { (void) __builtin___memset_chk (__dest, '\0', __len, __builtin_object_size (__dest, 0)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) strcpy (char *__restrict __dest, __const char *__restrict __src) { return __builtin___strcpy_chk (__dest, __src, __builtin_object_size (__dest, 2 > 1)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) stpcpy (char *__restrict __dest, __const char *__restrict __src) { return __builtin___stpcpy_chk (__dest, __src, __builtin_object_size (__dest, 2 > 1)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) strncpy (char *__restrict __dest, __const char *__restrict __src, size_t __len) { return __builtin___strncpy_chk (__dest, __src, __len, __builtin_object_size (__dest, 2 > 1)); } extern char *__stpncpy_chk (char *__dest, __const char *__src, size_t __n, size_t __destlen) __attribute__ ((__nothrow__)); extern char *__stpncpy_alias (char *__dest, __const char *__src, size_t __n) __asm__ ("" "stpncpy") __attribute__ ((__nothrow__)) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) stpncpy (char *__dest, __const char *__src, size_t __n) { if (__builtin_object_size (__dest, 2 > 1) != (size_t) -1 && (!__builtin_constant_p (__n) || __n <= __builtin_object_size (__dest, 2 > 1))) return __stpncpy_chk (__dest, __src, __n, __builtin_object_size (__dest, 2 > 1)); return __stpncpy_alias (__dest, __src, __n); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) strcat (char *__restrict __dest, __const char *__restrict __src) { return __builtin___strcat_chk (__dest, __src, __builtin_object_size (__dest, 2 > 1)); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) char * __attribute__ ((__nothrow__)) strncat (char *__restrict __dest, __const char *__restrict __src, size_t __len) { return __builtin___strncat_chk (__dest, __src, __len, __builtin_object_size (__dest, 2 > 1)); } # 643 "/usr/include/string.h" 2 3 4 # 980 "perl.h" 2 # 1130 "perl.h" # 1 "/usr/include/netinet/in.h" 1 3 4 # 24 "/usr/include/netinet/in.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stdint.h" 1 3 4 # 1 "/usr/include/stdint.h" 1 3 4 # 27 "/usr/include/stdint.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wchar.h" 1 3 4 # 28 "/usr/include/stdint.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 29 "/usr/include/stdint.h" 2 3 4 # 49 "/usr/include/stdint.h" 3 4 typedef unsigned char uint8_t; typedef unsigned short int uint16_t; typedef unsigned int uint32_t; __extension__ typedef unsigned long long int uint64_t; typedef signed char int_least8_t; typedef short int int_least16_t; typedef int int_least32_t; __extension__ typedef long long int int_least64_t; typedef unsigned char uint_least8_t; typedef unsigned short int uint_least16_t; typedef unsigned int uint_least32_t; __extension__ typedef unsigned long long int uint_least64_t; typedef signed char int_fast8_t; typedef int int_fast16_t; typedef int int_fast32_t; __extension__ typedef long long int int_fast64_t; typedef unsigned char uint_fast8_t; typedef unsigned int uint_fast16_t; typedef unsigned int uint_fast32_t; __extension__ typedef unsigned long long int uint_fast64_t; # 129 "/usr/include/stdint.h" 3 4 typedef unsigned int uintptr_t; # 138 "/usr/include/stdint.h" 3 4 __extension__ typedef long long int intmax_t; __extension__ typedef unsigned long long int uintmax_t; # 4 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stdint.h" 2 3 4 # 25 "/usr/include/netinet/in.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/socket.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/uio.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/uio.h" 1 3 4 # 44 "/usr/include/arm-linux-gnueabi/bits/uio.h" 3 4 struct iovec { void *iov_base; size_t iov_len; }; # 30 "/usr/include/arm-linux-gnueabi/sys/uio.h" 2 3 4 # 40 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 extern ssize_t readv (int __fd, __const struct iovec *__iovec, int __count) __attribute__ ((__warn_unused_result__)); # 51 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 extern ssize_t writev (int __fd, __const struct iovec *__iovec, int __count) __attribute__ ((__warn_unused_result__)); # 82 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 extern ssize_t preadv (int __fd, __const struct iovec *__iovec, int __count, __off64_t __offset) __asm__ ("" "preadv64") __attribute__ ((__warn_unused_result__)); extern ssize_t pwritev (int __fd, __const struct iovec *__iovec, int __count, __off64_t __offset) __asm__ ("" "pwritev64") __attribute__ ((__warn_unused_result__)); # 104 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 extern ssize_t preadv64 (int __fd, __const struct iovec *__iovec, int __count, __off64_t __offset) __attribute__ ((__warn_unused_result__)); # 116 "/usr/include/arm-linux-gnueabi/sys/uio.h" 3 4 extern ssize_t pwritev64 (int __fd, __const struct iovec *__iovec, int __count, __off64_t __offset) __attribute__ ((__warn_unused_result__)); # 29 "/usr/include/arm-linux-gnueabi/sys/socket.h" 2 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/sys/socket.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sigset.h" 1 3 4 # 34 "/usr/include/arm-linux-gnueabi/sys/socket.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/socket.h" 1 3 4 # 29 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 30 "/usr/include/arm-linux-gnueabi/bits/socket.h" 2 3 4 # 40 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 enum __socket_type { SOCK_STREAM = 1, SOCK_DGRAM = 2, SOCK_RAW = 3, SOCK_RDM = 4, SOCK_SEQPACKET = 5, SOCK_DCCP = 6, SOCK_PACKET = 10, SOCK_CLOEXEC = 02000000, SOCK_NONBLOCK = 04000 }; # 175 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sockaddr.h" 1 3 4 # 29 "/usr/include/arm-linux-gnueabi/bits/sockaddr.h" 3 4 typedef unsigned short int sa_family_t; # 176 "/usr/include/arm-linux-gnueabi/bits/socket.h" 2 3 4 struct sockaddr { sa_family_t sa_family; char sa_data[14]; }; # 191 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 struct sockaddr_storage { sa_family_t ss_family; unsigned long int __ss_align; char __ss_padding[(128 - (2 * sizeof (unsigned long int)))]; }; enum { MSG_OOB = 0x01, MSG_PEEK = 0x02, MSG_DONTROUTE = 0x04, MSG_TRYHARD = MSG_DONTROUTE, MSG_CTRUNC = 0x08, MSG_PROXY = 0x10, MSG_TRUNC = 0x20, MSG_DONTWAIT = 0x40, MSG_EOR = 0x80, MSG_WAITALL = 0x100, MSG_FIN = 0x200, MSG_SYN = 0x400, MSG_CONFIRM = 0x800, MSG_RST = 0x1000, MSG_ERRQUEUE = 0x2000, MSG_NOSIGNAL = 0x4000, MSG_MORE = 0x8000, MSG_WAITFORONE = 0x10000, MSG_CMSG_CLOEXEC = 0x40000000 }; struct msghdr { void *msg_name; socklen_t msg_namelen; struct iovec *msg_iov; size_t msg_iovlen; void *msg_control; size_t msg_controllen; int msg_flags; }; struct mmsghdr { struct msghdr msg_hdr; unsigned int msg_len; }; struct cmsghdr { size_t cmsg_len; int cmsg_level; int cmsg_type; __extension__ unsigned char __cmsg_data []; }; # 308 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 extern struct cmsghdr *__cmsg_nxthdr (struct msghdr *__mhdr, struct cmsghdr *__cmsg) __attribute__ ((__nothrow__)); extern __inline struct cmsghdr * __attribute__ ((__nothrow__)) __cmsg_nxthdr (struct msghdr *__mhdr, struct cmsghdr *__cmsg) { if ((size_t) __cmsg->cmsg_len < sizeof (struct cmsghdr)) return 0; __cmsg = (struct cmsghdr *) ((unsigned char *) __cmsg + (((__cmsg->cmsg_len) + sizeof (size_t) - 1) & (size_t) ~(sizeof (size_t) - 1))); if ((unsigned char *) (__cmsg + 1) > ((unsigned char *) __mhdr->msg_control + __mhdr->msg_controllen) || ((unsigned char *) __cmsg + (((__cmsg->cmsg_len) + sizeof (size_t) - 1) & (size_t) ~(sizeof (size_t) - 1)) > ((unsigned char *) __mhdr->msg_control + __mhdr->msg_controllen))) return 0; return __cmsg; } enum { SCM_RIGHTS = 0x01 , SCM_CREDENTIALS = 0x02 }; struct ucred { pid_t pid; uid_t uid; gid_t gid; }; # 381 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/socket.h" 1 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/sockios.h" 1 3 4 # 5 "/usr/include/arm-linux-gnueabi/asm/socket.h" 2 3 4 # 382 "/usr/include/arm-linux-gnueabi/bits/socket.h" 2 3 4 # 415 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 struct linger { int l_onoff; int l_linger; }; # 429 "/usr/include/arm-linux-gnueabi/bits/socket.h" 3 4 extern int recvmmsg (int __fd, struct mmsghdr *__vmessages, unsigned int __vlen, int __flags, __const struct timespec *__tmo); # 41 "/usr/include/arm-linux-gnueabi/sys/socket.h" 2 3 4 struct osockaddr { unsigned short int sa_family; unsigned char sa_data[14]; }; enum { SHUT_RD = 0, SHUT_WR, SHUT_RDWR }; # 92 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 typedef union { struct sockaddr *__restrict __sockaddr__; struct sockaddr_at *__restrict __sockaddr_at__; struct sockaddr_ax25 *__restrict __sockaddr_ax25__; struct sockaddr_dl *__restrict __sockaddr_dl__; struct sockaddr_eon *__restrict __sockaddr_eon__; struct sockaddr_in *__restrict __sockaddr_in__; struct sockaddr_in6 *__restrict __sockaddr_in6__; struct sockaddr_inarp *__restrict __sockaddr_inarp__; struct sockaddr_ipx *__restrict __sockaddr_ipx__; struct sockaddr_iso *__restrict __sockaddr_iso__; struct sockaddr_ns *__restrict __sockaddr_ns__; struct sockaddr_un *__restrict __sockaddr_un__; struct sockaddr_x25 *__restrict __sockaddr_x25__; } __SOCKADDR_ARG __attribute__ ((__transparent_union__)); typedef union { __const struct sockaddr *__restrict __sockaddr__; __const struct sockaddr_at *__restrict __sockaddr_at__; __const struct sockaddr_ax25 *__restrict __sockaddr_ax25__; __const struct sockaddr_dl *__restrict __sockaddr_dl__; __const struct sockaddr_eon *__restrict __sockaddr_eon__; __const struct sockaddr_in *__restrict __sockaddr_in__; __const struct sockaddr_in6 *__restrict __sockaddr_in6__; __const struct sockaddr_inarp *__restrict __sockaddr_inarp__; __const struct sockaddr_ipx *__restrict __sockaddr_ipx__; __const struct sockaddr_iso *__restrict __sockaddr_iso__; __const struct sockaddr_ns *__restrict __sockaddr_ns__; __const struct sockaddr_un *__restrict __sockaddr_un__; __const struct sockaddr_x25 *__restrict __sockaddr_x25__; } __CONST_SOCKADDR_ARG __attribute__ ((__transparent_union__)); extern int socket (int __domain, int __type, int __protocol) __attribute__ ((__nothrow__)); extern int socketpair (int __domain, int __type, int __protocol, int __fds[2]) __attribute__ ((__nothrow__)); extern int bind (int __fd, __CONST_SOCKADDR_ARG __addr, socklen_t __len) __attribute__ ((__nothrow__)); extern int getsockname (int __fd, __SOCKADDR_ARG __addr, socklen_t *__restrict __len) __attribute__ ((__nothrow__)); # 129 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 extern int connect (int __fd, __CONST_SOCKADDR_ARG __addr, socklen_t __len); extern int getpeername (int __fd, __SOCKADDR_ARG __addr, socklen_t *__restrict __len) __attribute__ ((__nothrow__)); extern ssize_t send (int __fd, __const void *__buf, size_t __n, int __flags); extern ssize_t recv (int __fd, void *__buf, size_t __n, int __flags); extern ssize_t sendto (int __fd, __const void *__buf, size_t __n, int __flags, __CONST_SOCKADDR_ARG __addr, socklen_t __addr_len); # 166 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 extern ssize_t recvfrom (int __fd, void *__restrict __buf, size_t __n, int __flags, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len); extern ssize_t sendmsg (int __fd, __const struct msghdr *__message, int __flags); extern ssize_t recvmsg (int __fd, struct msghdr *__message, int __flags); extern int getsockopt (int __fd, int __level, int __optname, void *__restrict __optval, socklen_t *__restrict __optlen) __attribute__ ((__nothrow__)); extern int setsockopt (int __fd, int __level, int __optname, __const void *__optval, socklen_t __optlen) __attribute__ ((__nothrow__)); extern int listen (int __fd, int __n) __attribute__ ((__nothrow__)); # 214 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 extern int accept (int __fd, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len); extern int accept4 (int __fd, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len, int __flags); # 232 "/usr/include/arm-linux-gnueabi/sys/socket.h" 3 4 extern int shutdown (int __fd, int __how) __attribute__ ((__nothrow__)); extern int sockatmark (int __fd) __attribute__ ((__nothrow__)); extern int isfdtype (int __fd, int __fdtype) __attribute__ ((__nothrow__)); # 1 "/usr/include/arm-linux-gnueabi/bits/socket2.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/socket2.h" 3 4 extern ssize_t __recv_chk (int __fd, void *__buf, size_t __n, size_t __buflen, int __flags); extern ssize_t __recv_alias (int __fd, void *__buf, size_t __n, int __flags) __asm__ ("" "recv") ; extern ssize_t __recv_chk_warn (int __fd, void *__buf, size_t __n, size_t __buflen, int __flags) __asm__ ("" "__recv_chk") __attribute__((__warning__ ("recv called with bigger length than size of destination " "buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) ssize_t recv (int __fd, void *__buf, size_t __n, int __flags) { if (__builtin_object_size (__buf, 0) != (size_t) -1) { if (!__builtin_constant_p (__n)) return __recv_chk (__fd, __buf, __n, __builtin_object_size (__buf, 0), __flags); if (__n > __builtin_object_size (__buf, 0)) return __recv_chk_warn (__fd, __buf, __n, __builtin_object_size (__buf, 0), __flags); } return __recv_alias (__fd, __buf, __n, __flags); } extern ssize_t __recvfrom_chk (int __fd, void *__restrict __buf, size_t __n, size_t __buflen, int __flags, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len); extern ssize_t __recvfrom_alias (int __fd, void *__restrict __buf, size_t __n, int __flags, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len) __asm__ ("" "recvfrom") ; extern ssize_t __recvfrom_chk_warn (int __fd, void *__restrict __buf, size_t __n, size_t __buflen, int __flags, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len) __asm__ ("" "__recvfrom_chk") __attribute__((__warning__ ("recvfrom called with bigger length than size of " "destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) ssize_t recvfrom (int __fd, void *__restrict __buf, size_t __n, int __flags, __SOCKADDR_ARG __addr, socklen_t *__restrict __addr_len) { if (__builtin_object_size (__buf, 0) != (size_t) -1) { if (!__builtin_constant_p (__n)) return __recvfrom_chk (__fd, __buf, __n, __builtin_object_size (__buf, 0), __flags, __addr, __addr_len); if (__n > __builtin_object_size (__buf, 0)) return __recvfrom_chk_warn (__fd, __buf, __n, __builtin_object_size (__buf, 0), __flags, __addr, __addr_len); } return __recvfrom_alias (__fd, __buf, __n, __flags, __addr, __addr_len); } # 252 "/usr/include/arm-linux-gnueabi/sys/socket.h" 2 3 4 # 26 "/usr/include/netinet/in.h" 2 3 4 enum { IPPROTO_IP = 0, IPPROTO_HOPOPTS = 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_TP = 29, IPPROTO_DCCP = 33, IPPROTO_IPV6 = 41, IPPROTO_ROUTING = 43, IPPROTO_FRAGMENT = 44, IPPROTO_RSVP = 46, IPPROTO_GRE = 47, IPPROTO_ESP = 50, IPPROTO_AH = 51, IPPROTO_ICMPV6 = 58, IPPROTO_NONE = 59, IPPROTO_DSTOPTS = 60, IPPROTO_MTP = 92, IPPROTO_ENCAP = 98, IPPROTO_PIM = 103, IPPROTO_COMP = 108, IPPROTO_SCTP = 132, IPPROTO_UDPLITE = 136, IPPROTO_RAW = 255, IPPROTO_MAX }; typedef uint16_t in_port_t; 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 }; typedef uint32_t in_addr_t; struct in_addr { in_addr_t s_addr; }; # 198 "/usr/include/netinet/in.h" 3 4 struct in6_addr { union { uint8_t __u6_addr8[16]; uint16_t __u6_addr16[8]; uint32_t __u6_addr32[4]; } __in6_u; }; extern const struct in6_addr in6addr_any; extern const struct in6_addr in6addr_loopback; # 225 "/usr/include/netinet/in.h" 3 4 struct sockaddr_in { sa_family_t sin_family; in_port_t sin_port; struct in_addr sin_addr; unsigned char sin_zero[sizeof (struct sockaddr) - (sizeof (unsigned short int)) - sizeof (in_port_t) - sizeof (struct in_addr)]; }; struct sockaddr_in6 { sa_family_t sin6_family; in_port_t sin6_port; uint32_t sin6_flowinfo; struct in6_addr sin6_addr; uint32_t sin6_scope_id; }; struct ip_mreq { struct in_addr imr_multiaddr; struct in_addr imr_interface; }; struct ip_mreq_source { struct in_addr imr_multiaddr; struct in_addr imr_interface; struct in_addr imr_sourceaddr; }; struct ipv6_mreq { struct in6_addr ipv6mr_multiaddr; unsigned int ipv6mr_interface; }; struct group_req { uint32_t gr_interface; struct sockaddr_storage gr_group; }; struct group_source_req { uint32_t gsr_interface; struct sockaddr_storage gsr_group; struct sockaddr_storage gsr_source; }; struct ip_msfilter { struct in_addr imsf_multiaddr; struct in_addr imsf_interface; uint32_t imsf_fmode; uint32_t imsf_numsrc; struct in_addr imsf_slist[1]; }; struct group_filter { uint32_t gf_interface; struct sockaddr_storage gf_group; uint32_t gf_fmode; uint32_t gf_numsrc; struct sockaddr_storage gf_slist[1]; }; # 356 "/usr/include/netinet/in.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/in.h" 1 3 4 # 98 "/usr/include/arm-linux-gnueabi/bits/in.h" 3 4 struct ip_opts { struct in_addr ip_dst; char ip_opts[40]; }; struct ip_mreqn { struct in_addr imr_multiaddr; struct in_addr imr_address; int imr_ifindex; }; struct in_pktinfo { int ipi_ifindex; struct in_addr ipi_spec_dst; struct in_addr ipi_addr; }; # 357 "/usr/include/netinet/in.h" 2 3 4 # 365 "/usr/include/netinet/in.h" 3 4 extern uint32_t ntohl (uint32_t __netlong) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern uint16_t ntohs (uint16_t __netshort) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern uint32_t htonl (uint32_t __hostlong) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern uint16_t htons (uint16_t __hostshort) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); # 1 "/usr/include/arm-linux-gnueabi/bits/byteswap.h" 1 3 4 # 377 "/usr/include/netinet/in.h" 2 3 4 # 440 "/usr/include/netinet/in.h" 3 4 extern int bindresvport (int __sockfd, struct sockaddr_in *__sock_in) __attribute__ ((__nothrow__)); extern int bindresvport6 (int __sockfd, struct sockaddr_in6 *__sock_in) __attribute__ ((__nothrow__)); # 471 "/usr/include/netinet/in.h" 3 4 struct in6_pktinfo { struct in6_addr ipi6_addr; unsigned int ipi6_ifindex; }; struct ip6_mtuinfo { struct sockaddr_in6 ip6m_addr; uint32_t ip6m_mtu; }; extern int inet6_option_space (int __nbytes) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int inet6_option_init (void *__bp, struct cmsghdr **__cmsgp, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int inet6_option_append (struct cmsghdr *__cmsg, __const uint8_t *__typep, int __multx, int __plusy) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern uint8_t *inet6_option_alloc (struct cmsghdr *__cmsg, int __datalen, int __multx, int __plusy) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int inet6_option_next (__const struct cmsghdr *__cmsg, uint8_t **__tptrp) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int inet6_option_find (__const struct cmsghdr *__cmsg, uint8_t **__tptrp, int __type) __attribute__ ((__nothrow__)) __attribute__ ((__deprecated__)); extern int inet6_opt_init (void *__extbuf, socklen_t __extlen) __attribute__ ((__nothrow__)); extern int inet6_opt_append (void *__extbuf, socklen_t __extlen, int __offset, uint8_t __type, socklen_t __len, uint8_t __align, void **__databufp) __attribute__ ((__nothrow__)); extern int inet6_opt_finish (void *__extbuf, socklen_t __extlen, int __offset) __attribute__ ((__nothrow__)); extern int inet6_opt_set_val (void *__databuf, int __offset, void *__val, socklen_t __vallen) __attribute__ ((__nothrow__)); extern int inet6_opt_next (void *__extbuf, socklen_t __extlen, int __offset, uint8_t *__typep, socklen_t *__lenp, void **__databufp) __attribute__ ((__nothrow__)); extern int inet6_opt_find (void *__extbuf, socklen_t __extlen, int __offset, uint8_t __type, socklen_t *__lenp, void **__databufp) __attribute__ ((__nothrow__)); extern int inet6_opt_get_val (void *__databuf, int __offset, void *__val, socklen_t __vallen) __attribute__ ((__nothrow__)); extern socklen_t inet6_rth_space (int __type, int __segments) __attribute__ ((__nothrow__)); extern void *inet6_rth_init (void *__bp, socklen_t __bp_len, int __type, int __segments) __attribute__ ((__nothrow__)); extern int inet6_rth_add (void *__bp, __const struct in6_addr *__addr) __attribute__ ((__nothrow__)); extern int inet6_rth_reverse (__const void *__in, void *__out) __attribute__ ((__nothrow__)); extern int inet6_rth_segments (__const void *__bp) __attribute__ ((__nothrow__)); extern struct in6_addr *inet6_rth_getaddr (__const void *__bp, int __index) __attribute__ ((__nothrow__)); extern int getipv4sourcefilter (int __s, struct in_addr __interface_addr, struct in_addr __group, uint32_t *__fmode, uint32_t *__numsrc, struct in_addr *__slist) __attribute__ ((__nothrow__)); extern int setipv4sourcefilter (int __s, struct in_addr __interface_addr, struct in_addr __group, uint32_t __fmode, uint32_t __numsrc, __const struct in_addr *__slist) __attribute__ ((__nothrow__)); extern int getsourcefilter (int __s, uint32_t __interface_addr, __const struct sockaddr *__group, socklen_t __grouplen, uint32_t *__fmode, uint32_t *__numsrc, struct sockaddr_storage *__slist) __attribute__ ((__nothrow__)); extern int setsourcefilter (int __s, uint32_t __interface_addr, __const struct sockaddr *__group, socklen_t __grouplen, uint32_t __fmode, uint32_t __numsrc, __const struct sockaddr_storage *__slist) __attribute__ ((__nothrow__)); # 1131 "perl.h" 2 # 1 "/usr/include/arpa/inet.h" 1 3 4 # 31 "/usr/include/arpa/inet.h" 3 4 extern in_addr_t inet_addr (__const char *__cp) __attribute__ ((__nothrow__)); extern in_addr_t inet_lnaof (struct in_addr __in) __attribute__ ((__nothrow__)); extern struct in_addr inet_makeaddr (in_addr_t __net, in_addr_t __host) __attribute__ ((__nothrow__)); extern in_addr_t inet_netof (struct in_addr __in) __attribute__ ((__nothrow__)); extern in_addr_t inet_network (__const char *__cp) __attribute__ ((__nothrow__)); extern char *inet_ntoa (struct in_addr __in) __attribute__ ((__nothrow__)); extern int inet_pton (int __af, __const char *__restrict __cp, void *__restrict __buf) __attribute__ ((__nothrow__)); extern __const char *inet_ntop (int __af, __const void *__restrict __cp, char *__restrict __buf, socklen_t __len) __attribute__ ((__nothrow__)); extern int inet_aton (__const char *__cp, struct in_addr *__inp) __attribute__ ((__nothrow__)); extern char *inet_neta (in_addr_t __net, char *__buf, size_t __len) __attribute__ ((__nothrow__)); extern char *inet_net_ntop (int __af, __const void *__cp, int __bits, char *__buf, size_t __len) __attribute__ ((__nothrow__)); extern int inet_net_pton (int __af, __const char *__cp, void *__buf, size_t __len) __attribute__ ((__nothrow__)); extern unsigned int inet_nsap_addr (__const char *__cp, unsigned char *__buf, int __len) __attribute__ ((__nothrow__)); extern char *inet_nsap_ntoa (int __len, __const unsigned char *__cp, char *__buf) __attribute__ ((__nothrow__)); # 1135 "perl.h" 2 # 1144 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/stat.h" 1 3 4 # 39 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 # 1 "/usr/include/time.h" 1 3 4 # 40 "/usr/include/arm-linux-gnueabi/sys/stat.h" 2 3 4 # 105 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stat.h" 1 3 4 # 39 "/usr/include/arm-linux-gnueabi/bits/stat.h" 3 4 struct stat { __dev_t st_dev; unsigned short int __pad1; __ino_t __st_ino; __mode_t st_mode; __nlink_t st_nlink; __uid_t st_uid; __gid_t st_gid; __dev_t st_rdev; unsigned short int __pad2; __off64_t st_size; __blksize_t st_blksize; __blkcnt64_t st_blocks; # 73 "/usr/include/arm-linux-gnueabi/bits/stat.h" 3 4 struct timespec st_atim; struct timespec st_mtim; struct timespec st_ctim; # 91 "/usr/include/arm-linux-gnueabi/bits/stat.h" 3 4 __ino64_t st_ino; }; struct stat64 { __dev_t st_dev; unsigned int __pad1; __ino_t __st_ino; __mode_t st_mode; __nlink_t st_nlink; __uid_t st_uid; __gid_t st_gid; __dev_t st_rdev; unsigned int __pad2; __off64_t st_size; __blksize_t st_blksize; __blkcnt64_t st_blocks; struct timespec st_atim; struct timespec st_mtim; struct timespec st_ctim; # 130 "/usr/include/arm-linux-gnueabi/bits/stat.h" 3 4 __ino64_t st_ino; }; # 108 "/usr/include/arm-linux-gnueabi/sys/stat.h" 2 3 4 # 219 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 extern int stat (__const char *__restrict __file, struct stat *__restrict __buf) __asm__ ("" "stat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int fstat (int __fd, struct stat *__buf) __asm__ ("" "fstat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int stat64 (__const char *__restrict __file, struct stat64 *__restrict __buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int fstat64 (int __fd, struct stat64 *__buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); # 245 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 extern int fstatat (int __fd, __const char *__restrict __file, struct stat *__restrict __buf, int __flag) __asm__ ("" "fstatat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int fstatat64 (int __fd, __const char *__restrict __file, struct stat64 *__restrict __buf, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); # 269 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 extern int lstat (__const char *__restrict __file, struct stat *__restrict __buf) __asm__ ("" "lstat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int lstat64 (__const char *__restrict __file, struct stat64 *__restrict __buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int chmod (__const char *__file, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int lchmod (__const char *__file, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int fchmod (int __fd, __mode_t __mode) __attribute__ ((__nothrow__)); extern int fchmodat (int __fd, __const char *__file, __mode_t __mode, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))) __attribute__ ((__warn_unused_result__)); extern __mode_t umask (__mode_t __mask) __attribute__ ((__nothrow__)); extern __mode_t getumask (void) __attribute__ ((__nothrow__)); extern int mkdir (__const char *__path, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int mkdirat (int __fd, __const char *__path, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int mknod (__const char *__path, __mode_t __mode, __dev_t __dev) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int mknodat (int __fd, __const char *__path, __mode_t __mode, __dev_t __dev) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int mkfifo (__const char *__path, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int mkfifoat (int __fd, __const char *__path, __mode_t __mode) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int utimensat (int __fd, __const char *__path, __const struct timespec __times[2], int __flags) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int futimens (int __fd, __const struct timespec __times[2]) __attribute__ ((__nothrow__)); # 412 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 extern int __fxstat (int __ver, int __fildes, struct stat *__stat_buf) __asm__ ("" "__fxstat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))); extern int __xstat (int __ver, __const char *__filename, struct stat *__stat_buf) __asm__ ("" "__xstat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int __lxstat (int __ver, __const char *__filename, struct stat *__stat_buf) __asm__ ("" "__lxstat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int __fxstatat (int __ver, int __fildes, __const char *__filename, struct stat *__stat_buf, int __flag) __asm__ ("" "__fxstatat64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))); # 434 "/usr/include/arm-linux-gnueabi/sys/stat.h" 3 4 extern int __fxstat64 (int __ver, int __fildes, struct stat64 *__stat_buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))); extern int __xstat64 (int __ver, __const char *__filename, struct stat64 *__stat_buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int __lxstat64 (int __ver, __const char *__filename, struct stat64 *__stat_buf) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int __fxstatat64 (int __ver, int __fildes, __const char *__filename, struct stat64 *__stat_buf, int __flag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 4))); extern int __xmknod (int __ver, __const char *__path, __mode_t __mode, __dev_t *__dev) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))); extern int __xmknodat (int __ver, int __fd, __const char *__path, __mode_t __mode, __dev_t *__dev) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3, 5))); extern __inline int __attribute__ ((__nothrow__)) stat (__const char *__path, struct stat *__statbuf) { return __xstat (3, __path, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) lstat (__const char *__path, struct stat *__statbuf) { return __lxstat (3, __path, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) fstat (int __fd, struct stat *__statbuf) { return __fxstat (3, __fd, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) fstatat (int __fd, __const char *__filename, struct stat *__statbuf, int __flag) { return __fxstatat (3, __fd, __filename, __statbuf, __flag); } extern __inline int __attribute__ ((__nothrow__)) mknod (__const char *__path, __mode_t __mode, __dev_t __dev) { return __xmknod (1, __path, __mode, &__dev); } extern __inline int __attribute__ ((__nothrow__)) mknodat (int __fd, __const char *__path, __mode_t __mode, __dev_t __dev) { return __xmknodat (1, __fd, __path, __mode, &__dev); } extern __inline int __attribute__ ((__nothrow__)) stat64 (__const char *__path, struct stat64 *__statbuf) { return __xstat64 (3, __path, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) lstat64 (__const char *__path, struct stat64 *__statbuf) { return __lxstat64 (3, __path, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) fstat64 (int __fd, struct stat64 *__statbuf) { return __fxstat64 (3, __fd, __statbuf); } extern __inline int __attribute__ ((__nothrow__)) fstatat64 (int __fd, __const char *__filename, struct stat64 *__statbuf, int __flag) { return __fxstatat64 (3, __fd, __filename, __statbuf, __flag); } # 1145 "perl.h" 2 # 1173 "perl.h" # 1 "/usr/include/time.h" 1 3 4 # 30 "/usr/include/time.h" 3 4 # 38 "/usr/include/time.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 39 "/usr/include/time.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/time.h" 1 3 4 # 43 "/usr/include/time.h" 2 3 4 # 131 "/usr/include/time.h" 3 4 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; long int tm_gmtoff; __const char *tm_zone; }; # 161 "/usr/include/time.h" 3 4 struct itimerspec { struct timespec it_interval; struct timespec it_value; }; struct sigevent; # 180 "/usr/include/time.h" 3 4 extern clock_t clock (void) __attribute__ ((__nothrow__)); extern time_t time (time_t *__timer) __attribute__ ((__nothrow__)); extern double difftime (time_t __time1, time_t __time0) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern time_t mktime (struct tm *__tp) __attribute__ ((__nothrow__)); extern size_t strftime (char *__restrict __s, size_t __maxsize, __const char *__restrict __format, __const struct tm *__restrict __tp) __attribute__ ((__nothrow__)); extern char *strptime (__const char *__restrict __s, __const char *__restrict __fmt, struct tm *__tp) __attribute__ ((__nothrow__)); extern size_t strftime_l (char *__restrict __s, size_t __maxsize, __const char *__restrict __format, __const struct tm *__restrict __tp, __locale_t __loc) __attribute__ ((__nothrow__)); extern char *strptime_l (__const char *__restrict __s, __const char *__restrict __fmt, struct tm *__tp, __locale_t __loc) __attribute__ ((__nothrow__)); extern struct tm *gmtime (__const time_t *__timer) __attribute__ ((__nothrow__)); extern struct tm *localtime (__const time_t *__timer) __attribute__ ((__nothrow__)); extern struct tm *gmtime_r (__const time_t *__restrict __timer, struct tm *__restrict __tp) __attribute__ ((__nothrow__)); extern struct tm *localtime_r (__const time_t *__restrict __timer, struct tm *__restrict __tp) __attribute__ ((__nothrow__)); extern char *asctime (__const struct tm *__tp) __attribute__ ((__nothrow__)); extern char *ctime (__const time_t *__timer) __attribute__ ((__nothrow__)); extern char *asctime_r (__const struct tm *__restrict __tp, char *__restrict __buf) __attribute__ ((__nothrow__)); extern char *ctime_r (__const time_t *__restrict __timer, char *__restrict __buf) __attribute__ ((__nothrow__)); extern char *__tzname[2]; extern int __daylight; extern long int __timezone; extern char *tzname[2]; extern void tzset (void) __attribute__ ((__nothrow__)); extern int daylight; extern long int timezone; extern int stime (__const time_t *__when) __attribute__ ((__nothrow__)); # 313 "/usr/include/time.h" 3 4 extern time_t timegm (struct tm *__tp) __attribute__ ((__nothrow__)); extern time_t timelocal (struct tm *__tp) __attribute__ ((__nothrow__)); extern int dysize (int __year) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); # 328 "/usr/include/time.h" 3 4 extern int nanosleep (__const struct timespec *__requested_time, struct timespec *__remaining); extern int clock_getres (clockid_t __clock_id, struct timespec *__res) __attribute__ ((__nothrow__)); extern int clock_gettime (clockid_t __clock_id, struct timespec *__tp) __attribute__ ((__nothrow__)); extern int clock_settime (clockid_t __clock_id, __const struct timespec *__tp) __attribute__ ((__nothrow__)); extern int clock_nanosleep (clockid_t __clock_id, int __flags, __const struct timespec *__req, struct timespec *__rem); extern int clock_getcpuclockid (pid_t __pid, clockid_t *__clock_id) __attribute__ ((__nothrow__)); extern int timer_create (clockid_t __clock_id, struct sigevent *__restrict __evp, timer_t *__restrict __timerid) __attribute__ ((__nothrow__)); extern int timer_delete (timer_t __timerid) __attribute__ ((__nothrow__)); extern int timer_settime (timer_t __timerid, int __flags, __const struct itimerspec *__restrict __value, struct itimerspec *__restrict __ovalue) __attribute__ ((__nothrow__)); extern int timer_gettime (timer_t __timerid, struct itimerspec *__value) __attribute__ ((__nothrow__)); extern int timer_getoverrun (timer_t __timerid) __attribute__ ((__nothrow__)); # 390 "/usr/include/time.h" 3 4 extern int getdate_err; # 399 "/usr/include/time.h" 3 4 extern struct tm *getdate (__const char *__string); # 413 "/usr/include/time.h" 3 4 extern int getdate_r (__const char *__restrict __string, struct tm *__restrict __resbufp); # 1174 "perl.h" 2 # 1187 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/times.h" 1 3 4 # 32 "/usr/include/arm-linux-gnueabi/sys/times.h" 3 4 struct tms { clock_t tms_utime; clock_t tms_stime; clock_t tms_cutime; clock_t tms_cstime; }; extern clock_t times (struct tms *__buffer) __attribute__ ((__nothrow__)); # 1188 "perl.h" 2 # 1 "/usr/include/errno.h" 1 3 4 # 32 "/usr/include/errno.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/errno.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/errno.h" 3 4 # 1 "/usr/include/linux/errno.h" 1 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/errno.h" 1 3 4 # 1 "/usr/include/asm-generic/errno.h" 1 3 4 # 1 "/usr/include/asm-generic/errno-base.h" 1 3 4 # 5 "/usr/include/asm-generic/errno.h" 2 3 4 # 5 "/usr/include/arm-linux-gnueabi/asm/errno.h" 2 3 4 # 5 "/usr/include/linux/errno.h" 2 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/errno.h" 2 3 4 # 47 "/usr/include/arm-linux-gnueabi/bits/errno.h" 3 4 extern int *__errno_location (void) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); # 37 "/usr/include/errno.h" 2 3 4 # 55 "/usr/include/errno.h" 3 4 extern char *program_invocation_name, *program_invocation_short_name; # 69 "/usr/include/errno.h" 3 4 typedef int error_t; # 1195 "perl.h" 2 # 1225 "perl.h" # 1 "/usr/include/netdb.h" 1 3 4 # 33 "/usr/include/netdb.h" 3 4 # 1 "/usr/include/rpc/netdb.h" 1 3 4 # 42 "/usr/include/rpc/netdb.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 43 "/usr/include/rpc/netdb.h" 2 3 4 struct rpcent { char *r_name; char **r_aliases; int r_number; }; extern void setrpcent (int __stayopen) __attribute__ ((__nothrow__)); extern void endrpcent (void) __attribute__ ((__nothrow__)); extern struct rpcent *getrpcbyname (__const char *__name) __attribute__ ((__nothrow__)); extern struct rpcent *getrpcbynumber (int __number) __attribute__ ((__nothrow__)); extern struct rpcent *getrpcent (void) __attribute__ ((__nothrow__)); extern int getrpcbyname_r (__const char *__name, struct rpcent *__result_buf, char *__buffer, size_t __buflen, struct rpcent **__result) __attribute__ ((__nothrow__)); extern int getrpcbynumber_r (int __number, struct rpcent *__result_buf, char *__buffer, size_t __buflen, struct rpcent **__result) __attribute__ ((__nothrow__)); extern int getrpcent_r (struct rpcent *__result_buf, char *__buffer, size_t __buflen, struct rpcent **__result) __attribute__ ((__nothrow__)); # 34 "/usr/include/netdb.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/bits/siginfo.h" 2 3 4 # 39 "/usr/include/netdb.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/netdb.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/bits/netdb.h" 3 4 struct netent { char *n_name; char **n_aliases; int n_addrtype; uint32_t n_net; }; # 44 "/usr/include/netdb.h" 2 3 4 # 54 "/usr/include/netdb.h" 3 4 # 62 "/usr/include/netdb.h" 3 4 extern int *__h_errno_location (void) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); # 93 "/usr/include/netdb.h" 3 4 extern void herror (__const char *__str) __attribute__ ((__nothrow__)); extern __const char *hstrerror (int __err_num) __attribute__ ((__nothrow__)); struct hostent { char *h_name; char **h_aliases; int h_addrtype; int h_length; char **h_addr_list; }; extern void sethostent (int __stay_open); extern void endhostent (void); extern struct hostent *gethostent (void); extern struct hostent *gethostbyaddr (__const void *__addr, __socklen_t __len, int __type); extern struct hostent *gethostbyname (__const char *__name); # 156 "/usr/include/netdb.h" 3 4 extern struct hostent *gethostbyname2 (__const char *__name, int __af); # 168 "/usr/include/netdb.h" 3 4 extern int gethostent_r (struct hostent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct hostent **__restrict __result, int *__restrict __h_errnop); extern int gethostbyaddr_r (__const void *__restrict __addr, __socklen_t __len, int __type, struct hostent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct hostent **__restrict __result, int *__restrict __h_errnop); extern int gethostbyname_r (__const char *__restrict __name, struct hostent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct hostent **__restrict __result, int *__restrict __h_errnop); extern int gethostbyname2_r (__const char *__restrict __name, int __af, struct hostent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct hostent **__restrict __result, int *__restrict __h_errnop); # 199 "/usr/include/netdb.h" 3 4 extern void setnetent (int __stay_open); extern void endnetent (void); extern struct netent *getnetent (void); extern struct netent *getnetbyaddr (uint32_t __net, int __type); extern struct netent *getnetbyname (__const char *__name); # 238 "/usr/include/netdb.h" 3 4 extern int getnetent_r (struct netent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct netent **__restrict __result, int *__restrict __h_errnop); extern int getnetbyaddr_r (uint32_t __net, int __type, struct netent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct netent **__restrict __result, int *__restrict __h_errnop); extern int getnetbyname_r (__const char *__restrict __name, struct netent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct netent **__restrict __result, int *__restrict __h_errnop); struct servent { char *s_name; char **s_aliases; int s_port; char *s_proto; }; extern void setservent (int __stay_open); extern void endservent (void); extern struct servent *getservent (void); extern struct servent *getservbyname (__const char *__name, __const char *__proto); extern struct servent *getservbyport (int __port, __const char *__proto); # 310 "/usr/include/netdb.h" 3 4 extern int getservent_r (struct servent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct servent **__restrict __result); extern int getservbyname_r (__const char *__restrict __name, __const char *__restrict __proto, struct servent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct servent **__restrict __result); extern int getservbyport_r (int __port, __const char *__restrict __proto, struct servent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct servent **__restrict __result); struct protoent { char *p_name; char **p_aliases; int p_proto; }; extern void setprotoent (int __stay_open); extern void endprotoent (void); extern struct protoent *getprotoent (void); extern struct protoent *getprotobyname (__const char *__name); extern struct protoent *getprotobynumber (int __proto); # 376 "/usr/include/netdb.h" 3 4 extern int getprotoent_r (struct protoent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct protoent **__restrict __result); extern int getprotobyname_r (__const char *__restrict __name, struct protoent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct protoent **__restrict __result); extern int getprotobynumber_r (int __proto, struct protoent *__restrict __result_buf, char *__restrict __buf, size_t __buflen, struct protoent **__restrict __result); # 397 "/usr/include/netdb.h" 3 4 extern int setnetgrent (__const char *__netgroup); extern void endnetgrent (void); # 414 "/usr/include/netdb.h" 3 4 extern int getnetgrent (char **__restrict __hostp, char **__restrict __userp, char **__restrict __domainp); # 425 "/usr/include/netdb.h" 3 4 extern int innetgr (__const char *__netgroup, __const char *__host, __const char *__user, __const char *__domain); extern int getnetgrent_r (char **__restrict __hostp, char **__restrict __userp, char **__restrict __domainp, char *__restrict __buffer, size_t __buflen); # 453 "/usr/include/netdb.h" 3 4 extern int rcmd (char **__restrict __ahost, unsigned short int __rport, __const char *__restrict __locuser, __const char *__restrict __remuser, __const char *__restrict __cmd, int *__restrict __fd2p); # 465 "/usr/include/netdb.h" 3 4 extern int rcmd_af (char **__restrict __ahost, unsigned short int __rport, __const char *__restrict __locuser, __const char *__restrict __remuser, __const char *__restrict __cmd, int *__restrict __fd2p, sa_family_t __af); # 481 "/usr/include/netdb.h" 3 4 extern int rexec (char **__restrict __ahost, int __rport, __const char *__restrict __name, __const char *__restrict __pass, __const char *__restrict __cmd, int *__restrict __fd2p); # 493 "/usr/include/netdb.h" 3 4 extern int rexec_af (char **__restrict __ahost, int __rport, __const char *__restrict __name, __const char *__restrict __pass, __const char *__restrict __cmd, int *__restrict __fd2p, sa_family_t __af); # 507 "/usr/include/netdb.h" 3 4 extern int ruserok (__const char *__rhost, int __suser, __const char *__remuser, __const char *__locuser); # 517 "/usr/include/netdb.h" 3 4 extern int ruserok_af (__const char *__rhost, int __suser, __const char *__remuser, __const char *__locuser, sa_family_t __af); # 530 "/usr/include/netdb.h" 3 4 extern int iruserok (uint32_t __raddr, int __suser, __const char *__remuser, __const char *__locuser); # 541 "/usr/include/netdb.h" 3 4 extern int iruserok_af (__const void *__raddr, int __suser, __const char *__remuser, __const char *__locuser, sa_family_t __af); # 553 "/usr/include/netdb.h" 3 4 extern int rresvport (int *__alport); # 562 "/usr/include/netdb.h" 3 4 extern int rresvport_af (int *__alport, sa_family_t __af); struct addrinfo { int ai_flags; int ai_family; int ai_socktype; int ai_protocol; socklen_t ai_addrlen; struct sockaddr *ai_addr; char *ai_canonname; struct addrinfo *ai_next; }; struct gaicb { const char *ar_name; const char *ar_service; const struct addrinfo *ar_request; struct addrinfo *ar_result; int __return; int __unused[5]; }; # 664 "/usr/include/netdb.h" 3 4 extern int getaddrinfo (__const char *__restrict __name, __const char *__restrict __service, __const struct addrinfo *__restrict __req, struct addrinfo **__restrict __pai); extern void freeaddrinfo (struct addrinfo *__ai) __attribute__ ((__nothrow__)); extern __const char *gai_strerror (int __ecode) __attribute__ ((__nothrow__)); extern int getnameinfo (__const struct sockaddr *__restrict __sa, socklen_t __salen, char *__restrict __host, socklen_t __hostlen, char *__restrict __serv, socklen_t __servlen, unsigned int __flags); # 694 "/usr/include/netdb.h" 3 4 extern int getaddrinfo_a (int __mode, struct gaicb *__list[__restrict], int __ent, struct sigevent *__restrict __sig); # 705 "/usr/include/netdb.h" 3 4 extern int gai_suspend (__const struct gaicb *__const __list[], int __ent, __const struct timespec *__timeout); extern int gai_error (struct gaicb *__req) __attribute__ ((__nothrow__)); extern int gai_cancel (struct gaicb *__gaicbp) __attribute__ ((__nothrow__)); # 1226 "perl.h" 2 # 1355 "perl.h" char *strerror (int); # 1374 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/ioctl.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/sys/ioctl.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/ioctls.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/ioctls.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/ioctls.h" 1 3 4 # 1 "/usr/include/asm-generic/ioctls.h" 1 3 4 # 1 "/usr/include/linux/ioctl.h" 1 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/ioctl.h" 1 3 4 # 1 "/usr/include/asm-generic/ioctl.h" 1 3 4 # 1 "/usr/include/arm-linux-gnueabi/asm/ioctl.h" 2 3 4 # 5 "/usr/include/linux/ioctl.h" 2 3 4 # 5 "/usr/include/asm-generic/ioctls.h" 2 3 4 # 7 "/usr/include/arm-linux-gnueabi/asm/ioctls.h" 2 3 4 # 25 "/usr/include/arm-linux-gnueabi/bits/ioctls.h" 2 3 4 # 28 "/usr/include/arm-linux-gnueabi/sys/ioctl.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/ioctl-types.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/bits/ioctl-types.h" 3 4 struct winsize { unsigned short int ws_row; unsigned short int ws_col; unsigned short int ws_xpixel; unsigned short int ws_ypixel; }; struct termio { unsigned short int c_iflag; unsigned short int c_oflag; unsigned short int c_cflag; unsigned short int c_lflag; unsigned char c_line; unsigned char c_cc[8]; }; # 31 "/usr/include/arm-linux-gnueabi/sys/ioctl.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/sys/ttydefaults.h" 1 3 4 # 38 "/usr/include/arm-linux-gnueabi/sys/ioctl.h" 2 3 4 extern int ioctl (int __fd, unsigned long int __request, ...) __attribute__ ((__nothrow__)); # 1375 "perl.h" 2 # 1403 "perl.h" # 1 "/usr/include/dirent.h" 1 3 4 # 28 "/usr/include/dirent.h" 3 4 # 62 "/usr/include/dirent.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/dirent.h" 1 3 4 # 23 "/usr/include/arm-linux-gnueabi/bits/dirent.h" 3 4 struct dirent { __ino64_t d_ino; __off64_t d_off; unsigned short int d_reclen; unsigned char d_type; char d_name[256]; }; struct dirent64 { __ino64_t d_ino; __off64_t d_off; unsigned short int d_reclen; unsigned char d_type; char d_name[256]; }; # 63 "/usr/include/dirent.h" 2 3 4 # 98 "/usr/include/dirent.h" 3 4 enum { DT_UNKNOWN = 0, DT_FIFO = 1, DT_CHR = 2, DT_DIR = 4, DT_BLK = 6, DT_REG = 8, DT_LNK = 10, DT_SOCK = 12, DT_WHT = 14 }; # 128 "/usr/include/dirent.h" 3 4 typedef struct __dirstream DIR; extern DIR *opendir (__const char *__name) __attribute__ ((__nonnull__ (1))); extern DIR *fdopendir (int __fd); extern int closedir (DIR *__dirp) __attribute__ ((__nonnull__ (1))); # 166 "/usr/include/dirent.h" 3 4 extern struct dirent *readdir (DIR *__dirp) __asm__ ("" "readdir64") __attribute__ ((__nonnull__ (1))); extern struct dirent64 *readdir64 (DIR *__dirp) __attribute__ ((__nonnull__ (1))); # 190 "/usr/include/dirent.h" 3 4 extern int readdir_r (DIR *__restrict __dirp, struct dirent *__restrict __entry, struct dirent **__restrict __result) __asm__ ("" "readdir64_r") __attribute__ ((__nonnull__ (1, 2, 3))); extern int readdir64_r (DIR *__restrict __dirp, struct dirent64 *__restrict __entry, struct dirent64 **__restrict __result) __attribute__ ((__nonnull__ (1, 2, 3))); extern void rewinddir (DIR *__dirp) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void seekdir (DIR *__dirp, long int __pos) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern long int telldir (DIR *__dirp) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int dirfd (DIR *__dirp) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 245 "/usr/include/dirent.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 246 "/usr/include/dirent.h" 2 3 4 # 260 "/usr/include/dirent.h" 3 4 extern int scandir (__const char *__restrict __dir, struct dirent ***__restrict __namelist, int (*__selector) (__const struct dirent *), int (*__cmp) (__const struct dirent **, __const struct dirent **)) __asm__ ("" "scandir64") __attribute__ ((__nonnull__ (1, 2))); # 275 "/usr/include/dirent.h" 3 4 extern int scandir64 (__const char *__restrict __dir, struct dirent64 ***__restrict __namelist, int (*__selector) (__const struct dirent64 *), int (*__cmp) (__const struct dirent64 **, __const struct dirent64 **)) __attribute__ ((__nonnull__ (1, 2))); # 290 "/usr/include/dirent.h" 3 4 extern int alphasort (__const struct dirent **__e1, __const struct dirent **__e2) __asm__ ("" "alphasort64") __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int alphasort64 (__const struct dirent64 **__e1, __const struct dirent64 **__e2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 319 "/usr/include/dirent.h" 3 4 extern __ssize_t getdirentries (int __fd, char *__restrict __buf, size_t __nbytes, __off64_t *__restrict __basep) __asm__ ("" "getdirentries64") __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))); extern __ssize_t getdirentries64 (int __fd, char *__restrict __buf, size_t __nbytes, __off64_t *__restrict __basep) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 4))); # 345 "/usr/include/dirent.h" 3 4 extern int versionsort (__const struct dirent **__e1, __const struct dirent **__e2) __asm__ ("" "versionsort64") __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); extern int versionsort64 (__const struct dirent64 **__e1, __const struct dirent64 **__e2) __attribute__ ((__nothrow__)) __attribute__ ((__pure__)) __attribute__ ((__nonnull__ (1, 2))); # 1404 "perl.h" 2 # 1676 "perl.h" typedef long long IV; typedef unsigned long long UV; # 1819 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 1820 "perl.h" 2 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/float.h" 1 3 4 # 1823 "perl.h" 2 # 1841 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 1842 "perl.h" 2 # 1873 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 1874 "perl.h" 2 # 1888 "perl.h" typedef double NV; # 2198 "perl.h" # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include-fixed/limits.h" 1 3 4 # 2199 "perl.h" 2 # 2366 "perl.h" struct RExC_state_t; struct _reg_trie_data; 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; # 2397 "perl.h" typedef struct sv SV; typedef struct av AV; typedef struct hv HV; typedef struct cv CV; typedef struct regexp ORANGE; typedef struct p5rx 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 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 struct clone_params CLONE_PARAMS; # 1 "handy.h" 1 # 159 "handy.h" # 1 "/usr/include/inttypes.h" 1 3 4 # 35 "/usr/include/inttypes.h" 3 4 typedef unsigned int __gwchar_t; # 274 "/usr/include/inttypes.h" 3 4 # 288 "/usr/include/inttypes.h" 3 4 typedef struct { long long int quot; long long int rem; } imaxdiv_t; extern intmax_t imaxabs (intmax_t __n) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern imaxdiv_t imaxdiv (intmax_t __numer, intmax_t __denom) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern intmax_t strtoimax (__const char *__restrict __nptr, char **__restrict __endptr, int __base) __attribute__ ((__nothrow__)); extern uintmax_t strtoumax (__const char *__restrict __nptr, char ** __restrict __endptr, int __base) __attribute__ ((__nothrow__)); extern intmax_t wcstoimax (__const __gwchar_t *__restrict __nptr, __gwchar_t **__restrict __endptr, int __base) __attribute__ ((__nothrow__)); extern uintmax_t wcstoumax (__const __gwchar_t *__restrict __nptr, __gwchar_t ** __restrict __endptr, int __base) __attribute__ ((__nothrow__)); # 379 "/usr/include/inttypes.h" 3 4 __extension__ extern long long int __strtoll_internal (__const char *__restrict __nptr, char **__restrict __endptr, int __base, int __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern __inline intmax_t __attribute__ ((__nothrow__)) strtoimax (__const char *__restrict nptr, char **__restrict endptr, int base) { return __strtoll_internal (nptr, endptr, base, 0); } __extension__ extern unsigned long long int __strtoull_internal (__const char * __restrict __nptr, char ** __restrict __endptr, int __base, int __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern __inline uintmax_t __attribute__ ((__nothrow__)) strtoumax (__const char *__restrict nptr, char **__restrict endptr, int base) { return __strtoull_internal (nptr, endptr, base, 0); } __extension__ extern long long int __wcstoll_internal (__const __gwchar_t * __restrict __nptr, __gwchar_t **__restrict __endptr, int __base, int __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern __inline intmax_t __attribute__ ((__nothrow__)) wcstoimax (__const __gwchar_t *__restrict nptr, __gwchar_t **__restrict endptr, int base) { return __wcstoll_internal (nptr, endptr, base, 0); } __extension__ extern unsigned long long int __wcstoull_internal (__const __gwchar_t * __restrict __nptr, __gwchar_t ** __restrict __endptr, int __base, int __group) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__warn_unused_result__)); extern __inline uintmax_t __attribute__ ((__nothrow__)) wcstoumax (__const __gwchar_t *__restrict nptr, __gwchar_t **__restrict endptr, int base) { return __wcstoull_internal (nptr, endptr, base, 0); } # 160 "handy.h" 2 # 170 "handy.h" typedef signed char I8; typedef unsigned char U8; typedef short I16; typedef unsigned short U16; typedef long I32; typedef unsigned long U32; typedef long long I64; typedef unsigned long long U64; # 668 "handy.h" typedef U32 line_t; # 2430 "perl.h" 2 # 2603 "perl.h" # 1 "unixish.h" 1 # 2604 "perl.h" 2 # 2833 "perl.h" # 1 "/usr/include/pthread.h" 1 3 4 # 25 "/usr/include/pthread.h" 3 4 # 1 "/usr/include/sched.h" 1 3 4 # 30 "/usr/include/sched.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 31 "/usr/include/sched.h" 2 3 4 # 43 "/usr/include/sched.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sched.h" 1 3 4 # 74 "/usr/include/arm-linux-gnueabi/bits/sched.h" 3 4 struct sched_param { int __sched_priority; }; extern int clone (int (*__fn) (void *__arg), void *__child_stack, int __flags, void *__arg, ...) __attribute__ ((__nothrow__)); extern int unshare (int __flags) __attribute__ ((__nothrow__)); extern int sched_getcpu (void) __attribute__ ((__nothrow__)); # 101 "/usr/include/arm-linux-gnueabi/bits/sched.h" 3 4 struct __sched_param { int __sched_priority; }; # 116 "/usr/include/arm-linux-gnueabi/bits/sched.h" 3 4 typedef unsigned long int __cpu_mask; typedef struct { __cpu_mask __bits[1024 / (8 * sizeof (__cpu_mask))]; } cpu_set_t; # 199 "/usr/include/arm-linux-gnueabi/bits/sched.h" 3 4 extern int __sched_cpucount (size_t __setsize, const cpu_set_t *__setp) __attribute__ ((__nothrow__)); extern cpu_set_t *__sched_cpualloc (size_t __count) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void __sched_cpufree (cpu_set_t *__set) __attribute__ ((__nothrow__)); # 44 "/usr/include/sched.h" 2 3 4 extern int sched_setparam (__pid_t __pid, __const struct sched_param *__param) __attribute__ ((__nothrow__)); extern int sched_getparam (__pid_t __pid, struct sched_param *__param) __attribute__ ((__nothrow__)); extern int sched_setscheduler (__pid_t __pid, int __policy, __const struct sched_param *__param) __attribute__ ((__nothrow__)); extern int sched_getscheduler (__pid_t __pid) __attribute__ ((__nothrow__)); extern int sched_yield (void) __attribute__ ((__nothrow__)); extern int sched_get_priority_max (int __algorithm) __attribute__ ((__nothrow__)); extern int sched_get_priority_min (int __algorithm) __attribute__ ((__nothrow__)); extern int sched_rr_get_interval (__pid_t __pid, struct timespec *__t) __attribute__ ((__nothrow__)); # 118 "/usr/include/sched.h" 3 4 extern int sched_setaffinity (__pid_t __pid, size_t __cpusetsize, __const cpu_set_t *__cpuset) __attribute__ ((__nothrow__)); extern int sched_getaffinity (__pid_t __pid, size_t __cpusetsize, cpu_set_t *__cpuset) __attribute__ ((__nothrow__)); # 26 "/usr/include/pthread.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/wordsize.h" 1 3 4 # 31 "/usr/include/pthread.h" 2 3 4 enum { PTHREAD_CREATE_JOINABLE, PTHREAD_CREATE_DETACHED }; enum { PTHREAD_MUTEX_TIMED_NP, PTHREAD_MUTEX_RECURSIVE_NP, PTHREAD_MUTEX_ERRORCHECK_NP, PTHREAD_MUTEX_ADAPTIVE_NP , PTHREAD_MUTEX_NORMAL = PTHREAD_MUTEX_TIMED_NP, PTHREAD_MUTEX_RECURSIVE = PTHREAD_MUTEX_RECURSIVE_NP, PTHREAD_MUTEX_ERRORCHECK = PTHREAD_MUTEX_ERRORCHECK_NP, PTHREAD_MUTEX_DEFAULT = PTHREAD_MUTEX_NORMAL , PTHREAD_MUTEX_FAST_NP = PTHREAD_MUTEX_TIMED_NP }; enum { PTHREAD_MUTEX_STALLED, PTHREAD_MUTEX_STALLED_NP = PTHREAD_MUTEX_STALLED, PTHREAD_MUTEX_ROBUST, PTHREAD_MUTEX_ROBUST_NP = PTHREAD_MUTEX_ROBUST }; enum { PTHREAD_PRIO_NONE, PTHREAD_PRIO_INHERIT, PTHREAD_PRIO_PROTECT }; # 115 "/usr/include/pthread.h" 3 4 enum { PTHREAD_RWLOCK_PREFER_READER_NP, PTHREAD_RWLOCK_PREFER_WRITER_NP, PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP, PTHREAD_RWLOCK_DEFAULT_NP = PTHREAD_RWLOCK_PREFER_READER_NP }; # 147 "/usr/include/pthread.h" 3 4 enum { PTHREAD_INHERIT_SCHED, PTHREAD_EXPLICIT_SCHED }; enum { PTHREAD_SCOPE_SYSTEM, PTHREAD_SCOPE_PROCESS }; enum { PTHREAD_PROCESS_PRIVATE, PTHREAD_PROCESS_SHARED }; # 182 "/usr/include/pthread.h" 3 4 struct _pthread_cleanup_buffer { void (*__routine) (void *); void *__arg; int __canceltype; struct _pthread_cleanup_buffer *__prev; }; enum { PTHREAD_CANCEL_ENABLE, PTHREAD_CANCEL_DISABLE }; enum { PTHREAD_CANCEL_DEFERRED, PTHREAD_CANCEL_ASYNCHRONOUS }; # 220 "/usr/include/pthread.h" 3 4 extern int pthread_create (pthread_t *__restrict __newthread, __const pthread_attr_t *__restrict __attr, void *(*__start_routine) (void *), void *__restrict __arg) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))); extern void pthread_exit (void *__retval) __attribute__ ((__noreturn__)); extern int pthread_join (pthread_t __th, void **__thread_return); extern int pthread_tryjoin_np (pthread_t __th, void **__thread_return) __attribute__ ((__nothrow__)); extern int pthread_timedjoin_np (pthread_t __th, void **__thread_return, __const struct timespec *__abstime); extern int pthread_detach (pthread_t __th) __attribute__ ((__nothrow__)); extern pthread_t pthread_self (void) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int pthread_equal (pthread_t __thread1, pthread_t __thread2) __attribute__ ((__nothrow__)); extern int pthread_attr_init (pthread_attr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_destroy (pthread_attr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getdetachstate (__const pthread_attr_t *__attr, int *__detachstate) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setdetachstate (pthread_attr_t *__attr, int __detachstate) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getguardsize (__const pthread_attr_t *__attr, size_t *__guardsize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setguardsize (pthread_attr_t *__attr, size_t __guardsize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getschedparam (__const pthread_attr_t *__restrict __attr, struct sched_param *__restrict __param) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setschedparam (pthread_attr_t *__restrict __attr, __const struct sched_param *__restrict __param) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_getschedpolicy (__const pthread_attr_t *__restrict __attr, int *__restrict __policy) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setschedpolicy (pthread_attr_t *__attr, int __policy) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getinheritsched (__const pthread_attr_t *__restrict __attr, int *__restrict __inherit) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setinheritsched (pthread_attr_t *__attr, int __inherit) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getscope (__const pthread_attr_t *__restrict __attr, int *__restrict __scope) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setscope (pthread_attr_t *__attr, int __scope) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getstackaddr (__const pthread_attr_t *__restrict __attr, void **__restrict __stackaddr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))) __attribute__ ((__deprecated__)); extern int pthread_attr_setstackaddr (pthread_attr_t *__attr, void *__stackaddr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))) __attribute__ ((__deprecated__)); extern int pthread_attr_getstacksize (__const pthread_attr_t *__restrict __attr, size_t *__restrict __stacksize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_attr_setstacksize (pthread_attr_t *__attr, size_t __stacksize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_getstack (__const pthread_attr_t *__restrict __attr, void **__restrict __stackaddr, size_t *__restrict __stacksize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2, 3))); extern int pthread_attr_setstack (pthread_attr_t *__attr, void *__stackaddr, size_t __stacksize) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_attr_setaffinity_np (pthread_attr_t *__attr, size_t __cpusetsize, __const cpu_set_t *__cpuset) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))); extern int pthread_attr_getaffinity_np (__const pthread_attr_t *__attr, size_t __cpusetsize, cpu_set_t *__cpuset) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))); extern int pthread_getattr_np (pthread_t __th, pthread_attr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int pthread_setschedparam (pthread_t __target_thread, int __policy, __const struct sched_param *__param) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))); extern int pthread_getschedparam (pthread_t __target_thread, int *__restrict __policy, struct sched_param *__restrict __param) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2, 3))); extern int pthread_setschedprio (pthread_t __target_thread, int __prio) __attribute__ ((__nothrow__)); extern int pthread_getname_np (pthread_t __target_thread, char *__buf, size_t __buflen) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int pthread_setname_np (pthread_t __target_thread, __const char *__name) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); extern int pthread_getconcurrency (void) __attribute__ ((__nothrow__)); extern int pthread_setconcurrency (int __level) __attribute__ ((__nothrow__)); extern int pthread_yield (void) __attribute__ ((__nothrow__)); extern int pthread_setaffinity_np (pthread_t __th, size_t __cpusetsize, __const cpu_set_t *__cpuset) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))); extern int pthread_getaffinity_np (pthread_t __th, size_t __cpusetsize, cpu_set_t *__cpuset) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (3))); # 478 "/usr/include/pthread.h" 3 4 extern int pthread_once (pthread_once_t *__once_control, void (*__init_routine) (void)) __attribute__ ((__nonnull__ (1, 2))); # 490 "/usr/include/pthread.h" 3 4 extern int pthread_setcancelstate (int __state, int *__oldstate); extern int pthread_setcanceltype (int __type, int *__oldtype); extern int pthread_cancel (pthread_t __th); extern void pthread_testcancel (void); typedef struct { struct { __jmp_buf __cancel_jmp_buf; int __mask_was_saved; } __cancel_jmp_buf[1]; void *__pad[4]; } __pthread_unwind_buf_t __attribute__ ((__aligned__)); # 524 "/usr/include/pthread.h" 3 4 struct __pthread_cleanup_frame { void (*__cancel_routine) (void *); void *__cancel_arg; int __do_it; int __cancel_type; }; # 664 "/usr/include/pthread.h" 3 4 extern void __pthread_register_cancel (__pthread_unwind_buf_t *__buf) ; # 676 "/usr/include/pthread.h" 3 4 extern void __pthread_unregister_cancel (__pthread_unwind_buf_t *__buf) ; # 699 "/usr/include/pthread.h" 3 4 extern void __pthread_register_cancel_defer (__pthread_unwind_buf_t *__buf) ; # 712 "/usr/include/pthread.h" 3 4 extern void __pthread_unregister_cancel_restore (__pthread_unwind_buf_t *__buf) ; extern void __pthread_unwind_next (__pthread_unwind_buf_t *__buf) __attribute__ ((__noreturn__)) __attribute__ ((__weak__)) ; struct __jmp_buf_tag; extern int __sigsetjmp (struct __jmp_buf_tag *__env, int __savemask) __attribute__ ((__nothrow__)); extern int pthread_mutex_init (pthread_mutex_t *__mutex, __const pthread_mutexattr_t *__mutexattr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_destroy (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_trylock (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_lock (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_timedlock (pthread_mutex_t *__restrict __mutex, __const struct timespec *__restrict __abstime) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutex_unlock (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_getprioceiling (__const pthread_mutex_t * __restrict __mutex, int *__restrict __prioceiling) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutex_setprioceiling (pthread_mutex_t *__restrict __mutex, int __prioceiling, int *__restrict __old_ceiling) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))); extern int pthread_mutex_consistent (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutex_consistent_np (pthread_mutex_t *__mutex) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 790 "/usr/include/pthread.h" 3 4 extern int pthread_mutexattr_init (pthread_mutexattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_destroy (pthread_mutexattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_getpshared (__const pthread_mutexattr_t * __restrict __attr, int *__restrict __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_setpshared (pthread_mutexattr_t *__attr, int __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_gettype (__const pthread_mutexattr_t *__restrict __attr, int *__restrict __kind) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_settype (pthread_mutexattr_t *__attr, int __kind) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_getprotocol (__const pthread_mutexattr_t * __restrict __attr, int *__restrict __protocol) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_setprotocol (pthread_mutexattr_t *__attr, int __protocol) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_getprioceiling (__const pthread_mutexattr_t * __restrict __attr, int *__restrict __prioceiling) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_setprioceiling (pthread_mutexattr_t *__attr, int __prioceiling) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_getrobust (__const pthread_mutexattr_t *__attr, int *__robustness) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_getrobust_np (__const pthread_mutexattr_t *__attr, int *__robustness) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_mutexattr_setrobust (pthread_mutexattr_t *__attr, int __robustness) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_mutexattr_setrobust_np (pthread_mutexattr_t *__attr, int __robustness) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 872 "/usr/include/pthread.h" 3 4 extern int pthread_rwlock_init (pthread_rwlock_t *__restrict __rwlock, __const pthread_rwlockattr_t *__restrict __attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_destroy (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_rdlock (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_tryrdlock (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_timedrdlock (pthread_rwlock_t *__restrict __rwlock, __const struct timespec *__restrict __abstime) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_rwlock_wrlock (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_trywrlock (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlock_timedwrlock (pthread_rwlock_t *__restrict __rwlock, __const struct timespec *__restrict __abstime) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_rwlock_unlock (pthread_rwlock_t *__rwlock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlockattr_init (pthread_rwlockattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlockattr_destroy (pthread_rwlockattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlockattr_getpshared (__const pthread_rwlockattr_t * __restrict __attr, int *__restrict __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_rwlockattr_setpshared (pthread_rwlockattr_t *__attr, int __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_rwlockattr_getkind_np (__const pthread_rwlockattr_t * __restrict __attr, int *__restrict __pref) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_rwlockattr_setkind_np (pthread_rwlockattr_t *__attr, int __pref) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_cond_init (pthread_cond_t *__restrict __cond, __const pthread_condattr_t *__restrict __cond_attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_cond_destroy (pthread_cond_t *__cond) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_cond_signal (pthread_cond_t *__cond) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_cond_broadcast (pthread_cond_t *__cond) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_cond_wait (pthread_cond_t *__restrict __cond, pthread_mutex_t *__restrict __mutex) __attribute__ ((__nonnull__ (1, 2))); # 984 "/usr/include/pthread.h" 3 4 extern int pthread_cond_timedwait (pthread_cond_t *__restrict __cond, pthread_mutex_t *__restrict __mutex, __const struct timespec *__restrict __abstime) __attribute__ ((__nonnull__ (1, 2, 3))); extern int pthread_condattr_init (pthread_condattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_condattr_destroy (pthread_condattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_condattr_getpshared (__const pthread_condattr_t * __restrict __attr, int *__restrict __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_condattr_setpshared (pthread_condattr_t *__attr, int __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_condattr_getclock (__const pthread_condattr_t * __restrict __attr, __clockid_t *__restrict __clock_id) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_condattr_setclock (pthread_condattr_t *__attr, __clockid_t __clock_id) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 1028 "/usr/include/pthread.h" 3 4 extern int pthread_spin_init (pthread_spinlock_t *__lock, int __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_spin_destroy (pthread_spinlock_t *__lock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_spin_lock (pthread_spinlock_t *__lock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_spin_trylock (pthread_spinlock_t *__lock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_spin_unlock (pthread_spinlock_t *__lock) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrier_init (pthread_barrier_t *__restrict __barrier, __const pthread_barrierattr_t *__restrict __attr, unsigned int __count) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrier_destroy (pthread_barrier_t *__barrier) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrier_wait (pthread_barrier_t *__barrier) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrierattr_init (pthread_barrierattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrierattr_destroy (pthread_barrierattr_t *__attr) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_barrierattr_getpshared (__const pthread_barrierattr_t * __restrict __attr, int *__restrict __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern int pthread_barrierattr_setpshared (pthread_barrierattr_t *__attr, int __pshared) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); # 1095 "/usr/include/pthread.h" 3 4 extern int pthread_key_create (pthread_key_t *__key, void (*__destr_function) (void *)) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern int pthread_key_delete (pthread_key_t __key) __attribute__ ((__nothrow__)); extern void *pthread_getspecific (pthread_key_t __key) __attribute__ ((__nothrow__)); extern int pthread_setspecific (pthread_key_t __key, __const void *__pointer) __attribute__ ((__nothrow__)) ; extern int pthread_getcpuclockid (pthread_t __thread_id, __clockid_t *__clock_id) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (2))); # 1129 "/usr/include/pthread.h" 3 4 extern int pthread_atfork (void (*__prepare) (void), void (*__parent) (void), void (*__child) (void)) __attribute__ ((__nothrow__)); extern __inline int __attribute__ ((__nothrow__)) pthread_equal (pthread_t __thread1, pthread_t __thread2) { return __thread1 == __thread2; } # 2834 "perl.h" 2 typedef pthread_t perl_os_thread; typedef pthread_mutex_t perl_mutex; typedef pthread_cond_t perl_cond; typedef pthread_key_t perl_key; # 3331 "perl.h" union any { void* any_ptr; I32 any_i32; IV any_iv; long any_long; char any_bool; void (*any_dptr) (void*); void (*any_dxptr) (register PerlInterpreter* my_perl __attribute__((unused)), void*); }; typedef I32 (*filter_t) (register PerlInterpreter* my_perl __attribute__((unused)), int, SV *, int); # 3371 "perl.h" # 1 "iperlsys.h" 1 # 51 "iperlsys.h" # 1 "perlio.h" 1 # 65 "perlio.h" # 1 "/usr/include/stdio.h" 1 3 4 # 30 "/usr/include/stdio.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 35 "/usr/include/stdio.h" 2 3 4 # 45 "/usr/include/stdio.h" 3 4 struct _IO_FILE; typedef struct _IO_FILE FILE; # 65 "/usr/include/stdio.h" 3 4 typedef struct _IO_FILE __FILE; # 75 "/usr/include/stdio.h" 3 4 # 1 "/usr/include/libio.h" 1 3 4 # 32 "/usr/include/libio.h" 3 4 # 1 "/usr/include/_G_config.h" 1 3 4 # 15 "/usr/include/_G_config.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 16 "/usr/include/_G_config.h" 2 3 4 # 1 "/usr/include/wchar.h" 1 3 4 # 83 "/usr/include/wchar.h" 3 4 typedef struct { int __count; union { unsigned int __wch; char __wchb[4]; } __value; } __mbstate_t; # 21 "/usr/include/_G_config.h" 2 3 4 typedef struct { __off_t __pos; __mbstate_t __state; } _G_fpos_t; typedef struct { __off64_t __pos; __mbstate_t __state; } _G_fpos64_t; # 53 "/usr/include/_G_config.h" 3 4 typedef int _G_int16_t __attribute__ ((__mode__ (__HI__))); typedef int _G_int32_t __attribute__ ((__mode__ (__SI__))); typedef unsigned int _G_uint16_t __attribute__ ((__mode__ (__HI__))); typedef unsigned int _G_uint32_t __attribute__ ((__mode__ (__SI__))); # 33 "/usr/include/libio.h" 2 3 4 # 170 "/usr/include/libio.h" 3 4 struct _IO_jump_t; struct _IO_FILE; # 180 "/usr/include/libio.h" 3 4 typedef void _IO_lock_t; struct _IO_marker { struct _IO_marker *_next; struct _IO_FILE *_sbuf; int _pos; # 203 "/usr/include/libio.h" 3 4 }; enum __codecvt_result { __codecvt_ok, __codecvt_partial, __codecvt_error, __codecvt_noconv }; # 271 "/usr/include/libio.h" 3 4 struct _IO_FILE { int _flags; char* _IO_read_ptr; char* _IO_read_end; char* _IO_read_base; char* _IO_write_base; char* _IO_write_ptr; char* _IO_write_end; char* _IO_buf_base; char* _IO_buf_end; char *_IO_save_base; char *_IO_backup_base; char *_IO_save_end; struct _IO_marker *_markers; struct _IO_FILE *_chain; int _fileno; int _flags2; __off_t _old_offset; unsigned short _cur_column; signed char _vtable_offset; char _shortbuf[1]; _IO_lock_t *_lock; # 319 "/usr/include/libio.h" 3 4 __off64_t _offset; # 328 "/usr/include/libio.h" 3 4 void *__pad1; void *__pad2; void *__pad3; void *__pad4; size_t __pad5; int _mode; char _unused2[15 * sizeof (int) - 4 * sizeof (void *) - sizeof (size_t)]; }; typedef struct _IO_FILE _IO_FILE; struct _IO_FILE_plus; extern struct _IO_FILE_plus _IO_2_1_stdin_; extern struct _IO_FILE_plus _IO_2_1_stdout_; extern struct _IO_FILE_plus _IO_2_1_stderr_; # 364 "/usr/include/libio.h" 3 4 typedef __ssize_t __io_read_fn (void *__cookie, char *__buf, size_t __nbytes); typedef __ssize_t __io_write_fn (void *__cookie, __const char *__buf, size_t __n); typedef int __io_seek_fn (void *__cookie, __off64_t *__pos, int __w); typedef int __io_close_fn (void *__cookie); typedef __io_read_fn cookie_read_function_t; typedef __io_write_fn cookie_write_function_t; typedef __io_seek_fn cookie_seek_function_t; typedef __io_close_fn cookie_close_function_t; typedef struct { __io_read_fn *read; __io_write_fn *write; __io_seek_fn *seek; __io_close_fn *close; } _IO_cookie_io_functions_t; typedef _IO_cookie_io_functions_t cookie_io_functions_t; struct _IO_cookie_file; extern void _IO_cookie_init (struct _IO_cookie_file *__cfile, int __read_write, void *__cookie, _IO_cookie_io_functions_t __fns); extern int __underflow (_IO_FILE *); extern int __uflow (_IO_FILE *); extern int __overflow (_IO_FILE *, int); # 460 "/usr/include/libio.h" 3 4 extern int _IO_getc (_IO_FILE *__fp); extern int _IO_putc (int __c, _IO_FILE *__fp); extern int _IO_feof (_IO_FILE *__fp) __attribute__ ((__nothrow__)); extern int _IO_ferror (_IO_FILE *__fp) __attribute__ ((__nothrow__)); extern int _IO_peekc_locked (_IO_FILE *__fp); extern void _IO_flockfile (_IO_FILE *) __attribute__ ((__nothrow__)); extern void _IO_funlockfile (_IO_FILE *) __attribute__ ((__nothrow__)); extern int _IO_ftrylockfile (_IO_FILE *) __attribute__ ((__nothrow__)); # 490 "/usr/include/libio.h" 3 4 extern int _IO_vfscanf (_IO_FILE * __restrict, const char * __restrict, __gnuc_va_list, int *__restrict); extern int _IO_vfprintf (_IO_FILE *__restrict, const char *__restrict, __gnuc_va_list); extern __ssize_t _IO_padn (_IO_FILE *, int, __ssize_t); extern size_t _IO_sgetn (_IO_FILE *, void *, size_t); extern __off64_t _IO_seekoff (_IO_FILE *, __off64_t, int, int); extern __off64_t _IO_seekpos (_IO_FILE *, __off64_t, int); extern void _IO_free_backup_area (_IO_FILE *) __attribute__ ((__nothrow__)); # 76 "/usr/include/stdio.h" 2 3 4 # 109 "/usr/include/stdio.h" 3 4 typedef _G_fpos64_t fpos_t; typedef _G_fpos64_t fpos64_t; # 161 "/usr/include/stdio.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stdio_lim.h" 1 3 4 # 162 "/usr/include/stdio.h" 2 3 4 extern struct _IO_FILE *stdin; extern struct _IO_FILE *stdout; extern struct _IO_FILE *stderr; extern int remove (__const char *__filename) __attribute__ ((__nothrow__)); extern int rename (__const char *__old, __const char *__new) __attribute__ ((__nothrow__)); extern int renameat (int __oldfd, __const char *__old, int __newfd, __const char *__new) __attribute__ ((__nothrow__)); # 195 "/usr/include/stdio.h" 3 4 extern FILE *tmpfile (void) __asm__ ("" "tmpfile64") __attribute__ ((__warn_unused_result__)); extern FILE *tmpfile64 (void) __attribute__ ((__warn_unused_result__)); extern char *tmpnam (char *__s) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern char *tmpnam_r (char *__s) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 224 "/usr/include/stdio.h" 3 4 extern char *tempnam (__const char *__dir, __const char *__pfx) __attribute__ ((__nothrow__)) __attribute__ ((__malloc__)) __attribute__ ((__warn_unused_result__)); # 234 "/usr/include/stdio.h" 3 4 extern int fclose (FILE *__stream); extern int fflush (FILE *__stream); # 249 "/usr/include/stdio.h" 3 4 extern int fflush_unlocked (FILE *__stream); # 259 "/usr/include/stdio.h" 3 4 extern int fcloseall (void); # 280 "/usr/include/stdio.h" 3 4 extern FILE *fopen (__const char *__restrict __filename, __const char *__restrict __modes) __asm__ ("" "fopen64") __attribute__ ((__warn_unused_result__)); extern FILE *freopen (__const char *__restrict __filename, __const char *__restrict __modes, FILE *__restrict __stream) __asm__ ("" "freopen64") __attribute__ ((__warn_unused_result__)); extern FILE *fopen64 (__const char *__restrict __filename, __const char *__restrict __modes) __attribute__ ((__warn_unused_result__)); extern FILE *freopen64 (__const char *__restrict __filename, __const char *__restrict __modes, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern FILE *fdopen (int __fd, __const char *__modes) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern FILE *fopencookie (void *__restrict __magic_cookie, __const char *__restrict __modes, _IO_cookie_io_functions_t __io_funcs) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern FILE *fmemopen (void *__s, size_t __len, __const char *__modes) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern FILE *open_memstream (char **__bufloc, size_t *__sizeloc) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void setbuf (FILE *__restrict __stream, char *__restrict __buf) __attribute__ ((__nothrow__)); extern int setvbuf (FILE *__restrict __stream, char *__restrict __buf, int __modes, size_t __n) __attribute__ ((__nothrow__)); extern void setbuffer (FILE *__restrict __stream, char *__restrict __buf, size_t __size) __attribute__ ((__nothrow__)); extern void setlinebuf (FILE *__stream) __attribute__ ((__nothrow__)); # 353 "/usr/include/stdio.h" 3 4 extern int fprintf (FILE *__restrict __stream, __const char *__restrict __format, ...); extern int printf (__const char *__restrict __format, ...); extern int sprintf (char *__restrict __s, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)); extern int vfprintf (FILE *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg); extern int vprintf (__const char *__restrict __format, __gnuc_va_list __arg); extern int vsprintf (char *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__nothrow__)); extern int snprintf (char *__restrict __s, size_t __maxlen, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 4))); extern int vsnprintf (char *__restrict __s, size_t __maxlen, __const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 0))); extern int vasprintf (char **__restrict __ptr, __const char *__restrict __f, __gnuc_va_list __arg) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 2, 0))) __attribute__ ((__warn_unused_result__)); extern int __asprintf (char **__restrict __ptr, __const char *__restrict __fmt, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 2, 3))) __attribute__ ((__warn_unused_result__)); extern int asprintf (char **__restrict __ptr, __const char *__restrict __fmt, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 2, 3))) __attribute__ ((__warn_unused_result__)); # 414 "/usr/include/stdio.h" 3 4 extern int vdprintf (int __fd, __const char *__restrict __fmt, __gnuc_va_list __arg) __attribute__ ((__format__ (__printf__, 2, 0))); extern int dprintf (int __fd, __const char *__restrict __fmt, ...) __attribute__ ((__format__ (__printf__, 2, 3))); # 427 "/usr/include/stdio.h" 3 4 extern int fscanf (FILE *__restrict __stream, __const char *__restrict __format, ...) __attribute__ ((__warn_unused_result__)); extern int scanf (__const char *__restrict __format, ...) __attribute__ ((__warn_unused_result__)); extern int sscanf (__const char *__restrict __s, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)); # 465 "/usr/include/stdio.h" 3 4 # 473 "/usr/include/stdio.h" 3 4 extern int vfscanf (FILE *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__format__ (__scanf__, 2, 0))) __attribute__ ((__warn_unused_result__)); extern int vscanf (__const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__format__ (__scanf__, 1, 0))) __attribute__ ((__warn_unused_result__)); extern int vsscanf (__const char *__restrict __s, __const char *__restrict __format, __gnuc_va_list __arg) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__scanf__, 2, 0))); # 524 "/usr/include/stdio.h" 3 4 # 533 "/usr/include/stdio.h" 3 4 extern int fgetc (FILE *__stream); extern int getc (FILE *__stream); extern int getchar (void); # 552 "/usr/include/stdio.h" 3 4 extern int getc_unlocked (FILE *__stream); extern int getchar_unlocked (void); # 563 "/usr/include/stdio.h" 3 4 extern int fgetc_unlocked (FILE *__stream); # 575 "/usr/include/stdio.h" 3 4 extern int fputc (int __c, FILE *__stream); extern int putc (int __c, FILE *__stream); extern int putchar (int __c); # 596 "/usr/include/stdio.h" 3 4 extern int fputc_unlocked (int __c, FILE *__stream); extern int putc_unlocked (int __c, FILE *__stream); extern int putchar_unlocked (int __c); extern int getw (FILE *__stream); extern int putw (int __w, FILE *__stream); # 624 "/usr/include/stdio.h" 3 4 extern char *fgets (char *__restrict __s, int __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern char *gets (char *__s) __attribute__ ((__warn_unused_result__)); # 642 "/usr/include/stdio.h" 3 4 extern char *fgets_unlocked (char *__restrict __s, int __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); # 658 "/usr/include/stdio.h" 3 4 extern __ssize_t __getdelim (char **__restrict __lineptr, size_t *__restrict __n, int __delimiter, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern __ssize_t getdelim (char **__restrict __lineptr, size_t *__restrict __n, int __delimiter, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern __ssize_t getline (char **__restrict __lineptr, size_t *__restrict __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); # 682 "/usr/include/stdio.h" 3 4 extern int fputs (__const char *__restrict __s, FILE *__restrict __stream); extern int puts (__const char *__s); extern int ungetc (int __c, FILE *__stream); extern size_t fread (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern size_t fwrite (__const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __s); # 719 "/usr/include/stdio.h" 3 4 extern int fputs_unlocked (__const char *__restrict __s, FILE *__restrict __stream); # 730 "/usr/include/stdio.h" 3 4 extern size_t fread_unlocked (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern size_t fwrite_unlocked (__const void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream); # 742 "/usr/include/stdio.h" 3 4 extern int fseek (FILE *__stream, long int __off, int __whence); extern long int ftell (FILE *__stream) __attribute__ ((__warn_unused_result__)); extern void rewind (FILE *__stream); # 774 "/usr/include/stdio.h" 3 4 extern int fseeko (FILE *__stream, __off64_t __off, int __whence) __asm__ ("" "fseeko64") ; extern __off64_t ftello (FILE *__stream) __asm__ ("" "ftello64"); # 799 "/usr/include/stdio.h" 3 4 extern int fgetpos (FILE *__restrict __stream, fpos_t *__restrict __pos) __asm__ ("" "fgetpos64") ; extern int fsetpos (FILE *__stream, __const fpos_t *__pos) __asm__ ("" "fsetpos64") ; # 811 "/usr/include/stdio.h" 3 4 extern int fseeko64 (FILE *__stream, __off64_t __off, int __whence); extern __off64_t ftello64 (FILE *__stream) __attribute__ ((__warn_unused_result__)); extern int fgetpos64 (FILE *__restrict __stream, fpos64_t *__restrict __pos); extern int fsetpos64 (FILE *__stream, __const fpos64_t *__pos); extern void clearerr (FILE *__stream) __attribute__ ((__nothrow__)); extern int feof (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int ferror (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void clearerr_unlocked (FILE *__stream) __attribute__ ((__nothrow__)); extern int feof_unlocked (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int ferror_unlocked (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 839 "/usr/include/stdio.h" 3 4 extern void perror (__const char *__s); # 1 "/usr/include/arm-linux-gnueabi/bits/sys_errlist.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/bits/sys_errlist.h" 3 4 extern int sys_nerr; extern __const char *__const sys_errlist[]; extern int _sys_nerr; extern __const char *__const _sys_errlist[]; # 847 "/usr/include/stdio.h" 2 3 4 extern int fileno (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern int fileno_unlocked (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); # 866 "/usr/include/stdio.h" 3 4 extern FILE *popen (__const char *__command, __const char *__modes) __attribute__ ((__warn_unused_result__)); extern int pclose (FILE *__stream); extern char *ctermid (char *__s) __attribute__ ((__nothrow__)); extern char *cuserid (char *__s); struct obstack; extern int obstack_printf (struct obstack *__restrict __obstack, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 2, 3))); extern int obstack_vprintf (struct obstack *__restrict __obstack, __const char *__restrict __format, __gnuc_va_list __args) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 2, 0))); extern void flockfile (FILE *__stream) __attribute__ ((__nothrow__)); extern int ftrylockfile (FILE *__stream) __attribute__ ((__nothrow__)) __attribute__ ((__warn_unused_result__)); extern void funlockfile (FILE *__stream) __attribute__ ((__nothrow__)); # 927 "/usr/include/stdio.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stdio.h" 1 3 4 # 44 "/usr/include/arm-linux-gnueabi/bits/stdio.h" 3 4 extern __inline int getchar (void) { return _IO_getc (stdin); } extern __inline int fgetc_unlocked (FILE *__fp) { return (__builtin_expect (((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end), 0) ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++); } extern __inline int getc_unlocked (FILE *__fp) { return (__builtin_expect (((__fp)->_IO_read_ptr >= (__fp)->_IO_read_end), 0) ? __uflow (__fp) : *(unsigned char *) (__fp)->_IO_read_ptr++); } extern __inline int getchar_unlocked (void) { return (__builtin_expect (((stdin)->_IO_read_ptr >= (stdin)->_IO_read_end), 0) ? __uflow (stdin) : *(unsigned char *) (stdin)->_IO_read_ptr++); } extern __inline int putchar (int __c) { return _IO_putc (__c, stdout); } extern __inline int fputc_unlocked (int __c, FILE *__stream) { return (__builtin_expect (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end), 0) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); } extern __inline int putc_unlocked (int __c, FILE *__stream) { return (__builtin_expect (((__stream)->_IO_write_ptr >= (__stream)->_IO_write_end), 0) ? __overflow (__stream, (unsigned char) (__c)) : (unsigned char) (*(__stream)->_IO_write_ptr++ = (__c))); } extern __inline int putchar_unlocked (int __c) { return (__builtin_expect (((stdout)->_IO_write_ptr >= (stdout)->_IO_write_end), 0) ? __overflow (stdout, (unsigned char) (__c)) : (unsigned char) (*(stdout)->_IO_write_ptr++ = (__c))); } extern __inline __ssize_t getline (char **__lineptr, size_t *__n, FILE *__stream) { return __getdelim (__lineptr, __n, '\n', __stream); } extern __inline int __attribute__ ((__nothrow__)) feof_unlocked (FILE *__stream) { return (((__stream)->_flags & 0x10) != 0); } extern __inline int __attribute__ ((__nothrow__)) ferror_unlocked (FILE *__stream) { return (((__stream)->_flags & 0x20) != 0); } # 928 "/usr/include/stdio.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stdio2.h" 1 3 4 # 24 "/usr/include/arm-linux-gnueabi/bits/stdio2.h" 3 4 extern int __sprintf_chk (char *__restrict __s, int __flag, size_t __slen, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)); extern int __vsprintf_chk (char *__restrict __s, int __flag, size_t __slen, __const char *__restrict __format, __gnuc_va_list __ap) __attribute__ ((__nothrow__)); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) sprintf (char *__restrict __s, __const char *__restrict __fmt, ...) { return __builtin___sprintf_chk (__s, 2 - 1, __builtin_object_size (__s, 2 > 1), __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) vsprintf (char *__restrict __s, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __builtin___vsprintf_chk (__s, 2 - 1, __builtin_object_size (__s, 2 > 1), __fmt, __ap); } extern int __snprintf_chk (char *__restrict __s, size_t __n, int __flag, size_t __slen, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)); extern int __vsnprintf_chk (char *__restrict __s, size_t __n, int __flag, size_t __slen, __const char *__restrict __format, __gnuc_va_list __ap) __attribute__ ((__nothrow__)); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) snprintf (char *__restrict __s, size_t __n, __const char *__restrict __fmt, ...) { return __builtin___snprintf_chk (__s, __n, 2 - 1, __builtin_object_size (__s, 2 > 1), __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) vsnprintf (char *__restrict __s, size_t __n, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __builtin___vsnprintf_chk (__s, __n, 2 - 1, __builtin_object_size (__s, 2 > 1), __fmt, __ap); } extern int __fprintf_chk (FILE *__restrict __stream, int __flag, __const char *__restrict __format, ...); extern int __printf_chk (int __flag, __const char *__restrict __format, ...); extern int __vfprintf_chk (FILE *__restrict __stream, int __flag, __const char *__restrict __format, __gnuc_va_list __ap); extern int __vprintf_chk (int __flag, __const char *__restrict __format, __gnuc_va_list __ap); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int fprintf (FILE *__restrict __stream, __const char *__restrict __fmt, ...) { return __fprintf_chk (__stream, 2 - 1, __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int printf (__const char *__restrict __fmt, ...) { return __printf_chk (2 - 1, __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int vprintf (__const char *__restrict __fmt, __gnuc_va_list __ap) { return __vfprintf_chk (stdout, 2 - 1, __fmt, __ap); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int vfprintf (FILE *__restrict __stream, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __vfprintf_chk (__stream, 2 - 1, __fmt, __ap); } extern int __asprintf_chk (char **__restrict __ptr, int __flag, __const char *__restrict __fmt, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 4))) __attribute__ ((__warn_unused_result__)); extern int __vasprintf_chk (char **__restrict __ptr, int __flag, __const char *__restrict __fmt, __gnuc_va_list __arg) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 0))) __attribute__ ((__warn_unused_result__)); extern int __dprintf_chk (int __fd, int __flag, __const char *__restrict __fmt, ...) __attribute__ ((__format__ (__printf__, 3, 4))); extern int __vdprintf_chk (int __fd, int __flag, __const char *__restrict __fmt, __gnuc_va_list __arg) __attribute__ ((__format__ (__printf__, 3, 0))); extern int __obstack_printf_chk (struct obstack *__restrict __obstack, int __flag, __const char *__restrict __format, ...) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 4))); extern int __obstack_vprintf_chk (struct obstack *__restrict __obstack, int __flag, __const char *__restrict __format, __gnuc_va_list __args) __attribute__ ((__nothrow__)) __attribute__ ((__format__ (__printf__, 3, 0))); extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) asprintf (char **__restrict __ptr, __const char *__restrict __fmt, ...) { return __asprintf_chk (__ptr, 2 - 1, __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) __asprintf (char **__restrict __ptr, __const char *__restrict __fmt, ...) { return __asprintf_chk (__ptr, 2 - 1, __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int dprintf (int __fd, __const char *__restrict __fmt, ...) { return __dprintf_chk (__fd, 2 - 1, __fmt, __builtin_va_arg_pack ()); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) obstack_printf (struct obstack *__restrict __obstack, __const char *__restrict __fmt, ...) { return __obstack_printf_chk (__obstack, 2 - 1, __fmt, __builtin_va_arg_pack ()); } # 195 "/usr/include/arm-linux-gnueabi/bits/stdio2.h" 3 4 extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) vasprintf (char **__restrict __ptr, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __vasprintf_chk (__ptr, 2 - 1, __fmt, __ap); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int vdprintf (int __fd, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __vdprintf_chk (__fd, 2 - 1, __fmt, __ap); } extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int __attribute__ ((__nothrow__)) obstack_vprintf (struct obstack *__restrict __obstack, __const char *__restrict __fmt, __gnuc_va_list __ap) { return __obstack_vprintf_chk (__obstack, 2 - 1, __fmt, __ap); } extern char *__gets_chk (char *__str, size_t) __attribute__ ((__warn_unused_result__)); extern char *__gets_warn (char *__str) __asm__ ("" "gets") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("please use fgets or getline instead, gets can't " "specify buffer size"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char * gets (char *__str) { if (__builtin_object_size (__str, 2 > 1) != (size_t) -1) return __gets_chk (__str, __builtin_object_size (__str, 2 > 1)); return __gets_warn (__str); } extern char *__fgets_chk (char *__restrict __s, size_t __size, int __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern char *__fgets_alias (char *__restrict __s, int __n, FILE *__restrict __stream) __asm__ ("" "fgets") __attribute__ ((__warn_unused_result__)); extern char *__fgets_chk_warn (char *__restrict __s, size_t __size, int __n, FILE *__restrict __stream) __asm__ ("" "__fgets_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fgets called with bigger size than length " "of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char * fgets (char *__restrict __s, int __n, FILE *__restrict __stream) { if (__builtin_object_size (__s, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__n) || __n <= 0) return __fgets_chk (__s, __builtin_object_size (__s, 2 > 1), __n, __stream); if ((size_t) __n > __builtin_object_size (__s, 2 > 1)) return __fgets_chk_warn (__s, __builtin_object_size (__s, 2 > 1), __n, __stream); } return __fgets_alias (__s, __n, __stream); } extern size_t __fread_chk (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern size_t __fread_alias (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "fread") __attribute__ ((__warn_unused_result__)); extern size_t __fread_chk_warn (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "__fread_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fread called with bigger size * nmemb than length " "of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) size_t fread (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) { if (__builtin_object_size (__ptr, 0) != (size_t) -1) { if (!__builtin_constant_p (__size) || !__builtin_constant_p (__n) || (__size | __n) >= (((size_t) 1) << (8 * sizeof (size_t) / 2))) return __fread_chk (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream); if (__size * __n > __builtin_object_size (__ptr, 0)) return __fread_chk_warn (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream); } return __fread_alias (__ptr, __size, __n, __stream); } extern char *__fgets_unlocked_chk (char *__restrict __s, size_t __size, int __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern char *__fgets_unlocked_alias (char *__restrict __s, int __n, FILE *__restrict __stream) __asm__ ("" "fgets_unlocked") __attribute__ ((__warn_unused_result__)); extern char *__fgets_unlocked_chk_warn (char *__restrict __s, size_t __size, int __n, FILE *__restrict __stream) __asm__ ("" "__fgets_unlocked_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fgets_unlocked called with bigger size than length " "of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) char * fgets_unlocked (char *__restrict __s, int __n, FILE *__restrict __stream) { if (__builtin_object_size (__s, 2 > 1) != (size_t) -1) { if (!__builtin_constant_p (__n) || __n <= 0) return __fgets_unlocked_chk (__s, __builtin_object_size (__s, 2 > 1), __n, __stream); if ((size_t) __n > __builtin_object_size (__s, 2 > 1)) return __fgets_unlocked_chk_warn (__s, __builtin_object_size (__s, 2 > 1), __n, __stream); } return __fgets_unlocked_alias (__s, __n, __stream); } extern size_t __fread_unlocked_chk (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __attribute__ ((__warn_unused_result__)); extern size_t __fread_unlocked_alias (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "fread_unlocked") __attribute__ ((__warn_unused_result__)); extern size_t __fread_unlocked_chk_warn (void *__restrict __ptr, size_t __ptrlen, size_t __size, size_t __n, FILE *__restrict __stream) __asm__ ("" "__fread_unlocked_chk") __attribute__ ((__warn_unused_result__)) __attribute__((__warning__ ("fread_unlocked called with bigger size * nmemb than " "length of destination buffer"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) __attribute__ ((__warn_unused_result__)) size_t fread_unlocked (void *__restrict __ptr, size_t __size, size_t __n, FILE *__restrict __stream) { if (__builtin_object_size (__ptr, 0) != (size_t) -1) { if (!__builtin_constant_p (__size) || !__builtin_constant_p (__n) || (__size | __n) >= (((size_t) 1) << (8 * sizeof (size_t) / 2))) return __fread_unlocked_chk (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream); if (__size * __n > __builtin_object_size (__ptr, 0)) return __fread_unlocked_chk_warn (__ptr, __builtin_object_size (__ptr, 0), __size, __n, __stream); } if (__builtin_constant_p (__size) && __builtin_constant_p (__n) && (__size | __n) < (((size_t) 1) << (8 * sizeof (size_t) / 2)) && __size * __n <= 8) { size_t __cnt = __size * __n; char *__cptr = (char *) __ptr; if (__cnt == 0) return 0; for (; __cnt > 0; --__cnt) { int __c = (__builtin_expect (((__stream)->_IO_read_ptr >= (__stream)->_IO_read_end), 0) ? __uflow (__stream) : *(unsigned char *) (__stream)->_IO_read_ptr++); if (__c == (-1)) break; *__cptr++ = __c; } return (__cptr - (char *) __ptr) / __size; } return __fread_unlocked_alias (__ptr, __size, __n, __stream); } # 931 "/usr/include/stdio.h" 2 3 4 # 66 "perlio.h" 2 # 99 "perlio.h" typedef struct _PerlIO PerlIOl; typedef struct _PerlIO_funcs PerlIO_funcs; typedef PerlIOl *PerlIO; # 117 "perlio.h" extern void PerlIO_define_layer(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO_funcs *tab); extern PerlIO_funcs *PerlIO_find_layer(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, STRLEN len, int load); extern PerlIO *PerlIO_push(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, PerlIO_funcs *tab, const char *mode, SV *arg); extern void PerlIO_pop(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); extern AV* PerlIO_get_layers(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); extern void PerlIO_clone(register PerlInterpreter* my_perl __attribute__((unused)), PerlInterpreter *proto, CLONE_PARAMS *param); # 161 "perlio.h" # 1 "nostdio.h" 1 # 162 "perlio.h" 2 # 209 "perlio.h" # 218 "perlio.h" extern void PerlIO_init(register PerlInterpreter* my_perl __attribute__((unused))); extern int PerlIO_stdoutf(const char *, ...) __attribute__((format(__printf__,1,2))); extern int PerlIO_puts(PerlIO *, const char *); extern PerlIO *PerlIO_open(const char *, const char *); extern PerlIO *PerlIO_openn(register PerlInterpreter* my_perl __attribute__((unused)), const char *layers, const char *mode, int fd, int imode, int perm, PerlIO *old, int narg, SV **arg); # 245 "perlio.h" extern int PerlIO_getc(PerlIO *); extern int PerlIO_putc(PerlIO *, int); extern int PerlIO_ungetc(PerlIO *, int); extern PerlIO *PerlIO_fdopen(int, const char *); extern PerlIO *PerlIO_importFILE(FILE *, const char *); extern FILE *PerlIO_exportFILE(PerlIO *, const char *); extern FILE *PerlIO_findFILE(PerlIO *); extern void PerlIO_releaseFILE(PerlIO *, FILE *); # 281 "perlio.h" extern int PerlIO_printf(PerlIO *, const char *, ...) __attribute__((format(__printf__,2,3))); extern int PerlIO_sprintf(char *, int, const char *, ...) __attribute__((format(__printf__,3,4))); extern int PerlIO_vprintf(PerlIO *, const char *, va_list); # 298 "perlio.h" extern void PerlIO_rewind(PerlIO *); extern int PerlIO_has_base(PerlIO *); extern int PerlIO_has_cntptr(PerlIO *); extern int PerlIO_fast_gets(PerlIO *); extern int PerlIO_canset_cnt(PerlIO *); # 331 "perlio.h" extern PerlIO *PerlIO_tmpfile(void); # 343 "perlio.h" extern int PerlIO_getpos(PerlIO *, SV *); extern int PerlIO_setpos(PerlIO *, SV *); extern PerlIO *PerlIO_fdupopen(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *, CLONE_PARAMS *, int); extern char *PerlIO_modestr(PerlIO *, char *buf); extern int PerlIO_isutf8(PerlIO *); extern int PerlIO_apply_layers(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, const char *mode, const char *names); extern int PerlIO_binmode(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, int iotype, int omode, const char *names); extern char *PerlIO_getname(PerlIO *, char *); extern void PerlIO_destruct(register PerlInterpreter* my_perl __attribute__((unused))); extern int PerlIO_intmode2str(int rawmode, char *mode, int *writing); extern void PerlIO_cleanup(register PerlInterpreter* my_perl __attribute__((unused))); extern void PerlIO_debug(const char *fmt, ...) __attribute__((format(__printf__,1,2))); typedef struct PerlIO_list_s PerlIO_list_t; # 52 "iperlsys.h" 2 typedef void (*Sighandler_t) (int, siginfo_t*, void*); # 3372 "perl.h" 2 # 3397 "perl.h" # 1 "perly.h" 1 # 42 "perly.h" enum yytokentype { WORD = 258, METHOD = 259, FUNCMETH = 260, THING = 261, PMFUNC = 262, PRIVATEREF = 263, FUNC0SUB = 264, UNIOPSUB = 265, LSTOPSUB = 266, PLUGEXPR = 267, PLUGSTMT = 268, LABEL = 269, FORMAT = 270, SUB = 271, ANONSUB = 272, PACKAGE = 273, USE = 274, WHILE = 275, UNTIL = 276, IF = 277, UNLESS = 278, ELSE = 279, ELSIF = 280, CONTINUE = 281, FOR = 282, GIVEN = 283, WHEN = 284, DEFAULT = 285, LOOPEX = 286, DOTDOT = 287, YADAYADA = 288, FUNC0 = 289, FUNC1 = 290, FUNC = 291, UNIOP = 292, LSTOP = 293, RELOP = 294, EQOP = 295, MULOP = 296, ADDOP = 297, DOLSHARP = 298, DO = 299, HASHBRACK = 300, NOAMP = 301, LOCAL = 302, MY = 303, MYSUB = 304, REQUIRE = 305, COLONATTR = 306, PREC_LOW = 307, DOROP = 308, OROP = 309, ANDOP = 310, NOTOP = 311, ASSIGNOP = 312, DORDOR = 313, OROR = 314, ANDAND = 315, BITOROP = 316, BITANDOP = 317, SHIFTOP = 318, MATCHOP = 319, REFGEN = 320, UMINUS = 321, POWOP = 322, POSTDEC = 323, POSTINC = 324, PREDEC = 325, PREINC = 326, ARROW = 327, PEG = 328 }; # 194 "perly.h" typedef union YYSTYPE { I32 ival; char *pval; OP *opval; GV *gvval; char *p_tkval; I32 i_tkval; # 218 "perly.h" } YYSTYPE; # 3398 "perl.h" 2 # 3418 "perl.h" # 1 "sv.h" 1 # 46 "sv.h" typedef enum { SVt_NULL, SVt_BIND, SVt_IV, SVt_NV, SVt_PV, SVt_PVIV, SVt_PVNV, SVt_PVMG, SVt_REGEXP, SVt_PVGV, SVt_PVLV, SVt_PVAV, SVt_PVHV, SVt_PVCV, SVt_PVFM, SVt_PVIO, SVt_LAST } svtype; # 93 "sv.h" typedef struct he HE; typedef struct hek HEK; # 116 "sv.h" struct sv { void* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; # 127 "sv.h" }; struct gv { XPVGV* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; struct cv { XPVCV* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; struct av { XPVAV* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; struct hv { XPVHV* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; struct io { XPVIO* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; struct p5rx { struct regexp* sv_any; U32 sv_refcnt; U32 sv_flags; union { char* svu_pv; IV svu_iv; UV svu_uv; SV* svu_rv; SV** svu_array; HE** svu_hash; GP* svu_gp; } sv_u; }; # 406 "sv.h" union _xnvu { NV xnv_nv; HV * xgv_stash; struct { U32 xlow; U32 xhigh; } xpad_cop_seq; struct { U32 xbm_previous; U8 xbm_flags; U8 xbm_rare; } xbm_s; }; union _xivu { IV xivu_iv; UV xivu_uv; void * xivu_p1; I32 xivu_i32; HEK * xivu_namehek; HV * xivu_hv; }; union _xmgu { MAGIC* xmg_magic; HV* xmg_ourstash; }; struct xpv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; }; struct xpviv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; }; struct xpvuv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xuv_u; }; struct xpvnv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; }; struct xpvmg { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; }; struct xpvlv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; STRLEN xlv_targoff; STRLEN xlv_targlen; SV* xlv_targ; char xlv_type; }; struct xpvgv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; }; typedef U16 cv_flags_t; # 510 "sv.h" struct xpvfm { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; HV * xcv_stash; union { OP * xcv_start; ANY xcv_xsubany; } xcv_start_u; union { OP * xcv_root; void (*xcv_xsub) (register PerlInterpreter* my_perl __attribute__((unused)), CV*); } xcv_root_u; GV * xcv_gv; char * xcv_file; AV * xcv_padlist; CV * xcv_outside; U32 xcv_outside_seq; cv_flags_t xcv_flags; }; # 546 "sv.h" struct xpvio { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; PerlIO * xio_ifp; PerlIO * xio_ofp; union { DIR * xiou_dirp; void * xiou_any; } xio_dirpu; IV xio_page; IV xio_page_len; IV 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; char xio_type; U8 xio_flags; }; # 1932 "sv.h" struct clone_params { AV* stashes; UV flags; PerlInterpreter *proto_perl; }; # 3419 "perl.h" 2 # 1 "regexp.h" 1 # 21 "regexp.h" struct regnode { U8 flags; U8 type; U16 next_off; }; typedef struct regnode regnode; struct reg_substr_data; struct reg_data; struct regexp_engine; struct regexp; struct reg_substr_datum { I32 min_offset; I32 max_offset; SV *substr; SV *utf8_substr; I32 end_shift; }; struct reg_substr_data { struct reg_substr_datum data[3]; }; typedef struct regexp_paren_pair { I32 start; I32 end; } regexp_paren_pair; # 104 "regexp.h" typedef struct regexp { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; const struct regexp_engine* engine; REGEXP *mother_re; U32 extflags; I32 minlen; I32 minlenret; U32 gofs; struct reg_substr_data *substrs; U32 nparens; U32 intflags; void *pprivate; U32 lastparen; U32 lastcloseparen; regexp_paren_pair *swap; regexp_paren_pair *offs; char *subbeg; I32 sublen; unsigned pre_prefix:4; unsigned seen_evals:28; } regexp; typedef struct re_scream_pos_data_s { char **scream_olds; I32 *scream_pos; } re_scream_pos_data; typedef struct regexp_engine { REGEXP* (*comp) (register PerlInterpreter* my_perl __attribute__((unused)), SV * const pattern, U32 flags); I32 (*exec) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, void* data, U32 flags); char* (*intuit) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV *sv, char *strpos, char *strend, const U32 flags, re_scream_pos_data *data); SV* (*checkstr) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx); void (*free) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx); void (*numbered_buff_FETCH) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const I32 paren, SV * const sv); void (*numbered_buff_STORE) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const I32 paren, SV const * const value); I32 (*numbered_buff_LENGTH) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const SV * const sv, const I32 paren); SV* (*named_buff) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV * const key, SV * const value, const U32 flags); SV* (*named_buff_iter) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const SV * const lastkey, const U32 flags); SV* (*qr_package)(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx); void* (*dupe) (register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, CLONE_PARAMS *param); } regexp_engine; # 494 "regexp.h" struct _reg_trie_accepted { U8 *endpos; U16 wordnum; }; typedef struct _reg_trie_accepted reg_trie_accepted; typedef struct { REGEXP *prog; char *bol; char *till; SV *sv; char *ganch; char *cutpoint; } regmatch_info; # 519 "regexp.h" typedef I32 CHECKPOINT; typedef struct regmatch_state { int resume_state; char *locinput; union { struct { struct regmatch_state *prev_yes_state; } yes; struct { struct regmatch_state *prev_yes_state; U32 lastparen; CHECKPOINT cp; } branchlike; struct { struct regmatch_state *prev_yes_state; U32 lastparen; CHECKPOINT cp; regnode *next_branch; } branch; struct { struct regmatch_state *prev_yes_state; U32 lastparen; CHECKPOINT cp; reg_trie_accepted *accept_buff; U32 accepted; U16 *jump; regnode *B; regnode *me; } trie; struct { struct regmatch_state *prev_yes_state; struct regmatch_state *prev_eval; struct regmatch_state *prev_curlyx; REGEXP *prev_rex; U32 toggle_reg_flags; CHECKPOINT cp; CHECKPOINT lastcp; U32 close_paren; regnode *B; } eval; struct { struct regmatch_state *prev_yes_state; I32 wanted; I32 logical; regnode *me; } ifmatch; struct { struct regmatch_state *prev_yes_state; struct regmatch_state *prev_mark; SV* mark_name; char *mark_loc; } mark; struct { int val; } keeper; struct { struct regmatch_state *prev_yes_state; struct regmatch_state *prev_curlyx; regnode *A, *B; CHECKPOINT cp; char minmod; int parenfloor; int min; int max; int count; char *lastloc; } curlyx; struct { struct regmatch_state *prev_yes_state; struct regmatch_state *save_curlyx; CHECKPOINT cp; CHECKPOINT lastcp; char *save_lastloc; I32 cache_offset; I32 cache_mask; } whilem; struct { struct regmatch_state *prev_yes_state; I32 c1, c2; CHECKPOINT cp; I32 alen; I32 count; char minmod; regnode *A, *B; regnode *me; } curlym; struct { U32 paren; CHECKPOINT cp; I32 c1, c2; char *maxpos; char *oldloc; int count; int min, max; regnode *A, *B; } curly; } u; } regmatch_state; # 666 "regexp.h" typedef struct regmatch_slab { regmatch_state states[((4096 - 3 * sizeof (void*)) / sizeof(regmatch_state))]; struct regmatch_slab *prev, *next; } regmatch_slab; # 696 "regexp.h" struct re_save_state { U32 re_state_reg_flags; U32 re_state_reg_start_tmpl; I32 re_state_reg_eval_set; char re_state_reg_match_utf8; char *re_state_bostr; char *re_state_reginput; char *re_state_regeol; regexp_paren_pair *re_state_regoffs; U32 *re_state_reglastparen; U32 *re_state_reglastcloseparen; char **re_state_reg_start_tmp; MAGIC *re_state_reg_magic; PMOP *re_state_reg_oldcurpm; PMOP *re_state_reg_curpm; char *re_state_reg_oldsaved; STRLEN re_state_reg_oldsavedlen; STRLEN re_state_reg_poscache_size; I32 re_state_reg_oldpos; I32 re_state_reg_maxiter; I32 re_state_reg_leftiter; U32 re_state_regsize; char *re_state_reg_poscache; char *re_state_reg_starttry; }; # 3420 "perl.h" 2 # 1 "util.h" 1 # 3421 "perl.h" 2 # 1 "form.h" 1 # 3422 "perl.h" 2 # 1 "gv.h" 1 # 11 "gv.h" struct gp { SV * gp_sv; struct io * gp_io; CV * gp_cv; U32 gp_cvgen; U32 gp_refcnt; HV * gp_hv; AV * gp_av; CV * gp_form; GV * gp_egv; line_t gp_line; HEK * gp_file_hek; }; # 3423 "perl.h" 2 # 1 "pad.h" 1 # 19 "pad.h" typedef AV PADLIST; typedef AV PAD; typedef unsigned long PADOFFSET; # 109 "pad.h" typedef enum { padtidy_SUB, padtidy_SUBCLONE, padtidy_FORMAT } padtidy_type; # 3424 "perl.h" 2 # 1 "cv.h" 1 # 13 "cv.h" struct xpvcv { union _xnvu xnv_u; STRLEN xpv_cur; STRLEN xpv_len; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; HV * xcv_stash; union { OP * xcv_start; ANY xcv_xsubany; } xcv_start_u; union { OP * xcv_root; void (*xcv_xsub) (register PerlInterpreter* my_perl __attribute__((unused)), CV*); } xcv_root_u; GV * xcv_gv; char * xcv_file; AV * xcv_padlist; CV * xcv_outside; U32 xcv_outside_seq; cv_flags_t xcv_flags; }; # 3425 "perl.h" 2 # 1 "opnames.h" 1 # 17 "opnames.h" typedef enum opcode { OP_NULL = 0, OP_STUB = 1, OP_SCALAR = 2, OP_PUSHMARK = 3, OP_WANTARRAY = 4, OP_CONST = 5, OP_GVSV = 6, OP_GV = 7, OP_GELEM = 8, OP_PADSV = 9, OP_PADAV = 10, OP_PADHV = 11, OP_PADANY = 12, OP_PUSHRE = 13, OP_RV2GV = 14, OP_RV2SV = 15, OP_AV2ARYLEN = 16, OP_RV2CV = 17, OP_ANONCODE = 18, OP_PROTOTYPE = 19, OP_REFGEN = 20, OP_SREFGEN = 21, OP_REF = 22, OP_BLESS = 23, OP_BACKTICK = 24, OP_GLOB = 25, OP_READLINE = 26, OP_RCATLINE = 27, OP_REGCMAYBE = 28, OP_REGCRESET = 29, OP_REGCOMP = 30, OP_MATCH = 31, OP_QR = 32, OP_SUBST = 33, OP_SUBSTCONT = 34, OP_TRANS = 35, OP_SASSIGN = 36, OP_AASSIGN = 37, OP_CHOP = 38, OP_SCHOP = 39, OP_CHOMP = 40, OP_SCHOMP = 41, OP_DEFINED = 42, OP_UNDEF = 43, OP_STUDY = 44, OP_POS = 45, OP_PREINC = 46, OP_I_PREINC = 47, OP_PREDEC = 48, OP_I_PREDEC = 49, OP_POSTINC = 50, OP_I_POSTINC = 51, OP_POSTDEC = 52, OP_I_POSTDEC = 53, OP_POW = 54, OP_MULTIPLY = 55, OP_I_MULTIPLY = 56, OP_DIVIDE = 57, OP_I_DIVIDE = 58, OP_MODULO = 59, OP_I_MODULO = 60, OP_REPEAT = 61, OP_ADD = 62, OP_I_ADD = 63, OP_SUBTRACT = 64, OP_I_SUBTRACT = 65, OP_CONCAT = 66, OP_STRINGIFY = 67, OP_LEFT_SHIFT = 68, OP_RIGHT_SHIFT = 69, OP_LT = 70, OP_I_LT = 71, OP_GT = 72, OP_I_GT = 73, OP_LE = 74, OP_I_LE = 75, OP_GE = 76, OP_I_GE = 77, OP_EQ = 78, OP_I_EQ = 79, OP_NE = 80, OP_I_NE = 81, OP_NCMP = 82, OP_I_NCMP = 83, OP_SLT = 84, OP_SGT = 85, OP_SLE = 86, OP_SGE = 87, OP_SEQ = 88, OP_SNE = 89, OP_SCMP = 90, OP_BIT_AND = 91, OP_BIT_XOR = 92, OP_BIT_OR = 93, OP_NEGATE = 94, OP_I_NEGATE = 95, OP_NOT = 96, OP_COMPLEMENT = 97, OP_SMARTMATCH = 98, OP_ATAN2 = 99, OP_SIN = 100, OP_COS = 101, OP_RAND = 102, OP_SRAND = 103, OP_EXP = 104, OP_LOG = 105, OP_SQRT = 106, OP_INT = 107, OP_HEX = 108, OP_OCT = 109, OP_ABS = 110, OP_LENGTH = 111, OP_SUBSTR = 112, OP_VEC = 113, OP_INDEX = 114, OP_RINDEX = 115, OP_SPRINTF = 116, OP_FORMLINE = 117, OP_ORD = 118, OP_CHR = 119, OP_CRYPT = 120, OP_UCFIRST = 121, OP_LCFIRST = 122, OP_UC = 123, OP_LC = 124, OP_QUOTEMETA = 125, OP_RV2AV = 126, OP_AELEMFAST = 127, OP_AELEM = 128, OP_ASLICE = 129, OP_AEACH = 130, OP_AKEYS = 131, OP_AVALUES = 132, OP_EACH = 133, OP_VALUES = 134, OP_KEYS = 135, OP_DELETE = 136, OP_EXISTS = 137, OP_RV2HV = 138, OP_HELEM = 139, OP_HSLICE = 140, OP_BOOLKEYS = 141, OP_UNPACK = 142, OP_PACK = 143, OP_SPLIT = 144, OP_JOIN = 145, OP_LIST = 146, OP_LSLICE = 147, OP_ANONLIST = 148, OP_ANONHASH = 149, OP_SPLICE = 150, OP_PUSH = 151, OP_POP = 152, OP_SHIFT = 153, OP_UNSHIFT = 154, OP_SORT = 155, OP_REVERSE = 156, OP_GREPSTART = 157, OP_GREPWHILE = 158, OP_MAPSTART = 159, OP_MAPWHILE = 160, OP_RANGE = 161, OP_FLIP = 162, OP_FLOP = 163, OP_AND = 164, OP_OR = 165, OP_XOR = 166, OP_DOR = 167, OP_COND_EXPR = 168, OP_ANDASSIGN = 169, OP_ORASSIGN = 170, OP_DORASSIGN = 171, OP_METHOD = 172, OP_ENTERSUB = 173, OP_LEAVESUB = 174, OP_LEAVESUBLV = 175, OP_CALLER = 176, OP_WARN = 177, OP_DIE = 178, OP_RESET = 179, OP_LINESEQ = 180, OP_NEXTSTATE = 181, OP_DBSTATE = 182, OP_UNSTACK = 183, OP_ENTER = 184, OP_LEAVE = 185, OP_SCOPE = 186, OP_ENTERITER = 187, OP_ITER = 188, OP_ENTERLOOP = 189, OP_LEAVELOOP = 190, OP_RETURN = 191, OP_LAST = 192, OP_NEXT = 193, OP_REDO = 194, OP_DUMP = 195, OP_GOTO = 196, OP_EXIT = 197, OP_METHOD_NAMED = 198, OP_ENTERGIVEN = 199, OP_LEAVEGIVEN = 200, OP_ENTERWHEN = 201, OP_LEAVEWHEN = 202, OP_BREAK = 203, OP_CONTINUE = 204, OP_OPEN = 205, OP_CLOSE = 206, OP_PIPE_OP = 207, OP_FILENO = 208, OP_UMASK = 209, OP_BINMODE = 210, OP_TIE = 211, OP_UNTIE = 212, OP_TIED = 213, OP_DBMOPEN = 214, OP_DBMCLOSE = 215, OP_SSELECT = 216, OP_SELECT = 217, OP_GETC = 218, OP_READ = 219, OP_ENTERWRITE = 220, OP_LEAVEWRITE = 221, OP_PRTF = 222, OP_PRINT = 223, OP_SAY = 224, OP_SYSOPEN = 225, OP_SYSSEEK = 226, OP_SYSREAD = 227, OP_SYSWRITE = 228, OP_EOF = 229, OP_TELL = 230, OP_SEEK = 231, OP_TRUNCATE = 232, OP_FCNTL = 233, OP_IOCTL = 234, OP_FLOCK = 235, OP_SEND = 236, OP_RECV = 237, OP_SOCKET = 238, OP_SOCKPAIR = 239, OP_BIND = 240, OP_CONNECT = 241, OP_LISTEN = 242, OP_ACCEPT = 243, OP_SHUTDOWN = 244, OP_GSOCKOPT = 245, OP_SSOCKOPT = 246, OP_GETSOCKNAME = 247, OP_GETPEERNAME = 248, OP_LSTAT = 249, OP_STAT = 250, OP_FTRREAD = 251, OP_FTRWRITE = 252, OP_FTREXEC = 253, OP_FTEREAD = 254, OP_FTEWRITE = 255, OP_FTEEXEC = 256, OP_FTIS = 257, OP_FTSIZE = 258, OP_FTMTIME = 259, OP_FTATIME = 260, OP_FTCTIME = 261, OP_FTROWNED = 262, OP_FTEOWNED = 263, OP_FTZERO = 264, OP_FTSOCK = 265, OP_FTCHR = 266, OP_FTBLK = 267, OP_FTFILE = 268, OP_FTDIR = 269, OP_FTPIPE = 270, OP_FTSUID = 271, OP_FTSGID = 272, OP_FTSVTX = 273, OP_FTLINK = 274, OP_FTTTY = 275, OP_FTTEXT = 276, OP_FTBINARY = 277, OP_CHDIR = 278, OP_CHOWN = 279, OP_CHROOT = 280, OP_UNLINK = 281, OP_CHMOD = 282, OP_UTIME = 283, OP_RENAME = 284, OP_LINK = 285, OP_SYMLINK = 286, OP_READLINK = 287, OP_MKDIR = 288, OP_RMDIR = 289, OP_OPEN_DIR = 290, OP_READDIR = 291, OP_TELLDIR = 292, OP_SEEKDIR = 293, OP_REWINDDIR = 294, OP_CLOSEDIR = 295, OP_FORK = 296, OP_WAIT = 297, OP_WAITPID = 298, OP_SYSTEM = 299, OP_EXEC = 300, OP_KILL = 301, OP_GETPPID = 302, OP_GETPGRP = 303, OP_SETPGRP = 304, OP_GETPRIORITY = 305, OP_SETPRIORITY = 306, OP_TIME = 307, OP_TMS = 308, OP_LOCALTIME = 309, OP_GMTIME = 310, OP_ALARM = 311, OP_SLEEP = 312, OP_SHMGET = 313, OP_SHMCTL = 314, OP_SHMREAD = 315, OP_SHMWRITE = 316, OP_MSGGET = 317, OP_MSGCTL = 318, OP_MSGSND = 319, OP_MSGRCV = 320, OP_SEMOP = 321, OP_SEMGET = 322, OP_SEMCTL = 323, OP_REQUIRE = 324, OP_DOFILE = 325, OP_HINTSEVAL = 326, OP_ENTEREVAL = 327, OP_LEAVEEVAL = 328, OP_ENTERTRY = 329, OP_LEAVETRY = 330, OP_GHBYNAME = 331, OP_GHBYADDR = 332, OP_GHOSTENT = 333, OP_GNBYNAME = 334, OP_GNBYADDR = 335, OP_GNETENT = 336, OP_GPBYNAME = 337, OP_GPBYNUMBER = 338, OP_GPROTOENT = 339, OP_GSBYNAME = 340, OP_GSBYPORT = 341, OP_GSERVENT = 342, OP_SHOSTENT = 343, OP_SNETENT = 344, OP_SPROTOENT = 345, OP_SSERVENT = 346, OP_EHOSTENT = 347, OP_ENETENT = 348, OP_EPROTOENT = 349, OP_ESERVENT = 350, OP_GPWNAM = 351, OP_GPWUID = 352, OP_GPWENT = 353, OP_SPWENT = 354, OP_EPWENT = 355, OP_GGRNAM = 356, OP_GGRGID = 357, OP_GGRENT = 358, OP_SGRENT = 359, OP_EGRENT = 360, OP_GETLOGIN = 361, OP_SYSCALL = 362, OP_LOCK = 363, OP_ONCE = 364, OP_CUSTOM = 365, OP_max } opcode; # 3426 "perl.h" 2 # 1 "op.h" 1 # 48 "op.h" typedef unsigned Optype; # 284 "op.h" struct op { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; }; struct unop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; OP * op_first; }; struct binop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; 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 __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; 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 __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; 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 __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; OP * op_first; OP * op_last; IV op_pmoffset; U32 op_pmflags; union { OP * op_pmreplroot; PADOFFSET op_pmtargetoff; } op_pmreplrootu; union { OP * op_pmreplstart; char * op_pmstashpv; } op_pmstashstartu; }; # 431 "op.h" struct svop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; SV * op_sv; }; struct padop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; PADOFFSET op_padix; }; struct pvop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; char * op_pv; }; struct loop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; OP * op_first; OP * op_last; OP * op_redoop; OP * op_nextop; OP * op_lastop; }; # 626 "op.h" # 1 "reentr.h" 1 # 95 "reentr.h" # 1 "/usr/include/pwd.h" 1 3 4 # 28 "/usr/include/pwd.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 34 "/usr/include/pwd.h" 2 3 4 # 50 "/usr/include/pwd.h" 3 4 struct passwd { char *pw_name; char *pw_passwd; __uid_t pw_uid; __gid_t pw_gid; char *pw_gecos; char *pw_dir; char *pw_shell; }; # 73 "/usr/include/pwd.h" 3 4 extern void setpwent (void); extern void endpwent (void); extern struct passwd *getpwent (void); # 95 "/usr/include/pwd.h" 3 4 extern struct passwd *fgetpwent (FILE *__stream); extern int putpwent (__const struct passwd *__restrict __p, FILE *__restrict __f); extern struct passwd *getpwuid (__uid_t __uid); extern struct passwd *getpwnam (__const char *__name); # 140 "/usr/include/pwd.h" 3 4 extern int getpwent_r (struct passwd *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct passwd **__restrict __result); extern int getpwuid_r (__uid_t __uid, struct passwd *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct passwd **__restrict __result); extern int getpwnam_r (__const char *__restrict __name, struct passwd *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct passwd **__restrict __result); # 164 "/usr/include/pwd.h" 3 4 extern int fgetpwent_r (FILE *__restrict __stream, struct passwd *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct passwd **__restrict __result); # 181 "/usr/include/pwd.h" 3 4 extern int getpw (__uid_t __uid, char *__buffer); # 96 "reentr.h" 2 # 1 "/usr/include/grp.h" 1 3 4 # 29 "/usr/include/grp.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 35 "/usr/include/grp.h" 2 3 4 # 44 "/usr/include/grp.h" 3 4 struct group { char *gr_name; char *gr_passwd; __gid_t gr_gid; char **gr_mem; }; # 64 "/usr/include/grp.h" 3 4 extern void setgrent (void); # 73 "/usr/include/grp.h" 3 4 extern void endgrent (void); extern struct group *getgrent (void); # 89 "/usr/include/grp.h" 3 4 extern struct group *fgetgrent (FILE *__stream); # 99 "/usr/include/grp.h" 3 4 extern int putgrent (__const struct group *__restrict __p, FILE *__restrict __f); extern struct group *getgrgid (__gid_t __gid); extern struct group *getgrnam (__const char *__name); # 137 "/usr/include/grp.h" 3 4 extern int getgrent_r (struct group *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct group **__restrict __result); extern int getgrgid_r (__gid_t __gid, struct group *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct group **__restrict __result); extern int getgrnam_r (__const char *__restrict __name, struct group *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct group **__restrict __result); # 167 "/usr/include/grp.h" 3 4 extern int fgetgrent_r (FILE *__restrict __stream, struct group *__restrict __resultbuf, char *__restrict __buffer, size_t __buflen, struct group **__restrict __result); # 179 "/usr/include/grp.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 180 "/usr/include/grp.h" 2 3 4 extern int setgroups (size_t __n, __const __gid_t *__groups) __attribute__ ((__nothrow__)); # 192 "/usr/include/grp.h" 3 4 extern int getgrouplist (__const char *__user, __gid_t __group, __gid_t *__groups, int *__ngroups); # 203 "/usr/include/grp.h" 3 4 extern int initgroups (__const char *__user, __gid_t __group); # 99 "reentr.h" 2 # 108 "reentr.h" # 1 "/usr/include/crypt.h" 1 3 4 # 30 "/usr/include/crypt.h" 3 4 extern char *crypt (__const char *__key, __const char *__salt) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void setkey (__const char *__key) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); extern void encrypt (char *__libc_block, int __edflag) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1))); struct crypt_data { char keysched[16 * 8]; char sb0[32768]; char sb1[32768]; char sb2[32768]; char sb3[32768]; char crypt_3_buf[14]; char current_salt[2]; long int current_saltbits; int direction, initialized; }; extern char *crypt_r (__const char *__key, __const char *__salt, struct crypt_data * __restrict __data) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2, 3))); extern void setkey_r (__const char *__key, struct crypt_data * __restrict __data) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 2))); extern void encrypt_r (char *__libc_block, int __edflag, struct crypt_data * __restrict __data) __attribute__ ((__nothrow__)) __attribute__ ((__nonnull__ (1, 3))); # 109 "reentr.h" 2 # 1 "/usr/include/shadow.h" 1 3 4 # 26 "/usr/include/shadow.h" 3 4 # 1 "/usr/include/paths.h" 1 3 4 # 27 "/usr/include/shadow.h" 2 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 32 "/usr/include/shadow.h" 2 3 4 # 40 "/usr/include/shadow.h" 3 4 struct spwd { char *sp_namp; char *sp_pwdp; long int sp_lstchg; long int sp_min; long int sp_max; long int sp_warn; long int sp_inact; long int sp_expire; unsigned long int sp_flag; }; # 63 "/usr/include/shadow.h" 3 4 extern void setspent (void); extern void endspent (void); extern struct spwd *getspent (void); extern struct spwd *getspnam (__const char *__name); extern struct spwd *sgetspent (__const char *__string); extern struct spwd *fgetspent (FILE *__stream); extern int putspent (__const struct spwd *__p, FILE *__stream); # 121 "/usr/include/shadow.h" 3 4 extern int getspent_r (struct spwd *__result_buf, char *__buffer, size_t __buflen, struct spwd **__result); extern int getspnam_r (__const char *__name, struct spwd *__result_buf, char *__buffer, size_t __buflen, struct spwd **__result); extern int sgetspent_r (__const char *__string, struct spwd *__result_buf, char *__buffer, size_t __buflen, struct spwd **__result); extern int fgetspent_r (FILE *__stream, struct spwd *__result_buf, char *__buffer, size_t __buflen, struct spwd **__result); extern int lckpwdf (void) __attribute__ ((__nothrow__)); extern int ulckpwdf (void) __attribute__ ((__nothrow__)); # 114 "reentr.h" 2 # 625 "reentr.h" typedef struct { char* _asctime_buffer; size_t _asctime_size; struct crypt_data *_crypt_struct_buffer; char* _ctime_buffer; size_t _ctime_size; struct drand48_data _drand48_struct; double _drand48_double; struct group _grent_struct; char* _grent_buffer; size_t _grent_size; struct group* _grent_ptr; struct hostent _hostent_struct; char* _hostent_buffer; size_t _hostent_size; struct hostent* _hostent_ptr; int _hostent_errno; char* _getlogin_buffer; size_t _getlogin_size; struct netent _netent_struct; char* _netent_buffer; size_t _netent_size; struct netent* _netent_ptr; int _netent_errno; struct protoent _protoent_struct; char* _protoent_buffer; size_t _protoent_size; struct protoent* _protoent_ptr; struct passwd _pwent_struct; char* _pwent_buffer; size_t _pwent_size; struct passwd* _pwent_ptr; struct servent _servent_struct; char* _servent_buffer; size_t _servent_size; struct servent* _servent_ptr; struct spwd _spent_struct; char* _spent_buffer; size_t _spent_size; struct spwd* _spent_ptr; struct random_data _random_struct; int32_t _random_retval; struct dirent* _readdir_struct; size_t _readdir_size; struct dirent* _readdir_ptr; struct dirent64* _readdir64_struct; size_t _readdir64_size; struct dirent64* _readdir64_ptr; struct random_data _srandom_struct; char* _strerror_buffer; size_t _strerror_size; char* _ttyname_buffer; size_t _ttyname_size; int dummy; } REENTR; # 627 "op.h" 2 # 3427 "perl.h" 2 # 1 "hv.h" 1 # 12 "hv.h" struct he { HE *hent_next; HEK *hent_hek; union { SV *hent_val; size_t hent_refcount; } he_valu; }; struct hek { U32 hek_hash; I32 hek_len; char hek_key[1]; }; struct shared_he { struct he shared_he_he; struct hek shared_he_hek; }; struct mro_alg { AV *(*resolve)(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, U32 level); const char *name; U16 length; U16 kflags; U32 hash; }; struct mro_meta { HV *mro_linear_all; SV *mro_linear_current; HV *mro_nextmethod; U32 cache_gen; U32 pkg_gen; const struct mro_alg *mro_which; HV *isa; }; # 75 "hv.h" struct xpvhv_aux { HEK *xhv_name; AV *xhv_backreferences; HE *xhv_eiter; I32 xhv_riter; struct mro_meta *xhv_mro_meta; }; struct xpvhv { union _xnvu xnv_u; STRLEN xhv_fill; STRLEN xhv_max; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; }; # 455 "hv.h" struct refcounted_he; struct refcounted_he { struct refcounted_he *refcounted_he_next; U32 refcounted_he_hash; U32 refcounted_he_keylen; union { IV refcounted_he_u_iv; UV refcounted_he_u_uv; STRLEN refcounted_he_u_len; void *refcounted_he_u_ptr; } refcounted_he_val; U32 refcounted_he_refcnt; char refcounted_he_data[1]; }; # 3428 "perl.h" 2 # 1 "cop.h" 1 # 31 "cop.h" struct jmpenv { struct jmpenv * je_prev; sigjmp_buf je_buf; int je_ret; char je_mustcatch; }; typedef struct jmpenv JMPENV; # 138 "cop.h" # 1 "mydtrace.h" 1 # 139 "cop.h" 2 struct cop { OP* op_next; OP* op_sibling; OP* (*op_ppaddr)(register PerlInterpreter* my_perl __attribute__((unused))); PADOFFSET op_targ; unsigned op_type:9; unsigned op_opt:1; unsigned op_latefree:1; unsigned op_latefreed:1; unsigned op_attached:1; unsigned op_spare:3; U8 op_flags; U8 op_private; line_t cop_line; char * cop_stashpv; char * cop_file; U32 cop_hints; U32 cop_seq; STRLEN * cop_warnings; struct refcounted_he * cop_hints_hash; }; # 277 "cop.h" struct block_sub { OP * retop; CV * cv; AV * savearray; AV * argarray; I32 olddepth; PAD *oldcomppad; }; struct block_format { OP * retop; CV * cv; GV * gv; GV * dfoutgv; }; # 389 "cop.h" struct block_eval { OP * retop; SV * old_namesv; OP * old_eval_root; SV * cur_text; CV * cv; JMPENV * cur_top_env; }; # 429 "cop.h" struct block_loop { I32 resetsp; LOOP * my_op; PAD *oldcomppad; PADOFFSET targoffset; union { struct { AV * ary; IV ix; } ary; struct { IV cur; IV end; } lazyiv; struct { SV * cur; SV * end; } lazysv; } state_u; }; # 512 "cop.h" struct block_givwhen { OP *leave_op; }; struct block { U8 blku_type; U8 blku_gimme; U16 blku_u16; I32 blku_oldsp; COP * blku_oldcop; I32 blku_oldmarksp; I32 blku_oldscopesp; PMOP * blku_oldpm; union { struct block_sub blku_sub; struct block_format blku_format; struct block_eval blku_eval; struct block_loop blku_loop; struct block_givwhen blku_givwhen; } blk_u; }; # 586 "cop.h" struct subst { U8 sbu_type; U8 sbu_rflags; U16 sbu_rxtainted; I32 sbu_iters; I32 sbu_maxiters; I32 sbu_oldsave; char * sbu_orig; SV * sbu_dstr; SV * sbu_targ; char * sbu_s; char * sbu_m; char * sbu_strend; void * sbu_rxres; REGEXP * sbu_rx; }; # 643 "cop.h" struct context { union { struct block cx_blk; struct subst cx_subst; } cx_u; }; # 783 "cop.h" struct stackinfo { AV * si_stack; PERL_CONTEXT * si_cxstack; struct stackinfo * si_prev; struct stackinfo * si_next; I32 si_cxix; I32 si_cxmax; I32 si_type; I32 si_markoff; }; typedef struct stackinfo PERL_SI; # 3429 "perl.h" 2 # 1 "av.h" 1 # 11 "av.h" struct xpvav { union _xnvu xnv_u; ssize_t xav_fill; ssize_t xav_max; union _xivu xiv_u; union _xmgu xmg_u; HV* xmg_stash; }; # 3430 "perl.h" 2 # 1 "mg.h" 1 # 14 "mg.h" struct mgvtbl { int (*svt_get) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg); int (*svt_set) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg); U32 (*svt_len) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg); int (*svt_clear)(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg); int (*svt_free) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg); int (*svt_copy) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC* mg, SV *nsv, const char *name, I32 namlen); int (*svt_dup) (register PerlInterpreter* my_perl __attribute__((unused)), MAGIC *mg, CLONE_PARAMS *param); int (*svt_local)(register PerlInterpreter* my_perl __attribute__((unused)), SV *nsv, MAGIC *mg); }; struct magic { MAGIC* mg_moremagic; MGVTBL* mg_virtual; U16 mg_private; char mg_type; U8 mg_flags; I32 mg_len; SV* mg_obj; char* mg_ptr; }; # 3431 "perl.h" 2 # 1 "scope.h" 1 # 3432 "perl.h" 2 # 1 "warnings.h" 1 # 3433 "perl.h" 2 # 1 "utf8.h" 1 # 31 "utf8.h" # 46 "utf8.h" extern const unsigned char PL_utf8skip[]; # 3434 "perl.h" 2 typedef struct _sublex_info SUBLEXINFO; struct _sublex_info { U8 super_state; U16 sub_inwhat; OP *sub_op; char *super_bufptr; char *super_bufend; }; # 1 "parser.h" 1 # 14 "parser.h" typedef struct { YYSTYPE val; short state; I32 savestack_ix; CV *compcv; } yy_stack_frame; typedef struct yy_parser { struct yy_parser *old_parser; YYSTYPE yylval; int yychar; int yyerrstatus; int stack_size; int yylen; yy_stack_frame *stack; yy_stack_frame *ps; I32 lex_brackets; I32 lex_casemods; char *lex_brackstack; char *lex_casestack; U8 lex_defer; char lex_dojoin; U8 lex_expect; U8 expect; I32 lex_formbrack; OP *lex_inpat; OP *lex_op; SV *lex_repl; U16 lex_inwhat; U16 last_lop_op; I32 lex_starts; SV *lex_stuff; I32 multi_start; I32 multi_end; char multi_open; char multi_close; char pending_ident; char preambled; SUBLEXINFO sublex_info; SV *linestr; char *bufptr; char *oldbufptr; char *oldoldbufptr; char *bufend; char *linestart; char *last_uni; char *last_lop; line_t copline; U16 in_my; U8 lex_state; U8 error_count; HV *in_my_stash; PerlIO *rsfp; AV *rsfp_filters; # 100 "parser.h" YYSTYPE nextval[5]; I32 nexttype[5]; I32 nexttoke; COP *saved_curcop; char tokenbuf[256]; } yy_parser; # 3450 "perl.h" 2 typedef struct magic_state MGS; struct scan_data_t; struct regnode_charclass_class; struct ptr_tbl_ent { struct ptr_tbl_ent* next; const void* oldval; void* newval; }; struct ptr_tbl { struct ptr_tbl_ent** tbl_ary; UV tbl_max; UV tbl_items; }; # 3528 "perl.h" short htovs(short n); short vtohs(short n); long htovl(long n); long vtohl(long n); # 3601 "perl.h" uid_t getuid (void); uid_t geteuid (void); gid_t getgid (void); gid_t getegid (void); # 3897 "perl.h" struct ufuncs { I32 (*uf_val)(register PerlInterpreter* my_perl __attribute__((unused)), IV, SV*); I32 (*uf_set)(register PerlInterpreter* my_perl __attribute__((unused)), IV, SV*); IV uf_index; }; # 3927 "perl.h" char *mktemp (char*); double atof (const char*); # 3948 "perl.h" # 1 "/usr/include/math.h" 1 3 4 # 30 "/usr/include/math.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/huge_val.h" 1 3 4 # 35 "/usr/include/math.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/huge_valf.h" 1 3 4 # 37 "/usr/include/math.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/huge_vall.h" 1 3 4 # 38 "/usr/include/math.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/inf.h" 1 3 4 # 41 "/usr/include/math.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/nan.h" 1 3 4 # 44 "/usr/include/math.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/mathdef.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/bits/mathdef.h" 3 4 typedef float float_t; typedef double double_t; # 48 "/usr/include/math.h" 2 3 4 # 71 "/usr/include/math.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 1 3 4 # 53 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern double acos (double __x) __attribute__ ((__nothrow__)); extern double __acos (double __x) __attribute__ ((__nothrow__)); extern double asin (double __x) __attribute__ ((__nothrow__)); extern double __asin (double __x) __attribute__ ((__nothrow__)); extern double atan (double __x) __attribute__ ((__nothrow__)); extern double __atan (double __x) __attribute__ ((__nothrow__)); extern double atan2 (double __y, double __x) __attribute__ ((__nothrow__)); extern double __atan2 (double __y, double __x) __attribute__ ((__nothrow__)); extern double cos (double __x) __attribute__ ((__nothrow__)); extern double __cos (double __x) __attribute__ ((__nothrow__)); extern double sin (double __x) __attribute__ ((__nothrow__)); extern double __sin (double __x) __attribute__ ((__nothrow__)); extern double tan (double __x) __attribute__ ((__nothrow__)); extern double __tan (double __x) __attribute__ ((__nothrow__)); extern double cosh (double __x) __attribute__ ((__nothrow__)); extern double __cosh (double __x) __attribute__ ((__nothrow__)); extern double sinh (double __x) __attribute__ ((__nothrow__)); extern double __sinh (double __x) __attribute__ ((__nothrow__)); extern double tanh (double __x) __attribute__ ((__nothrow__)); extern double __tanh (double __x) __attribute__ ((__nothrow__)); extern void sincos (double __x, double *__sinx, double *__cosx) __attribute__ ((__nothrow__)); extern void __sincos (double __x, double *__sinx, double *__cosx) __attribute__ ((__nothrow__)) ; extern double acosh (double __x) __attribute__ ((__nothrow__)); extern double __acosh (double __x) __attribute__ ((__nothrow__)); extern double asinh (double __x) __attribute__ ((__nothrow__)); extern double __asinh (double __x) __attribute__ ((__nothrow__)); extern double atanh (double __x) __attribute__ ((__nothrow__)); extern double __atanh (double __x) __attribute__ ((__nothrow__)); extern double exp (double __x) __attribute__ ((__nothrow__)); extern double __exp (double __x) __attribute__ ((__nothrow__)); extern double frexp (double __x, int *__exponent) __attribute__ ((__nothrow__)); extern double __frexp (double __x, int *__exponent) __attribute__ ((__nothrow__)); extern double ldexp (double __x, int __exponent) __attribute__ ((__nothrow__)); extern double __ldexp (double __x, int __exponent) __attribute__ ((__nothrow__)); extern double log (double __x) __attribute__ ((__nothrow__)); extern double __log (double __x) __attribute__ ((__nothrow__)); extern double log10 (double __x) __attribute__ ((__nothrow__)); extern double __log10 (double __x) __attribute__ ((__nothrow__)); extern double modf (double __x, double *__iptr) __attribute__ ((__nothrow__)); extern double __modf (double __x, double *__iptr) __attribute__ ((__nothrow__)); extern double exp10 (double __x) __attribute__ ((__nothrow__)); extern double __exp10 (double __x) __attribute__ ((__nothrow__)); extern double pow10 (double __x) __attribute__ ((__nothrow__)); extern double __pow10 (double __x) __attribute__ ((__nothrow__)); extern double expm1 (double __x) __attribute__ ((__nothrow__)); extern double __expm1 (double __x) __attribute__ ((__nothrow__)); extern double log1p (double __x) __attribute__ ((__nothrow__)); extern double __log1p (double __x) __attribute__ ((__nothrow__)); extern double logb (double __x) __attribute__ ((__nothrow__)); extern double __logb (double __x) __attribute__ ((__nothrow__)); extern double exp2 (double __x) __attribute__ ((__nothrow__)); extern double __exp2 (double __x) __attribute__ ((__nothrow__)); extern double log2 (double __x) __attribute__ ((__nothrow__)); extern double __log2 (double __x) __attribute__ ((__nothrow__)); # 154 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern double pow (double __x, double __y) __attribute__ ((__nothrow__)); extern double __pow (double __x, double __y) __attribute__ ((__nothrow__)); extern double sqrt (double __x) __attribute__ ((__nothrow__)); extern double __sqrt (double __x) __attribute__ ((__nothrow__)); extern double hypot (double __x, double __y) __attribute__ ((__nothrow__)); extern double __hypot (double __x, double __y) __attribute__ ((__nothrow__)); extern double cbrt (double __x) __attribute__ ((__nothrow__)); extern double __cbrt (double __x) __attribute__ ((__nothrow__)); # 179 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern double ceil (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __ceil (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double fabs (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __fabs (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double floor (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __floor (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double fmod (double __x, double __y) __attribute__ ((__nothrow__)); extern double __fmod (double __x, double __y) __attribute__ ((__nothrow__)); extern int __isinf (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __finite (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isinf (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int finite (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double drem (double __x, double __y) __attribute__ ((__nothrow__)); extern double __drem (double __x, double __y) __attribute__ ((__nothrow__)); extern double significand (double __x) __attribute__ ((__nothrow__)); extern double __significand (double __x) __attribute__ ((__nothrow__)); extern double copysign (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __copysign (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double nan (__const char *__tagb) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __nan (__const char *__tagb) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __isnan (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isnan (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double j0 (double) __attribute__ ((__nothrow__)); extern double __j0 (double) __attribute__ ((__nothrow__)); extern double j1 (double) __attribute__ ((__nothrow__)); extern double __j1 (double) __attribute__ ((__nothrow__)); extern double jn (int, double) __attribute__ ((__nothrow__)); extern double __jn (int, double) __attribute__ ((__nothrow__)); extern double y0 (double) __attribute__ ((__nothrow__)); extern double __y0 (double) __attribute__ ((__nothrow__)); extern double y1 (double) __attribute__ ((__nothrow__)); extern double __y1 (double) __attribute__ ((__nothrow__)); extern double yn (int, double) __attribute__ ((__nothrow__)); extern double __yn (int, double) __attribute__ ((__nothrow__)); extern double erf (double) __attribute__ ((__nothrow__)); extern double __erf (double) __attribute__ ((__nothrow__)); extern double erfc (double) __attribute__ ((__nothrow__)); extern double __erfc (double) __attribute__ ((__nothrow__)); extern double lgamma (double) __attribute__ ((__nothrow__)); extern double __lgamma (double) __attribute__ ((__nothrow__)); extern double tgamma (double) __attribute__ ((__nothrow__)); extern double __tgamma (double) __attribute__ ((__nothrow__)); extern double gamma (double) __attribute__ ((__nothrow__)); extern double __gamma (double) __attribute__ ((__nothrow__)); extern double lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__)); extern double __lgamma_r (double, int *__signgamp) __attribute__ ((__nothrow__)); extern double rint (double __x) __attribute__ ((__nothrow__)); extern double __rint (double __x) __attribute__ ((__nothrow__)); extern double nextafter (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __nextafter (double __x, double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double nexttoward (double __x, long double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __nexttoward (double __x, long double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double remainder (double __x, double __y) __attribute__ ((__nothrow__)); extern double __remainder (double __x, double __y) __attribute__ ((__nothrow__)); extern double scalbn (double __x, int __n) __attribute__ ((__nothrow__)); extern double __scalbn (double __x, int __n) __attribute__ ((__nothrow__)); extern int ilogb (double __x) __attribute__ ((__nothrow__)); extern int __ilogb (double __x) __attribute__ ((__nothrow__)); extern double scalbln (double __x, long int __n) __attribute__ ((__nothrow__)); extern double __scalbln (double __x, long int __n) __attribute__ ((__nothrow__)); extern double nearbyint (double __x) __attribute__ ((__nothrow__)); extern double __nearbyint (double __x) __attribute__ ((__nothrow__)); extern double round (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __round (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double trunc (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double __trunc (double __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double remquo (double __x, double __y, int *__quo) __attribute__ ((__nothrow__)); extern double __remquo (double __x, double __y, int *__quo) __attribute__ ((__nothrow__)); extern long int lrint (double __x) __attribute__ ((__nothrow__)); extern long int __lrint (double __x) __attribute__ ((__nothrow__)); extern long long int llrint (double __x) __attribute__ ((__nothrow__)); extern long long int __llrint (double __x) __attribute__ ((__nothrow__)); extern long int lround (double __x) __attribute__ ((__nothrow__)); extern long int __lround (double __x) __attribute__ ((__nothrow__)); extern long long int llround (double __x) __attribute__ ((__nothrow__)); extern long long int __llround (double __x) __attribute__ ((__nothrow__)); extern double fdim (double __x, double __y) __attribute__ ((__nothrow__)); extern double __fdim (double __x, double __y) __attribute__ ((__nothrow__)); extern double fmax (double __x, double __y) __attribute__ ((__nothrow__)); extern double __fmax (double __x, double __y) __attribute__ ((__nothrow__)); extern double fmin (double __x, double __y) __attribute__ ((__nothrow__)); extern double __fmin (double __x, double __y) __attribute__ ((__nothrow__)); extern int __fpclassify (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __signbit (double __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern double fma (double __x, double __y, double __z) __attribute__ ((__nothrow__)); extern double __fma (double __x, double __y, double __z) __attribute__ ((__nothrow__)); # 364 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern double scalb (double __x, double __n) __attribute__ ((__nothrow__)); extern double __scalb (double __x, double __n) __attribute__ ((__nothrow__)); # 72 "/usr/include/math.h" 2 3 4 # 94 "/usr/include/math.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 1 3 4 # 53 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern float acosf (float __x) __attribute__ ((__nothrow__)); extern float __acosf (float __x) __attribute__ ((__nothrow__)); extern float asinf (float __x) __attribute__ ((__nothrow__)); extern float __asinf (float __x) __attribute__ ((__nothrow__)); extern float atanf (float __x) __attribute__ ((__nothrow__)); extern float __atanf (float __x) __attribute__ ((__nothrow__)); extern float atan2f (float __y, float __x) __attribute__ ((__nothrow__)); extern float __atan2f (float __y, float __x) __attribute__ ((__nothrow__)); extern float cosf (float __x) __attribute__ ((__nothrow__)); extern float __cosf (float __x) __attribute__ ((__nothrow__)); extern float sinf (float __x) __attribute__ ((__nothrow__)); extern float __sinf (float __x) __attribute__ ((__nothrow__)); extern float tanf (float __x) __attribute__ ((__nothrow__)); extern float __tanf (float __x) __attribute__ ((__nothrow__)); extern float coshf (float __x) __attribute__ ((__nothrow__)); extern float __coshf (float __x) __attribute__ ((__nothrow__)); extern float sinhf (float __x) __attribute__ ((__nothrow__)); extern float __sinhf (float __x) __attribute__ ((__nothrow__)); extern float tanhf (float __x) __attribute__ ((__nothrow__)); extern float __tanhf (float __x) __attribute__ ((__nothrow__)); extern void sincosf # 82 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 (float __x, float *__sinx, float *__cosx) __attribute__ ((__nothrow__)); extern void __sincosf # 82 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 (float __x, float *__sinx, float *__cosx) __attribute__ ((__nothrow__)) ; extern float acoshf (float __x) __attribute__ ((__nothrow__)); extern float __acoshf (float __x) __attribute__ ((__nothrow__)); extern float asinhf (float __x) __attribute__ ((__nothrow__)); extern float __asinhf (float __x) __attribute__ ((__nothrow__)); extern float atanhf (float __x) __attribute__ ((__nothrow__)); extern float __atanhf (float __x) __attribute__ ((__nothrow__)); extern float expf (float __x) __attribute__ ((__nothrow__)); extern float __expf (float __x) __attribute__ ((__nothrow__)); extern float frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__)); extern float __frexpf (float __x, int *__exponent) __attribute__ ((__nothrow__)); extern float ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__)); extern float __ldexpf (float __x, int __exponent) __attribute__ ((__nothrow__)); extern float logf (float __x) __attribute__ ((__nothrow__)); extern float __logf (float __x) __attribute__ ((__nothrow__)); extern float log10f (float __x) __attribute__ ((__nothrow__)); extern float __log10f (float __x) __attribute__ ((__nothrow__)); extern float modff (float __x, float *__iptr) __attribute__ ((__nothrow__)); extern float __modff (float __x, float *__iptr) __attribute__ ((__nothrow__)); extern float exp10f (float __x) __attribute__ ((__nothrow__)); extern float __exp10f (float __x) __attribute__ ((__nothrow__)); extern float pow10f (float __x) __attribute__ ((__nothrow__)); extern float __pow10f (float __x) __attribute__ ((__nothrow__)); extern float expm1f (float __x) __attribute__ ((__nothrow__)); extern float __expm1f (float __x) __attribute__ ((__nothrow__)); extern float log1pf (float __x) __attribute__ ((__nothrow__)); extern float __log1pf (float __x) __attribute__ ((__nothrow__)); extern float logbf (float __x) __attribute__ ((__nothrow__)); extern float __logbf (float __x) __attribute__ ((__nothrow__)); extern float exp2f (float __x) __attribute__ ((__nothrow__)); extern float __exp2f (float __x) __attribute__ ((__nothrow__)); extern float log2f (float __x) __attribute__ ((__nothrow__)); extern float __log2f (float __x) __attribute__ ((__nothrow__)); # 154 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern float powf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __powf (float __x, float __y) __attribute__ ((__nothrow__)); extern float sqrtf (float __x) __attribute__ ((__nothrow__)); extern float __sqrtf (float __x) __attribute__ ((__nothrow__)); extern float hypotf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __hypotf (float __x, float __y) __attribute__ ((__nothrow__)); extern float cbrtf (float __x) __attribute__ ((__nothrow__)); extern float __cbrtf (float __x) __attribute__ ((__nothrow__)); # 179 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern float ceilf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __ceilf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float fabsf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __fabsf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float floorf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __floorf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float fmodf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __fmodf (float __x, float __y) __attribute__ ((__nothrow__)); extern int __isinff (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __finitef (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isinff (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int finitef (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float dremf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __dremf (float __x, float __y) __attribute__ ((__nothrow__)); extern float significandf (float __x) __attribute__ ((__nothrow__)); extern float __significandf (float __x) __attribute__ ((__nothrow__)); extern float copysignf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __copysignf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float nanf (__const char *__tagb) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __nanf (__const char *__tagb) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __isnanf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isnanf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float j0f (float) __attribute__ ((__nothrow__)); extern float __j0f (float) __attribute__ ((__nothrow__)); extern float j1f (float) __attribute__ ((__nothrow__)); extern float __j1f (float) __attribute__ ((__nothrow__)); extern float jnf (int, float) __attribute__ ((__nothrow__)); extern float __jnf (int, float) __attribute__ ((__nothrow__)); extern float y0f (float) __attribute__ ((__nothrow__)); extern float __y0f (float) __attribute__ ((__nothrow__)); extern float y1f (float) __attribute__ ((__nothrow__)); extern float __y1f (float) __attribute__ ((__nothrow__)); extern float ynf (int, float) __attribute__ ((__nothrow__)); extern float __ynf (int, float) __attribute__ ((__nothrow__)); extern float erff (float) __attribute__ ((__nothrow__)); extern float __erff (float) __attribute__ ((__nothrow__)); extern float erfcf (float) __attribute__ ((__nothrow__)); extern float __erfcf (float) __attribute__ ((__nothrow__)); extern float lgammaf (float) __attribute__ ((__nothrow__)); extern float __lgammaf (float) __attribute__ ((__nothrow__)); extern float tgammaf (float) __attribute__ ((__nothrow__)); extern float __tgammaf (float) __attribute__ ((__nothrow__)); extern float gammaf (float) __attribute__ ((__nothrow__)); extern float __gammaf (float) __attribute__ ((__nothrow__)); extern float lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__)); extern float __lgammaf_r (float, int *__signgamp) __attribute__ ((__nothrow__)); extern float rintf (float __x) __attribute__ ((__nothrow__)); extern float __rintf (float __x) __attribute__ ((__nothrow__)); extern float nextafterf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __nextafterf (float __x, float __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float nexttowardf (float __x, long double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __nexttowardf (float __x, long double __y) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float remainderf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __remainderf (float __x, float __y) __attribute__ ((__nothrow__)); extern float scalbnf (float __x, int __n) __attribute__ ((__nothrow__)); extern float __scalbnf (float __x, int __n) __attribute__ ((__nothrow__)); extern int ilogbf (float __x) __attribute__ ((__nothrow__)); extern int __ilogbf (float __x) __attribute__ ((__nothrow__)); extern float scalblnf (float __x, long int __n) __attribute__ ((__nothrow__)); extern float __scalblnf (float __x, long int __n) __attribute__ ((__nothrow__)); extern float nearbyintf (float __x) __attribute__ ((__nothrow__)); extern float __nearbyintf (float __x) __attribute__ ((__nothrow__)); extern float roundf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __roundf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float truncf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float __truncf (float __x) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float remquof (float __x, float __y, int *__quo) __attribute__ ((__nothrow__)); extern float __remquof (float __x, float __y, int *__quo) __attribute__ ((__nothrow__)); extern long int lrintf (float __x) __attribute__ ((__nothrow__)); extern long int __lrintf (float __x) __attribute__ ((__nothrow__)); extern long long int llrintf (float __x) __attribute__ ((__nothrow__)); extern long long int __llrintf (float __x) __attribute__ ((__nothrow__)); extern long int lroundf (float __x) __attribute__ ((__nothrow__)); extern long int __lroundf (float __x) __attribute__ ((__nothrow__)); extern long long int llroundf (float __x) __attribute__ ((__nothrow__)); extern long long int __llroundf (float __x) __attribute__ ((__nothrow__)); extern float fdimf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __fdimf (float __x, float __y) __attribute__ ((__nothrow__)); extern float fmaxf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __fmaxf (float __x, float __y) __attribute__ ((__nothrow__)); extern float fminf (float __x, float __y) __attribute__ ((__nothrow__)); extern float __fminf (float __x, float __y) __attribute__ ((__nothrow__)); extern int __fpclassifyf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __signbitf (float __value) __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern float fmaf (float __x, float __y, float __z) __attribute__ ((__nothrow__)); extern float __fmaf (float __x, float __y, float __z) __attribute__ ((__nothrow__)); # 364 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern float scalbf (float __x, float __n) __attribute__ ((__nothrow__)); extern float __scalbf (float __x, float __n) __attribute__ ((__nothrow__)); # 95 "/usr/include/math.h" 2 3 4 # 145 "/usr/include/math.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 1 3 4 # 53 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern long double acosl (long double __x) __asm__ ("" "acos") __attribute__ ((__nothrow__)); extern long double __acosl (long double __x) __asm__ ("" "__acos") __attribute__ ((__nothrow__)); extern long double asinl (long double __x) __asm__ ("" "asin") __attribute__ ((__nothrow__)); extern long double __asinl (long double __x) __asm__ ("" "__asin") __attribute__ ((__nothrow__)); extern long double atanl (long double __x) __asm__ ("" "atan") __attribute__ ((__nothrow__)); extern long double __atanl (long double __x) __asm__ ("" "__atan") __attribute__ ((__nothrow__)); extern long double atan2l (long double __y, long double __x) __asm__ ("" "atan2") __attribute__ ((__nothrow__)); extern long double __atan2l (long double __y, long double __x) __asm__ ("" "__atan2") __attribute__ ((__nothrow__)); extern long double cosl (long double __x) __asm__ ("" "cos") __attribute__ ((__nothrow__)); extern long double __cosl (long double __x) __asm__ ("" "__cos") __attribute__ ((__nothrow__)); extern long double sinl (long double __x) __asm__ ("" "sin") __attribute__ ((__nothrow__)); extern long double __sinl (long double __x) __asm__ ("" "__sin") __attribute__ ((__nothrow__)); extern long double tanl (long double __x) __asm__ ("" "tan") __attribute__ ((__nothrow__)); extern long double __tanl (long double __x) __asm__ ("" "__tan") __attribute__ ((__nothrow__)); extern long double coshl (long double __x) __asm__ ("" "cosh") __attribute__ ((__nothrow__)); extern long double __coshl (long double __x) __asm__ ("" "__cosh") __attribute__ ((__nothrow__)); extern long double sinhl (long double __x) __asm__ ("" "sinh") __attribute__ ((__nothrow__)); extern long double __sinhl (long double __x) __asm__ ("" "__sinh") __attribute__ ((__nothrow__)); extern long double tanhl (long double __x) __asm__ ("" "tanh") __attribute__ ((__nothrow__)); extern long double __tanhl (long double __x) __asm__ ("" "__tanh") __attribute__ ((__nothrow__)); extern void sincosl (long double __x, long double *__sinx, long double *__cosx) __asm__ ("" "sincos") __attribute__ ((__nothrow__)); extern void __sincosl (long double __x, long double *__sinx, long double *__cosx) __asm__ ("" "__sincos") __attribute__ ((__nothrow__)) ; extern long double acoshl (long double __x) __asm__ ("" "acosh") __attribute__ ((__nothrow__)); extern long double __acoshl (long double __x) __asm__ ("" "__acosh") __attribute__ ((__nothrow__)); extern long double asinhl (long double __x) __asm__ ("" "asinh") __attribute__ ((__nothrow__)); extern long double __asinhl (long double __x) __asm__ ("" "__asinh") __attribute__ ((__nothrow__)); extern long double atanhl (long double __x) __asm__ ("" "atanh") __attribute__ ((__nothrow__)); extern long double __atanhl (long double __x) __asm__ ("" "__atanh") __attribute__ ((__nothrow__)); extern long double expl (long double __x) __asm__ ("" "exp") __attribute__ ((__nothrow__)); extern long double __expl (long double __x) __asm__ ("" "__exp") __attribute__ ((__nothrow__)); extern long double frexpl (long double __x, int *__exponent) __asm__ ("" "frexp") __attribute__ ((__nothrow__)); extern long double __frexpl (long double __x, int *__exponent) __asm__ ("" "__frexp") __attribute__ ((__nothrow__)); extern long double ldexpl (long double __x, int __exponent) __asm__ ("" "ldexp") __attribute__ ((__nothrow__)); extern long double __ldexpl (long double __x, int __exponent) __asm__ ("" "__ldexp") __attribute__ ((__nothrow__)); extern long double logl (long double __x) __asm__ ("" "log") __attribute__ ((__nothrow__)); extern long double __logl (long double __x) __asm__ ("" "__log") __attribute__ ((__nothrow__)); extern long double log10l (long double __x) __asm__ ("" "log10") __attribute__ ((__nothrow__)); extern long double __log10l (long double __x) __asm__ ("" "__log10") __attribute__ ((__nothrow__)); extern long double modfl (long double __x, long double *__iptr) __asm__ ("" "modf") __attribute__ ((__nothrow__)); extern long double __modfl (long double __x, long double *__iptr) __asm__ ("" "__modf") __attribute__ ((__nothrow__)); extern long double exp10l (long double __x) __asm__ ("" "exp10") __attribute__ ((__nothrow__)); extern long double __exp10l (long double __x) __asm__ ("" "__exp10") __attribute__ ((__nothrow__)); extern long double pow10l (long double __x) __asm__ ("" "pow10") __attribute__ ((__nothrow__)); extern long double __pow10l (long double __x) __asm__ ("" "__pow10") __attribute__ ((__nothrow__)); extern long double expm1l (long double __x) __asm__ ("" "expm1") __attribute__ ((__nothrow__)); extern long double __expm1l (long double __x) __asm__ ("" "__expm1") __attribute__ ((__nothrow__)); extern long double log1pl (long double __x) __asm__ ("" "log1p") __attribute__ ((__nothrow__)); extern long double __log1pl (long double __x) __asm__ ("" "__log1p") __attribute__ ((__nothrow__)); extern long double logbl (long double __x) __asm__ ("" "logb") __attribute__ ((__nothrow__)); extern long double __logbl (long double __x) __asm__ ("" "__logb") __attribute__ ((__nothrow__)); extern long double exp2l (long double __x) __asm__ ("" "exp2") __attribute__ ((__nothrow__)); extern long double __exp2l (long double __x) __asm__ ("" "__exp2") __attribute__ ((__nothrow__)); extern long double log2l (long double __x) __asm__ ("" "log2") __attribute__ ((__nothrow__)); extern long double __log2l (long double __x) __asm__ ("" "__log2") __attribute__ ((__nothrow__)); # 154 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern long double powl (long double __x, long double __y) __asm__ ("" "pow") __attribute__ ((__nothrow__)); extern long double __powl (long double __x, long double __y) __asm__ ("" "__pow") __attribute__ ((__nothrow__)); extern long double sqrtl (long double __x) __asm__ ("" "sqrt") __attribute__ ((__nothrow__)); extern long double __sqrtl (long double __x) __asm__ ("" "__sqrt") __attribute__ ((__nothrow__)); extern long double hypotl (long double __x, long double __y) __asm__ ("" "hypot") __attribute__ ((__nothrow__)); extern long double __hypotl (long double __x, long double __y) __asm__ ("" "__hypot") __attribute__ ((__nothrow__)); extern long double cbrtl (long double __x) __asm__ ("" "cbrt") __attribute__ ((__nothrow__)); extern long double __cbrtl (long double __x) __asm__ ("" "__cbrt") __attribute__ ((__nothrow__)); # 179 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern long double ceill (long double __x) __asm__ ("" "ceil") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __ceill (long double __x) __asm__ ("" "__ceil") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double fabsl (long double __x) __asm__ ("" "fabs") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __fabsl (long double __x) __asm__ ("" "__fabs") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double floorl (long double __x) __asm__ ("" "floor") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __floorl (long double __x) __asm__ ("" "__floor") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double fmodl (long double __x, long double __y) __asm__ ("" "fmod") __attribute__ ((__nothrow__)); extern long double __fmodl (long double __x, long double __y) __asm__ ("" "__fmod") __attribute__ ((__nothrow__)); extern int __isinfl (long double __value) __asm__ ("" "__isinf") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __finitel (long double __value) __asm__ ("" "__finite") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isinfl (long double __value) __asm__ ("" "isinf") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int finitel (long double __value) __asm__ ("" "finite") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double dreml (long double __x, long double __y) __asm__ ("" "drem") __attribute__ ((__nothrow__)); extern long double __dreml (long double __x, long double __y) __asm__ ("" "__drem") __attribute__ ((__nothrow__)); extern long double significandl (long double __x) __asm__ ("" "significand") __attribute__ ((__nothrow__)); extern long double __significandl (long double __x) __asm__ ("" "__significand") __attribute__ ((__nothrow__)); extern long double copysignl (long double __x, long double __y) __asm__ ("" "copysign") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __copysignl (long double __x, long double __y) __asm__ ("" "__copysign") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double nanl (__const char *__tagb) __asm__ ("" "nan") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __nanl (__const char *__tagb) __asm__ ("" "__nan") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __isnanl (long double __value) __asm__ ("" "__isnan") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int isnanl (long double __value) __asm__ ("" "isnan") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double j0l (long double) __asm__ ("" "j0") __attribute__ ((__nothrow__)); extern long double __j0l (long double) __asm__ ("" "__j0") __attribute__ ((__nothrow__)); extern long double j1l (long double) __asm__ ("" "j1") __attribute__ ((__nothrow__)); extern long double __j1l (long double) __asm__ ("" "__j1") __attribute__ ((__nothrow__)); extern long double jnl (int, long double) __asm__ ("" "jn") __attribute__ ((__nothrow__)); extern long double __jnl (int, long double) __asm__ ("" "__jn") __attribute__ ((__nothrow__)); extern long double y0l (long double) __asm__ ("" "y0") __attribute__ ((__nothrow__)); extern long double __y0l (long double) __asm__ ("" "__y0") __attribute__ ((__nothrow__)); extern long double y1l (long double) __asm__ ("" "y1") __attribute__ ((__nothrow__)); extern long double __y1l (long double) __asm__ ("" "__y1") __attribute__ ((__nothrow__)); extern long double ynl (int, long double) __asm__ ("" "yn") __attribute__ ((__nothrow__)); extern long double __ynl (int, long double) __asm__ ("" "__yn") __attribute__ ((__nothrow__)); extern long double erfl (long double) __asm__ ("" "erf") __attribute__ ((__nothrow__)); extern long double __erfl (long double) __asm__ ("" "__erf") __attribute__ ((__nothrow__)); extern long double erfcl (long double) __asm__ ("" "erfc") __attribute__ ((__nothrow__)); extern long double __erfcl (long double) __asm__ ("" "__erfc") __attribute__ ((__nothrow__)); extern long double lgammal (long double) __asm__ ("" "lgamma") __attribute__ ((__nothrow__)); extern long double __lgammal (long double) __asm__ ("" "__lgamma") __attribute__ ((__nothrow__)); extern long double tgammal (long double) __asm__ ("" "tgamma") __attribute__ ((__nothrow__)); extern long double __tgammal (long double) __asm__ ("" "__tgamma") __attribute__ ((__nothrow__)); extern long double gammal (long double) __asm__ ("" "gamma") __attribute__ ((__nothrow__)); extern long double __gammal (long double) __asm__ ("" "__gamma") __attribute__ ((__nothrow__)); extern long double lgammal_r (long double, int *__signgamp) __asm__ ("" "lgamma_r") __attribute__ ((__nothrow__)); extern long double __lgammal_r (long double, int *__signgamp) __asm__ ("" "__lgamma_r") __attribute__ ((__nothrow__)); extern long double rintl (long double __x) __asm__ ("" "rint") __attribute__ ((__nothrow__)); extern long double __rintl (long double __x) __asm__ ("" "__rint") __attribute__ ((__nothrow__)); extern long double nextafterl (long double __x, long double __y) __asm__ ("" "nextafter") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __nextafterl (long double __x, long double __y) __asm__ ("" "__nextafter") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double nexttowardl (long double __x, long double __y) __asm__ ("" "nexttoward") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __nexttowardl (long double __x, long double __y) __asm__ ("" "__nexttoward") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double remainderl (long double __x, long double __y) __asm__ ("" "remainder") __attribute__ ((__nothrow__)); extern long double __remainderl (long double __x, long double __y) __asm__ ("" "__remainder") __attribute__ ((__nothrow__)); extern long double scalbnl (long double __x, int __n) __asm__ ("" "scalbn") __attribute__ ((__nothrow__)); extern long double __scalbnl (long double __x, int __n) __asm__ ("" "__scalbn") __attribute__ ((__nothrow__)); extern int ilogbl (long double __x) __asm__ ("" "ilogb") __attribute__ ((__nothrow__)); extern int __ilogbl (long double __x) __asm__ ("" "__ilogb") __attribute__ ((__nothrow__)); extern long double scalblnl (long double __x, long int __n) __asm__ ("" "scalbln") __attribute__ ((__nothrow__)); extern long double __scalblnl (long double __x, long int __n) __asm__ ("" "__scalbln") __attribute__ ((__nothrow__)); extern long double nearbyintl (long double __x) __asm__ ("" "nearbyint") __attribute__ ((__nothrow__)); extern long double __nearbyintl (long double __x) __asm__ ("" "__nearbyint") __attribute__ ((__nothrow__)); extern long double roundl (long double __x) __asm__ ("" "round") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __roundl (long double __x) __asm__ ("" "__round") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double truncl (long double __x) __asm__ ("" "trunc") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double __truncl (long double __x) __asm__ ("" "__trunc") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double remquol (long double __x, long double __y, int *__quo) __asm__ ("" "remquo") __attribute__ ((__nothrow__)); extern long double __remquol (long double __x, long double __y, int *__quo) __asm__ ("" "__remquo") __attribute__ ((__nothrow__)); extern long int lrintl (long double __x) __asm__ ("" "lrint") __attribute__ ((__nothrow__)); extern long int __lrintl (long double __x) __asm__ ("" "__lrint") __attribute__ ((__nothrow__)); extern long long int llrintl (long double __x) __asm__ ("" "llrint") __attribute__ ((__nothrow__)); extern long long int __llrintl (long double __x) __asm__ ("" "__llrint") __attribute__ ((__nothrow__)); extern long int lroundl (long double __x) __asm__ ("" "lround") __attribute__ ((__nothrow__)); extern long int __lroundl (long double __x) __asm__ ("" "__lround") __attribute__ ((__nothrow__)); extern long long int llroundl (long double __x) __asm__ ("" "llround") __attribute__ ((__nothrow__)); extern long long int __llroundl (long double __x) __asm__ ("" "__llround") __attribute__ ((__nothrow__)); extern long double fdiml (long double __x, long double __y) __asm__ ("" "fdim") __attribute__ ((__nothrow__)); extern long double __fdiml (long double __x, long double __y) __asm__ ("" "__fdim") __attribute__ ((__nothrow__)); extern long double fmaxl (long double __x, long double __y) __asm__ ("" "fmax") __attribute__ ((__nothrow__)); extern long double __fmaxl (long double __x, long double __y) __asm__ ("" "__fmax") __attribute__ ((__nothrow__)); extern long double fminl (long double __x, long double __y) __asm__ ("" "fmin") __attribute__ ((__nothrow__)); extern long double __fminl (long double __x, long double __y) __asm__ ("" "__fmin") __attribute__ ((__nothrow__)); extern int __fpclassifyl (long double __value) __asm__ ("" "__fpclassify") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern int __signbitl (long double __value) __asm__ ("" "__signbit") __attribute__ ((__nothrow__)) __attribute__ ((__const__)); extern long double fmal (long double __x, long double __y, long double __z) __asm__ ("" "fma") __attribute__ ((__nothrow__)); extern long double __fmal (long double __x, long double __y, long double __z) __asm__ ("" "__fma") __attribute__ ((__nothrow__)); # 364 "/usr/include/arm-linux-gnueabi/bits/mathcalls.h" 3 4 extern long double scalbl (long double __x, long double __n) __asm__ ("" "scalb") __attribute__ ((__nothrow__)); extern long double __scalbl (long double __x, long double __n) __asm__ ("" "__scalb") __attribute__ ((__nothrow__)); # 146 "/usr/include/math.h" 2 3 4 # 161 "/usr/include/math.h" 3 4 extern int signgam; # 202 "/usr/include/math.h" 3 4 enum { FP_NAN, FP_INFINITE, FP_ZERO, FP_SUBNORMAL, FP_NORMAL }; # 295 "/usr/include/math.h" 3 4 typedef enum { _IEEE_ = -1, _SVID_, _XOPEN_, _POSIX_, _ISOC_ } _LIB_VERSION_TYPE; extern _LIB_VERSION_TYPE _LIB_VERSION; # 320 "/usr/include/math.h" 3 4 struct exception { int type; char *name; double arg1; double arg2; double retval; }; extern int matherr (struct exception *__exc); # 420 "/usr/include/math.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/mathinline.h" 1 3 4 # 421 "/usr/include/math.h" 2 3 4 # 476 "/usr/include/math.h" 3 4 # 3949 "perl.h" 2 # 4026 "perl.h" char *getenv (const char*); # 4075 "perl.h" typedef struct sigaction Sigsave_t; # 4094 "perl.h" extern void PerlIO_teardown(void); # 4135 "perl.h" struct perl_memory_debug_header; struct perl_memory_debug_header { PerlInterpreter* interpreter; struct perl_memory_debug_header *prev; struct perl_memory_debug_header *next; }; # 4192 "perl.h" typedef int (*runops_proc_t) (register PerlInterpreter* my_perl __attribute__((unused))); typedef void (*share_proc_t) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); typedef int (*thrhook_proc_t) (register PerlInterpreter* my_perl __attribute__((unused))); typedef OP* (*PPADDR_t[]) (register PerlInterpreter* my_perl __attribute__((unused))); typedef char (*destroyable_proc_t) (register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); # 4221 "perl.h" extern char ** environ; extern const char PL_warn_uninit[] ; extern const char PL_warn_nosemi[] ; extern const char PL_warn_reserved[] ; extern const char PL_warn_nl[] ; extern const char PL_no_wrongref[] ; extern const char PL_no_symref[] __attribute__((deprecated)) ; extern const char PL_no_symref_sv[] __attribute__((deprecated)) ; extern const char PL_no_usym[] ; extern const char PL_no_aelem[] ; extern const char PL_no_helem_sv[] ; extern const char PL_no_modify[] ; extern const char PL_no_mem[] ; extern const char PL_no_security[] ; extern const char PL_no_sock_func[] ; extern const char PL_no_dir_func[] ; extern const char PL_no_func[] ; extern const char PL_no_myglob[] ; extern const char PL_no_localize_ref[] ; extern const char PL_memory_wrap[] ; extern const char PL_uuemap[65] ; # 4289 "perl.h" extern const char PL_uudmap[256]; extern const char PL_bitcount[256]; extern const char* const PL_sig_name[]; extern const int PL_sig_num[]; # 4444 "perl.h" extern const unsigned char PL_fold[]; extern const unsigned char PL_mod_latin1_uc[]; extern const unsigned char PL_latin1_lc[]; # 4486 "perl.h" extern unsigned char PL_fold_locale[]; # 4563 "perl.h" extern const unsigned char PL_freq[]; # 4689 "perl.h" extern const char PL_bincompat_options[]; # 4711 "perl.h" typedef enum { XOPERATOR, XTERM, XREF, XSTATE, XBLOCK, XATTRBLOCK, XATTRTERM, XTERMBLOCK, XTERMORDORDOR } 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, want_vtbl_utf8, want_vtbl_symtab, want_vtbl_arylen_p, want_vtbl_hintselem, want_vtbl_hints }; # 4812 "perl.h" struct perl_debug_pad { SV pad[3]; }; typedef void (*peep_t)(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); typedef regexp*(*regcomp_t) (register PerlInterpreter* my_perl __attribute__((unused)), char* exp, char* xend, PMOP* pm); typedef I32 (*regexec_t) (register PerlInterpreter* my_perl __attribute__((unused)), 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 __attribute__((unused)), regexp *prog, SV *sv, char *strpos, char *strend, U32 flags, re_scream_pos_data *d); typedef SV* (*re_intuit_string_t) (register PerlInterpreter* my_perl __attribute__((unused)), regexp *prog); typedef void (*regfree_t) (register PerlInterpreter* my_perl __attribute__((unused)), struct regexp* r); typedef regexp*(*regdupe_t) (register PerlInterpreter* my_perl __attribute__((unused)), const regexp* r, CLONE_PARAMS *param); typedef void (*DESTRUCTORFUNC_NOCONTEXT_t) (void*); typedef void (*DESTRUCTORFUNC_t) (register PerlInterpreter* my_perl __attribute__((unused)), void*); typedef void (*SVFUNC_t) (register PerlInterpreter* my_perl __attribute__((unused)), SV* const); typedef I32 (*SVCOMPARE_t) (register PerlInterpreter* my_perl __attribute__((unused)), SV* const, SV* const); typedef void (*XSINIT_t) (register PerlInterpreter* my_perl __attribute__((unused))); typedef void (*ATEXIT_t) (register PerlInterpreter* my_perl __attribute__((unused)), void*); typedef void (*XSUBADDR_t) (register PerlInterpreter* my_perl __attribute__((unused)), CV *); # 4850 "perl.h" typedef OP* (*Perl_ppaddr_t)(register PerlInterpreter* my_perl __attribute__((unused))); typedef OP* (*Perl_check_t) (register PerlInterpreter* my_perl __attribute__((unused)), OP*); typedef void(*Perl_ophook_t)(register PerlInterpreter* my_perl __attribute__((unused)), OP*); typedef int (*Perl_keyword_plugin_t)(register PerlInterpreter* my_perl __attribute__((unused)), char*, STRLEN, OP**); typedef struct exitlistentry { void (*fn) (register PerlInterpreter* my_perl __attribute__((unused)), void*); void *ptr; } PerlExitListEntry; # 4876 "perl.h" # 1 "patchlevel.h" 1 # 4877 "perl.h" 2 # 4912 "perl.h" struct interpreter { # 1 "intrpvar.h" 1 # 34 "intrpvar.h" SV ** Istack_sp; OP * Iop; SV ** Icurpad; SV ** Istack_base; SV ** Istack_max; I32 * Iscopestack; const char * * Iscopestack_name; I32 Iscopestack_ix; I32 Iscopestack_max; ANY * Isavestack; I32 Isavestack_ix; I32 Isavestack_max; SV ** Itmps_stack; I32 Itmps_ix; I32 Itmps_floor; I32 Itmps_max; I32 Imodcount; I32 * Imarkstack; I32 * Imarkstack_ptr; I32 * Imarkstack_max; SV * ISv; XPV * IXpv; # 83 "intrpvar.h" STRLEN Ina; struct stat Istatbuf; struct stat Istatcache; GV * Istatgv; SV * Istatname; struct tms Itimesbuf; PMOP * Icurpm; # 115 "intrpvar.h" SV * Irs; GV * Ilast_in_gv; GV * Iofsgv; GV * Idefoutgv; const char * Ichopset; SV * Iformtarget; SV * Ibodytarget; SV * Itoptarget; HV * Idefstash; HV * Icurstash; OP * Irestartop; COP * Icurcop; AV * Icurstack; PERL_SI * Icurstackinfo; AV * Imainstack; JMPENV * Itop_env; JMPENV Istart_env; SV * Ierrors; HE* Ihv_fetch_ent_mh; OP* Ilastgotoprobe; OP * Isortcop; HV * Isortstash; GV * Ifirstgv; GV * Isecondgv; char * Iefloatbuf; STRLEN Iefloatsize; I32 * Iscreamfirst; I32 * Iscreamnext; SV * Ilastscream; struct re_save_state Ireg_state; regnode Iregdummy; U16 Idumpindent; char Iutf8locale; char Irehash_seed_set; char * Icolors[6]; peep_t Ipeepp; # 188 "intrpvar.h" Perl_ophook_t Iopfreehook; I32 Imaxscream; I32 Ireginterp_cnt; char ** Iwatchaddr; char * Iwatchok; regmatch_slab * Iregmatch_slab; regmatch_state * Iregmatch_state; U16 Idelaymagic; U8 Ilocalizing; char Icolorset; char Idirty; U8 Iin_eval; char Itainted; signed char Iperl_destruct_level; U32 Iperldb; int Iorigargc; char ** Iorigargv; GV * Ienvgv; GV * Iincgv; GV * Ihintgv; char * Iorigfilename; SV * Idiehook; SV * Iwarnhook; SV * Ipatchlevel; const char * const * Ilocalpatches; const char * Isplitstr; char Iminus_c; char Iminus_n; char Iminus_p; char Iminus_l; char Iminus_a; char Iminus_F; char Idoswitches; char Iminus_E; # 251 "intrpvar.h" U8 Idowarn; char Idoextract; char Isawampersand; char Iunsafe; U8 Iexit_flags; char Isrand_called; char Itainting; char * Iinplace; SV * Ie_script; time_t Ibasetime; SV * Iformfeed; I32 Imaxsysfd; I32 Istatusvalue; I32 Istatusvalue_posix; int Isig_pending; int * Ipsig_pend; GV * Istdingv; GV * Istderrgv; GV * Idefgv; GV * Iargvgv; GV * Iargvoutgv; AV * Iargvout_stack; GV * Ireplgv; GV * Ierrgv; GV * IDBgv; GV * IDBline; # 320 "intrpvar.h" GV * IDBsub; SV * IDBsingle; SV * IDBtrace; SV * IDBsignal; AV * Idbargs; HV * Idebstash; HV * Iglobalstash; SV * Icurstname; AV * Ibeginav; AV * Iendav; AV * Iunitcheckav; AV * Icheckav; AV * Iinitav; HV * Istrtab; U32 Isub_generation; int Iforkprocess; I32 Isv_count; I32 Isv_objcount; SV* Isv_root; SV* Isv_arenaroot; AV * Ifdpid; char * Iop_mask; CV * Imain_cv; OP * Imain_root; OP * Imain_start; OP * Ieval_root; OP * Ieval_start; COP * Icurcopdb; int Ifilemode; int Ilastfd; char * Ioldname; const char ** IArgv; char * ICmd; AV * Ipreambleav; SV * Imess_sv; SV * Iors_sv; I32 Igensym; char Icv_has_eval; char Itaint_warn; U16 Ilaststype; int Ilaststatval; I32 Iexitlistlen; PerlExitListEntry * Iexitlist; # 399 "intrpvar.h" HV * Imodglobal; U32 * Iprofiledata; COP Icompiling; CV * Icompcv; AV * Icomppad; AV * Icomppad_name; I32 Icomppad_name_fill; I32 Icomppad_name_floor; CV * IDBcv; int Igeneration; char Iin_clean_objs; char Iin_clean_all; char Inomemok; char Isavebegin; uid_t Iuid; uid_t Ieuid; gid_t Igid; gid_t Iegid; U32 Ian; U32 Icop_seqmax; U32 Ievalseq; U32 Iorigalen; char ** Iorigenviron; char * Iosname; Sighandler_t Isighandlerp; void* Ibody_roots[(SVt_LAST)]; char * Inice_chunk; U32 Inice_chunk_size; int Imaxo; runops_proc_t Irunops; # 466 "intrpvar.h" SV Isv_undef; SV Isv_no; SV Isv_yes; SV * Isubname; I32 Isubline; I32 Imin_intro_pending; I32 Imax_intro_pending; I32 Ipadix; I32 Ipadix_floor; U32 Ihints; volatile U32 Idebug; U32 Ibreakable_sub_gen; long Iamagic_generation; char * Icollation_name; size_t Icollxfrm_base; size_t Icollxfrm_mult; U32 Icollation_ix; char Icollation_standard; # 504 "intrpvar.h" I8 Iutf8cache; char Inumeric_standard; char Inumeric_local; char * Inumeric_name; SV * Iutf8_alnum; SV * Iutf8_ascii; SV * Iutf8_alpha; SV * Iutf8_space; SV * Iutf8_perl_space; SV * Iutf8_perl_word; SV * Iutf8_posix_digit; 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_X_begin; SV * Iutf8_X_extend; SV * Iutf8_X_prepend; SV * Iutf8_X_non_hangul; SV * Iutf8_X_L; SV * Iutf8_X_LV; SV * Iutf8_X_LVT; SV * Iutf8_X_T; SV * Iutf8_X_V; SV * Iutf8_X_LV_LVT_V; SV * Iutf8_toupper; SV * Iutf8_totitle; SV * Iutf8_tolower; SV * Iutf8_tofold; HV * Ilast_swash_hv; U8 * Ilast_swash_tmps; STRLEN Ilast_swash_slen; U8 Ilast_swash_key[10]; U8 Ilast_swash_klen; char Ipad_reset_pending; int Iglob_index; yy_parser * Iparser; SV** Ipsig_ptr; SV** Ipsig_name; # 585 "intrpvar.h" PTR_TBL_t* Iptr_table; AV* Ibeginav_save; void* Ibody_arenas; SV * Inumeric_radix_sv; SV** Iregex_pad; AV* Iregex_padav; REENTR* Ireentrant_buffer; HV* Icustom_op_names; HV* Icustom_op_descs; PerlIO * Iperlio; PerlIO_list_t * Iknown_layers; PerlIO_list_t * Idef_layerlist; SV* Iencoding; struct perl_debug_pad Idebug_pad; SV * Iutf8_idstart; SV * Iutf8_idcont; SVCOMPARE_t Isort_RealCmp; AV* Icheckav_save; AV* Iunitcheckav_save; long Iclocktick; int Iin_load_module; U32 Iunicode; U32 Isignals; int Ireentrant_retint; HV * Istashcache; share_proc_t Isharehook; share_proc_t Ilockhook; share_proc_t Iunlockhook; thrhook_proc_t Ithreadhook; UV Ihash_seed; UV Irehash_seed; HV* Iisarev; # 670 "intrpvar.h" int Imy_cxt_size; void ** Imy_cxt_list; # 710 "intrpvar.h" destroyable_proc_t Idestroyhook; # 720 "intrpvar.h" HV * Iregistered_mros; # 4914 "perl.h" 2 }; # 4929 "perl.h" struct tempsym; # 1 "thread.h" 1 # 4932 "perl.h" 2 # 1 "pp.h" 1 # 4933 "perl.h" 2 # 4946 "perl.h" # 1 "proto.h" 1 # 19 "proto.h" # 36 "proto.h" PerlInterpreter* perl_alloc(void); void perl_construct(PerlInterpreter *my_perl) __attribute__((nonnull(1))); int perl_destruct(PerlInterpreter *my_perl) __attribute__((nonnull(1))); void perl_free(PerlInterpreter *my_perl) __attribute__((nonnull(1))); int perl_run(PerlInterpreter *my_perl) __attribute__((nonnull(1))); int perl_parse(PerlInterpreter *my_perl, XSINIT_t xsinit, int argc, char** argv, char** env) __attribute__((nonnull(1))); char Perl_doing_taint(int argc, char** argv, char** env) __attribute__((warn_unused_result)); PerlInterpreter* perl_clone(PerlInterpreter *proto_perl, UV flags) __attribute__((nonnull(1))); # 89 "proto.h" void * Perl_malloc(size_t nbytes) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void * Perl_calloc(size_t elements, size_t size) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void * Perl_realloc(void * where, size_t nbytes) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void Perl_mfree(void * where); # 114 "proto.h" void* Perl_get_context(void) __attribute__((warn_unused_result)); void Perl_set_context(void *t) __attribute__((nonnull(1))); I32 Perl_regcurly(const char *s) __attribute__((warn_unused_result)) __attribute__((pure)) __attribute__((nonnull(1))); # 134 "proto.h" # 1 "pp_proto.h" 1 OP *Perl_ck_anoncode (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_bitop (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_chdir (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_concat (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_defined (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_delete (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_die (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_each (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_eof (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_eval (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_exec (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_exists (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_exit (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_ftst (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_fun (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_glob (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_grep (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_index (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_join (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_lfun (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_listiob (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_match (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_method (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_null (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_open (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_readline (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_repeat (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_require (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_return (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_rfun (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_rvconst (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_sassign (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_select (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_shift (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_smartmatch (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_sort (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_spair (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_split (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_subr (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_substr (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_svconst (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_trunc (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_ck_unpack (register PerlInterpreter* my_perl __attribute__((unused)), OP *o); OP *Perl_pp_null (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_stub (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_scalar (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pushmark (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_wantarray (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_const (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gvsv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gelem (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_padsv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_padav (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_padhv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_padany (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pushre (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rv2gv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rv2sv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_av2arylen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rv2cv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_anoncode (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_prototype (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_refgen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_srefgen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ref (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_bless (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_backtick (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_glob (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_readline (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rcatline (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_regcmaybe (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_regcreset (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_regcomp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_match (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_qr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_subst (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_substcont (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_trans (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sassign (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_aassign (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_schop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chomp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_schomp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_defined (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_undef (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_study (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pos (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_preinc (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_predec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_postinc (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_postdec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pow (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_multiply (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_multiply (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_divide (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_divide (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_modulo (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_modulo (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_repeat (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_add (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_add (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_subtract (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_subtract (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_concat (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_stringify (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_left_shift (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_right_shift (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_lt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_gt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_le (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_le (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ge (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_ge (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_eq (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_eq (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ne (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_ne (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ncmp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_ncmp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_slt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sgt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sle (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sge (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_seq (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sne (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_scmp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_bit_and (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_bit_xor (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_bit_or (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_negate (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_i_negate (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_not (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_complement (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_smartmatch (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_atan2 (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sin (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_cos (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rand (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_srand (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_exp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_log (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sqrt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_int (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_hex (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_oct (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_abs (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_length (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_substr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_vec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_index (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rindex (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sprintf (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_formline (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ord (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_crypt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ucfirst (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lcfirst (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_uc (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lc (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_quotemeta (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rv2av (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_aelemfast (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_aelem (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_aslice (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_aeach (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_akeys (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_avalues (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_each (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_values (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_keys (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_delete (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_exists (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rv2hv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_helem (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_hslice (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_boolkeys (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_unpack (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pack (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_split (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_join (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_list (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lslice (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_anonlist (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_anonhash (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_splice (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_push (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shift (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_unshift (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sort (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_reverse (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_grepstart (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_grepwhile (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_mapstart (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_mapwhile (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_range (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_flip (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_flop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_and (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_or (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_xor (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dor (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_cond_expr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_andassign (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_orassign (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dorassign (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_method (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_entersub (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavesub (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavesublv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_caller (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_warn (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_die (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_reset (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lineseq (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_nextstate (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dbstate (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_unstack (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enter (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leave (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_scope (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enteriter (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_iter (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enterloop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leaveloop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_return (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_last (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_next (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_redo (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dump (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_goto (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_exit (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_method_named (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_entergiven (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavegiven (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enterwhen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavewhen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_break (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_continue (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_open (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_close (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_pipe_op (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fileno (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_umask (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_binmode (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_tie (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_untie (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_tied (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dbmopen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dbmclose (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sselect (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_select (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getc (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_read (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enterwrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavewrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_prtf (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_print (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_say (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sysopen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sysseek (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sysread (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_syswrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_eof (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_tell (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_seek (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_truncate (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fcntl (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ioctl (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_flock (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_send (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_recv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_socket (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sockpair (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_bind (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_connect (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_listen (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_accept (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shutdown (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gsockopt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ssockopt (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getsockname (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getpeername (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lstat (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_stat (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftrread (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftrwrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftrexec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fteread (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftewrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fteexec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftis (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftsize (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftmtime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftatime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftctime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftrowned (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fteowned (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftzero (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftsock (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftchr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftblk (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftfile (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftpipe (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftsuid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftsgid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftsvtx (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftlink (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fttty (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fttext (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ftbinary (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chown (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chroot (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_unlink (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_chmod (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_utime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rename (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_link (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_symlink (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_readlink (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_mkdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rmdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_open_dir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_readdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_telldir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_seekdir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_rewinddir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_closedir (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_fork (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_wait (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_waitpid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_system (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_exec (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_kill (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getppid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getpgrp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_setpgrp (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getpriority (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_setpriority (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_time (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_tms (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_localtime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gmtime (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_alarm (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sleep (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shmget (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shmctl (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shmread (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shmwrite (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_msgget (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_msgctl (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_msgsnd (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_msgrcv (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_semop (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_semget (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_semctl (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_require (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_dofile (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_hintseval (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_entereval (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leaveeval (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_entertry (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_leavetry (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ghbyname (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ghbyaddr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ghostent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gnbyname (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gnbyaddr (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gnetent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gpbyname (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gpbynumber (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gprotoent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gsbyname (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gsbyport (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gservent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_shostent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_snetent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sprotoent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sservent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ehostent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_enetent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_eprotoent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_eservent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gpwnam (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gpwuid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_gpwent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_spwent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_epwent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ggrnam (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ggrgid (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_ggrent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_sgrent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_egrent (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_getlogin (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_syscall (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_lock (register PerlInterpreter* my_perl __attribute__((unused))); OP *Perl_pp_once (register PerlInterpreter* my_perl __attribute__((unused))); # 135 "proto.h" 2 SV* Perl_amagic_call(register PerlInterpreter* my_perl __attribute__((unused)), SV* left, SV* right, int method, int dir) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_Gv_AMupdate(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, char destructing) __attribute__((nonnull(2))); CV* Perl_gv_handler(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, I32 id) __attribute__((warn_unused_result)); OP* Perl_append_elem(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, OP* first, OP* last); OP* Perl_append_list(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, LISTOP* first, LISTOP* last); I32 Perl_apply(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, SV** mark, SV** sp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_apply_attrs_string(register PerlInterpreter* my_perl __attribute__((unused)), const char *stashpv, CV *cv, const char *attrstr, STRLEN len) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_av_clear(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); SV* Perl_av_delete(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key, I32 flags) __attribute__((nonnull(2))); char Perl_av_exists(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_av_extend(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key) __attribute__((nonnull(2))); SV** Perl_av_fetch(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key, I32 lval) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_av_fill(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 fill) __attribute__((nonnull(2))); I32 Perl_av_len(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); AV* Perl_av_make(register PerlInterpreter* my_perl __attribute__((unused)), I32 size, SV **strp) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); SV* Perl_av_pop(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); void Perl_av_create_and_push(register PerlInterpreter* my_perl __attribute__((unused)), AV **const avp, SV *const val) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_av_push(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, SV *val) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_av_reify(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); SV* Perl_av_shift(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV** Perl_av_store(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key, SV *val) __attribute__((nonnull(2))); void Perl_av_undef(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); SV** Perl_av_create_and_unshift_one(register PerlInterpreter* my_perl __attribute__((unused)), AV **const avp, SV *const val) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_av_unshift(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 num) __attribute__((nonnull(2))); SV** Perl_av_arylen_p(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); IV* Perl_av_iter_p(register PerlInterpreter* my_perl __attribute__((unused)), AV *av) __attribute__((nonnull(2))); # 274 "proto.h" OP* Perl_bind_match(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, OP *left, OP *right) __attribute__((warn_unused_result)) __attribute__((nonnull(3))) __attribute__((nonnull(4))); OP* Perl_block_end(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP* seq) __attribute__((warn_unused_result)); I32 Perl_block_gimme(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); int Perl_block_start(register PerlInterpreter* my_perl __attribute__((unused)), int full) __attribute__((warn_unused_result)); void Perl_boot_core_UNIVERSAL(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_boot_core_PerlIO(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_call_list(register PerlInterpreter* my_perl __attribute__((unused)), I32 oldscope, AV *paramList) __attribute__((nonnull(3))); char Perl_cando(register PerlInterpreter* my_perl __attribute__((unused)), mode_t mode, char effective, const struct stat* statbufp) __attribute__((warn_unused_result)) __attribute__((nonnull(4))); U32 Perl_cast_ulong(register PerlInterpreter* my_perl __attribute__((unused)), NV f) __attribute__((warn_unused_result)); I32 Perl_cast_i32(register PerlInterpreter* my_perl __attribute__((unused)), NV f) __attribute__((warn_unused_result)); IV Perl_cast_iv(register PerlInterpreter* my_perl __attribute__((unused)), NV f) __attribute__((warn_unused_result)); UV Perl_cast_uv(register PerlInterpreter* my_perl __attribute__((unused)), NV f) __attribute__((warn_unused_result)); OP* Perl_convert(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, I32 flags, OP* o) __attribute__((warn_unused_result)); PERL_CONTEXT* Perl_create_eval_scope(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags); void Perl_croak(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((noreturn)) __attribute__((format(__printf__,2,3))); void Perl_vcroak(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((noreturn)); void Perl_croak_xs_usage(register PerlInterpreter* my_perl __attribute__((unused)), const CV *const cv, const char *const params) __attribute__((noreturn)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_croak_nocontext(const char* pat, ...) __attribute__((noreturn)) __attribute__((format(__printf__,1,2))); OP* Perl_die_nocontext(const char* pat, ...) __attribute__((format(__printf__,1,2))); void Perl_deb_nocontext(const char* pat, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); char* Perl_form_nocontext(const char* pat, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); void Perl_load_module_nocontext(U32 flags, SV* name, SV* ver, ...) __attribute__((nonnull(2))); SV* Perl_mess_nocontext(const char* pat, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); void Perl_warn_nocontext(const char* pat, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); void Perl_warner_nocontext(U32 err, const char* pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); SV* Perl_newSVpvf_nocontext(const char *const pat, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); void Perl_sv_catpvf_nocontext(SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(1))) __attribute__((nonnull(2))); void Perl_sv_setpvf_nocontext(SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(1))) __attribute__((nonnull(2))); void Perl_sv_catpvf_mg_nocontext(SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(1))) __attribute__((nonnull(2))); void Perl_sv_setpvf_mg_nocontext(SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(1))) __attribute__((nonnull(2))); int Perl_fprintf_nocontext(PerlIO *stream, const char *format, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(1))) __attribute__((nonnull(2))); int Perl_printf_nocontext(const char *format, ...) __attribute__((format(__printf__,1,2))) __attribute__((nonnull(1))); void Perl_cv_ckproto_len(register PerlInterpreter* my_perl __attribute__((unused)), const CV* cv, const GV* gv, const char* p, const STRLEN len) __attribute__((nonnull(2))); CV* Perl_cv_clone(register PerlInterpreter* my_perl __attribute__((unused)), CV* proto) __attribute__((nonnull(2))); SV* Perl_gv_const_sv(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_cv_const_sv(register PerlInterpreter* my_perl __attribute__((unused)), const CV *const cv) __attribute__((warn_unused_result)); SV* Perl_op_const_sv(register PerlInterpreter* my_perl __attribute__((unused)), const OP* o, CV* cv) __attribute__((warn_unused_result)); void Perl_cv_undef(register PerlInterpreter* my_perl __attribute__((unused)), CV* cv) __attribute__((nonnull(2))); void Perl_cx_dump(register PerlInterpreter* my_perl __attribute__((unused)), PERL_CONTEXT* cx) __attribute__((nonnull(2))); SV* Perl_filter_add(register PerlInterpreter* my_perl __attribute__((unused)), filter_t funcp, SV* datasv); void Perl_filter_del(register PerlInterpreter* my_perl __attribute__((unused)), filter_t funcp) __attribute__((nonnull(2))); I32 Perl_filter_read(register PerlInterpreter* my_perl __attribute__((unused)), int idx, SV *buf_sv, int maxlen) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); char** Perl_get_op_descs(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)) __attribute__((pure)); char** Perl_get_op_names(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)) __attribute__((pure)); const char* Perl_get_no_modify(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)) __attribute__((pure)); U32* Perl_get_opargs(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)) __attribute__((pure)); PPADDR_t* Perl_get_ppaddr(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)) __attribute__((pure)); I32 Perl_cxinc(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); void Perl_deb(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); void Perl_vdeb(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((nonnull(2))); void Perl_debprofdump(register PerlInterpreter* my_perl __attribute__((unused))); I32 Perl_debop(register PerlInterpreter* my_perl __attribute__((unused)), const OP* o) __attribute__((nonnull(2))); I32 Perl_debstack(register PerlInterpreter* my_perl __attribute__((unused))); I32 Perl_debstackptrs(register PerlInterpreter* my_perl __attribute__((unused))); char* Perl_delimcpy(char* to, const char* toend, const char* from, const char* fromend, int delim, I32* retlen) __attribute__((nonnull(1))) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(6))); void Perl_delete_eval_scope(register PerlInterpreter* my_perl __attribute__((unused))); OP* Perl_die(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((format(__printf__,2,3))); void Perl_die_where(register PerlInterpreter* my_perl __attribute__((unused)), SV* msv) __attribute__((noreturn)); void Perl_dounwind(register PerlInterpreter* my_perl __attribute__((unused)), I32 cxix); char Perl_do_aexec5(register PerlInterpreter* my_perl __attribute__((unused)), SV* really, SV** mark, SV** sp, int fd, int do_report) __attribute__((nonnull(3))) __attribute__((nonnull(4))); int Perl_do_binmode(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *fp, int iotype, int mode) __attribute__((nonnull(2))); void Perl_do_chop(register PerlInterpreter* my_perl __attribute__((unused)), SV *astr, SV *sv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char Perl_do_close(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, char not_implicit); char Perl_do_eof(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); # 599 "proto.h" char Perl_do_exec3(register PerlInterpreter* my_perl __attribute__((unused)), const char *incmd, int fd, int do_report) __attribute__((nonnull(2))); void Perl_do_execfree(register PerlInterpreter* my_perl __attribute__((unused))); # 614 "proto.h" I32 Perl_do_ipcctl(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, SV** mark, SV** sp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); I32 Perl_do_ipcget(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, SV** mark, SV** sp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); I32 Perl_do_msgrcv(register PerlInterpreter* my_perl __attribute__((unused)), SV** mark, SV** sp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_do_msgsnd(register PerlInterpreter* my_perl __attribute__((unused)), SV** mark, SV** sp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_do_semop(register PerlInterpreter* my_perl __attribute__((unused)), SV** mark, SV** sp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_do_shmio(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, SV** mark, SV** sp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_join(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, SV *delim, SV **mark, SV **sp) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))); OP* Perl_do_kv(register PerlInterpreter* my_perl __attribute__((unused))); char Perl_do_open9(register PerlInterpreter* my_perl __attribute__((unused)), GV *gv, const char *name, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV *svs, I32 num) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(9))); char Perl_do_openn(register PerlInterpreter* my_perl __attribute__((unused)), GV *gv, const char *oname, I32 len, int as_raw, int rawmode, int rawperm, PerlIO *supplied_fp, SV **svp, I32 num) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char Perl_do_print(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, PerlIO* fp) __attribute__((nonnull(3))); OP* Perl_do_readline(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); I32 Perl_do_chomp(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); char Perl_do_seek(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, off64_t pos, int whence); void Perl_do_sprintf(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, I32 len, SV** sarg) __attribute__((nonnull(2))) __attribute__((nonnull(4))); off64_t Perl_do_sysseek(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, off64_t pos, int whence) __attribute__((nonnull(2))); off64_t Perl_do_tell(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); I32 Perl_do_trans(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); UV Perl_do_vecget(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, I32 offset, I32 size) __attribute__((nonnull(2))); void Perl_do_vecset(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); void Perl_do_vop(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, SV* sv, SV* left, SV* right) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))); OP* Perl_dofile(register PerlInterpreter* my_perl __attribute__((unused)), OP* term, I32 force_builtin) __attribute__((nonnull(2))); I32 Perl_dowantarray(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); void Perl_dump_all(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_dump_all_perl(register PerlInterpreter* my_perl __attribute__((unused)), char justperl); void Perl_dump_eval(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_dump_form(register PerlInterpreter* my_perl __attribute__((unused)), const GV* gv) __attribute__((nonnull(2))); void Perl_gv_dump(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); void Perl_op_dump(register PerlInterpreter* my_perl __attribute__((unused)), const OP *o) __attribute__((nonnull(2))); void Perl_pmop_dump(register PerlInterpreter* my_perl __attribute__((unused)), PMOP* pm); void Perl_dump_packsubs(register PerlInterpreter* my_perl __attribute__((unused)), const HV* stash) __attribute__((nonnull(2))); void Perl_dump_packsubs_perl(register PerlInterpreter* my_perl __attribute__((unused)), const HV* stash, char justperl) __attribute__((nonnull(2))); void Perl_dump_sub(register PerlInterpreter* my_perl __attribute__((unused)), const GV* gv) __attribute__((nonnull(2))); void Perl_dump_sub_perl(register PerlInterpreter* my_perl __attribute__((unused)), const GV* gv, char justperl) __attribute__((nonnull(2))); void Perl_fbm_compile(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, U32 flags) __attribute__((nonnull(2))); char* Perl_fbm_instr(register PerlInterpreter* my_perl __attribute__((unused)), unsigned char* big, unsigned char* bigend, SV* littlestr, U32 flags) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); char* Perl_find_script(register PerlInterpreter* my_perl __attribute__((unused)), const char *scriptname, char dosearch, const char *const *const search_ext, I32 flags) __attribute__((nonnull(2))); # 812 "proto.h" char* Perl_form(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); char* Perl_vform(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((nonnull(2))); void Perl_free_tmps(register PerlInterpreter* my_perl __attribute__((unused))); char* Perl_getenv_len(register PerlInterpreter* my_perl __attribute__((unused)), const char *env_elem, unsigned long *len) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_get_db_sub(register PerlInterpreter* my_perl __attribute__((unused)), SV **svp, CV *cv) __attribute__((nonnull(3))); void Perl_gp_free(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv); GP* Perl_gp_ref(register PerlInterpreter* my_perl __attribute__((unused)), GP* gp); GV* Perl_gv_add_by_type(register PerlInterpreter* my_perl __attribute__((unused)), GV *gv, svtype type); GV* Perl_gv_autoload4(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 method) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); void Perl_gv_check(register PerlInterpreter* my_perl __attribute__((unused)), const HV* stash) __attribute__((nonnull(2))); void Perl_gv_efullname(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const GV* gv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 869 "proto.h" void Perl_gv_efullname4(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const GV* gv, const char* prefix, char keepmain) __attribute__((nonnull(2))) __attribute__((nonnull(3))); GV* Perl_gv_fetchfile(register PerlInterpreter* my_perl __attribute__((unused)), const char* name) __attribute__((nonnull(2))); GV* Perl_gv_fetchfile_flags(register PerlInterpreter* my_perl __attribute__((unused)), const char *const name, const STRLEN len, const U32 flags) __attribute__((nonnull(2))); GV* Perl_gv_fetchmeth(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 level) __attribute__((nonnull(3))); GV* Perl_gv_fetchmeth_autoload(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, STRLEN len, I32 level) __attribute__((nonnull(3))); # 901 "proto.h" GV* Perl_gv_fetchmethod_autoload(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, I32 autoload) __attribute__((nonnull(2))) __attribute__((nonnull(3))); GV* Perl_gv_fetchmethod_flags(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); GV* Perl_gv_fetchpv(register PerlInterpreter* my_perl __attribute__((unused)), const char *nambeg, I32 add, const svtype sv_type) __attribute__((nonnull(2))); void Perl_gv_fullname(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const GV* gv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 930 "proto.h" void Perl_gv_fullname4(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const GV* gv, const char* prefix, char keepmain) __attribute__((nonnull(2))) __attribute__((nonnull(3))); GP * Perl_newGP(register PerlInterpreter* my_perl __attribute__((unused)), GV *const gv) __attribute__((nonnull(2))); void Perl_gv_init(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, HV* stash, const char* name, STRLEN len, int multi) __attribute__((nonnull(2))) __attribute__((nonnull(4))); void Perl_gv_name_set(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, const char *name, U32 len, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_gv_try_downgrade(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); HV* Perl_gv_stashpv(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, I32 flags) __attribute__((nonnull(2))); HV* Perl_gv_stashpvn(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, U32 namelen, I32 flags) __attribute__((nonnull(2))); HV* Perl_gv_stashsv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, I32 flags) __attribute__((nonnull(2))); void Perl_hv_clear(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv); HV * Perl_hv_copy_hints_hv(register PerlInterpreter* my_perl __attribute__((unused)), HV *const ohv); void Perl_hv_delayfree_ent(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, HE *entry) __attribute__((nonnull(2))); # 1012 "proto.h" void* Perl_hv_common(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, SV *keysv, const char* key, STRLEN klen, int flags, int action, SV *val, U32 hash); void* Perl_hv_common_key_len(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, const char *key, I32 klen_i32, const int action, SV *val, const U32 hash) __attribute__((nonnull(3))); void Perl_hv_free_ent(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, HE *entryK) __attribute__((nonnull(2))); I32 Perl_hv_iterinit(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((nonnull(2))); char* Perl_hv_iterkey(register PerlInterpreter* my_perl __attribute__((unused)), HE* entry, I32* retlen) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); SV* Perl_hv_iterkeysv(register PerlInterpreter* my_perl __attribute__((unused)), HE* entry) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); # 1047 "proto.h" SV* Perl_hv_iternextsv(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, char **key, I32 *retlen) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); HE* Perl_hv_iternext_flags(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, I32 flags) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_hv_iterval(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, HE *entry) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_hv_ksplit(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, IV newmax) __attribute__((nonnull(2))); # 1078 "proto.h" HV * Perl_refcounted_he_chain_2hv(register PerlInterpreter* my_perl __attribute__((unused)), const struct refcounted_he *c); SV * Perl_refcounted_he_fetch(register PerlInterpreter* my_perl __attribute__((unused)), const struct refcounted_he *chain, SV *keysv, const char *key, STRLEN klen, int flags, U32 hash); void Perl_refcounted_he_free(register PerlInterpreter* my_perl __attribute__((unused)), struct refcounted_he *he); struct refcounted_he * Perl_refcounted_he_new(register PerlInterpreter* my_perl __attribute__((unused)), struct refcounted_he *const parent, SV *const key, SV *const value); # 1093 "proto.h" void Perl_hv_undef(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv); I32 Perl_ibcmp(const char* a, const char* b, I32 len) __attribute__((pure)) __attribute__((nonnull(1))) __attribute__((nonnull(2))); I32 Perl_ibcmp_locale(const char* a, const char* b, I32 len) __attribute__((pure)) __attribute__((nonnull(1))) __attribute__((nonnull(2))); I32 Perl_ibcmp_utf8(register PerlInterpreter* my_perl __attribute__((unused)), const char *s1, char **pe1, UV l1, char u1, const char *s2, char **pe2, UV l2, char u2) __attribute__((nonnull(2))) __attribute__((nonnull(6))); # 1119 "proto.h" void Perl_init_argv_symbols(register PerlInterpreter* my_perl __attribute__((unused)), int argc, char **argv) __attribute__((nonnull(3))); void Perl_init_dbargs(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_init_debugger(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_init_stacks(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_init_tm(register PerlInterpreter* my_perl __attribute__((unused)), struct tm *ptm) __attribute__((nonnull(2))); U32 Perl_intro_my(register PerlInterpreter* my_perl __attribute__((unused))); char* Perl_instr(const char* big, const char* little) __attribute__((warn_unused_result)) __attribute__((pure)) __attribute__((nonnull(1))) __attribute__((nonnull(2))); char Perl_io_close(register PerlInterpreter* my_perl __attribute__((unused)), IO* io, char not_implicit) __attribute__((nonnull(2))); OP* Perl_invert(register PerlInterpreter* my_perl __attribute__((unused)), OP* cmd) __attribute__((warn_unused_result)); I32 Perl_is_lvalue_sub(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); U32 Perl_to_uni_upper_lc(register PerlInterpreter* my_perl __attribute__((unused)), U32 c) __attribute__((warn_unused_result)) __attribute__((pure)); U32 Perl_to_uni_title_lc(register PerlInterpreter* my_perl __attribute__((unused)), U32 c) __attribute__((warn_unused_result)) __attribute__((pure)); U32 Perl_to_uni_lower_lc(register PerlInterpreter* my_perl __attribute__((unused)), U32 c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_alnum(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_idfirst(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_alpha(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_ascii(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_space(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_cntrl(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_graph(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_digit(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_upper(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_lower(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_print(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_punct(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_xdigit(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); UV Perl_to_uni_upper(register PerlInterpreter* my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); UV Perl_to_uni_title(register PerlInterpreter* my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); UV Perl_to_uni_lower(register PerlInterpreter* my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); UV Perl_to_uni_fold(register PerlInterpreter* my_perl __attribute__((unused)), UV c, U8 *p, STRLEN *lenp) __attribute__((nonnull(3))) __attribute__((nonnull(4))); char Perl_is_uni_alnum_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_idfirst_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_alpha_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_ascii_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_space_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_cntrl_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_graph_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_digit_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_upper_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_lower_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_print_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_punct_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_uni_xdigit_lc(register PerlInterpreter* my_perl __attribute__((unused)), UV c) __attribute__((warn_unused_result)) __attribute__((pure)); char Perl_is_ascii_string(const U8 *s, STRLEN len) __attribute__((nonnull(1))); STRLEN Perl_is_utf8_char(const U8 *s) __attribute__((nonnull(1))); char Perl_is_utf8_string(const U8 *s, STRLEN len) __attribute__((nonnull(1))); # 1312 "proto.h" char Perl_is_utf8_string_loclen(const U8 *s, STRLEN len, const U8 **ep, STRLEN *el) __attribute__((nonnull(1))); char Perl_is_utf8_alnum(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_idfirst(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_idcont(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_alpha(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_ascii(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_space(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_perl_space(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_perl_word(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_cntrl(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_digit(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_posix_digit(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_graph(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_upper(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_lower(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_print(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_punct(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_xdigit(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_mark(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_begin(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_extend(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_prepend(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_non_hangul(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_L(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_LV(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_LVT(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_LV_LVT_V(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_T(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_is_utf8_X_V(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); OP* Perl_jmaybe(register PerlInterpreter* my_perl __attribute__((unused)), OP *o) __attribute__((nonnull(2))); I32 Perl_keyword(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, I32 len, char all_keywords) __attribute__((pure)) __attribute__((nonnull(2))); # 1508 "proto.h" void Perl_leave_scope(register PerlInterpreter* my_perl __attribute__((unused)), I32 base); void Perl_lex_end(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_lex_start(register PerlInterpreter* my_perl __attribute__((unused)), SV* line, PerlIO *rsfp, char new_filter); char Perl_lex_bufutf8(register PerlInterpreter* my_perl __attribute__((unused))); char* Perl_lex_grow_linestr(register PerlInterpreter* my_perl __attribute__((unused)), STRLEN len); void Perl_lex_stuff_pvn(register PerlInterpreter* my_perl __attribute__((unused)), char* pv, STRLEN len, U32 flags) __attribute__((nonnull(2))); void Perl_lex_stuff_sv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, U32 flags) __attribute__((nonnull(2))); void Perl_lex_unstuff(register PerlInterpreter* my_perl __attribute__((unused)), char* ptr) __attribute__((nonnull(2))); void Perl_lex_read_to(register PerlInterpreter* my_perl __attribute__((unused)), char* ptr) __attribute__((nonnull(2))); void Perl_lex_discard_to(register PerlInterpreter* my_perl __attribute__((unused)), char* ptr) __attribute__((nonnull(2))); char Perl_lex_next_chunk(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags); I32 Perl_lex_peek_unichar(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags); I32 Perl_lex_read_unichar(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags); void Perl_lex_read_space(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags); void Perl_op_null(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((nonnull(2))); void Perl_op_clear(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((nonnull(2))); void Perl_op_refcnt_lock(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_op_refcnt_unlock(register PerlInterpreter* my_perl __attribute__((unused))); # 1562 "proto.h" OP* Perl_list(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); void Perl_load_module(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags, SV* name, SV* ver, ...) __attribute__((nonnull(3))); void Perl_vload_module(register PerlInterpreter* my_perl __attribute__((unused)), U32 flags, SV* name, SV* ver, va_list* args) __attribute__((nonnull(3))); OP* Perl_localize(register PerlInterpreter* my_perl __attribute__((unused)), OP *o, I32 lex) __attribute__((nonnull(2))); I32 Perl_looks_like_number(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); UV Perl_grok_bin(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN* len_p, I32* flags, NV *result) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); UV Perl_grok_hex(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN* len_p, I32* flags, NV *result) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); int Perl_grok_number(register PerlInterpreter* my_perl __attribute__((unused)), const char *pv, STRLEN len, UV *valuep) __attribute__((nonnull(2))); char Perl_grok_numeric_radix(register PerlInterpreter* my_perl __attribute__((unused)), const char **sp, const char *send) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); UV Perl_grok_oct(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN* len_p, I32* flags, NV *result) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); int Perl_magic_clearenv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_clear_all_env(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_clearhint(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_clearhints(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_clearisa(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(3))); int Perl_magic_clearpack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_clearsig(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_existspack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_freeovrld(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_get(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getarylen(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getdefelem(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getnkeys(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getpack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getpos(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getsig(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getsubstr(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_gettaint(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getuvar(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_getvec(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); U32 Perl_magic_len(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_nextpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg, SV *key) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); U32 Perl_magic_regdata_cnt(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_regdatum_get(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_regdatum_set(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((noreturn)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_set(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setamagic(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setarylen(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_freearylen_p(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setdbline(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setdefelem(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setenv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_sethint(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setisa(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setmglob(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setnkeys(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setpack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setpos(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setregexp(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setsig(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(3))); int Perl_magic_setsubstr(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_settaint(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setuvar(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setvec(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_setutf8(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_set_all_env(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); U32 Perl_magic_sizepack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_magic_wipepack(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_markstack_grow(register PerlInterpreter* my_perl __attribute__((unused))); int Perl_magic_setcollxfrm(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, MAGIC* mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_mem_collxfrm(register PerlInterpreter* my_perl __attribute__((unused)), const char* s, STRLEN len, STRLEN* xlen) __attribute__((nonnull(2))) __attribute__((nonnull(4))); SV* Perl_mess(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); SV* Perl_vmess(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((nonnull(2))); void Perl_qerror(register PerlInterpreter* my_perl __attribute__((unused)), SV* err) __attribute__((nonnull(2))); void Perl_sortsv(register PerlInterpreter* my_perl __attribute__((unused)), SV** array, size_t num_elts, SVCOMPARE_t cmp) __attribute__((nonnull(4))); void Perl_sortsv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV** array, size_t num_elts, SVCOMPARE_t cmp, U32 flags) __attribute__((nonnull(4))); int Perl_mg_clear(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); int Perl_mg_copy(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, SV *nsv, const char *key, I32 klen) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_mg_localize(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, SV* nsv, char setmagic) __attribute__((nonnull(2))) __attribute__((nonnull(3))); MAGIC* Perl_mg_find(register PerlInterpreter* my_perl __attribute__((unused)), const SV* sv, int type) __attribute__((warn_unused_result)); int Perl_mg_free(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); int Perl_mg_get(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); U32 Perl_mg_length(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); void Perl_mg_magical(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); int Perl_mg_set(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); I32 Perl_mg_size(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); void Perl_mini_mktime(register PerlInterpreter* my_perl __attribute__((unused)), struct tm *ptm) __attribute__((nonnull(2))); OP* Perl_mod(register PerlInterpreter* my_perl __attribute__((unused)), OP* o, I32 type); int Perl_mode_from_discipline(register PerlInterpreter* my_perl __attribute__((unused)), const char* s, STRLEN len); const char* Perl_moreswitches(register PerlInterpreter* my_perl __attribute__((unused)), const char* s) __attribute__((nonnull(2))); NV Perl_my_atof(register PerlInterpreter* my_perl __attribute__((unused)), const char *s) __attribute__((nonnull(2))); # 2028 "proto.h" void Perl_my_exit(register PerlInterpreter* my_perl __attribute__((unused)), U32 status) __attribute__((noreturn)); void Perl_my_failure_exit(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((noreturn)); I32 Perl_my_fflush_all(register PerlInterpreter* my_perl __attribute__((unused))); pid_t Perl_my_fork(void); void Perl_atfork_lock(void); void Perl_atfork_unlock(void); I32 Perl_my_lstat(register PerlInterpreter* my_perl __attribute__((unused))); # 2055 "proto.h" I32 Perl_my_pclose(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO* ptr); PerlIO* Perl_my_popen(register PerlInterpreter* my_perl __attribute__((unused)), const char* cmd, const char* mode) __attribute__((nonnull(2))) __attribute__((nonnull(3))); PerlIO* Perl_my_popen_list(register PerlInterpreter* my_perl __attribute__((unused)), const char* mode, int n, SV ** args) __attribute__((nonnull(2))) __attribute__((nonnull(4))); void Perl_my_setenv(register PerlInterpreter* my_perl __attribute__((unused)), const char* nam, const char* val); I32 Perl_my_stat(register PerlInterpreter* my_perl __attribute__((unused))); char * Perl_my_strftime(register PerlInterpreter* my_perl __attribute__((unused)), const char *fmt, int sec, int min, int hour, int mday, int mon, int year, int wday, int yday, int isdst) __attribute__((nonnull(2))); # 2092 "proto.h" void Perl_my_unexec(register PerlInterpreter* my_perl __attribute__((unused))); OP* Perl_newANONLIST(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newANONHASH(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newANONSUB(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP* proto, OP* block); OP* Perl_newASSIGNOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, OP* left, I32 optype, OP* right) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newCONDOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, OP* first, OP* trueop, OP* falseop) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); CV* Perl_newCONSTSUB(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash, const char* name, SV* sv); void Perl_newFORM(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP* o, OP* block); OP* Perl_newFOROP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, char* label, line_t forline, OP* sv, OP* expr, OP* block, OP* cont) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(6))); OP* Perl_newGIVENOP(register PerlInterpreter* my_perl __attribute__((unused)), OP* cond, OP* block, PADOFFSET defsv_off) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); OP* Perl_newLOGOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, I32 flags, OP *first, OP *other) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(4))) __attribute__((nonnull(5))); OP* Perl_newLOOPEX(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, OP* label) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); OP* Perl_newLOOPOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, I32 debuggable, OP* expr, OP* block) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newNULLLIST(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, I32 flags) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void Perl_newPROG(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((nonnull(2))); OP* Perl_newRANGE(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, OP* left, OP* right) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(3))) __attribute__((nonnull(4))); OP* Perl_newSLICEOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, OP* subscript, OP* listop) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newSTATEOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, char* label, OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)); CV* Perl_newSUB(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP* o, OP* proto, OP* block); CV * Perl_newXS_flags(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, XSUBADDR_t subaddr, const char *const filename, const char *const proto, U32 flags) __attribute__((nonnull(3))) __attribute__((nonnull(4))); CV* Perl_newXS(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, XSUBADDR_t subaddr, const char *filename) __attribute__((nonnull(3))) __attribute__((nonnull(4))); OP* Perl_newAVREF(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); OP* Perl_newBINOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, OP* first, OP* last) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newCVREF(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newGVOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, GV* gv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(4))); GV* Perl_newGVgen(register PerlInterpreter* my_perl __attribute__((unused)), const char* pack) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); OP* Perl_newGVREF(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newHVREF(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); HV* Perl_newHVhv(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newLISTOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, OP* first, OP* last) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newPADOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, SV* sv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(4))); OP* Perl_newPMOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newPVOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, char* pv) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newRV(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_newRV_noinc(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_newSV(register PerlInterpreter* my_perl __attribute__((unused)), const STRLEN len) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newSVREF(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); OP* Perl_newSVOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, SV* sv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(4))); SV* Perl_newSViv(register PerlInterpreter* my_perl __attribute__((unused)), const IV i) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVuv(register PerlInterpreter* my_perl __attribute__((unused)), const UV u) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVnv(register PerlInterpreter* my_perl __attribute__((unused)), const NV n) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVpv(register PerlInterpreter* my_perl __attribute__((unused)), const char *const s, const STRLEN len) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVpvn(register PerlInterpreter* my_perl __attribute__((unused)), const char *const s, const STRLEN len) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVpvn_flags(register PerlInterpreter* my_perl __attribute__((unused)), const char *const s, const STRLEN len, const U32 flags) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVhek(register PerlInterpreter* my_perl __attribute__((unused)), const HEK *const hek) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVpvn_share(register PerlInterpreter* my_perl __attribute__((unused)), const char* s, I32 len, U32 hash) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSVpvf(register PerlInterpreter* my_perl __attribute__((unused)), const char *const pat, ...) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); SV* Perl_vnewSVpvf(register PerlInterpreter* my_perl __attribute__((unused)), const char *const pat, va_list *const args) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_newSVrv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname) __attribute__((nonnull(2))); SV* Perl_newSVsv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const old) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_newSV_type(register PerlInterpreter* my_perl __attribute__((unused)), const svtype type) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newUNOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 type, I32 flags, OP* first) __attribute__((__malloc__)) __attribute__((warn_unused_result)); OP* Perl_newWHENOP(register PerlInterpreter* my_perl __attribute__((unused)), OP* cond, OP* block) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); OP* Perl_newWHILEOP(register PerlInterpreter* my_perl __attribute__((unused)), I32 flags, I32 debuggable, LOOP* loop, I32 whileline, OP* expr, OP* block, OP* cont, I32 has_my) __attribute__((__malloc__)) __attribute__((warn_unused_result)); PERL_SI* Perl_new_stackinfo(register PerlInterpreter* my_perl __attribute__((unused)), I32 stitems, I32 cxitems) __attribute__((__malloc__)) __attribute__((warn_unused_result)); char* Perl_scan_vstring(register PerlInterpreter* my_perl __attribute__((unused)), const char *s, const char *const e, SV *sv) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); const char* Perl_scan_version(register PerlInterpreter* my_perl __attribute__((unused)), const char *s, SV *rv, char qv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); const char* Perl_prescan_version(register PerlInterpreter* my_perl __attribute__((unused)), const char *s, char strict, const char** errstr, char *sqv, int *ssaw_decimal, int *swidth, char *salpha) __attribute__((nonnull(2))); SV* Perl_new_version(register PerlInterpreter* my_perl __attribute__((unused)), SV *ver) __attribute__((nonnull(2))); SV* Perl_upg_version(register PerlInterpreter* my_perl __attribute__((unused)), SV *ver, char qv) __attribute__((nonnull(2))); char Perl_vverify(register PerlInterpreter* my_perl __attribute__((unused)), SV *vs) __attribute__((nonnull(2))); SV* Perl_vnumify(register PerlInterpreter* my_perl __attribute__((unused)), SV *vs) __attribute__((nonnull(2))); SV* Perl_vnormal(register PerlInterpreter* my_perl __attribute__((unused)), SV *vs) __attribute__((nonnull(2))); SV* Perl_vstringify(register PerlInterpreter* my_perl __attribute__((unused)), SV *vs) __attribute__((nonnull(2))); int Perl_vcmp(register PerlInterpreter* my_perl __attribute__((unused)), SV *lhv, SV *rhv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); PerlIO* Perl_nextargv(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); char* Perl_ninstr(const char* big, const char* bigend, const char* little, const char* lend) __attribute__((pure)) __attribute__((nonnull(1))) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_op_free(register PerlInterpreter* my_perl __attribute__((unused)), OP* arg); void Perl_package(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((nonnull(2))); void Perl_package_version(register PerlInterpreter* my_perl __attribute__((unused)), OP* v) __attribute__((nonnull(2))); PADOFFSET Perl_pad_alloc(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, U32 tmptype); PADOFFSET Perl_allocmy(register PerlInterpreter* my_perl __attribute__((unused)), const char *const name, const STRLEN len, const U32 flags) __attribute__((nonnull(2))); PADOFFSET Perl_pad_findmy(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, STRLEN len, U32 flags) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); PADOFFSET Perl_find_rundefsvoffset(register PerlInterpreter* my_perl __attribute__((unused))); OP* Perl_oopsAV(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); OP* Perl_oopsHV(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_pad_leavemy(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_pad_free(register PerlInterpreter* my_perl __attribute__((unused)), PADOFFSET po); void Perl_pad_swipe(register PerlInterpreter* my_perl __attribute__((unused)), PADOFFSET po, char refadjust); void Perl_peep(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); PerlIO* Perl_start_glob(register PerlInterpreter* my_perl __attribute__((unused)), SV *tmpglob, IO *io) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_reentrant_size(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_reentrant_init(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_reentrant_free(register PerlInterpreter* my_perl __attribute__((unused))); void* Perl_reentrant_retry(const char *f, ...) __attribute__((nonnull(1))); void Perl_call_atexit(register PerlInterpreter* my_perl __attribute__((unused)), ATEXIT_t fn, void *ptr); I32 Perl_call_argv(register PerlInterpreter* my_perl __attribute__((unused)), const char* sub_name, I32 flags, char** argv) __attribute__((nonnull(2))) __attribute__((nonnull(4))); I32 Perl_call_method(register PerlInterpreter* my_perl __attribute__((unused)), const char* methname, I32 flags) __attribute__((nonnull(2))); I32 Perl_call_pv(register PerlInterpreter* my_perl __attribute__((unused)), const char* sub_name, I32 flags) __attribute__((nonnull(2))); I32 Perl_call_sv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, volatile I32 flags) __attribute__((nonnull(2))); void Perl_despatch_signals(register PerlInterpreter* my_perl __attribute__((unused))); OP * Perl_doref(register PerlInterpreter* my_perl __attribute__((unused)), OP *o, I32 type, char set_op_ref) __attribute__((nonnull(2))); SV* Perl_eval_pv(register PerlInterpreter* my_perl __attribute__((unused)), const char* p, I32 croak_on_error) __attribute__((nonnull(2))); I32 Perl_eval_sv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, I32 flags) __attribute__((nonnull(2))); SV* Perl_get_sv(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, I32 flags) __attribute__((nonnull(2))); AV* Perl_get_av(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, I32 flags) __attribute__((nonnull(2))); HV* Perl_get_hv(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, I32 flags) __attribute__((nonnull(2))); CV* Perl_get_cv(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, I32 flags) __attribute__((nonnull(2))); CV* Perl_get_cvn_flags(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, STRLEN len, I32 flags) __attribute__((nonnull(2))); int Perl_init_i18nl10n(register PerlInterpreter* my_perl __attribute__((unused)), int printwarn); int Perl_init_i18nl14n(register PerlInterpreter* my_perl __attribute__((unused)), int printwarn); void Perl_new_collate(register PerlInterpreter* my_perl __attribute__((unused)), const char* newcoll); void Perl_new_ctype(register PerlInterpreter* my_perl __attribute__((unused)), const char* newctype) __attribute__((nonnull(2))); void Perl_new_numeric(register PerlInterpreter* my_perl __attribute__((unused)), const char* newcoll); void Perl_set_numeric_local(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_set_numeric_radix(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_set_numeric_standard(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_require_pv(register PerlInterpreter* my_perl __attribute__((unused)), const char* pv) __attribute__((nonnull(2))); void Perl_pack_cat(register PerlInterpreter* my_perl __attribute__((unused)), SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist, SV ***next_in_list, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))) __attribute__((nonnull(6))) __attribute__((nonnull(7))); void Perl_packlist(register PerlInterpreter* my_perl __attribute__((unused)), SV *cat, const char *pat, const char *patend, SV **beglist, SV **endlist) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))) __attribute__((nonnull(6))); void Perl_pmflag(register PerlInterpreter* my_perl __attribute__((unused)), U32 *pmfl, int ch) __attribute__((deprecated)) __attribute__((nonnull(2))); OP* Perl_pmruntime(register PerlInterpreter* my_perl __attribute__((unused)), OP *o, OP *expr, char isreg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 2642 "proto.h" void Perl_pop_scope(register PerlInterpreter* my_perl __attribute__((unused))); OP* Perl_prepend_elem(register PerlInterpreter* my_perl __attribute__((unused)), I32 optype, OP* head, OP* tail); void Perl_push_scope(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_regdump(register PerlInterpreter* my_perl __attribute__((unused)), const regexp* r) __attribute__((nonnull(2))); void Perl_regdump(register PerlInterpreter* my_perl __attribute__((unused)), const regexp* r) __attribute__((nonnull(2))); SV* Perl_regclass_swash(register PerlInterpreter* my_perl __attribute__((unused)), const regexp *prog, const struct regnode *node, char doinit, SV **listsvp, SV **altsvp) __attribute__((nonnull(3))); I32 Perl_pregexec(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const prog, char* stringarg, char* strend, char* strbeg, I32 minend, SV* screamer, U32 nosave) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))) __attribute__((nonnull(7))); void Perl_pregfree(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP* r); void Perl_pregfree2(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP *rx) __attribute__((nonnull(2))); REGEXP* Perl_reg_temp_copy(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP* ret_x, REGEXP* rx) __attribute__((nonnull(3))); void Perl_regfree_internal(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP *const rx) __attribute__((nonnull(2))); void* Perl_regdupe_internal(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const r, CLONE_PARAMS* param) __attribute__((nonnull(2))) __attribute__((nonnull(3))); REGEXP* Perl_pregcomp(register PerlInterpreter* my_perl __attribute__((unused)), SV * const pattern, const U32 flags) __attribute__((nonnull(2))); REGEXP* Perl_re_compile(register PerlInterpreter* my_perl __attribute__((unused)), SV * const pattern, U32 flags) __attribute__((nonnull(2))); char* Perl_re_intuit_start(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV* sv, char* strpos, char* strend, const U32 flags, re_scream_pos_data *data) __attribute__((nonnull(2))) __attribute__((nonnull(4))) __attribute__((nonnull(5))); SV* Perl_re_intuit_string(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP *const r) __attribute__((nonnull(2))); I32 Perl_regexec_flags(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP *const rx, char *stringarg, char *strend, char *strbeg, I32 minend, SV *sv, void *data, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))) __attribute__((nonnull(7))); regnode* Perl_regnext(register PerlInterpreter* my_perl __attribute__((unused)), regnode* p) __attribute__((warn_unused_result)); SV* Perl_reg_named_buff(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV * const key, SV * const value, const U32 flags) __attribute__((nonnull(2))); SV* Perl_reg_named_buff_iter(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const SV * const lastkey, const U32 flags) __attribute__((nonnull(2))); SV* Perl_reg_named_buff_fetch(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV * const namesv, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char Perl_reg_named_buff_exists(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, SV * const key, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); SV* Perl_reg_named_buff_firstkey(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const U32 flags) __attribute__((nonnull(2))); SV* Perl_reg_named_buff_nextkey(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const U32 flags) __attribute__((nonnull(2))); SV* Perl_reg_named_buff_scalar(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const U32 flags) __attribute__((nonnull(2))); SV* Perl_reg_named_buff_all(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const U32 flags) __attribute__((nonnull(2))); void Perl_reg_numbered_buff_fetch(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const I32 paren, SV * const sv) __attribute__((nonnull(2))); void Perl_reg_numbered_buff_store(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const I32 paren, SV const * const value) __attribute__((nonnull(2))); I32 Perl_reg_numbered_buff_length(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx, const SV * const sv, const I32 paren) __attribute__((nonnull(2))) __attribute__((nonnull(3))); SV* Perl_reg_qr_package(register PerlInterpreter* my_perl __attribute__((unused)), REGEXP * const rx) __attribute__((nonnull(2))); void Perl_regprop(register PerlInterpreter* my_perl __attribute__((unused)), const regexp *prog, SV* sv, const regnode* o) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_repeatcpy(char* to, const char* from, I32 len, I32 count) __attribute__((nonnull(1))) __attribute__((nonnull(2))); char* Perl_rninstr(const char* big, const char* bigend, const char* little, const char* lend) __attribute__((pure)) __attribute__((nonnull(1))) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); Sighandler_t Perl_rsignal(register PerlInterpreter* my_perl __attribute__((unused)), int i, Sighandler_t t); int Perl_rsignal_restore(register PerlInterpreter* my_perl __attribute__((unused)), int i, Sigsave_t* t); int Perl_rsignal_save(register PerlInterpreter* my_perl __attribute__((unused)), int i, Sighandler_t t1, Sigsave_t* save) __attribute__((nonnull(4))); Sighandler_t Perl_rsignal_state(register PerlInterpreter* my_perl __attribute__((unused)), int i); # 2840 "proto.h" void Perl_rxres_save(register PerlInterpreter* my_perl __attribute__((unused)), void **rsp, REGEXP *rx) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 2854 "proto.h" char* Perl_savepv(register PerlInterpreter* my_perl __attribute__((unused)), const char* pv) __attribute__((__malloc__)) __attribute__((warn_unused_result)); char* Perl_savepvn(register PerlInterpreter* my_perl __attribute__((unused)), const char* pv, I32 len) __attribute__((__malloc__)) __attribute__((warn_unused_result)); char* Perl_savesharedpv(register PerlInterpreter* my_perl __attribute__((unused)), const char* pv) __attribute__((__malloc__)) __attribute__((warn_unused_result)); char* Perl_savesharedpvn(register PerlInterpreter* my_perl __attribute__((unused)), const char *const pv, const STRLEN len) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char* Perl_savesvpv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_savestack_grow(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_savestack_grow_cnt(register PerlInterpreter* my_perl __attribute__((unused)), I32 need); void Perl_save_aelem_flags(register PerlInterpreter* my_perl __attribute__((unused)), AV* av, I32 idx, SV **sptr, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(4))); I32 Perl_save_alloc(register PerlInterpreter* my_perl __attribute__((unused)), I32 size, I32 pad); void Perl_save_aptr(register PerlInterpreter* my_perl __attribute__((unused)), AV** aptr) __attribute__((nonnull(2))); AV* Perl_save_ary(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); void Perl_save_bool(register PerlInterpreter* my_perl __attribute__((unused)), char* boolp) __attribute__((nonnull(2))); void Perl_save_clearsv(register PerlInterpreter* my_perl __attribute__((unused)), SV** svp) __attribute__((nonnull(2))); void Perl_save_delete(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, char *key, I32 klen) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_save_hdelete(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, SV *keysv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_save_adelete(register PerlInterpreter* my_perl __attribute__((unused)), AV *av, I32 key) __attribute__((nonnull(2))); void Perl_save_destructor(register PerlInterpreter* my_perl __attribute__((unused)), DESTRUCTORFUNC_NOCONTEXT_t f, void* p) __attribute__((nonnull(3))); void Perl_save_destructor_x(register PerlInterpreter* my_perl __attribute__((unused)), DESTRUCTORFUNC_t f, void* p); void Perl_save_generic_svref(register PerlInterpreter* my_perl __attribute__((unused)), SV** sptr) __attribute__((nonnull(2))); void Perl_save_generic_pvref(register PerlInterpreter* my_perl __attribute__((unused)), char** str) __attribute__((nonnull(2))); void Perl_save_shared_pvref(register PerlInterpreter* my_perl __attribute__((unused)), char** str) __attribute__((nonnull(2))); void Perl_save_gp(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv, I32 empty) __attribute__((nonnull(2))); HV* Perl_save_hash(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); void Perl_save_hints(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_save_helem_flags(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, SV *key, SV **sptr, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_save_hptr(register PerlInterpreter* my_perl __attribute__((unused)), HV** hptr) __attribute__((nonnull(2))); void Perl_save_I16(register PerlInterpreter* my_perl __attribute__((unused)), I16* intp) __attribute__((nonnull(2))); void Perl_save_I32(register PerlInterpreter* my_perl __attribute__((unused)), I32* intp) __attribute__((nonnull(2))); void Perl_save_I8(register PerlInterpreter* my_perl __attribute__((unused)), I8* bytep) __attribute__((nonnull(2))); void Perl_save_int(register PerlInterpreter* my_perl __attribute__((unused)), int* intp) __attribute__((nonnull(2))); void Perl_save_item(register PerlInterpreter* my_perl __attribute__((unused)), SV* item) __attribute__((nonnull(2))); void Perl_save_iv(register PerlInterpreter* my_perl __attribute__((unused)), IV *ivp) __attribute__((nonnull(2))); void Perl_save_list(register PerlInterpreter* my_perl __attribute__((unused)), SV** sarg, I32 maxsarg) __attribute__((nonnull(2))); void Perl_save_long(register PerlInterpreter* my_perl __attribute__((unused)), long* longp) __attribute__((nonnull(2))); # 3027 "proto.h" void Perl_save_nogv(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); SV* Perl_save_scalar(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv) __attribute__((nonnull(2))); void Perl_save_pptr(register PerlInterpreter* my_perl __attribute__((unused)), char** pptr) __attribute__((nonnull(2))); void Perl_save_vptr(register PerlInterpreter* my_perl __attribute__((unused)), void *ptr) __attribute__((nonnull(2))); void Perl_save_re_context(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_save_padsv_and_mortalize(register PerlInterpreter* my_perl __attribute__((unused)), PADOFFSET off); void Perl_save_sptr(register PerlInterpreter* my_perl __attribute__((unused)), SV** sptr) __attribute__((nonnull(2))); SV* Perl_save_svref(register PerlInterpreter* my_perl __attribute__((unused)), SV** sptr) __attribute__((nonnull(2))); void Perl_save_pushptr(register PerlInterpreter* my_perl __attribute__((unused)), void *const ptr, const int type); void Perl_save_pushi32ptr(register PerlInterpreter* my_perl __attribute__((unused)), const I32 i, void *const ptr, const int type); void Perl_save_pushptrptr(register PerlInterpreter* my_perl __attribute__((unused)), void *const ptr1, void *const ptr2, const int type); OP* Perl_sawparens(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); OP* Perl_scalar(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); OP* Perl_scalarvoid(register PerlInterpreter* my_perl __attribute__((unused)), OP* o) __attribute__((nonnull(2))); NV Perl_scan_bin(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN len, STRLEN* retlen) __attribute__((nonnull(2))) __attribute__((nonnull(4))); NV Perl_scan_hex(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN len, STRLEN* retlen) __attribute__((nonnull(2))) __attribute__((nonnull(4))); char* Perl_scan_num(register PerlInterpreter* my_perl __attribute__((unused)), const char* s, YYSTYPE *lvalp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); NV Perl_scan_oct(register PerlInterpreter* my_perl __attribute__((unused)), const char* start, STRLEN len, STRLEN* retlen) __attribute__((nonnull(2))) __attribute__((nonnull(4))); OP* Perl_scope(register PerlInterpreter* my_perl __attribute__((unused)), OP* o); char* Perl_screaminstr(register PerlInterpreter* my_perl __attribute__((unused)), SV *bigstr, SV *littlestr, I32 start_shift, I32 end_shift, I32 *old_posp, I32 last) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(6))); void Perl_setdefout(register PerlInterpreter* my_perl __attribute__((unused)), GV* gv); HEK* Perl_share_hek(register PerlInterpreter* my_perl __attribute__((unused)), const char* str, I32 len, U32 hash) __attribute__((nonnull(2))); void Perl_sighandler(int sig, siginfo_t *info, void *uap); void Perl_csighandler(int sig, siginfo_t *info, void *uap); SV** Perl_stack_grow(register PerlInterpreter* my_perl __attribute__((unused)), SV** sp, SV** p, int n) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_start_subparse(register PerlInterpreter* my_perl __attribute__((unused)), I32 is_format, U32 flags); void Perl_sub_crush_depth(register PerlInterpreter* my_perl __attribute__((unused)), CV* cv) __attribute__((nonnull(2))); char Perl_sv_2bool(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); CV* Perl_sv_2cv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, HV **const st, GV **const gvp, const I32 lref) __attribute__((nonnull(3))) __attribute__((nonnull(4))); IO* Perl_sv_2io(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); # 3158 "proto.h" IV Perl_sv_2iv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const I32 flags); SV* Perl_sv_2mortal(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); NV Perl_sv_2nv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); SV* Perl_sv_2num(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); char* Perl_sv_2pv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp, const I32 flags); char* Perl_sv_2pvutf8(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp) __attribute__((nonnull(2))); char* Perl_sv_2pvbyte(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp) __attribute__((nonnull(2))); char* Perl_sv_pvn_nomg(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, STRLEN* lp) __attribute__((nonnull(2))); UV Perl_sv_2uv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const I32 flags); IV Perl_sv_iv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); UV Perl_sv_uv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); NV Perl_sv_nv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); char* Perl_sv_pvn(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, STRLEN *lp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_sv_pvutf8n(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, STRLEN *lp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_sv_pvbyten(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, STRLEN *lp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_sv_true(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); int Perl_sv_backoff(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); SV* Perl_sv_bless(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, HV *const stash) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_catpvf(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_vcatpvf(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, va_list *const args) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_catpv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char* ptr) __attribute__((nonnull(2))); # 3266 "proto.h" void Perl_sv_chop(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr) __attribute__((nonnull(2))); I32 Perl_sv_clean_all(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_sv_clean_objs(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_sv_clear(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); I32 Perl_sv_cmp(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv1, SV *const sv2); I32 Perl_sv_cmp_locale(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv1, SV *const sv2); char* Perl_sv_collxfrm(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const nxp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); OP* Perl_sv_compile_2op(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, OP **startop, const char *code, PAD **padp) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))); int Perl_getcwd_sv(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); void Perl_sv_dec(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); void Perl_sv_dump(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); char Perl_sv_derived_from(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const char *const name) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char Perl_sv_does(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const char *const name) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); I32 Perl_sv_eq(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv1, SV* sv2); void Perl_sv_free(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); void Perl_sv_free2(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); void Perl_sv_free_arenas(register PerlInterpreter* my_perl __attribute__((unused))); char* Perl_sv_gets(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, PerlIO *const fp, I32 append) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_sv_grow(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN newlen) __attribute__((nonnull(2))); void Perl_sv_inc(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); void Perl_sv_insert_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const bigstr, const STRLEN offset, const STRLEN len, const char *const little, const STRLEN littlelen, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(5))); int Perl_sv_isa(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, const char *const name) __attribute__((nonnull(3))); int Perl_sv_isobject(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv); STRLEN Perl_sv_len(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); STRLEN Perl_sv_len_utf8(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); void Perl_sv_magic(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, SV *const obj, const int how, const char *const name, const I32 namlen) __attribute__((nonnull(2))); MAGIC * Perl_sv_magicext(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, SV *const obj, const int how, const MGVTBL *const vtbl, const char *const name, const I32 namlen) __attribute__((nonnull(2))); SV* Perl_sv_mortalcopy(register PerlInterpreter* my_perl __attribute__((unused)), SV *const oldsv) __attribute__((__malloc__)) __attribute__((warn_unused_result)); SV* Perl_sv_newmortal(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); SV* Perl_sv_newref(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv); char* Perl_sv_peek(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv); void Perl_sv_pos_u2b(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, I32 *const offsetp, I32 *const lenp) __attribute__((nonnull(3))); STRLEN Perl_sv_pos_u2b_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN uoffset, STRLEN *const lenp, U32 flags) __attribute__((nonnull(2))); void Perl_sv_pos_b2u(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, I32 *const offsetp) __attribute__((nonnull(3))); # 3400 "proto.h" char* Perl_sv_pvutf8n_force(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp) __attribute__((nonnull(2))); char* Perl_sv_pvbyten_force(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp) __attribute__((nonnull(2))); char* Perl_sv_recode_to_utf8(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, SV *encoding) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char Perl_sv_cat_decode(register PerlInterpreter* my_perl __attribute__((unused)), SV* dsv, SV *encoding, SV *ssv, int *offset, char* tstr, int tlen) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))) __attribute__((nonnull(6))); const char* Perl_sv_reftype(register PerlInterpreter* my_perl __attribute__((unused)), const SV *const sv, const int ob) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_sv_replace(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, SV *const nsv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_report_used(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_sv_reset(register PerlInterpreter* my_perl __attribute__((unused)), const char* s, HV *const stash) __attribute__((nonnull(2))); void Perl_sv_setpvf(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_vsetpvf(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, va_list *const args) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_setiv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const IV num) __attribute__((nonnull(2))); void Perl_sv_setpviv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const IV num) __attribute__((nonnull(2))); void Perl_sv_setuv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const UV num) __attribute__((nonnull(2))); void Perl_sv_setnv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const NV num) __attribute__((nonnull(2))); SV* Perl_sv_setref_iv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname, const IV iv) __attribute__((nonnull(2))); SV* Perl_sv_setref_uv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname, const UV uv) __attribute__((nonnull(2))); SV* Perl_sv_setref_nv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname, const NV nv) __attribute__((nonnull(2))); SV* Perl_sv_setref_pv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname, void *const pv) __attribute__((nonnull(2))); SV* Perl_sv_setref_pvn(register PerlInterpreter* my_perl __attribute__((unused)), SV *const rv, const char *const classname, const char *const pv, const STRLEN n) __attribute__((nonnull(2))) __attribute__((nonnull(4))); void Perl_sv_setpv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr) __attribute__((nonnull(2))); void Perl_sv_setpvn(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr, const STRLEN len) __attribute__((nonnull(2))); # 3522 "proto.h" char Perl_sv_tainted(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); int Perl_sv_unmagic(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const int type) __attribute__((nonnull(2))); # 3538 "proto.h" void Perl_sv_unref_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const ref, const U32 flags) __attribute__((nonnull(2))); void Perl_sv_untaint(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); void Perl_sv_upgrade(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, svtype new_type) __attribute__((nonnull(2))); # 3558 "proto.h" void Perl_sv_usepvn_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, char* ptr, const STRLEN len, const U32 flags) __attribute__((nonnull(2))); void Perl_sv_vcatpvfn(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, char *const maybe_tainted) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_vsetpvfn(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, const STRLEN patlen, va_list *const args, SV **const svargs, const I32 svmax, char *const maybe_tainted) __attribute__((nonnull(2))) __attribute__((nonnull(3))); NV Perl_str_to_version(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); SV* Perl_swash_init(register PerlInterpreter* my_perl __attribute__((unused)), const char* pkg, const char* name, SV* listsv, I32 minbits, I32 none) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); UV Perl_swash_fetch(register PerlInterpreter* my_perl __attribute__((unused)), SV *swash, const U8 *ptr, char do_utf8) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_taint_env(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_taint_proper(register PerlInterpreter* my_perl __attribute__((unused)), const char* f, const char *const s) __attribute__((nonnull(3))); UV Perl_to_utf8_case(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p, U8* ustrp, STRLEN *lenp, SV **swashp, const char *normal, const char *special) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(5))) __attribute__((nonnull(6))) __attribute__((nonnull(7))); UV Perl_to_utf8_lower(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); UV Perl_to_utf8_upper(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); UV Perl_to_utf8_title(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); UV Perl_to_utf8_fold(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *p, U8* ustrp, STRLEN *lenp) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 3640 "proto.h" I32 Perl_unpack_str(register PerlInterpreter* my_perl __attribute__((unused)), const char *pat, const char *patend, const char *s, const char *strbeg, const char *strend, char **new_s, I32 ocnt, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(6))); I32 Perl_unpackstring(register PerlInterpreter* my_perl __attribute__((unused)), const char *pat, const char *patend, const char *s, const char *strend, U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))) __attribute__((nonnull(5))); void Perl_unsharepvn(register PerlInterpreter* my_perl __attribute__((unused)), const char* sv, I32 len, U32 hash); void Perl_unshare_hek(register PerlInterpreter* my_perl __attribute__((unused)), HEK* hek); void Perl_utilize(register PerlInterpreter* my_perl __attribute__((unused)), int aver, I32 floor, OP* version, OP* idop, OP* arg) __attribute__((nonnull(5))); U8* Perl_utf16_to_utf8(register PerlInterpreter* my_perl __attribute__((unused)), U8* p, U8 *d, I32 bytelen, I32 *newlen) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(5))); U8* Perl_utf16_to_utf8_reversed(register PerlInterpreter* my_perl __attribute__((unused)), U8* p, U8 *d, I32 bytelen, I32 *newlen) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(5))); STRLEN Perl_utf8_length(register PerlInterpreter* my_perl __attribute__((unused)), const U8* s, const U8 *e) __attribute__((warn_unused_result)) __attribute__((pure)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); IV Perl_utf8_distance(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *a, const U8 *b) __attribute__((warn_unused_result)) __attribute__((pure)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); U8* Perl_utf8_hop(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, I32 off) __attribute__((warn_unused_result)) __attribute__((pure)) __attribute__((nonnull(2))); U8* Perl_utf8_to_bytes(register PerlInterpreter* my_perl __attribute__((unused)), U8 *s, STRLEN *len) __attribute__((nonnull(2))) __attribute__((nonnull(3))); U8* Perl_bytes_from_utf8(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, STRLEN *len, char *is_utf8) __attribute__((nonnull(2))) __attribute__((nonnull(3))); U8* Perl_bytes_to_utf8(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, STRLEN *len) __attribute__((nonnull(2))) __attribute__((nonnull(3))); UV Perl_utf8_to_uvchr(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, STRLEN *retlen) __attribute__((nonnull(2))); UV Perl_utf8_to_uvuni(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, STRLEN *retlen) __attribute__((nonnull(2))); # 3751 "proto.h" UV Perl_utf8n_to_uvuni(register PerlInterpreter* my_perl __attribute__((unused)), const U8 *s, STRLEN curlen, STRLEN *retlen, U32 flags) __attribute__((nonnull(2))); # 3776 "proto.h" U8* Perl_uvchr_to_utf8_flags(register PerlInterpreter* my_perl __attribute__((unused)), U8 *d, UV uv, UV flags) __attribute__((nonnull(2))); U8* Perl_uvuni_to_utf8_flags(register PerlInterpreter* my_perl __attribute__((unused)), U8 *d, UV uv, UV flags) __attribute__((nonnull(2))); char* Perl_pv_uni_display(register PerlInterpreter* my_perl __attribute__((unused)), SV *dsv, const U8 *spv, STRLEN len, STRLEN pvlim, UV flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_sv_uni_display(register PerlInterpreter* my_perl __attribute__((unused)), SV *dsv, SV *ssv, STRLEN pvlim, UV flags) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_vivify_defelem(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv) __attribute__((nonnull(2))); void Perl_vivify_ref(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, U32 to_what) __attribute__((nonnull(2))); I32 Perl_wait4pid(register PerlInterpreter* my_perl __attribute__((unused)), pid_t pid, int* statusp, int flags) __attribute__((nonnull(3))); U32 Perl_parse_unicode_opts(register PerlInterpreter* my_perl __attribute__((unused)), const char **popt) __attribute__((nonnull(2))); U32 Perl_seed(register PerlInterpreter* my_perl __attribute__((unused))); UV Perl_get_hash_seed(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); void Perl_report_evil_fh(register PerlInterpreter* my_perl __attribute__((unused)), const GV *gv, const IO *io, I32 op); void Perl_report_uninit(register PerlInterpreter* my_perl __attribute__((unused)), const SV *uninit_sv); void Perl_warn(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, ...) __attribute__((format(__printf__,2,3))) __attribute__((nonnull(2))); void Perl_vwarn(register PerlInterpreter* my_perl __attribute__((unused)), const char* pat, va_list* args) __attribute__((nonnull(2))); void Perl_warner(register PerlInterpreter* my_perl __attribute__((unused)), U32 err, const char* pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(3))); void Perl_ck_warner(register PerlInterpreter* my_perl __attribute__((unused)), U32 err, const char* pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(3))); void Perl_ck_warner_d(register PerlInterpreter* my_perl __attribute__((unused)), U32 err, const char* pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(3))); void Perl_vwarner(register PerlInterpreter* my_perl __attribute__((unused)), U32 err, const char* pat, va_list* args) __attribute__((nonnull(3))); void Perl_watch(register PerlInterpreter* my_perl __attribute__((unused)), char** addr) __attribute__((nonnull(2))); I32 Perl_whichsig(register PerlInterpreter* my_perl __attribute__((unused)), const char* sig) __attribute__((nonnull(2))); void Perl_write_to_stderr(register PerlInterpreter* my_perl __attribute__((unused)), SV* msv) __attribute__((nonnull(2))); int Perl_yyerror(register PerlInterpreter* my_perl __attribute__((unused)), const char *const s) __attribute__((nonnull(2))); int Perl_yylex(register PerlInterpreter* my_perl __attribute__((unused))); int Perl_yyparse(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_parser_free(register PerlInterpreter* my_perl __attribute__((unused)), const yy_parser *parser) __attribute__((nonnull(2))); # 3905 "proto.h" void * Perl_safesysmalloc(size_t nbytes) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void * Perl_safesyscalloc(size_t elements, size_t size) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void * Perl_safesysrealloc(void * where, size_t nbytes) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void Perl_safesysfree(void * where); # 3927 "proto.h" int Perl_runops_standard(register PerlInterpreter* my_perl __attribute__((unused))); int Perl_runops_debug(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_sv_catpvf_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_vcatpvf_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, va_list *const args) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_catpv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr) __attribute__((nonnull(2))); # 3958 "proto.h" void Perl_sv_setpvf_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_vsetpvf_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const pat, va_list *const args) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_setiv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const IV i) __attribute__((nonnull(2))); void Perl_sv_setpviv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const IV iv) __attribute__((nonnull(2))); void Perl_sv_setuv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const UV u) __attribute__((nonnull(2))); void Perl_sv_setnv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const NV num) __attribute__((nonnull(2))); void Perl_sv_setpv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr) __attribute__((nonnull(2))); void Perl_sv_setpvn_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char *const ptr, const STRLEN len) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_setsv_mg(register PerlInterpreter* my_perl __attribute__((unused)), SV *const dstr, SV *const sstr) __attribute__((nonnull(2))); # 4012 "proto.h" MGVTBL* Perl_get_vtbl(register PerlInterpreter* my_perl __attribute__((unused)), int vtbl_id) __attribute__((warn_unused_result)); char* Perl_pv_display(register PerlInterpreter* my_perl __attribute__((unused)), SV *dsv, const char *pv, STRLEN cur, STRLEN len, STRLEN pvlim) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_pv_escape(register PerlInterpreter* my_perl __attribute__((unused)), SV *dsv, char const * const str, const STRLEN count, const STRLEN max, STRLEN * const escaped, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_pv_pretty(register PerlInterpreter* my_perl __attribute__((unused)), SV *dsv, char const * const str, const STRLEN count, const STRLEN max, char const * const start_color, char const * const end_color, const U32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_dump_indent(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const char* pat, ...) __attribute__((format(__printf__,4,5))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_dump_vindent(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const char* pat, va_list *args) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_gv_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const char *name, GV *sv) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_gvgv_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const char *name, GV *sv) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_hv_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const char *name, HV *sv) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_magic_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_do_op_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const OP *o) __attribute__((nonnull(3))); void Perl_do_pmop_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, const PMOP *pm) __attribute__((nonnull(3))); void Perl_do_sv_dump(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, char dumpops, STRLEN pvlim) __attribute__((nonnull(3))); void Perl_magic_dump(register PerlInterpreter* my_perl __attribute__((unused)), const MAGIC *mg); void Perl_reginitcolors(register PerlInterpreter* my_perl __attribute__((unused))); # 4131 "proto.h" char Perl_sv_utf8_downgrade(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const char fail_ok) __attribute__((nonnull(2))); void Perl_sv_utf8_encode(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); char Perl_sv_utf8_decode(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); # 4151 "proto.h" void Perl_sv_force_normal_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const U32 flags) __attribute__((nonnull(2))); void Perl_tmps_grow(register PerlInterpreter* my_perl __attribute__((unused)), I32 n); SV* Perl_sv_rvweaken(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv) __attribute__((nonnull(2))); int Perl_magic_killbackrefs(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); OP* Perl_newANONATTRSUB(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP *proto, OP *attrs, OP *block); CV* Perl_newATTRSUB(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP *o, OP *proto, OP *attrs, OP *block); void Perl_newMYSUB(register PerlInterpreter* my_perl __attribute__((unused)), I32 floor, OP *o, OP *proto, OP *attrs, OP *block) __attribute__((noreturn)); OP * Perl_my_attrs(register PerlInterpreter* my_perl __attribute__((unused)), OP *o, OP *attrs) __attribute__((nonnull(2))); PERL_CONTEXT* Perl_cx_dup(register PerlInterpreter* my_perl __attribute__((unused)), PERL_CONTEXT* cx, I32 ix, I32 max, CLONE_PARAMS* param) __attribute__((warn_unused_result)) __attribute__((nonnull(5))); PERL_SI* Perl_si_dup(register PerlInterpreter* my_perl __attribute__((unused)), PERL_SI* si, CLONE_PARAMS* param) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); ANY* Perl_ss_dup(register PerlInterpreter* my_perl __attribute__((unused)), PerlInterpreter* proto_perl, CLONE_PARAMS* param) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void* Perl_any_dup(register PerlInterpreter* my_perl __attribute__((unused)), void* v, const PerlInterpreter* proto_perl) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); HE* Perl_he_dup(register PerlInterpreter* my_perl __attribute__((unused)), const HE* e, char shared, CLONE_PARAMS* param) __attribute__((warn_unused_result)) __attribute__((nonnull(4))); HEK* Perl_hek_dup(register PerlInterpreter* my_perl __attribute__((unused)), HEK* e, CLONE_PARAMS* param) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); void Perl_re_dup_guts(register PerlInterpreter* my_perl __attribute__((unused)), const REGEXP *sstr, REGEXP *dstr, CLONE_PARAMS* param) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); PerlIO* Perl_fp_dup(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *const fp, const char type, CLONE_PARAMS *const param) __attribute__((nonnull(4))); DIR* Perl_dirp_dup(register PerlInterpreter* my_perl __attribute__((unused)), DIR *const dp) __attribute__((warn_unused_result)); GP* Perl_gp_dup(register PerlInterpreter* my_perl __attribute__((unused)), GP *const gp, CLONE_PARAMS *const param) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); MAGIC* Perl_mg_dup(register PerlInterpreter* my_perl __attribute__((unused)), MAGIC *mg, CLONE_PARAMS *const param) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); # 4259 "proto.h" SV* Perl_sv_dup(register PerlInterpreter* my_perl __attribute__((unused)), const SV *const sstr, CLONE_PARAMS *const param) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); void Perl_rvpv_dup(register PerlInterpreter* my_perl __attribute__((unused)), SV *const dstr, const SV *const sstr, CLONE_PARAMS *const param) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); yy_parser* Perl_parser_dup(register PerlInterpreter* my_perl __attribute__((unused)), const yy_parser *const proto, CLONE_PARAMS *const param) __attribute__((nonnull(3))); PTR_TBL_t* Perl_ptr_table_new(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void* Perl_ptr_table_fetch(register PerlInterpreter* my_perl __attribute__((unused)), PTR_TBL_t *const tbl, const void *const sv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_ptr_table_store(register PerlInterpreter* my_perl __attribute__((unused)), PTR_TBL_t *const tbl, const void *const oldsv, void *const newsv) __attribute__((nonnull(2))) __attribute__((nonnull(4))); void Perl_ptr_table_split(register PerlInterpreter* my_perl __attribute__((unused)), PTR_TBL_t *const tbl) __attribute__((nonnull(2))); void Perl_ptr_table_clear(register PerlInterpreter* my_perl __attribute__((unused)), PTR_TBL_t *const tbl); void Perl_ptr_table_free(register PerlInterpreter* my_perl __attribute__((unused)), PTR_TBL_t *const tbl); # 4316 "proto.h" const char * Perl_custom_op_name(register PerlInterpreter* my_perl __attribute__((unused)), const OP *o) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); const char * Perl_custom_op_desc(register PerlInterpreter* my_perl __attribute__((unused)), const OP *o) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_sv_nosharing(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); char Perl_sv_destroyable(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); void Perl_sv_nounlocking(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); int Perl_nothreadhook(register PerlInterpreter* my_perl __attribute__((unused))); # 4401 "proto.h" void* Perl_get_arena(register PerlInterpreter* my_perl __attribute__((unused)), const size_t arenasize, const svtype bodytype) __attribute__((__malloc__)) __attribute__((warn_unused_result)); # 4473 "proto.h" static void S_save_magic(register PerlInterpreter* my_perl __attribute__((unused)), I32 mgs_ix, SV *sv) __attribute__((nonnull(3))); static int S_magic_methpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg, const char *meth) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); static int S_magic_methcall(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg, const char *meth, I32 f, int n, SV *val) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); static void S_restore_magic(register PerlInterpreter* my_perl __attribute__((unused)), const void *p); static void S_unwind_handler_stack(register PerlInterpreter* my_perl __attribute__((unused)), const void *p) __attribute__((nonnull(2))); # 5665 "proto.h" int Perl_sv_kill_backrefs(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, AV *const av) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 6097 "proto.h" void Perl_sv_setsv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *dstr, SV *sstr, const I32 flags) __attribute__((nonnull(2))); void Perl_sv_catpvn_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const dstr, const char *sstr, const STRLEN len, const I32 flags) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sv_catsv_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const dsv, SV *const ssv, const I32 flags) __attribute__((nonnull(2))); STRLEN Perl_sv_utf8_upgrade_flags_grow(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, const I32 flags, STRLEN extra) __attribute__((nonnull(2))); char* Perl_sv_pvn_force_flags(register PerlInterpreter* my_perl __attribute__((unused)), SV *const sv, STRLEN *const lp, const I32 flags) __attribute__((nonnull(2))); void Perl_sv_copypv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const dsv, SV *const ssv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); char* Perl_my_atof2(register PerlInterpreter* my_perl __attribute__((unused)), const char *s, NV* value) __attribute__((nonnull(2))) __attribute__((nonnull(3))); int Perl_my_socketpair(int family, int type, int protocol, int fd[2]); int Perl_my_dirfd(register PerlInterpreter* my_perl __attribute__((unused)), DIR* dir); # 6150 "proto.h" const char * Perl_PerlIO_context_layers(register PerlInterpreter* my_perl __attribute__((unused)), const char *mode); int Perl_PerlIO_close(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_fill(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_fileno(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_eof(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_error(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_flush(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); void Perl_PerlIO_clearerr(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); void Perl_PerlIO_set_cnt(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, int cnt); void Perl_PerlIO_set_ptrcnt(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, char *ptr, int cnt); void Perl_PerlIO_setlinebuf(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); ssize_t Perl_PerlIO_read(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, void *vbuf, size_t count) __attribute__((nonnull(3))); ssize_t Perl_PerlIO_write(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, const void *vbuf, size_t count) __attribute__((nonnull(3))); ssize_t Perl_PerlIO_unread(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, const void *vbuf, size_t count) __attribute__((nonnull(3))); off64_t Perl_PerlIO_tell(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_seek(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f, off64_t offset, int whence); char * Perl_PerlIO_get_base(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); char * Perl_PerlIO_get_ptr(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f); int Perl_PerlIO_get_bufsiz(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f) __attribute__((warn_unused_result)); int Perl_PerlIO_get_cnt(register PerlInterpreter* my_perl __attribute__((unused)), PerlIO *f) __attribute__((warn_unused_result)); PerlIO * Perl_PerlIO_stdin(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); PerlIO * Perl_PerlIO_stdout(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); PerlIO * Perl_PerlIO_stderr(register PerlInterpreter* my_perl __attribute__((unused))) __attribute__((warn_unused_result)); void Perl_deb_stack_all(register PerlInterpreter* my_perl __attribute__((unused))); # 6210 "proto.h" PADLIST* Perl_pad_new(register PerlInterpreter* my_perl __attribute__((unused)), int flags) __attribute__((__malloc__)) __attribute__((warn_unused_result)); void Perl_pad_undef(register PerlInterpreter* my_perl __attribute__((unused)), CV* cv) __attribute__((nonnull(2))); PADOFFSET Perl_pad_add_name(register PerlInterpreter* my_perl __attribute__((unused)), const char *name, const STRLEN len, const U32 flags, HV *typestash, HV *ourstash) __attribute__((nonnull(2))); PADOFFSET Perl_pad_add_anon(register PerlInterpreter* my_perl __attribute__((unused)), SV* sv, U16 op_type) __attribute__((nonnull(2))); # 6243 "proto.h" void Perl_pad_block_start(register PerlInterpreter* my_perl __attribute__((unused)), int full); void Perl_pad_tidy(register PerlInterpreter* my_perl __attribute__((unused)), padtidy_type type); void Perl_do_dump_pad(register PerlInterpreter* my_perl __attribute__((unused)), I32 level, PerlIO *file, PADLIST *padlist, int full) __attribute__((nonnull(3))); void Perl_pad_fixup_inner_anons(register PerlInterpreter* my_perl __attribute__((unused)), PADLIST *padlist, CV *old_cv, CV *new_cv) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); void Perl_pad_push(register PerlInterpreter* my_perl __attribute__((unused)), PADLIST *padlist, int depth) __attribute__((nonnull(2))); HV* Perl_pad_compname_type(register PerlInterpreter* my_perl __attribute__((unused)), const PADOFFSET po) __attribute__((warn_unused_result)); # 6290 "proto.h" CV* Perl_find_runcv(register PerlInterpreter* my_perl __attribute__((unused)), U32 *db_seqp) __attribute__((warn_unused_result)); void Perl_free_tied_hv_pool(register PerlInterpreter* my_perl __attribute__((unused))); # 6302 "proto.h" void Perl_save_set_svflags(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, U32 mask, U32 val) __attribute__((nonnull(2))); # 6315 "proto.h" SV* Perl_hv_scalar(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); I32* Perl_hv_riter_p(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); HE** Perl_hv_eiter_p(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_hv_riter_set(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, I32 riter) __attribute__((nonnull(2))); void Perl_hv_eiter_set(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, HE *eiter) __attribute__((nonnull(2))); void Perl_hv_name_set(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, const char *name, U32 len, U32 flags) __attribute__((nonnull(2))); AV** Perl_hv_backreferences_p(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((nonnull(2))); # 6360 "proto.h" void Perl_hv_clear_placeholders(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((nonnull(2))); I32* Perl_hv_placeholders_p(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); I32 Perl_hv_placeholders_get(register PerlInterpreter* my_perl __attribute__((unused)), const HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); void Perl_hv_placeholders_set(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, I32 ph) __attribute__((nonnull(2))); SV* Perl_magic_scalarpack(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, MAGIC *mg) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 6478 "proto.h" void Perl_my_swabn(void* ptr, int n) __attribute__((nonnull(1))); GV* Perl_gv_fetchpvn_flags(register PerlInterpreter* my_perl __attribute__((unused)), const char* name, STRLEN len, I32 flags, const svtype sv_type) __attribute__((nonnull(2))); GV* Perl_gv_fetchsv(register PerlInterpreter* my_perl __attribute__((unused)), SV *name, I32 flags, const svtype sv_type) __attribute__((nonnull(2))); char Perl_is_gv_magical_sv(register PerlInterpreter* my_perl __attribute__((unused)), SV *const name_sv, U32 flags) __attribute__((warn_unused_result)) __attribute__((nonnull(2))); char Perl_stashpv_hvname_match(register PerlInterpreter* my_perl __attribute__((unused)), const COP *c, const HV *hv) __attribute__((warn_unused_result)) __attribute__((nonnull(2))) __attribute__((nonnull(3))); # 6523 "proto.h" char Perl_ckwarn(register PerlInterpreter* my_perl __attribute__((unused)), U32 w); char Perl_ckwarn_d(register PerlInterpreter* my_perl __attribute__((unused)), U32 w); STRLEN * Perl_new_warnings_bitfield(register PerlInterpreter* my_perl __attribute__((unused)), STRLEN *buffer, const char *const bits, STRLEN size) __attribute__((__malloc__)) __attribute__((warn_unused_result)) __attribute__((nonnull(3))); void Perl_offer_nice_chunk(register PerlInterpreter* my_perl __attribute__((unused)), void *const chunk, const U32 chunk_size) __attribute__((nonnull(2))); # 6548 "proto.h" int Perl_my_snprintf(char *buffer, const size_t len, const char *format, ...) __attribute__((format(__printf__,3,4))) __attribute__((nonnull(1))) __attribute__((nonnull(3))); int Perl_my_vsnprintf(char *buffer, const size_t len, const char *format, va_list ap) __attribute__((nonnull(1))) __attribute__((nonnull(3))); void Perl_my_clearenv(register PerlInterpreter* my_perl __attribute__((unused))); # 6577 "proto.h" void* Perl_my_cxt_init(register PerlInterpreter* my_perl __attribute__((unused)), int *index, size_t size) __attribute__((nonnull(2))); size_t Perl_my_strlcat(char *dst, const char *src, size_t size); size_t Perl_my_strlcpy(char *dst, const char *src, size_t size); # 6735 "proto.h" void Perl_emulate_cop_io(register PerlInterpreter* my_perl __attribute__((unused)), const COP *const c, SV *const sv) __attribute__((nonnull(2))) __attribute__((nonnull(3))); REGEXP * Perl_get_re_arg(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv); SV* Perl_mro_get_private_data(register PerlInterpreter* my_perl __attribute__((unused)), struct mro_meta *const smeta, const struct mro_alg *const which) __attribute__((nonnull(2))) __attribute__((nonnull(3))); SV* Perl_mro_set_private_data(register PerlInterpreter* my_perl __attribute__((unused)), struct mro_meta *const smeta, const struct mro_alg *const which, SV *const data) __attribute__((nonnull(2))) __attribute__((nonnull(3))) __attribute__((nonnull(4))); const struct mro_alg * Perl_mro_get_from_name(register PerlInterpreter* my_perl __attribute__((unused)), SV *name) __attribute__((nonnull(2))); void Perl_mro_register(register PerlInterpreter* my_perl __attribute__((unused)), const struct mro_alg *mro) __attribute__((nonnull(2))); void Perl_mro_set_mro(register PerlInterpreter* my_perl __attribute__((unused)), struct mro_meta *const meta, SV *const name) __attribute__((nonnull(2))) __attribute__((nonnull(3))); struct mro_meta* Perl_mro_meta_init(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash) __attribute__((nonnull(2))); struct mro_meta* Perl_mro_meta_dup(register PerlInterpreter* my_perl __attribute__((unused)), struct mro_meta* smeta, CLONE_PARAMS* param) __attribute__((nonnull(2))) __attribute__((nonnull(3))); AV* Perl_mro_get_linear_isa(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash) __attribute__((nonnull(2))); # 6797 "proto.h" void Perl_mro_isa_changed_in(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash) __attribute__((nonnull(2))); void Perl_mro_method_changed_in(register PerlInterpreter* my_perl __attribute__((unused)), HV* stash) __attribute__((nonnull(2))); void Perl_boot_core_mro(register PerlInterpreter* my_perl __attribute__((unused))); void Perl_sys_init(int* argc, char*** argv) __attribute__((nonnull(1))) __attribute__((nonnull(2))); void Perl_sys_init3(int* argc, char*** argv, char*** env) __attribute__((nonnull(1))) __attribute__((nonnull(2))) __attribute__((nonnull(3))); void Perl_sys_term(void); const char * Perl_fetch_cop_label(register PerlInterpreter* my_perl __attribute__((unused)), struct refcounted_he *const chain, STRLEN *len, U32 *flags); struct refcounted_he * Perl_store_cop_label(register PerlInterpreter* my_perl __attribute__((unused)), struct refcounted_he *const chain, const char *label) __attribute__((nonnull(3))); int Perl_keyword_plugin_standard(register PerlInterpreter* my_perl __attribute__((unused)), char* keyword_ptr, STRLEN keyword_len, OP** op_ptr) __attribute__((nonnull(2))) __attribute__((nonnull(4))); # 4947 "perl.h" 2 # 1 "opcode.h" 1 # 23 "opcode.h" OP *Perl_unimplemented_op (register PerlInterpreter* my_perl __attribute__((unused))); # 33 "opcode.h" extern const char* const PL_op_name[]; # 406 "opcode.h" extern const char* const PL_op_desc[]; # 778 "opcode.h" # 790 "opcode.h" extern Perl_ppaddr_t PL_ppaddr[] # 1165 "opcode.h" ; # 1174 "opcode.h" extern Perl_check_t PL_check[] # 1549 "opcode.h" ; extern const U32 PL_opargs[]; # 1929 "opcode.h" # 4950 "perl.h" 2 # 1 "embedvar.h" 1 # 4955 "perl.h" 2 # 4995 "perl.h" # 1 "perlvars.h" 1 # 27 "perlvars.h" extern PerlInterpreter * PL_curinterp; extern perl_key PL_thr_key; extern const char PL_Yes[sizeof("1")] ; extern const char PL_No[sizeof("")] ; extern const char PL_hexdigit[sizeof("0123456789abcdef0123456789ABCDEF")] ; extern const char PL_patleave[sizeof("\\.^$@dDwWsSbB+*?|()-nrtfeaxc0123456789[{]}")] ; extern char PL_do_undump ; extern perl_mutex PL_op_mutex; extern perl_mutex PL_dollarzero_mutex; # 64 "perlvars.h" extern const char * PL_sh_path ; extern Sighandler_t PL_sigfpe_saved; extern SV PL_sv_placeholder; extern Sighandler_t PL_csighandlerp ; extern int PL_use_safe_putenv ; extern int* PL_perlio_fd_refcnt ; extern int PL_perlio_fd_refcnt_size ; extern int PL_perlio_debug_fd ; extern IV PL_mmap_page_size ; # 129 "perlvars.h" extern HV* PL_op_sequence; extern UV PL_op_seq ; # 140 "perlvars.h" extern perl_mutex PL_my_ctx_mutex; extern int PL_my_cxt_index ; extern perl_mutex PL_hints_mutex; extern perl_mutex PL_perlio_mutex; extern int PL_veto_cleanup ; extern runops_proc_t PL_runops_std ; extern runops_proc_t PL_runops_dbg ; extern U8 PL_revision ; extern U8 PL_version ; extern U8 PL_subversion ; extern U16 PL_interp_size ; extern U16 PL_interp_size_5_10_0 ; # 243 "perlvars.h" extern Perl_keyword_plugin_t PL_keyword_plugin ; # 4998 "perl.h" 2 # 5033 "perl.h" extern MGVTBL PL_vtbl_sv # 5043 "perl.h" ; extern MGVTBL PL_vtbl_env # 5055 "perl.h" ; extern MGVTBL PL_vtbl_envelem # 5067 "perl.h" ; extern MGVTBL PL_vtbl_sig # 5079 "perl.h" ; # 5095 "perl.h" extern MGVTBL PL_vtbl_sigelem # 5105 "perl.h" ; extern MGVTBL PL_vtbl_pack # 5118 "perl.h" ; extern MGVTBL PL_vtbl_packelem # 5130 "perl.h" ; extern MGVTBL PL_vtbl_dbline # 5142 "perl.h" ; extern MGVTBL PL_vtbl_isa # 5154 "perl.h" ; extern MGVTBL PL_vtbl_isaelem # 5166 "perl.h" ; extern MGVTBL PL_vtbl_arylen # 5178 "perl.h" ; extern MGVTBL PL_vtbl_arylen_p # 5190 "perl.h" ; extern MGVTBL PL_vtbl_mglob # 5202 "perl.h" ; extern MGVTBL PL_vtbl_nkeys # 5214 "perl.h" ; extern MGVTBL PL_vtbl_taint # 5226 "perl.h" ; extern MGVTBL PL_vtbl_substr # 5238 "perl.h" ; extern MGVTBL PL_vtbl_vec # 5250 "perl.h" ; extern MGVTBL PL_vtbl_pos # 5262 "perl.h" ; extern MGVTBL PL_vtbl_bm # 5274 "perl.h" ; extern MGVTBL PL_vtbl_fm # 5286 "perl.h" ; extern MGVTBL PL_vtbl_uvar # 5298 "perl.h" ; extern MGVTBL PL_vtbl_defelem # 5310 "perl.h" ; extern MGVTBL PL_vtbl_regexp # 5322 "perl.h" ; extern MGVTBL PL_vtbl_regdata # 5334 "perl.h" ; extern MGVTBL PL_vtbl_regdatum # 5346 "perl.h" ; extern MGVTBL PL_vtbl_amagic # 5358 "perl.h" ; extern MGVTBL PL_vtbl_amagicelem # 5370 "perl.h" ; extern MGVTBL PL_vtbl_backref # 5382 "perl.h" ; extern MGVTBL PL_vtbl_ovrld # 5394 "perl.h" ; extern MGVTBL PL_vtbl_utf8 # 5406 "perl.h" ; extern MGVTBL PL_vtbl_collxfrm # 5418 "perl.h" ; extern MGVTBL PL_vtbl_hintselem # 5431 "perl.h" ; extern MGVTBL PL_vtbl_hints # 5443 "perl.h" ; # 1 "overload.h" 1 # 15 "overload.h" enum { fallback_amg, to_sv_amg, to_av_amg, to_hv_amg, to_gv_amg, to_cv_amg, inc_amg, dec_amg, bool__amg, numer_amg, string_amg, not_amg, copy_amg, abs_amg, neg_amg, iter_amg, int_amg, lt_amg, le_amg, gt_amg, ge_amg, eq_amg, ne_amg, slt_amg, sle_amg, sgt_amg, sge_amg, seq_amg, sne_amg, nomethod_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, ncmp_amg, scmp_amg, compl_amg, atan2_amg, cos_amg, sin_amg, exp_amg, log_amg, sqrt_amg, repeat_amg, repeat_ass_amg, concat_amg, concat_ass_amg, smart_amg, ftest_amg, regexp_amg, DESTROY_amg, max_amg_code }; # 5446 "perl.h" 2 struct am_table { U32 flags; U32 was_ok_sub; long was_ok_am; long fallback; CV* table[max_amg_code]; }; struct am_table_short { U32 flags; U32 was_ok_sub; long was_ok_am; }; typedef struct am_table AMT; typedef struct am_table_short AMTS; # 5704 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/ipc.h" 1 3 4 # 29 "/usr/include/arm-linux-gnueabi/sys/ipc.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/ipctypes.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/bits/ipctypes.h" 3 4 typedef unsigned short int __ipc_pid_t; # 30 "/usr/include/arm-linux-gnueabi/sys/ipc.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/ipc.h" 1 3 4 # 43 "/usr/include/arm-linux-gnueabi/bits/ipc.h" 3 4 struct ipc_perm { __key_t __key; __uid_t uid; __gid_t gid; __uid_t cuid; __gid_t cgid; unsigned short int mode; unsigned short int __pad1; unsigned short int __seq; unsigned short int __pad2; unsigned long int __unused1; unsigned long int __unused2; }; # 31 "/usr/include/arm-linux-gnueabi/sys/ipc.h" 2 3 4 # 52 "/usr/include/arm-linux-gnueabi/sys/ipc.h" 3 4 extern key_t ftok (__const char *__pathname, int __proj_id) __attribute__ ((__nothrow__)); # 5705 "perl.h" 2 # 1 "/usr/include/arm-linux-gnueabi/sys/sem.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/sys/sem.h" 3 4 # 1 "/usr/lib/gcc/arm-linux-gnueabi/4.6.1/include/stddef.h" 1 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/sem.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/sem.h" 1 3 4 # 39 "/usr/include/arm-linux-gnueabi/bits/sem.h" 3 4 struct semid_ds { struct ipc_perm sem_perm; __time_t sem_otime; unsigned long int __unused1; __time_t sem_ctime; unsigned long int __unused2; unsigned long int sem_nsems; unsigned long int __unused3; unsigned long int __unused4; }; # 73 "/usr/include/arm-linux-gnueabi/bits/sem.h" 3 4 struct seminfo { int semmap; int semmni; int semmns; int semmnu; int semmsl; int semopm; int semume; int semusz; int semvmx; int semaem; }; # 32 "/usr/include/arm-linux-gnueabi/sys/sem.h" 2 3 4 # 42 "/usr/include/arm-linux-gnueabi/sys/sem.h" 3 4 struct sembuf { unsigned short int sem_num; short int sem_op; short int sem_flg; }; extern int semctl (int __semid, int __semnum, int __cmd, ...) __attribute__ ((__nothrow__)); extern int semget (key_t __key, int __nsems, int __semflg) __attribute__ ((__nothrow__)); extern int semop (int __semid, struct sembuf *__sops, size_t __nsops) __attribute__ ((__nothrow__)); extern int semtimedop (int __semid, struct sembuf *__sops, size_t __nsops, __const struct timespec *__timeout) __attribute__ ((__nothrow__)); # 5706 "perl.h" 2 union semun { int val; struct semid_ds *buf; unsigned short *array; }; # 5863 "perl.h" # 1 "/usr/include/arm-linux-gnueabi/sys/file.h" 1 3 4 # 25 "/usr/include/arm-linux-gnueabi/sys/file.h" 3 4 # 1 "/usr/include/fcntl.h" 1 3 4 # 30 "/usr/include/fcntl.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/fcntl.h" 1 3 4 # 27 "/usr/include/arm-linux-gnueabi/bits/fcntl.h" 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/uio.h" 1 3 4 # 28 "/usr/include/arm-linux-gnueabi/bits/fcntl.h" 2 3 4 # 152 "/usr/include/arm-linux-gnueabi/bits/fcntl.h" 3 4 struct flock { short int l_type; short int l_whence; __off64_t l_start; __off64_t l_len; __pid_t l_pid; }; struct flock64 { short int l_type; short int l_whence; __off64_t l_start; __off64_t l_len; __pid_t l_pid; }; enum __pid_type { F_OWNER_TID = 0, F_OWNER_PID, F_OWNER_PGRP, F_OWNER_GID = F_OWNER_PGRP }; struct f_owner_ex { enum __pid_type type; __pid_t pid; }; # 252 "/usr/include/arm-linux-gnueabi/bits/fcntl.h" 3 4 extern ssize_t readahead (int __fd, __off64_t __offset, size_t __count) __attribute__ ((__nothrow__)); extern int sync_file_range (int __fd, __off64_t __offset, __off64_t __count, unsigned int __flags); extern ssize_t vmsplice (int __fdout, const struct iovec *__iov, size_t __count, unsigned int __flags); extern ssize_t splice (int __fdin, __off64_t *__offin, int __fdout, __off64_t *__offout, size_t __len, unsigned int __flags); extern ssize_t tee (int __fdin, int __fdout, size_t __len, unsigned int __flags); extern int fallocate (int __fd, int __mode, __off64_t __offset, __off64_t __len) __asm__ ("" "fallocate64") ; extern int fallocate64 (int __fd, int __mode, __off64_t __offset, __off64_t __len); # 35 "/usr/include/fcntl.h" 2 3 4 # 1 "/usr/include/arm-linux-gnueabi/bits/stat.h" 1 3 4 # 42 "/usr/include/fcntl.h" 2 3 4 # 110 "/usr/include/fcntl.h" 3 4 extern int fcntl (int __fd, int __cmd, ...); # 122 "/usr/include/fcntl.h" 3 4 extern int open (__const char *__file, int __oflag, ...) __asm__ ("" "open64") __attribute__ ((__nonnull__ (1))); extern int open64 (__const char *__file, int __oflag, ...) __attribute__ ((__nonnull__ (1))); # 147 "/usr/include/fcntl.h" 3 4 extern int openat (int __fd, __const char *__file, int __oflag, ...) __asm__ ("" "openat64") __attribute__ ((__nonnull__ (2))); extern int openat64 (int __fd, __const char *__file, int __oflag, ...) __attribute__ ((__nonnull__ (2))); # 168 "/usr/include/fcntl.h" 3 4 extern int creat (__const char *__file, __mode_t __mode) __asm__ ("" "creat64") __attribute__ ((__nonnull__ (1))); extern int creat64 (__const char *__file, __mode_t __mode) __attribute__ ((__nonnull__ (1))); # 215 "/usr/include/fcntl.h" 3 4 extern int posix_fadvise (int __fd, __off64_t __offset, __off64_t __len, int __advise) __asm__ ("" "posix_fadvise64") __attribute__ ((__nothrow__)) ; extern int posix_fadvise64 (int __fd, __off64_t __offset, __off64_t __len, int __advise) __attribute__ ((__nothrow__)); # 236 "/usr/include/fcntl.h" 3 4 extern int posix_fallocate (int __fd, __off64_t __offset, __off64_t __len) __asm__ ("" "posix_fallocate64") ; extern int posix_fallocate64 (int __fd, __off64_t __offset, __off64_t __len); # 1 "/usr/include/arm-linux-gnueabi/bits/fcntl2.h" 1 3 4 # 31 "/usr/include/arm-linux-gnueabi/bits/fcntl2.h" 3 4 extern int __open_2 (__const char *__path, int __oflag) __asm__ ("" "__open64_2") __attribute__ ((__nonnull__ (1))); extern int __open_alias (__const char *__path, int __oflag, ...) __asm__ ("" "open64") __attribute__ ((__nonnull__ (1))); extern void __open_too_many_args (void) __attribute__((__error__ ("open can be called either with 2 or 3 arguments, not more"))) ; extern void __open_missing_mode (void) __attribute__((__error__ ("open with O_CREAT in second argument needs 3 arguments"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int open (__const char *__path, int __oflag, ...) { if (__builtin_va_arg_pack_len () > 1) __open_too_many_args (); if (__builtin_constant_p (__oflag)) { if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1) { __open_missing_mode (); return __open_2 (__path, __oflag); } return __open_alias (__path, __oflag, __builtin_va_arg_pack ()); } if (__builtin_va_arg_pack_len () < 1) return __open_2 (__path, __oflag); return __open_alias (__path, __oflag, __builtin_va_arg_pack ()); } extern int __open64_2 (__const char *__path, int __oflag) __attribute__ ((__nonnull__ (1))); extern int __open64_alias (__const char *__path, int __oflag, ...) __asm__ ("" "open64") __attribute__ ((__nonnull__ (1))); extern void __open64_too_many_args (void) __attribute__((__error__ ("open64 can be called either with 2 or 3 arguments, not more"))) ; extern void __open64_missing_mode (void) __attribute__((__error__ ("open64 with O_CREAT in second argument needs 3 arguments"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int open64 (__const char *__path, int __oflag, ...) { if (__builtin_va_arg_pack_len () > 1) __open64_too_many_args (); if (__builtin_constant_p (__oflag)) { if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1) { __open64_missing_mode (); return __open64_2 (__path, __oflag); } return __open64_alias (__path, __oflag, __builtin_va_arg_pack ()); } if (__builtin_va_arg_pack_len () < 1) return __open64_2 (__path, __oflag); return __open64_alias (__path, __oflag, __builtin_va_arg_pack ()); } # 105 "/usr/include/arm-linux-gnueabi/bits/fcntl2.h" 3 4 extern int __openat_2 (int __fd, __const char *__path, int __oflag) __asm__ ("" "__openat64_2") __attribute__ ((__nonnull__ (2))); extern int __openat_alias (int __fd, __const char *__path, int __oflag, ...) __asm__ ("" "openat64") __attribute__ ((__nonnull__ (2))); extern void __openat_too_many_args (void) __attribute__((__error__ ("openat can be called either with 3 or 4 arguments, not more"))) ; extern void __openat_missing_mode (void) __attribute__((__error__ ("openat with O_CREAT in third argument needs 4 arguments"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int openat (int __fd, __const char *__path, int __oflag, ...) { if (__builtin_va_arg_pack_len () > 1) __openat_too_many_args (); if (__builtin_constant_p (__oflag)) { if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1) { __openat_missing_mode (); return __openat_2 (__fd, __path, __oflag); } return __openat_alias (__fd, __path, __oflag, __builtin_va_arg_pack ()); } if (__builtin_va_arg_pack_len () < 1) return __openat_2 (__fd, __path, __oflag); return __openat_alias (__fd, __path, __oflag, __builtin_va_arg_pack ()); } extern int __openat64_2 (int __fd, __const char *__path, int __oflag) __attribute__ ((__nonnull__ (2))); extern int __openat64_alias (int __fd, __const char *__path, int __oflag, ...) __asm__ ("" "openat64") __attribute__ ((__nonnull__ (2))); extern void __openat64_too_many_args (void) __attribute__((__error__ ("openat64 can be called either with 3 or 4 arguments, not more"))) ; extern void __openat64_missing_mode (void) __attribute__((__error__ ("openat64 with O_CREAT in third argument needs 4 arguments"))) ; extern __inline __attribute__ ((__always_inline__)) __attribute__ ((__artificial__)) int openat64 (int __fd, __const char *__path, int __oflag, ...) { if (__builtin_va_arg_pack_len () > 1) __openat64_too_many_args (); if (__builtin_constant_p (__oflag)) { if ((__oflag & 0100) != 0 && __builtin_va_arg_pack_len () < 1) { __openat64_missing_mode (); return __openat64_2 (__fd, __path, __oflag); } return __openat64_alias (__fd, __path, __oflag, __builtin_va_arg_pack ()); } if (__builtin_va_arg_pack_len () < 1) return __openat64_2 (__fd, __path, __oflag); return __openat64_alias (__fd, __path, __oflag, __builtin_va_arg_pack ()); } # 253 "/usr/include/fcntl.h" 2 3 4 # 26 "/usr/include/arm-linux-gnueabi/sys/file.h" 2 3 4 # 51 "/usr/include/arm-linux-gnueabi/sys/file.h" 3 4 extern int flock (int __fd, int __operation) __attribute__ ((__nothrow__)); # 5864 "perl.h" 2 # 43 "mg.c" 2 # 61 "mg.c" void Perl_csighandler(int sig, siginfo_t *, void *); # 78 "mg.c" struct magic_state { SV* mgs_sv; I32 mgs_ss_ix; U32 mgs_magical; char mgs_readonly; }; static void S_save_magic(register PerlInterpreter* my_perl __attribute__((unused)), I32 mgs_ix, SV *sv) { extern int Perl___notused __attribute__((unused)); MGS* mgs; ; ; if ((((sv)->sv_flags & (0x01000000 | 0x08000000)) == (0x01000000 | 0x08000000))) Perl_sv_force_normal_flags(my_perl, sv,0); Perl_save_destructor_x(my_perl, (DESTRUCTORFUNC_t)(S_restore_magic),(void*)((void*)(unsigned long)((IV)mgs_ix))); mgs = ((MGS*) ((char*)(my_perl->Isavestack) + mgs_ix)); mgs->mgs_sv = sv; mgs->mgs_magical = ((sv)->sv_flags & (0x00200000|0x00400000|0x00800000)); mgs->mgs_readonly = ((sv)->sv_flags & 0x08000000) != 0; mgs->mgs_ss_ix = (my_perl->Isavestack_ix); ((sv)->sv_flags &= ~(0x00200000|0x00400000|0x00800000)); ((sv)->sv_flags &= ~0x08000000); if (!((sv)->sv_flags & (0x00000100|0x00000200|0x00000400))) { (sv)->sv_flags |= ((sv)->sv_flags & (0x00001000|0x00002000|0x00004000)) >> 4; } } # 124 "mg.c" void Perl_mg_magical(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { const MAGIC* mg; ; ((void)my_perl); ((sv)->sv_flags &= ~(0x00200000|0x00400000|0x00800000)); if ((mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic)) { do { const MGVTBL* const vtbl = mg->mg_virtual; if (vtbl) { if (vtbl->svt_get && !(mg->mg_flags & 4)) ((sv)->sv_flags |= 0x00200000); if (vtbl->svt_set) ((sv)->sv_flags |= 0x00400000); if (vtbl->svt_clear) ((sv)->sv_flags |= 0x00800000); } } while ((mg = mg->mg_moremagic)); if (!((sv)->sv_flags & (0x00200000|0x00400000))) ((sv)->sv_flags |= 0x00800000); } } static char S_is_container_magic(const MAGIC *mg) { ; switch (mg->mg_type) { case 'B': case 'f': case 'g': case 'k': case 'o': case 'r': case 't': case 'v': case 'V': case 'w': case 'x': case 'y': case '#': case '.': case '<': case '@': case '%': case ':': return 0; default: return 1; } } # 191 "mg.c" int Perl_mg_get(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { extern int Perl___notused __attribute__((unused)); const I32 mgs_ix = Perl_save_alloc(my_perl, (sizeof(MGS)), 0); const char was_temp = (char)((sv)->sv_flags & 0x00080000); char have_new = 0; MAGIC *newmg, *head, *cur, *mg; ; Perl_sv_2mortal(my_perl, (++((sv)->sv_refcnt),((SV *)({ void *_p = (sv); _p; })))); if (!was_temp) { ((sv)->sv_flags &= ~0x00080000); } S_save_magic(my_perl, mgs_ix,sv); newmg = cur = head = mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; while (mg) { const MGVTBL * const vtbl = mg->mg_virtual; MAGIC * const nextmg = mg->mg_moremagic; if (!(mg->mg_flags & 4) && vtbl && vtbl->svt_get) { (*vtbl->svt_get)(my_perl, sv, mg); if (!((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic) { (((MGS *) ((char*)(my_perl->Isavestack) + mgs_ix)))->mgs_magical = 0; break; } if (mg->mg_flags & 4) (((MGS *) ((char*)(my_perl->Isavestack) + mgs_ix)))->mgs_magical = 0; } mg = nextmg; if (have_new) { if (mg == head) { have_new = 0; mg = cur; head = newmg; } } if (!have_new && (newmg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic) != head) { have_new = 1; cur = mg; mg = newmg; (((MGS *) ((char*)(my_perl->Isavestack) + mgs_ix)))->mgs_magical = 0; } } S_restore_magic(my_perl, (void *)(unsigned long)((IV)mgs_ix)); if ((sv)->sv_refcnt == 1) { (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), ((void)(((sv)->sv_flags & 0x02000000) && Perl_sv_backoff(my_perl, sv)))); } return 0; } # 278 "mg.c" int Perl_mg_set(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { extern int Perl___notused __attribute__((unused)); const I32 mgs_ix = Perl_save_alloc(my_perl, (sizeof(MGS)), 0); MAGIC* mg; MAGIC* nextmg; ; S_save_magic(my_perl, mgs_ix,sv); for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = nextmg) { const MGVTBL* vtbl = mg->mg_virtual; nextmg = mg->mg_moremagic; if (mg->mg_flags & 4) { mg->mg_flags &= ~4; (((MGS*) ((char*)(my_perl->Isavestack) + mgs_ix)))->mgs_magical = 0; } if ((my_perl->Ilocalizing) == 2 && !S_is_container_magic(mg)) continue; if (vtbl && vtbl->svt_set) (*vtbl->svt_set)(my_perl, sv, mg); } S_restore_magic(my_perl, (void*)(unsigned long)((IV)mgs_ix)); return 0; } # 315 "mg.c" U32 Perl_mg_length(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { extern int Perl___notused __attribute__((unused)); MAGIC* mg; STRLEN len; ; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = mg->mg_moremagic) { const MGVTBL * const vtbl = mg->mg_virtual; if (vtbl && vtbl->svt_len) { const I32 mgs_ix = Perl_save_alloc(my_perl, (sizeof(MGS)), 0); S_save_magic(my_perl, mgs_ix,sv); len = (*vtbl->svt_len)(my_perl, sv, mg); S_restore_magic(my_perl, (void*)(unsigned long)((IV)mgs_ix)); return len; } } { const U8 *s = (U8*)(((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)); if ((((sv)->sv_flags & 0x20000000) && !((((my_perl->Icurcop))->cop_hints + 0) & 0x00000008))) { len = Perl_utf8_length(my_perl, s,s + len); } } return len; } I32 Perl_mg_size(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { MAGIC* mg; ; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = mg->mg_moremagic) { const MGVTBL* const vtbl = mg->mg_virtual; if (vtbl && vtbl->svt_len) { const I32 mgs_ix = Perl_save_alloc(my_perl, (sizeof(MGS)), 0); I32 len; S_save_magic(my_perl, mgs_ix,sv); len = (*vtbl->svt_len)(my_perl, sv, mg); S_restore_magic(my_perl, (void*)(unsigned long)((IV)mgs_ix)); return len; } } switch(((svtype)((sv)->sv_flags & 0xff))) { case SVt_PVAV: return ((XPVAV*) ((const AV *) sv)->sv_any)->xav_fill; case SVt_PVHV: default: Perl_croak(my_perl, "Size magic not implemented"); break; } return 0; } # 388 "mg.c" int Perl_mg_clear(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { const I32 mgs_ix = Perl_save_alloc(my_perl, (sizeof(MGS)), 0); MAGIC* mg; MAGIC *nextmg; ; S_save_magic(my_perl, mgs_ix,sv); for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = nextmg) { const MGVTBL* const vtbl = mg->mg_virtual; nextmg = mg->mg_moremagic; if (vtbl && vtbl->svt_clear) (*vtbl->svt_clear)(my_perl, sv, mg); } S_restore_magic(my_perl, (void*)(unsigned long)((IV)mgs_ix)); return 0; } # 421 "mg.c" MAGIC* Perl_mg_find(register PerlInterpreter* my_perl __attribute__((unused)), const SV *sv, int type) { ((void)my_perl); if (sv) { MAGIC *mg; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = mg->mg_moremagic) { if (mg->mg_type == type) return mg; } } return ((void *)0); } # 443 "mg.c" int Perl_mg_copy(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, SV *nsv, const char *key, I32 klen) { int count = 0; MAGIC* mg; ; ; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = mg->mg_moremagic) { const MGVTBL* const vtbl = mg->mg_virtual; if ((mg->mg_flags & 8) && vtbl->svt_copy){ count += (*vtbl->svt_copy)(my_perl, sv, mg, nsv, key, klen); } else { const char type = mg->mg_type; if (((type) >= 'A' && (type) <= 'Z') && type != 'U') { Perl_sv_magic(my_perl, nsv,(type == 'P') ? ((mg)->mg_obj ? (mg)->mg_obj : Perl_sv_2mortal(my_perl, Perl_newRV(my_perl, sv))) : (type == 'D' && mg->mg_obj) ? sv : mg->mg_obj,(((type) >= 'A' && (type) <= 'Z') ? (type) + ('a' - 'A') : (type)),key,klen) ; count++; } } } return count; } # 487 "mg.c" void Perl_mg_localize(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, SV *nsv, char setmagic) { extern int Perl___notused __attribute__((unused)); MAGIC *mg; ; ; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = mg->mg_moremagic) { const MGVTBL* const vtbl = mg->mg_virtual; if (!S_is_container_magic(mg)) continue; if ((mg->mg_flags & 0x20) && vtbl->svt_local) (void)(*vtbl->svt_local)(my_perl, nsv, mg); else Perl_sv_magicext(my_perl, nsv,mg->mg_obj,mg->mg_type,vtbl,mg->mg_ptr,mg->mg_len) ; (nsv)->sv_flags |= ((sv)->sv_flags & 0x08000000); } if (((svtype)((nsv)->sv_flags & 0xff)) >= SVt_PVMG && ((XPVMG*) (nsv)->sv_any)->xmg_u.xmg_magic) { (nsv)->sv_flags |= ((sv)->sv_flags & (0x00200000|0x00400000|0x00800000)); if (setmagic) { (my_perl->Ilocalizing) = 1; (void)( { if (((nsv)->sv_flags & 0x00400000)) Perl_mg_set(my_perl, nsv); } ); (my_perl->Ilocalizing) = 0; } } } # 528 "mg.c" int Perl_mg_free(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { MAGIC* mg; MAGIC* moremagic; ; for (mg = ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic; mg; mg = moremagic) { const MGVTBL* const vtbl = mg->mg_virtual; moremagic = mg->mg_moremagic; if (vtbl && vtbl->svt_free) (*vtbl->svt_free)(my_perl, sv, mg); if (mg->mg_ptr && mg->mg_type != 'g') { if (mg->mg_len > 0 || mg->mg_type == 'w') Perl_safesysfree(((void *)(mg->mg_ptr))); else if (mg->mg_len == -2) ({ SV * const _sv = ((SV *)({ void *_p = (((SV *)({ void *_p = (mg->mg_ptr); _p; }))); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); } if (mg->mg_flags & 2) ({ SV * const _sv = ((SV *)({ void *_p = (mg->mg_obj); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); Perl_safesysfree(((void *)(mg))); (void)( { ; (((XPVMG*)(sv)->sv_any)->xmg_u.xmg_magic = (moremagic)); } ); } (void)( { ; (((XPVMG*)(sv)->sv_any)->xmg_u.xmg_magic = (((void *)0))); } ); ((sv)->sv_flags &= ~(0x00200000|0x00400000|0x00800000)); return 0; } U32 Perl_magic_regdata_cnt(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ((void)sv); ; ; if ((my_perl->Icurpm)) { register const REGEXP * const rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)); if (rx) { if (mg->mg_obj) { return (*({ const REGEXP *const _rx_nparens = (rx); ; &(_rx_nparens)->sv_any->nparens; })); } else { I32 paren = (((struct regexp *)(rx)->sv_any)->lastparen); while ( paren >= 0 && ((*({ const REGEXP *const _rx_offs = (rx); ; &(_rx_offs)->sv_any->offs; }))[paren].start == -1 || (*({ const REGEXP *const _rx_offs = (rx); ; &(_rx_offs)->sv_any->offs; }))[paren].end == -1) ) paren--; return (U32)paren; } } } return (U32)-1; } int Perl_magic_regdatum_get(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; if ((my_perl->Icurpm)) { register const REGEXP * const rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)); if (rx) { register const I32 paren = mg->mg_len; register I32 s; register I32 t; if (paren < 0) return 0; if (paren <= (I32)(*({ const REGEXP *const _rx_nparens = (rx); ; &(_rx_nparens)->sv_any->nparens; })) && (s = (*({ const REGEXP *const _rx_offs = (rx); ; &(_rx_offs)->sv_any->offs; }))[paren].start) != -1 && (t = (*({ const REGEXP *const _rx_offs = (rx); ; &(_rx_offs)->sv_any->offs; }))[paren].end) != -1) { register I32 i; if (mg->mg_obj) i = t; else i = s; if (i > 0 && ((*({ const REGEXP *const _rx_extflags = (rx); ; &(((_rx_extflags)->sv_any)->extflags); })) & 0x00100000)) { const char * const b = (*({ const REGEXP *const _rx_subbeg = (rx); ; &(_rx_subbeg)->sv_any->subbeg; })); if (b) i = Perl_utf8_length(my_perl, (U8*)b,(U8*)(b+i)); } Perl_sv_setiv(my_perl, sv,i); } } } return 0; } int Perl_magic_regdatum_set(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)sv); ((void)mg); Perl_croak(my_perl, "%s", PL_no_modify); ; } U32 Perl_magic_len(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); register I32 paren; register I32 i; register const REGEXP * rx; const char * const remaining = mg->mg_ptr + 1; ; ; switch (*mg->mg_ptr) { case '\020': if (*remaining == '\0') { break; } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("REMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("REMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "REMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("REMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) && (__s2_len = __builtin_strlen ("REMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("REMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("REMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("REMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("REMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "REMATCH")))); }))) { goto do_prematch; } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("OSTMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("OSTMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "OSTMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("OSTMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) && (__s2_len = __builtin_strlen ("OSTMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "OSTMATCH")))); }))) { goto do_postmatch; } break; case '\015': if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("ATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("ATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "ATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("ATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) && (__s2_len = __builtin_strlen ("ATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("ATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("ATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("ATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("ATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "ATCH")))); }))) { goto do_match; } else { break; } case '`': do_prematch: paren = -2; goto maybegetparen; case '\'': do_postmatch: paren = -1; goto maybegetparen; case '&': do_match: paren = 0; goto maybegetparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': paren = atoi(mg->mg_ptr); maybegetparen: if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { getparen: i = (*(*({ const REGEXP *const _rx_engine = ((REGEXP * const)rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_LENGTH)(my_perl, ((REGEXP * const)rx),(sv),(paren)); if (i < 0) Perl_croak(my_perl, "panic: magic_len: %""Ld", (IV)i); return i; } else { if (Perl_ckwarn(my_perl, (41 ))) Perl_report_uninit(my_perl, sv); return 0; } case '+': if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { paren = (((struct regexp *)(rx)->sv_any)->lastparen); if (paren) goto getparen; } return 0; case '\016': if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { paren = (((struct regexp *)(rx)->sv_any)->lastcloseparen); if (paren) goto getparen; } return 0; } Perl_magic_get(my_perl, sv,mg); if (!((sv)->sv_flags & 0x00000400) && ((sv)->sv_flags & (0x00000100|0x00000200))) { Perl_sv_2pv_flags(my_perl, sv,0,2); } if (((sv)->sv_flags & 0x00000400)) return ((XPV*) (sv)->sv_any)->xpv_cur; return 0; } # 727 "mg.c" void Perl_emulate_cop_io(register PerlInterpreter* my_perl __attribute__((unused)), const COP *const c, SV *const sv) { ; ; if (!(((c)->cop_hints + 0) & (0x00040000|0x00080000))) Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); else { Perl_sv_setpvn(my_perl, sv, ("" "" ""), (sizeof("")-1)); ((sv)->sv_flags &= ~(0x20000000)); if ((((c)->cop_hints + 0) & 0x00040000)) { SV *const value = Perl_refcounted_he_fetch(my_perl, c->cop_hints_hash, 0, "open<", 5, 0, 0); ; Perl_sv_catsv_flags(my_perl, sv,value,2); } Perl_sv_catpvn_flags(my_perl, sv, ("" "\0" ""), (sizeof("\0")-1), 2); if ((((c)->cop_hints + 0) & 0x00080000)) { SV *const value = Perl_refcounted_he_fetch(my_perl, c->cop_hints_hash, 0, "open>", 5, 0, 0); ; Perl_sv_catsv_flags(my_perl, sv,value,2); } } } int Perl_magic_get(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); register I32 paren; register char *s = ((void *)0); register REGEXP *rx; const char * const remaining = mg->mg_ptr + 1; const char nextchar = *remaining; ; ; switch (*mg->mg_ptr) { case '\001': Perl_sv_setsv_flags(my_perl, sv,(my_perl->Ibodytarget),2|512|1024); break; case '\003': if (nextchar == '\0') { Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Iminus_c)); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("HILD_ERROR_NATIVE") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("HILD_ERROR_NATIVE"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("HILD_ERROR_NATIVE") + 1) - (size_t)(const void *)("HILD_ERROR_NATIVE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "HILD_ERROR_NATIVE") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("HILD_ERROR_NATIVE") && ((size_t)(const void *)(("HILD_ERROR_NATIVE") + 1) - (size_t)(const void *)("HILD_ERROR_NATIVE") == 1) ? __builtin_strcmp (remaining, "HILD_ERROR_NATIVE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("HILD_ERROR_NATIVE"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("HILD_ERROR_NATIVE") && ((size_t)(const void *)(("HILD_ERROR_NATIVE") + 1) - (size_t)(const void *)("HILD_ERROR_NATIVE") == 1) && (__s2_len = __builtin_strlen ("HILD_ERROR_NATIVE"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "HILD_ERROR_NATIVE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("HILD_ERROR_NATIVE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("HILD_ERROR_NATIVE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("HILD_ERROR_NATIVE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("HILD_ERROR_NATIVE"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "HILD_ERROR_NATIVE")))); }))) { Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Istatusvalue_posix)); } break; case '\004': Perl_sv_setiv(my_perl, sv,(IV)((my_perl->Idebug) & 0x03FEEFFF)); break; case '\005': if (nextchar == '\0') { # 822 "mg.c" { int saved_errno = (*__errno_location ()); Perl_sv_setnv(my_perl, sv,(NV)(*__errno_location ())); Perl_sv_setpv(my_perl, sv,(*__errno_location ()) ? strerror_r((*__errno_location ()), (my_perl->Ireentrant_buffer)->_strerror_buffer, (my_perl->Ireentrant_buffer)->_strerror_size) : ""); ((*__errno_location ()) = saved_errno); } (void)( { if (((sv)->sv_flags & 0x00000400)) { STRLEN len = ((XPV*) (sv)->sv_any)->xpv_cur; char * const p = ((sv)->sv_u.svu_pv); while (len > 0 && ((p[len-1]) == ' ' || (p[len-1]) == '\t' || (p[len-1]) == '\n' || (p[len-1]) =='\r' || (p[len-1]) == '\f')) --len; (void)( { ; ; ; ; (((XPV*) (sv)->sv_any)->xpv_cur = (len)); } ); p[len] = '\0'; } } ); (({;}), (sv)->sv_flags |= (0x00000200|0x00002000)); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("NCODING") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("NCODING"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "NCODING") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("NCODING") && ((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) ? __builtin_strcmp (remaining, "NCODING") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("NCODING"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("NCODING") && ((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) && (__s2_len = __builtin_strlen ("NCODING"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "NCODING") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("NCODING"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("NCODING"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("NCODING"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("NCODING"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "NCODING")))); }))) Perl_sv_setsv_flags(my_perl, sv,(my_perl->Iencoding),2|512|1024); break; case '\006': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Imaxsysfd)); break; case '\010': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Ihints)); break; case '\011': Perl_sv_setpv(my_perl, sv,(my_perl->Iinplace)); break; case '\017': if (nextchar == '\0') { Perl_sv_setpv(my_perl, sv,(my_perl->Iosname)); (void)({ if((my_perl->Itainting)){Perl_sv_untaint(my_perl, sv);} }); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("PEN") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("PEN"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("PEN") + 1) - (size_t)(const void *)("PEN") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "PEN") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("PEN") && ((size_t)(const void *)(("PEN") + 1) - (size_t)(const void *)("PEN") == 1) ? __builtin_strcmp (remaining, "PEN") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("PEN"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("PEN") && ((size_t)(const void *)(("PEN") + 1) - (size_t)(const void *)("PEN") == 1) && (__s2_len = __builtin_strlen ("PEN"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "PEN") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("PEN"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("PEN"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("PEN"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("PEN"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "PEN")))); }))) { Perl_emulate_cop_io(my_perl, &(my_perl->Icompiling), sv); } break; case '\020': if (nextchar == '\0') { Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Iperldb)); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("REMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("REMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "REMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("REMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) && (__s2_len = __builtin_strlen ("REMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("REMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("REMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("REMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("REMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "REMATCH")))); }))) { goto do_prematch_fetch; } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("OSTMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("OSTMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "OSTMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("OSTMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) && (__s2_len = __builtin_strlen ("OSTMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "OSTMATCH")))); }))) { goto do_postmatch_fetch; } break; case '\023': if (nextchar == '\0') { if ((my_perl->Iparser) && (my_perl->Iparser)->lex_state != 11) (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), ((void)(((sv)->sv_flags & 0x02000000) && Perl_sv_backoff(my_perl, sv)))); else if ((my_perl->Iin_eval)) Perl_sv_setiv(my_perl, sv,(my_perl->Iin_eval) & ~(8)); else Perl_sv_setiv(my_perl, sv,0); } break; case '\024': if (nextchar == '\0') { Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Ibasetime)); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("AINT") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("AINT"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("AINT") + 1) - (size_t)(const void *)("AINT") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "AINT") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("AINT") && ((size_t)(const void *)(("AINT") + 1) - (size_t)(const void *)("AINT") == 1) ? __builtin_strcmp (remaining, "AINT") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("AINT"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("AINT") && ((size_t)(const void *)(("AINT") + 1) - (size_t)(const void *)("AINT") == 1) && (__s2_len = __builtin_strlen ("AINT"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "AINT") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("AINT"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("AINT"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("AINT"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("AINT"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "AINT")))); }))) Perl_sv_setiv(my_perl, sv,(my_perl->Itainting) ? ((my_perl->Itaint_warn) || (my_perl->Iunsafe) ? -1 : 1) : 0) ; break; case '\025': if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("NICODE") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("NICODE"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("NICODE") + 1) - (size_t)(const void *)("NICODE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "NICODE") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("NICODE") && ((size_t)(const void *)(("NICODE") + 1) - (size_t)(const void *)("NICODE") == 1) ? __builtin_strcmp (remaining, "NICODE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("NICODE"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("NICODE") && ((size_t)(const void *)(("NICODE") + 1) - (size_t)(const void *)("NICODE") == 1) && (__s2_len = __builtin_strlen ("NICODE"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "NICODE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("NICODE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("NICODE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("NICODE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("NICODE"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "NICODE")))); }))) Perl_sv_setuv(my_perl, sv,(UV) (my_perl->Iunicode)); else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("TF8LOCALE") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("TF8LOCALE"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("TF8LOCALE") + 1) - (size_t)(const void *)("TF8LOCALE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "TF8LOCALE") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("TF8LOCALE") && ((size_t)(const void *)(("TF8LOCALE") + 1) - (size_t)(const void *)("TF8LOCALE") == 1) ? __builtin_strcmp (remaining, "TF8LOCALE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("TF8LOCALE"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("TF8LOCALE") && ((size_t)(const void *)(("TF8LOCALE") + 1) - (size_t)(const void *)("TF8LOCALE") == 1) && (__s2_len = __builtin_strlen ("TF8LOCALE"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "TF8LOCALE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("TF8LOCALE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("TF8LOCALE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("TF8LOCALE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("TF8LOCALE"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "TF8LOCALE")))); }))) Perl_sv_setuv(my_perl, sv,(UV) (my_perl->Iutf8locale)); else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("TF8CACHE") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("TF8CACHE"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "TF8CACHE") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("TF8CACHE") && ((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) ? __builtin_strcmp (remaining, "TF8CACHE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("TF8CACHE"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("TF8CACHE") && ((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) && (__s2_len = __builtin_strlen ("TF8CACHE"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "TF8CACHE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "TF8CACHE")))); }))) Perl_sv_setiv(my_perl, sv,(IV) (my_perl->Iutf8cache)); break; case '\027': if (nextchar == '\0') Perl_sv_setiv(my_perl, sv,(IV)(((my_perl->Idowarn) & 1) ? (1) : (0))); else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("ARNING_BITS") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("ARNING_BITS"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "ARNING_BITS") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("ARNING_BITS") && ((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) ? __builtin_strcmp (remaining, "ARNING_BITS") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("ARNING_BITS"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("ARNING_BITS") && ((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) && (__s2_len = __builtin_strlen ("ARNING_BITS"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "ARNING_BITS") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "ARNING_BITS")))); }))) { if ((my_perl->Icompiling).cop_warnings == (((STRLEN*)0)+2)) { Perl_sv_setpvn(my_perl, sv,"\0\0\0\0\0\0\0\0\0\0\0\0",12) ; } else if ((my_perl->Icompiling).cop_warnings == ((void *)0)) { Perl_sv_setpvn(my_perl, sv,((my_perl->Idowarn) & 1) ? "\125\125\125\125\125\125\125\125\125\125\125\125" : "\0\0\0\0\0\0\0\0\0\0\0\0",12) ; } else if ((my_perl->Icompiling).cop_warnings == (((STRLEN*)0)+1)) { HV * const bits=Perl_get_hv(my_perl, "warnings::Bits",0); if (bits) { SV ** const bits_all = ((SV **)Perl_hv_common(my_perl, (bits), ((void *)0), ("" "all" ""), (sizeof("all")-1), 0, ((0)) ? (0x20 | 0x10) : 0x20, ((void *)0), 0)); if (bits_all) Perl_sv_setsv_flags(my_perl, sv,*bits_all,2|512|1024); } else { Perl_sv_setpvn(my_perl, sv,"\125\125\125\125\125\125\125\125\125\125\125\125",12) ; } } else { Perl_sv_setpvn(my_perl, sv,(char *) ((my_perl->Icompiling).cop_warnings + 1),*(my_perl->Icompiling).cop_warnings) ; } (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), (sv)->sv_flags |= (0x00000400|0x00004000)); } break; case '\015': if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("ATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("ATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "ATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("ATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) && (__s2_len = __builtin_strlen ("ATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("ATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("ATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("ATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("ATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "ATCH")))); }))) { case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '&': if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { paren = atoi(mg->mg_ptr); (*(*({ const REGEXP *const _rx_engine = (rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_FETCH)(my_perl, (rx),(paren),(sv)); break; } Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); } break; case '+': if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { if ((((struct regexp *)(rx)->sv_any)->lastparen)) { (*(*({ const REGEXP *const _rx_engine = (rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_FETCH)(my_perl, (rx),((((struct regexp *)(rx)->sv_any)->lastparen)),(sv)); break; } } Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); break; case '\016': if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { if ((((struct regexp *)(rx)->sv_any)->lastcloseparen)) { (*(*({ const REGEXP *const _rx_engine = (rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_FETCH)(my_perl, (rx),((((struct regexp *)(rx)->sv_any)->lastcloseparen)),(sv)); break; } } Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); break; case '`': do_prematch_fetch: if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { (*(*({ const REGEXP *const _rx_engine = (rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_FETCH)(my_perl, (rx),(-2),(sv)); break; } Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); break; case '\'': do_postmatch_fetch: if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { (*(*({ const REGEXP *const _rx_engine = (rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_FETCH)(my_perl, (rx),(-1),(sv)); break; } Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); break; case '.': if ((((my_perl->Ilast_in_gv)) && ((svtype)(((const SV*)(my_perl->Ilast_in_gv))->sv_flags & 0xff)) == SVt_PVGV && (((my_perl->Ilast_in_gv))->sv_u.svu_gp) ? ((((my_perl->Ilast_in_gv))->sv_u.svu_gp)->gp_io) : ((void *)0))) { Perl_sv_setiv(my_perl, sv,(IV)((XPVIO*) (((((my_perl->Ilast_in_gv))->sv_u.svu_gp)->gp_io))->sv_any)->xiv_u.xivu_iv); } break; case '?': { Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Istatusvalue)); } break; case '^': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) s = ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_top_name; if (s) Perl_sv_setpv(my_perl, sv,s); else { Perl_sv_setpv(my_perl, sv,((((XPVGV*)(((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_egv) ? ((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_egv) : (my_perl->Idefoutgv))->sv_any)->xiv_u.xivu_namehek))->hek_key); Perl_sv_catpvn_flags(my_perl, sv, ("" "_TOP" ""), (sizeof("_TOP")-1), 2); } break; case '~': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) s = ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_fmt_name; if (!s) s = ((((XPVGV*)(((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_egv) ? ((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_egv) : (my_perl->Idefoutgv))->sv_any)->xiv_u.xivu_namehek))->hek_key; Perl_sv_setpv(my_perl, sv,s); break; case '=': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) Perl_sv_setiv(my_perl, sv,(IV)((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_page_len); break; case '-': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) Perl_sv_setiv(my_perl, sv,(IV)((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_lines_left); break; case '%': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) Perl_sv_setiv(my_perl, sv,(IV)((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_page); break; case ':': break; case '/': break; case '[': Perl_sv_setiv(my_perl, sv,(IV)(((((my_perl->Icurcop))->cop_hints + 0) & 0x00000010) ? (((Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_flags & 0x00000100) ? ((XPVIV*) (Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0),2)) : 0)); break; case '|': if (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io)) Perl_sv_setiv(my_perl, sv,(IV)(((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_flags & 4) != 0); break; case '\\': if ((my_perl->Iors_sv)) Perl_sv_copypv(my_perl, sv,(my_perl->Iors_sv)); break; case '!': { int saved_errno = (*__errno_location ()); Perl_sv_setnv(my_perl, sv,(NV)(*__errno_location ())); Perl_sv_setpv(my_perl, sv,(*__errno_location ()) ? strerror_r((*__errno_location ()), (my_perl->Ireentrant_buffer)->_strerror_buffer, (my_perl->Ireentrant_buffer)->_strerror_size) : ""); if (((sv)->sv_flags & 0x00004000)) (({;}), ({;}), (sv)->sv_flags |= (0x00000400|0x00004000)); ((*__errno_location ()) = saved_errno); } (void)( { if (((sv)->sv_flags & 0x00000400)) { STRLEN len = ((XPV*) (sv)->sv_any)->xpv_cur; char * const p = ((sv)->sv_u.svu_pv); while (len > 0 && ((p[len-1]) == ' ' || (p[len-1]) == '\t' || (p[len-1]) == '\n' || (p[len-1]) =='\r' || (p[len-1]) == '\f')) --len; (void)( { ; ; ; ; (((XPV*) (sv)->sv_any)->xpv_cur = (len)); } ); p[len] = '\0'; } } ); (({;}), (sv)->sv_flags |= (0x00000200|0x00002000)); break; case '<': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Iuid)); break; case '>': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Ieuid)); break; case '(': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Igid)); goto add_groups; case ')': Perl_sv_setiv(my_perl, sv,(IV)(my_perl->Iegid)); add_groups: { gid_t *gary = ((void *)0); I32 i, num_groups = getgroups(0, gary); (gary = ((void)(sizeof(gid_t) > 1 && ((size_t)(num_groups)+0.0) > ((size_t)~0)/sizeof(gid_t) && (Perl_croak_nocontext("%s",(PL_memory_wrap)),0)), (gid_t*)(Perl_safesysmalloc((size_t)((num_groups)*sizeof(gid_t)))))); num_groups = getgroups(num_groups, gary); for (i = 0; i < num_groups; i++) Perl_sv_catpvf(my_perl, sv, " %""Ld", (IV)gary[i]); Perl_safesysfree(((void *)(gary))); } (void)(({;}), (sv)->sv_flags |= (0x00000100|0x00001000)); break; case '0': break; } return 0; } int Perl_magic_getuvar(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { struct ufuncs * const uf = (struct ufuncs *)mg->mg_ptr; ; ; if (uf && uf->uf_val) (*uf->uf_val)(my_perl, uf->uf_index, sv); return 0; } int Perl_magic_setenv(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); STRLEN len = 0, klen; const char *s = ((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) ? (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)) : ""; const char * const ptr = ((((int)(klen = (mg)->mg_len)) == -2) ? (((((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_flags & (0x00000400)) == 0x00000400 ? ((klen = ((XPV*) (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_any)->xpv_cur), ((const char*)(0 + (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, ((SV *)({ void *_p = ((mg)->mg_ptr); _p; })),&klen,2|32)) : (const char*)(mg)->mg_ptr); Perl_my_setenv(my_perl, ptr,s); ; ; # 1126 "mg.c" if ((my_perl->Itainting)) { (mg->mg_flags &= ~1); # 1156 "mg.c" if (s && klen == 4 && (!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (ptr) && __builtin_constant_p ("PATH") && (__s1_len = __builtin_strlen (ptr), __s2_len = __builtin_strlen ("PATH"), (!((size_t)(const void *)((ptr) + 1) - (size_t)(const void *)(ptr) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("PATH") + 1) - (size_t)(const void *)("PATH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (ptr, "PATH") : (__builtin_constant_p (ptr) && ((size_t)(const void *)((ptr) + 1) - (size_t)(const void *)(ptr) == 1) && (__s1_len = __builtin_strlen (ptr), __s1_len < 4) ? (__builtin_constant_p ("PATH") && ((size_t)(const void *)(("PATH") + 1) - (size_t)(const void *)("PATH") == 1) ? __builtin_strcmp (ptr, "PATH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("PATH"); register int __result = (((__const unsigned char *) (__const char *) (ptr))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (ptr))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (ptr))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (ptr))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("PATH") && ((size_t)(const void *)(("PATH") + 1) - (size_t)(const void *)("PATH") == 1) && (__s2_len = __builtin_strlen ("PATH"), __s2_len < 4) ? (__builtin_constant_p (ptr) && ((size_t)(const void *)((ptr) + 1) - (size_t)(const void *)(ptr) == 1) ? __builtin_strcmp (ptr, "PATH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (ptr); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("PATH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("PATH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("PATH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("PATH"))[3]); } } __result; }))) : __builtin_strcmp (ptr, "PATH")))); }))) { const char * const strend = s + len; while (s < strend) { char tmpbuf[256]; struct stat st; I32 i; const char path_sep = ':'; s = Perl_delimcpy(tmpbuf, tmpbuf + sizeof tmpbuf, s, strend, path_sep, &i); s++; if (i >= (I32)sizeof tmpbuf || *tmpbuf != '/' || (stat(((tmpbuf)),((&st))) == 0 && (st.st_mode & 2)) ) { (mg->mg_flags |= 1); return 0; } } } } return 0; } int Perl_magic_clearenv(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)sv); Perl_my_setenv(my_perl, (((((int)(mg)->mg_len)) == -2) ? (((((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, ((SV *)({ void *_p = ((mg)->mg_ptr); _p; })),0,2|32)) : (const char*)(mg)->mg_ptr),((void *)0)); return 0; } int Perl_magic_set_all_env(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)mg); if ((my_perl->Ilocalizing)) { HE* entry; Perl_my_clearenv(my_perl); Perl_hv_iterinit(my_perl, ((HV *)({ void *_p = (sv); _p; }))); while ((entry = Perl_hv_iternext_flags(my_perl, ((HV *)({ void *_p = (sv); _p; })),0))) { I32 keylen; Perl_my_setenv(my_perl, Perl_hv_iterkey(my_perl, entry,&keylen),(((Perl_hv_iterval(my_perl, ((HV *)({ void *_p = (sv); _p; })),entry))->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (Perl_hv_iterval(my_perl, ((HV *)({ void *_p = (sv); _p; })),entry))->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, Perl_hv_iterval(my_perl, ((HV *)({ void *_p = (sv); _p; })),entry),0,2|32))) ; } } return 0; } int Perl_magic_clear_all_env(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); ((void)mg); Perl_my_clearenv(my_perl); return 0; } static void restore_sigmask(register PerlInterpreter* my_perl __attribute__((unused)), SV *save_sv) { const sigset_t * const ossetp = (const sigset_t *) (((save_sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (save_sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, save_sv,0,2|32)); (void)sigprocmask(2, ossetp, ((void *)0)); } int Perl_magic_getsig(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); int i = (I16)mg->mg_private; ; ; if (!i) { mg->mg_private = i = Perl_whichsig(my_perl, (((((int)(mg)->mg_len)) == -2) ? (((((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, ((SV *)({ void *_p = ((mg)->mg_ptr); _p; })),0,2|32)) : (const char*)(mg)->mg_ptr)); } if (i > 0) { if((my_perl->Ipsig_ptr)[i]) Perl_sv_setsv_flags(my_perl, sv,(my_perl->Ipsig_ptr)[i],2|512|1024); else { Sighandler_t sigstate = Perl_rsignal_state(my_perl, i); # 1272 "mg.c" if(sigstate == (Sighandler_t) ((__sighandler_t) 1)) Perl_sv_setpvn(my_perl, sv, ("" "IGNORE" ""), (sizeof("IGNORE")-1)); else Perl_sv_setsv_flags(my_perl, sv,&(my_perl->Isv_undef),2|512|1024); (my_perl->Ipsig_ptr)[i] = (++((sv)->sv_refcnt),((SV *)({ void *_p = (sv); _p; }))); ((sv)->sv_flags &= ~0x00080000); } } return 0; } int Perl_magic_clearsig(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)sv); Perl_magic_setsig(my_perl, ((void *)0),mg); return Perl_sv_unmagic(my_perl, sv,mg->mg_type); } void Perl_csighandler(int sig, siginfo_t *sip __attribute__((unused)), void *uap __attribute__((unused))) { register PerlInterpreter* my_perl __attribute__((unused)) = ((PerlInterpreter *)pthread_getspecific(PL_thr_key)); # 1316 "mg.c" if ( sig == 4 || sig == 7 || sig == 11 || ((my_perl->Isignals) & 0x0001)) (*(my_perl->Isighandlerp))(sig, ((void *)0), ((void *)0)); else { if (!(my_perl->Ipsig_pend)) return; (my_perl->Ipsig_pend)[sig]++; if (++(my_perl->Isig_pending) >= 120) Perl_croak(my_perl, "Maximal count of pending signals (%lu) exceeded", (unsigned long)120); } } # 1371 "mg.c" void Perl_despatch_signals(register PerlInterpreter* my_perl __attribute__((unused))) { extern int Perl___notused __attribute__((unused)); int sig; (my_perl->Isig_pending) = 0; for (sig = 1; sig < 69; sig++) { if ((my_perl->Ipsig_pend)[sig]) { sigset_t set; sigemptyset(&(set)); sigaddset(&(set), sig); (my_perl->Ipsig_pend)[sig] = 0; sigprocmask(0, &(set), ((void *)0)); (*(my_perl->Isighandlerp))(sig, ((void *)0), ((void *)0)); sigprocmask(1, &(set), ((void *)0)); } } } int Perl_magic_setsig(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); I32 i; SV** svp = ((void *)0); SV* to_dec = ((void *)0); STRLEN len; sigset_t set, save; SV* save_sv; register const char *s = ((((int)(len = (mg)->mg_len)) == -2) ? (((((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_any)->xpv_cur), ((const char*)(0 + (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, ((SV *)({ void *_p = ((mg)->mg_ptr); _p; })),&len,2|32)) : (const char*)(mg)->mg_ptr); ; if (*s == '_') { if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (s) && __builtin_constant_p ("__DIE__") && (__s1_len = __builtin_strlen (s), __s2_len = __builtin_strlen ("__DIE__"), (!((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("__DIE__") + 1) - (size_t)(const void *)("__DIE__") == 1) || __s2_len >= 4)) ? __builtin_strcmp (s, "__DIE__") : (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) && (__s1_len = __builtin_strlen (s), __s1_len < 4) ? (__builtin_constant_p ("__DIE__") && ((size_t)(const void *)(("__DIE__") + 1) - (size_t)(const void *)("__DIE__") == 1) ? __builtin_strcmp (s, "__DIE__") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("__DIE__"); register int __result = (((__const unsigned char *) (__const char *) (s))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (s))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("__DIE__") && ((size_t)(const void *)(("__DIE__") + 1) - (size_t)(const void *)("__DIE__") == 1) && (__s2_len = __builtin_strlen ("__DIE__"), __s2_len < 4) ? (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) ? __builtin_strcmp (s, "__DIE__") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (s); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("__DIE__"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("__DIE__"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("__DIE__"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("__DIE__"))[3]); } } __result; }))) : __builtin_strcmp (s, "__DIE__")))); }))) svp = &(my_perl->Idiehook); else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (s) && __builtin_constant_p ("__WARN__") && (__s1_len = __builtin_strlen (s), __s2_len = __builtin_strlen ("__WARN__"), (!((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("__WARN__") + 1) - (size_t)(const void *)("__WARN__") == 1) || __s2_len >= 4)) ? __builtin_strcmp (s, "__WARN__") : (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) && (__s1_len = __builtin_strlen (s), __s1_len < 4) ? (__builtin_constant_p ("__WARN__") && ((size_t)(const void *)(("__WARN__") + 1) - (size_t)(const void *)("__WARN__") == 1) ? __builtin_strcmp (s, "__WARN__") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("__WARN__"); register int __result = (((__const unsigned char *) (__const char *) (s))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (s))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("__WARN__") && ((size_t)(const void *)(("__WARN__") + 1) - (size_t)(const void *)("__WARN__") == 1) && (__s2_len = __builtin_strlen ("__WARN__"), __s2_len < 4) ? (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) ? __builtin_strcmp (s, "__WARN__") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (s); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("__WARN__"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("__WARN__"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("__WARN__"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("__WARN__"))[3]); } } __result; }))) : __builtin_strcmp (s, "__WARN__")))); })) && (sv ? 1 : (my_perl->Iwarnhook) != (&PL_sv_placeholder))) { svp = &(my_perl->Iwarnhook); } else if (sv) Perl_croak(my_perl, "No such hook: %s", s); i = 0; if (svp && *svp) { if (*svp != (&PL_sv_placeholder)) to_dec = *svp; *svp = ((void *)0); } } else { i = (I16)mg->mg_private; if (!i) { i = Perl_whichsig(my_perl, s); mg->mg_private = (U16)i; } if (i <= 0) { if (sv) Perl_ck_warner(my_perl, (26 ), "No such signal: SIG%s", s); return 0; } sigemptyset(&set); sigaddset(&set,i); sigprocmask(0, &set, &save); Perl_push_scope(my_perl); save_sv = Perl_newSVpvn(my_perl, (char *)(&save),sizeof(sigset_t)); Perl_save_pushptr(my_perl, (void *)(((SV *)({ void *_p = (save_sv); _p; }))),15); Perl_save_destructor_x(my_perl, (DESTRUCTORFUNC_t)(restore_sigmask),(void*)(save_sv)); if ((my_perl->Isig_pending)) Perl_despatch_signals(my_perl); # 1464 "mg.c" to_dec = (my_perl->Ipsig_ptr)[i]; if (sv) { (my_perl->Ipsig_ptr)[i] = (++((sv)->sv_refcnt),((SV *)({ void *_p = (sv); _p; }))); ((sv)->sv_flags &= ~0x00080000); if (!(my_perl->Ipsig_name)[i]) { (my_perl->Ipsig_name)[i] = Perl_newSVpvn(my_perl, s,len); (((my_perl->Ipsig_name)[i])->sv_flags |= 0x08000000); } } else { ({ SV * const _sv = ((SV *)({ void *_p = ((my_perl->Ipsig_name)[i]); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); (my_perl->Ipsig_name)[i] = ((void *)0); (my_perl->Ipsig_ptr)[i] = ((void *)0); } } if (sv && (((((sv)->sv_flags & (0x00004000|0x00008000)) == 0x00008000) && (((svtype)((sv)->sv_flags & 0xff)) == SVt_PVGV || ((svtype)((sv)->sv_flags & 0xff)) == SVt_PVLV)) || ((sv)->sv_flags & 0x00000800))) { if (i) { (void)Perl_rsignal(my_perl, i,PL_csighandlerp); } else *svp = (++((sv)->sv_refcnt),((SV *)({ void *_p = (sv); _p; }))); } else { if (sv && ((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)))) { s = (((sv)->sv_flags & (0x00000400|(0x08000000|0x00000800|0x01000000))) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv)) : Perl_sv_pvn_force_flags(my_perl, sv,&len,2)); } else { sv = ((void *)0); } if (sv && (!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (s) && __builtin_constant_p ("IGNORE") && (__s1_len = __builtin_strlen (s), __s2_len = __builtin_strlen ("IGNORE"), (!((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("IGNORE") + 1) - (size_t)(const void *)("IGNORE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (s, "IGNORE") : (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) && (__s1_len = __builtin_strlen (s), __s1_len < 4) ? (__builtin_constant_p ("IGNORE") && ((size_t)(const void *)(("IGNORE") + 1) - (size_t)(const void *)("IGNORE") == 1) ? __builtin_strcmp (s, "IGNORE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("IGNORE"); register int __result = (((__const unsigned char *) (__const char *) (s))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (s))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("IGNORE") && ((size_t)(const void *)(("IGNORE") + 1) - (size_t)(const void *)("IGNORE") == 1) && (__s2_len = __builtin_strlen ("IGNORE"), __s2_len < 4) ? (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) ? __builtin_strcmp (s, "IGNORE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (s); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("IGNORE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("IGNORE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("IGNORE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("IGNORE"))[3]); } } __result; }))) : __builtin_strcmp (s, "IGNORE")))); }))) { if (i) { (void)Perl_rsignal(my_perl, i,(Sighandler_t) ((__sighandler_t) 1)); } } else if (!sv || (!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (s) && __builtin_constant_p ("DEFAULT") && (__s1_len = __builtin_strlen (s), __s2_len = __builtin_strlen ("DEFAULT"), (!((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("DEFAULT") + 1) - (size_t)(const void *)("DEFAULT") == 1) || __s2_len >= 4)) ? __builtin_strcmp (s, "DEFAULT") : (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) && (__s1_len = __builtin_strlen (s), __s1_len < 4) ? (__builtin_constant_p ("DEFAULT") && ((size_t)(const void *)(("DEFAULT") + 1) - (size_t)(const void *)("DEFAULT") == 1) ? __builtin_strcmp (s, "DEFAULT") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("DEFAULT"); register int __result = (((__const unsigned char *) (__const char *) (s))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (s))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (s))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("DEFAULT") && ((size_t)(const void *)(("DEFAULT") + 1) - (size_t)(const void *)("DEFAULT") == 1) && (__s2_len = __builtin_strlen ("DEFAULT"), __s2_len < 4) ? (__builtin_constant_p (s) && ((size_t)(const void *)((s) + 1) - (size_t)(const void *)(s) == 1) ? __builtin_strcmp (s, "DEFAULT") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (s); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("DEFAULT"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("DEFAULT"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("DEFAULT"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("DEFAULT"))[3]); } } __result; }))) : __builtin_strcmp (s, "DEFAULT")))); })) || !len) { if (i) { (void)Perl_rsignal(my_perl, i,(Sighandler_t) ((__sighandler_t) 0)); } } else { if (!(__extension__ (__builtin_constant_p (':') && !__builtin_constant_p (s) && (':') == '\0' ? (char *) __rawmemchr (s, ':') : __builtin_strchr (s, ':'))) && !(__extension__ (__builtin_constant_p ('\'') && !__builtin_constant_p (s) && ('\'') == '\0' ? (char *) __rawmemchr (s, '\'') : __builtin_strchr (s, '\'')))) Perl_sv_insert_flags(my_perl, sv, 0, 0, ("" "main::" ""), (sizeof("main::")-1), 2); if (i) (void)Perl_rsignal(my_perl, i,PL_csighandlerp); else *svp = (++((sv)->sv_refcnt),((SV *)({ void *_p = (sv); _p; }))); } } if(i) Perl_pop_scope(my_perl); ({ SV * const _sv = ((SV *)({ void *_p = (to_dec); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); return 0; } int Perl_magic_setisa(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); if ((my_perl->Idelaymagic) & 0x004 && mg->mg_type == 'i') return 0; return Perl_magic_clearisa(my_perl, ((void *)0),mg); } int Perl_magic_clearisa(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); HV* stash; ; if((my_perl->Idirty)) return 0; if (sv) Perl_av_clear(my_perl, ((AV *)({ void *_p = (sv); _p; }))); # 1579 "mg.c" stash = (((XPVGV*)(((svtype)((mg->mg_obj)->sv_flags & 0xff)) == SVt_PVGV ? (const GV *)mg->mg_obj : (const GV *)Perl_mg_find(my_perl, mg->mg_obj,'I')->mg_obj)->sv_any)->xnv_u.xgv_stash) ; if (stash) Perl_mro_isa_changed_in(my_perl, stash); return 0; } int Perl_magic_setamagic(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); ((void)mg); (my_perl->Iamagic_generation)++; return 0; } int Perl_magic_getnkeys(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { HV * const hv = ((HV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })); I32 i = 0; ; ; ((void)mg); if (hv) { (void) Perl_hv_iterinit(my_perl, hv); if (! ((((const SV *)hv)->sv_flags & 0x00800000) ? Perl_mg_find(my_perl, ((const SV *)hv),('P')) : ((void *)0))) i = ((((XPVHV*) (hv)->sv_any)->xiv_u.xivu_iv) - (((XPVMG*) (hv)->sv_any)->xmg_u.xmg_magic ? Perl_hv_placeholders_get(my_perl, (const HV *)hv) : 0)); else { while (Perl_hv_iternext_flags(my_perl, hv,0)) i++; } } Perl_sv_setiv(my_perl, sv,(IV)i); return 0; } int Perl_magic_setnkeys(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)mg); if (((XPVLV*) (sv)->sv_any)->xlv_targ) { Perl_hv_ksplit(my_perl, ((HV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })),(((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); } return 0; } static int S_magic_methcall(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg, const char *meth, I32 flags, int n, SV *val) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); ; ; ; (void)( { if (++(my_perl->Imarkstack_ptr) == (my_perl->Imarkstack_max)) Perl_markstack_grow(my_perl); *(my_perl->Imarkstack_ptr) = (I32)((sp) - (my_perl->Istack_base)); } ); (void)( { if ((my_perl->Istack_max) - sp < (int)(n)) { sp = Perl_stack_grow(my_perl, sp,sp,(int) (n)); } } ); (*++sp = (((mg)->mg_obj ? (mg)->mg_obj : Perl_sv_2mortal(my_perl, Perl_newRV(my_perl, sv))))); if (n > 1) { if (mg->mg_ptr) { if (mg->mg_len >= 0) (*++sp = (Perl_newSVpvn_flags(my_perl, (mg->mg_ptr),(mg->mg_len),0x00080000))); else if (mg->mg_len == -2) (*++sp = (((SV *)({ void *_p = (mg->mg_ptr); _p; })))); } else if (mg->mg_type == 'p') { Perl_sv_setiv(my_perl, (*++sp = (Perl_sv_newmortal(my_perl))),(IV)(mg->mg_len)); } } if (n > 2) { (*++sp = (val)); } (my_perl->Istack_sp) = sp; return Perl_call_method(my_perl, meth,flags); } static int S_magic_methpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg, const char *meth) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); ; ; ; Perl_push_scope(my_perl); Perl_save_int(my_perl, (int*)&(my_perl->Itmps_floor)), (my_perl->Itmps_floor) = (my_perl->Itmps_ix); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); if (S_magic_methcall(my_perl, sv,mg,meth,2,2,((void *)0))) { Perl_sv_setsv_flags(my_perl, sv,*(my_perl->Istack_sp)--,2|512|1024); } (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); if ((my_perl->Itmps_ix) > (my_perl->Itmps_floor)) Perl_free_tmps(my_perl); Perl_pop_scope(my_perl); return 0; } int Perl_magic_getpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; if (mg->mg_ptr) mg->mg_flags |= 4; S_magic_methpack(my_perl, sv,mg,"FETCH"); return 0; } int Perl_magic_setpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); ; ; Perl_push_scope(my_perl); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); S_magic_methcall(my_perl, sv,mg,"STORE",2|4,3,sv); (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); Perl_pop_scope(my_perl); return 0; } int Perl_magic_clearpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; return S_magic_methpack(my_perl, sv,mg,"DELETE"); } U32 Perl_magic_sizepack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); I32 retval = 0; ; ; Perl_push_scope(my_perl); Perl_save_int(my_perl, (int*)&(my_perl->Itmps_floor)), (my_perl->Itmps_floor) = (my_perl->Itmps_ix); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); if (S_magic_methcall(my_perl, sv,mg,"FETCHSIZE",2,2,((void *)0))) { sv = *(my_perl->Istack_sp)--; retval = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))-1; if (retval < -1) Perl_croak(my_perl, "FETCHSIZE returned a negative value"); } (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); if ((my_perl->Itmps_ix) > (my_perl->Itmps_floor)) Perl_free_tmps(my_perl); Perl_pop_scope(my_perl); return (U32) retval; } int Perl_magic_wipepack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); ; ; Perl_push_scope(my_perl); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); (void)( { if (++(my_perl->Imarkstack_ptr) == (my_perl->Imarkstack_max)) Perl_markstack_grow(my_perl); *(my_perl->Imarkstack_ptr) = (I32)((sp) - (my_perl->Istack_base)); } ); (void)( { (void)( { if ((my_perl->Istack_max) - sp < (int)(1)) { sp = Perl_stack_grow(my_perl, sp,sp,(int) (1)); } } ); (*++sp = (((mg)->mg_obj ? (mg)->mg_obj : Perl_sv_2mortal(my_perl, Perl_newRV(my_perl, sv))))); } ); (my_perl->Istack_sp) = sp; Perl_call_method(my_perl, "CLEAR",2|4); (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); Perl_pop_scope(my_perl); return 0; } int Perl_magic_nextpack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg, SV *key) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); const char * const meth = ((((svtype)((key)->sv_flags & 0xff)) == SVt_BIND) ? ((((key)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((key)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) ? "NEXTKEY" : "FIRSTKEY"; ; ; ; Perl_push_scope(my_perl); Perl_save_int(my_perl, (int*)&(my_perl->Itmps_floor)), (my_perl->Itmps_floor) = (my_perl->Itmps_ix); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); (void)( { if (++(my_perl->Imarkstack_ptr) == (my_perl->Imarkstack_max)) Perl_markstack_grow(my_perl); *(my_perl->Imarkstack_ptr) = (I32)((sp) - (my_perl->Istack_base)); } ); (void)( { if ((my_perl->Istack_max) - sp < (int)(2)) { sp = Perl_stack_grow(my_perl, sp,sp,(int) (2)); } } ); (*++sp = (((mg)->mg_obj ? (mg)->mg_obj : Perl_sv_2mortal(my_perl, Perl_newRV(my_perl, sv))))); if (((((svtype)((key)->sv_flags & 0xff)) == SVt_BIND) ? ((((key)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((key)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)))) (*++sp = (key)); (my_perl->Istack_sp) = sp; if (Perl_call_method(my_perl, meth,2)) Perl_sv_setsv_flags(my_perl, key,*(my_perl->Istack_sp)--,2|512|1024); (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); if ((my_perl->Itmps_ix) > (my_perl->Itmps_floor)) Perl_free_tmps(my_perl); Perl_pop_scope(my_perl); return 0; } int Perl_magic_existspack(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg) { ; ; return S_magic_methpack(my_perl, sv,mg,"EXISTS"); } SV * Perl_magic_scalarpack(register PerlInterpreter* my_perl __attribute__((unused)), HV *hv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV **sp = (my_perl->Istack_sp); SV *retval; SV * const tied = ((mg)->mg_obj ? (mg)->mg_obj : Perl_sv_2mortal(my_perl, Perl_newRV(my_perl, ((SV *)({ void *_p = (hv); _p; }))))); HV * const pkg = ((XPVMG*) ((const SV *)((tied)->sv_u.svu_rv))->sv_any)->xmg_stash; ; ; if (!Perl_gv_fetchmethod_autoload(my_perl, pkg,"SCALAR",(0))) { SV *key; if ((((hv)->sv_flags & 0x02000000) ? ((struct xpvhv_aux*)&(((hv)->sv_u.svu_hash)[((XPVHV*) (hv)->sv_any)->xhv_max+1]))->xhv_eiter : ((void *)0))) return &(my_perl->Isv_yes); key = Perl_sv_newmortal(my_perl); Perl_magic_nextpack(my_perl, ((SV *)({ void *_p = (hv); _p; })),mg,key); Perl_hv_eiter_set(my_perl, ((HV *)({ void *_p = (hv); _p; })), ((void *)0)); return ((((svtype)((key)->sv_flags & 0xff)) == SVt_BIND) ? ((((key)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((key)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) ? &(my_perl->Isv_yes) : &(my_perl->Isv_no); } Perl_push_scope(my_perl); (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 2; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); (void)( { if (++(my_perl->Imarkstack_ptr) == (my_perl->Imarkstack_max)) Perl_markstack_grow(my_perl); *(my_perl->Imarkstack_ptr) = (I32)((sp) - (my_perl->Istack_base)); } ); (void)( { if ((my_perl->Istack_max) - sp < (int)(1)) { sp = Perl_stack_grow(my_perl, sp,sp,(int) (1)); } } ); (*++sp = (tied)); (my_perl->Istack_sp) = sp; if (Perl_call_method(my_perl, "SCALAR",2)) retval = *(my_perl->Istack_sp)--; else retval = &(my_perl->Isv_undef); (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); Perl_pop_scope(my_perl); return retval; } int Perl_magic_setdbline(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); GV * const gv = (my_perl->IDBline); const I32 i = ( !sv ? 0 : ((sv)->sv_flags & 0x00000400) ? (({XPV *nxpv = (XPV*)(sv)->sv_any; nxpv && (nxpv->xpv_cur > 1 || (nxpv->xpv_cur && *(sv)->sv_u.svu_pv != '0')); }) ? 1 : 0) : ((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv != 0 : ((sv)->sv_flags & 0x00000200) ? ((XPVNV*) (sv)->sv_any)->xnv_u.xnv_nv != 0.0 : Perl_sv_2bool(my_perl, sv) ); SV ** const svp = Perl_av_fetch(my_perl, (((gv)->sv_u.svu_gp)->gp_av),atoi((((((int)(mg)->mg_len)) == -2) ? (((((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (((SV *)({ void *_p = ((mg)->mg_ptr); _p; })))->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, ((SV *)({ void *_p = ((mg)->mg_ptr); _p; })),0,2|32)) : (const char*)(mg)->mg_ptr)),(0)) ; ; ; if (svp && ((*svp)->sv_flags & 0x00001000)) { OP * const o = (OP*)(unsigned long)(((XPVIV*) (*svp)->sv_any)->xiv_u.xivu_iv); if (o) { if (i) o->op_flags |= 128; else o->op_flags &= ~128; } } return 0; } int Perl_magic_getarylen(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, const MAGIC *mg) { extern int Perl___notused __attribute__((unused)); AV * const obj = ((AV *)({ void *_p = (mg->mg_obj); _p; })); ; ; if (obj) { Perl_sv_setiv(my_perl, sv,(((((const SV *) (obj))->sv_flags & 0x00800000)) ? Perl_mg_size(my_perl, ((SV *)({ void *_p = (obj); _p; }))) : ((XPVAV*) (obj)->sv_any)->xav_fill) + (((((my_perl->Icurcop))->cop_hints + 0) & 0x00000010) ? (((Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_flags & 0x00000100) ? ((XPVIV*) (Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0),2)) : 0)); } else { (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), ((void)(((sv)->sv_flags & 0x02000000) && Perl_sv_backoff(my_perl, sv)))); } return 0; } int Perl_magic_setarylen(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); AV * const obj = ((AV *)({ void *_p = (mg->mg_obj); _p; })); ; ; if (obj) { Perl_av_fill(my_perl, obj,(((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)) - (((((my_perl->Icurcop))->cop_hints + 0) & 0x00000010) ? (((Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_flags & 0x00000100) ? ((XPVIV*) (Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0),2)) : 0)); } else { Perl_ck_warner(my_perl, (12 ), "Attempt to set length of freed array"); } return 0; } int Perl_magic_freearylen_p(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); if ((my_perl->Iin_clean_all)) return 0; mg = Perl_mg_find(my_perl, mg->mg_obj,'#'); if (mg) { mg->mg_obj = 0; } return 0; } int Perl_magic_getpos(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV* const lsv = ((XPVLV*) (sv)->sv_any)->xlv_targ; ; ; ((void)mg); if (((svtype)((lsv)->sv_flags & 0xff)) >= SVt_PVMG && ((XPVMG*) (lsv)->sv_any)->xmg_u.xmg_magic) { MAGIC * const found = Perl_mg_find(my_perl, lsv,'g'); if (found && found->mg_len >= 0) { I32 i = found->mg_len; if ((((lsv)->sv_flags & 0x20000000) && !((((my_perl->Icurcop))->cop_hints + 0) & 0x00000008))) Perl_sv_pos_b2u(my_perl, lsv,&i); Perl_sv_setiv(my_perl, sv,i + (((((my_perl->Icurcop))->cop_hints + 0) & 0x00000010) ? (((Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_flags & 0x00000100) ? ((XPVIV*) (Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0),2)) : 0)); return 0; } } (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), ((void)(((sv)->sv_flags & 0x02000000) && Perl_sv_backoff(my_perl, sv)))); return 0; } int Perl_magic_setpos(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV* const lsv = ((XPVLV*) (sv)->sv_any)->xlv_targ; ssize_t pos; STRLEN len; STRLEN ulen = 0; MAGIC* found; ; ; ((void)mg); if (((svtype)((lsv)->sv_flags & 0xff)) >= SVt_PVMG && ((XPVMG*) (lsv)->sv_any)->xmg_u.xmg_magic) found = Perl_mg_find(my_perl, lsv,'g'); else found = ((void *)0); if (!found) { if (!((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)))) return 0; found = Perl_sv_magicext(my_perl, lsv,((void *)0),'g',&PL_vtbl_mglob,((void *)0),0) ; } else if (!((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)))) { found->mg_len = -1; return 0; } len = ((lsv)->sv_flags & 0x00000400) ? ((XPV*) (lsv)->sv_any)->xpv_cur : Perl_sv_len(my_perl, lsv); pos = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)) - (((((my_perl->Icurcop))->cop_hints + 0) & 0x00000010) ? (((Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_flags & 0x00000100) ? ((XPVIV*) (Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0))->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, Perl_refcounted_he_fetch(my_perl, ((my_perl->Icurcop))->cop_hints_hash, 0, "$[", 2, 0, 0),2)) : 0); if ((((lsv)->sv_flags & 0x20000000) && !((((my_perl->Icurcop))->cop_hints + 0) & 0x00000008))) { ulen = Perl_sv_len_utf8(my_perl, lsv); if (ulen) len = ulen; } if (pos < 0) { pos += len; if (pos < 0) pos = 0; } else if (pos > (ssize_t)len) pos = len; if (ulen) { I32 p = pos; Perl_sv_pos_u2b(my_perl, lsv,&p,0); pos = p; } found->mg_len = pos; found->mg_flags &= ~1; return 0; } int Perl_magic_getsubstr(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { STRLEN len; SV * const lsv = ((XPVLV*) (sv)->sv_any)->xlv_targ; const char * const tmps = (((lsv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (lsv)->sv_any)->xpv_cur), ((const char*)(0 + (lsv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, lsv,&len,2|32)); STRLEN offs = ((XPVLV*) (sv)->sv_any)->xlv_targoff; STRLEN rem = ((XPVLV*) (sv)->sv_any)->xlv_targlen; ; ; ((void)mg); if (((lsv)->sv_flags & 0x20000000)) offs = Perl_sv_pos_u2b_flags(my_perl, lsv,offs,&rem,32); if (offs > len) offs = len; if (rem > len - offs) rem = len - offs; Perl_sv_setpvn(my_perl, sv,tmps + offs,rem); if (((lsv)->sv_flags & 0x20000000)) ((sv)->sv_flags |= (0x20000000)); return 0; } int Perl_magic_setsubstr(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); STRLEN len; const char * const tmps = (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)); SV * const lsv = ((XPVLV*) (sv)->sv_any)->xlv_targ; STRLEN lvoff = ((XPVLV*) (sv)->sv_any)->xlv_targoff; STRLEN lvlen = ((XPVLV*) (sv)->sv_any)->xlv_targlen; ; ; ((void)mg); if ((((sv)->sv_flags & 0x20000000) && !((((my_perl->Icurcop))->cop_hints + 0) & 0x00000008))) { Perl_sv_utf8_upgrade_flags_grow(my_perl, lsv,2,0); lvoff = Perl_sv_pos_u2b_flags(my_perl, lsv,lvoff,&lvlen,32); Perl_sv_insert_flags(my_perl, (lsv),(lvoff), (lvlen), (tmps), (len), 2); ((XPVLV*) (sv)->sv_any)->xlv_targlen = Perl_sv_len_utf8(my_perl, sv); ((lsv)->sv_flags |= (0x20000000)); } else if (lsv && ((lsv)->sv_flags & 0x20000000)) { const char *utf8; lvoff = Perl_sv_pos_u2b_flags(my_perl, lsv,lvoff,&lvlen,32); ((XPVLV*) (sv)->sv_any)->xlv_targlen = len; utf8 = (char*)Perl_bytes_to_utf8(my_perl, (U8*)tmps,&len); Perl_sv_insert_flags(my_perl, (lsv),(lvoff), (lvlen), (utf8), (len), 2); Perl_safesysfree(((void *)(utf8))); } else { Perl_sv_insert_flags(my_perl, (lsv),(lvoff), (lvlen), (tmps), (len), 2); ((XPVLV*) (sv)->sv_any)->xlv_targlen = len; } return 0; } int Perl_magic_gettaint(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); if (((my_perl->Ilocalizing) != 1) && (mg->mg_len & 1)) { (my_perl->Itainted) = (1); }; return 0; } int Perl_magic_settaint(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); if ((my_perl->Itainted)) mg->mg_len |= 1; else mg->mg_len &= ~1; return 0; } int Perl_magic_getvec(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { SV * const lsv = ((XPVLV*) (sv)->sv_any)->xlv_targ; ; ; ((void)mg); if (lsv) Perl_sv_setuv(my_perl, sv,Perl_do_vecget(my_perl, lsv,((XPVLV*) (sv)->sv_any)->xlv_targoff,((XPVLV*) (sv)->sv_any)->xlv_targlen)); else (({;}), ({;}), (sv)->sv_flags &= ~((0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)| 0x80000000|0x20000000), ((void)(((sv)->sv_flags & 0x02000000) && Perl_sv_backoff(my_perl, sv)))); return 0; } int Perl_magic_setvec(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)mg); Perl_do_vecset(my_perl, sv); return 0; } int Perl_magic_getdefelem(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV *targ = ((void *)0); ; ; if (((XPVLV*) (sv)->sv_any)->xlv_targlen) { if (mg->mg_obj) { SV * const ahv = ((XPVLV*) (sv)->sv_any)->xlv_targ; HE * const he = ((HE *) Perl_hv_common(my_perl, (((HV *)({ void *_p = (ahv); _p; }))),(mg->mg_obj),((void *)0),0,0,(((0)) ? 0x10 : 0),((void *)0),(0))); if (he) targ = (he)->he_valu.hent_val; } else { AV *const av = ((AV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })); if ((I32)((XPVLV*) (sv)->sv_any)->xlv_targoff <= (((((const SV *) (av))->sv_flags & 0x00800000)) ? Perl_mg_size(my_perl, ((SV *)({ void *_p = (av); _p; }))) : ((XPVAV*) (av)->sv_any)->xav_fill)) targ = ((av)->sv_u.svu_array)[((XPVLV*) (sv)->sv_any)->xlv_targoff]; } if (targ && (targ != &(my_perl->Isv_undef))) { ({ SV * const _sv = ((SV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); ((XPVLV*) (sv)->sv_any)->xlv_targ = (++((targ)->sv_refcnt),((SV *)({ void *_p = (targ); _p; }))); ((XPVLV*) (sv)->sv_any)->xlv_targlen = 0; ({ SV * const _sv = ((SV *)({ void *_p = (mg->mg_obj); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); mg->mg_obj = ((void *)0); mg->mg_flags &= ~2; } } else targ = ((XPVLV*) (sv)->sv_any)->xlv_targ; Perl_sv_setsv_flags(my_perl, sv,targ ? targ : &(my_perl->Isv_undef),2|512|1024); return 0; } int Perl_magic_setdefelem(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)mg); if (((XPVLV*) (sv)->sv_any)->xlv_targlen) Perl_vivify_defelem(my_perl, sv); if (((XPVLV*) (sv)->sv_any)->xlv_targ) { Perl_sv_setsv_flags(my_perl, ((XPVLV*) (sv)->sv_any)->xlv_targ,sv,2|512|1024); (void)( { if (((((XPVLV*) (sv)->sv_any)->xlv_targ)->sv_flags & 0x00400000)) Perl_mg_set(my_perl, ((XPVLV*) (sv)->sv_any)->xlv_targ); } ); } return 0; } void Perl_vivify_defelem(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv) { extern int Perl___notused __attribute__((unused)); MAGIC *mg; SV *value = ((void *)0); ; if (!((XPVLV*) (sv)->sv_any)->xlv_targlen || !(mg = Perl_mg_find(my_perl, sv,'y'))) return; if (mg->mg_obj) { SV * const ahv = ((XPVLV*) (sv)->sv_any)->xlv_targ; HE * const he = ((HE *) Perl_hv_common(my_perl, (((HV *)({ void *_p = (ahv); _p; }))),(mg->mg_obj),((void *)0),0,0,(((1)) ? 0x10 : 0),((void *)0),(0))); if (he) value = (he)->he_valu.hent_val; if (!value || value == &(my_perl->Isv_undef)) Perl_croak(my_perl, PL_no_helem_sv, ((void*)(mg->mg_obj))); } else { AV *const av = ((AV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })); if ((I32)((XPVLV*) (sv)->sv_any)->xlv_targlen < 0 && (I32)((XPVLV*) (sv)->sv_any)->xlv_targoff > (((((const SV *) (av))->sv_flags & 0x00800000)) ? Perl_mg_size(my_perl, ((SV *)({ void *_p = (av); _p; }))) : ((XPVAV*) (av)->sv_any)->xav_fill)) ((XPVLV*) (sv)->sv_any)->xlv_targ = ((void *)0); else { SV* const * const svp = Perl_av_fetch(my_perl, av,((XPVLV*) (sv)->sv_any)->xlv_targoff,(1)); if (!svp || (value = *svp) == &(my_perl->Isv_undef)) Perl_croak(my_perl, PL_no_aelem, (I32)((XPVLV*) (sv)->sv_any)->xlv_targoff); } } (void)( { if (value) (value)->sv_refcnt++; } ); ({ SV * const _sv = ((SV *)({ void *_p = (((XPVLV*) (sv)->sv_any)->xlv_targ); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); ((XPVLV*) (sv)->sv_any)->xlv_targ = value; ((XPVLV*) (sv)->sv_any)->xlv_targlen = 0; ({ SV * const _sv = ((SV *)({ void *_p = (mg->mg_obj); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); mg->mg_obj = ((void *)0); mg->mg_flags &= ~2; } int Perl_magic_killbackrefs(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; return Perl_sv_kill_backrefs(my_perl, sv, ((AV *)({ void *_p = (mg->mg_obj); _p; }))); } int Perl_magic_setmglob(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)my_perl); mg->mg_len = -1; if (!((((sv)->sv_flags & (0x00004000|0x00008000)) == 0x00008000) && (((svtype)((sv)->sv_flags & 0xff)) == SVt_PVGV || ((svtype)((sv)->sv_flags & 0xff)) == SVt_PVLV))) ((sv)->sv_flags &= ~0x00008000); return 0; } int Perl_magic_setuvar(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { const struct ufuncs * const uf = (struct ufuncs *)mg->mg_ptr; ; ; if (uf && uf->uf_set) (*uf->uf_set)(my_perl, uf->uf_index, sv); return 0; } int Perl_magic_setregexp(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { const char type = mg->mg_type; ; ; if (type == 'r') { } else if (type == 'B') { ((sv)->sv_flags &= ~0x80000000); ((sv)->sv_flags &= ~0x40000000); } else { ; ((sv)->sv_flags &= ~0x80000000); } return Perl_sv_unmagic(my_perl, sv,type); } int Perl_magic_setcollxfrm(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)my_perl); ((void)sv); if (mg->mg_ptr) { Perl_safesysfree(((void *)(mg->mg_ptr))); mg->mg_ptr = ((void *)0); mg->mg_len = -1; } return 0; } int Perl_magic_setutf8(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)my_perl); ((void)sv); Perl_safesysfree(((void *)(mg->mg_ptr))); mg->mg_ptr = ((void *)0); mg->mg_len = -1; return 0; } int Perl_magic_set(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); register const char *s; register I32 paren; register const REGEXP * rx; const char * const remaining = mg->mg_ptr + 1; I32 i; STRLEN len; ; ; switch (*mg->mg_ptr) { case '\015': if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("ATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("ATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "ATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("ATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("ATCH") && ((size_t)(const void *)(("ATCH") + 1) - (size_t)(const void *)("ATCH") == 1) && (__s2_len = __builtin_strlen ("ATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "ATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("ATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("ATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("ATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("ATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "ATCH")))); }))) goto do_match; case '`': do_prematch: paren = -2; goto setparen; case '\'': do_postmatch: paren = -1; goto setparen; case '&': do_match: paren = 0; goto setparen; case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': paren = atoi(mg->mg_ptr); setparen: if ((my_perl->Icurpm) && (rx = (((svtype)(((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset])->sv_flags & 0xff)) == SVt_REGEXP ? (REGEXP*)((my_perl->Iregex_pad)[((my_perl->Icurpm))->op_pmoffset]) : ((void *)0)))) { (*(*({ const REGEXP *const _rx_engine = ((REGEXP * const)rx); ; &(_rx_engine)->sv_any->engine; }))->numbered_buff_STORE)(my_perl, ((REGEXP * const)rx),(paren),(sv)); break; } else { if (!(my_perl->Ilocalizing)) { Perl_croak(my_perl, "%s", PL_no_modify); } } case '\001': Perl_sv_setsv_flags(my_perl, (my_perl->Ibodytarget),sv,2|512|1024); break; case '\003': (my_perl->Iminus_c) = (char)(((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); break; case '\004': (my_perl->Idebug) = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))) | 0x80000000; break; case '\005': if (*(mg->mg_ptr+1) == '\0') { # 2362 "mg.c" ((*__errno_location ()) = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)))); } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (mg->mg_ptr+1) && __builtin_constant_p ("NCODING") && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s2_len = __builtin_strlen ("NCODING"), (!((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) || __s2_len >= 4)) ? __builtin_strcmp (mg->mg_ptr+1, "NCODING") : (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s1_len < 4) ? (__builtin_constant_p ("NCODING") && ((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) ? __builtin_strcmp (mg->mg_ptr+1, "NCODING") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("NCODING"); register int __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("NCODING") && ((size_t)(const void *)(("NCODING") + 1) - (size_t)(const void *)("NCODING") == 1) && (__s2_len = __builtin_strlen ("NCODING"), __s2_len < 4) ? (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) ? __builtin_strcmp (mg->mg_ptr+1, "NCODING") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (mg->mg_ptr+1); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("NCODING"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("NCODING"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("NCODING"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("NCODING"))[3]); } } __result; }))) : __builtin_strcmp (mg->mg_ptr+1, "NCODING")))); }))) { ({ SV * const _sv = ((SV *)({ void *_p = ((my_perl->Iencoding)); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); if (((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) || ((sv)->sv_flags & 0x00200000)) { (my_perl->Iencoding) = Perl_newSVsv(my_perl, sv); } else { (my_perl->Iencoding) = ((void *)0); } } break; case '\006': (my_perl->Imaxsysfd) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); break; case '\010': (my_perl->Ihints) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); break; case '\011': Perl_safesysfree(((void *)((my_perl->Iinplace)))); (my_perl->Iinplace) = ((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) ? Perl_savesvpv(my_perl, sv) : ((void *)0); break; case '\017': if (*(mg->mg_ptr+1) == '\0') { Perl_safesysfree(((void *)((my_perl->Iosname)))); (my_perl->Iosname) = ((void *)0); if (((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)))) { if ((my_perl->Itainting)) { Perl_taint_proper(my_perl, ((void *)0),"assigning to $^O"); }; (my_perl->Iosname) = Perl_savesvpv(my_perl, sv); } } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (mg->mg_ptr) && __builtin_constant_p ("\017PEN") && (__s1_len = __builtin_strlen (mg->mg_ptr), __s2_len = __builtin_strlen ("\017PEN"), (!((size_t)(const void *)((mg->mg_ptr) + 1) - (size_t)(const void *)(mg->mg_ptr) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("\017PEN") + 1) - (size_t)(const void *)("\017PEN") == 1) || __s2_len >= 4)) ? __builtin_strcmp (mg->mg_ptr, "\017PEN") : (__builtin_constant_p (mg->mg_ptr) && ((size_t)(const void *)((mg->mg_ptr) + 1) - (size_t)(const void *)(mg->mg_ptr) == 1) && (__s1_len = __builtin_strlen (mg->mg_ptr), __s1_len < 4) ? (__builtin_constant_p ("\017PEN") && ((size_t)(const void *)(("\017PEN") + 1) - (size_t)(const void *)("\017PEN") == 1) ? __builtin_strcmp (mg->mg_ptr, "\017PEN") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("\017PEN"); register int __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("\017PEN") && ((size_t)(const void *)(("\017PEN") + 1) - (size_t)(const void *)("\017PEN") == 1) && (__s2_len = __builtin_strlen ("\017PEN"), __s2_len < 4) ? (__builtin_constant_p (mg->mg_ptr) && ((size_t)(const void *)((mg->mg_ptr) + 1) - (size_t)(const void *)(mg->mg_ptr) == 1) ? __builtin_strcmp (mg->mg_ptr, "\017PEN") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (mg->mg_ptr); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("\017PEN"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("\017PEN"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("\017PEN"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("\017PEN"))[3]); } } __result; }))) : __builtin_strcmp (mg->mg_ptr, "\017PEN")))); }))) { STRLEN len; const char *const start = (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, sv,&len,2)); const char *out = (const char*)memchr(start, '\0', len); SV *tmp; (my_perl->Icompiling).cop_hints |= 0x00040000 | 0x00080000; (my_perl->Ihints) |= 0x00040000 | 0x00080000; tmp = out ? Perl_newSVpvn_flags(my_perl, out + 1,start + len - out - 1,((sv)->sv_flags & 0x20000000)) : Perl_newSVpvn_flags(my_perl, ("" "" ""), (sizeof("")-1), ((sv)->sv_flags & 0x20000000)); (void)((SV **)Perl_hv_common(my_perl, ((((((my_perl->Ihintgv))->sv_u.svu_gp))->gp_hv)), ((void *)0), ("" "open>" ""), (sizeof("open>")-1), 0, (0x04|0x20), (tmp), 0)); Perl_mg_set(my_perl, tmp); tmp = Perl_newSVpvn_flags(my_perl, start,out ? (STRLEN)(out - start) : len,((sv)->sv_flags & 0x20000000)) ; (void)((SV **)Perl_hv_common(my_perl, ((((((my_perl->Ihintgv))->sv_u.svu_gp))->gp_hv)), ((void *)0), ("" "open<" ""), (sizeof("open<")-1), 0, (0x04|0x20), (tmp), 0)); Perl_mg_set(my_perl, tmp); } break; case '\020': if (*remaining == '\0') { (my_perl->Iperldb) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); if ((my_perl->Iperldb) && !(my_perl->IDBsingle)) Perl_init_debugger(my_perl); break; } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("REMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("REMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "REMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("REMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("REMATCH") && ((size_t)(const void *)(("REMATCH") + 1) - (size_t)(const void *)("REMATCH") == 1) && (__s2_len = __builtin_strlen ("REMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "REMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("REMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("REMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("REMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("REMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "REMATCH")))); }))) { goto do_prematch; } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (remaining) && __builtin_constant_p ("OSTMATCH") && (__s1_len = __builtin_strlen (remaining), __s2_len = __builtin_strlen ("OSTMATCH"), (!((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) || __s2_len >= 4)) ? __builtin_strcmp (remaining, "OSTMATCH") : (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) && (__s1_len = __builtin_strlen (remaining), __s1_len < 4) ? (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("OSTMATCH"); register int __result = (((__const unsigned char *) (__const char *) (remaining))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (remaining))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (remaining))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("OSTMATCH") && ((size_t)(const void *)(("OSTMATCH") + 1) - (size_t)(const void *)("OSTMATCH") == 1) && (__s2_len = __builtin_strlen ("OSTMATCH"), __s2_len < 4) ? (__builtin_constant_p (remaining) && ((size_t)(const void *)((remaining) + 1) - (size_t)(const void *)(remaining) == 1) ? __builtin_strcmp (remaining, "OSTMATCH") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (remaining); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("OSTMATCH"))[3]); } } __result; }))) : __builtin_strcmp (remaining, "OSTMATCH")))); }))) { goto do_postmatch; } case '\024': (my_perl->Ibasetime) = (time_t)(((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); break; case '\025': if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (mg->mg_ptr+1) && __builtin_constant_p ("TF8CACHE") && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s2_len = __builtin_strlen ("TF8CACHE"), (!((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) || __s2_len >= 4)) ? __builtin_strcmp (mg->mg_ptr+1, "TF8CACHE") : (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s1_len < 4) ? (__builtin_constant_p ("TF8CACHE") && ((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) ? __builtin_strcmp (mg->mg_ptr+1, "TF8CACHE") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("TF8CACHE"); register int __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("TF8CACHE") && ((size_t)(const void *)(("TF8CACHE") + 1) - (size_t)(const void *)("TF8CACHE") == 1) && (__s2_len = __builtin_strlen ("TF8CACHE"), __s2_len < 4) ? (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) ? __builtin_strcmp (mg->mg_ptr+1, "TF8CACHE") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (mg->mg_ptr+1); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("TF8CACHE"))[3]); } } __result; }))) : __builtin_strcmp (mg->mg_ptr+1, "TF8CACHE")))); }))) { (my_perl->Iutf8cache) = (signed char) Perl_sv_2iv_flags(my_perl, sv,2); } break; case '\027': if (*(mg->mg_ptr+1) == '\0') { if ( ! ((my_perl->Idowarn) & (2|4))) { i = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); (my_perl->Idowarn) = ((my_perl->Idowarn) & ~1) | (i ? 1 : 0) ; } } else if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (mg->mg_ptr+1) && __builtin_constant_p ("ARNING_BITS") && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s2_len = __builtin_strlen ("ARNING_BITS"), (!((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) || __s2_len >= 4)) ? __builtin_strcmp (mg->mg_ptr+1, "ARNING_BITS") : (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) && (__s1_len = __builtin_strlen (mg->mg_ptr+1), __s1_len < 4) ? (__builtin_constant_p ("ARNING_BITS") && ((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) ? __builtin_strcmp (mg->mg_ptr+1, "ARNING_BITS") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("ARNING_BITS"); register int __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (mg->mg_ptr+1))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("ARNING_BITS") && ((size_t)(const void *)(("ARNING_BITS") + 1) - (size_t)(const void *)("ARNING_BITS") == 1) && (__s2_len = __builtin_strlen ("ARNING_BITS"), __s2_len < 4) ? (__builtin_constant_p (mg->mg_ptr+1) && ((size_t)(const void *)((mg->mg_ptr+1) + 1) - (size_t)(const void *)(mg->mg_ptr+1) == 1) ? __builtin_strcmp (mg->mg_ptr+1, "ARNING_BITS") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (mg->mg_ptr+1); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("ARNING_BITS"))[3]); } } __result; }))) : __builtin_strcmp (mg->mg_ptr+1, "ARNING_BITS")))); }))) { if ( ! ((my_perl->Idowarn) & (2|4))) { if (!((sv)->sv_flags & 0x00000400) && (my_perl->Ilocalizing)) { Perl_sv_setpvn(my_perl, sv,"\0\0\0\0\0\0\0\0\0\0\0\0",12); (my_perl->Icompiling).cop_warnings = (((STRLEN*)0)+2); break; } { STRLEN len, i; int accumulate = 0 ; int any_fatals = 0 ; const char * const ptr = (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)) ; for (i = 0 ; i < len ; ++i) { accumulate |= ptr[i] ; any_fatals |= (ptr[i] & 0xAA) ; } if (!accumulate) { if (!(((my_perl->Icompiling).cop_warnings) == ((void *)0) || ((my_perl->Icompiling).cop_warnings) == (((STRLEN*)0)+1) || ((my_perl->Icompiling).cop_warnings) == (((STRLEN*)0)+2))) free(((my_perl->Icompiling).cop_warnings)); (my_perl->Icompiling).cop_warnings = (((STRLEN*)0)+2); } else if (((((U8 *)(((STRLEN *)(((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((const char*)(0 + (sv)->sv_u.svu_pv)) : Perl_sv_2pv_flags(my_perl, sv,0,2|32))) - 1 + 1))[((2*(0)) / 8)] & (1 << ((2*(0)) % 8)))) && !any_fatals) { if (!(((my_perl->Icompiling).cop_warnings) == ((void *)0) || ((my_perl->Icompiling).cop_warnings) == (((STRLEN*)0)+1) || ((my_perl->Icompiling).cop_warnings) == (((STRLEN*)0)+2))) free(((my_perl->Icompiling).cop_warnings)); (my_perl->Icompiling).cop_warnings = (((STRLEN*)0)+1); (my_perl->Idowarn) |= 8 ; } else { STRLEN len; const char *const p = (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)); (my_perl->Icompiling).cop_warnings = Perl_new_warnings_bitfield(my_perl, (my_perl->Icompiling).cop_warnings, p, len); if (((((U8 *)((my_perl->Icompiling).cop_warnings + 1))[((2*(14)) / 8)] & (1 << ((2*(14)) % 8))))) (my_perl->Idowarn) |= 8 ; } } } } break; case '.': if ((my_perl->Ilocalizing)) { if ((my_perl->Ilocalizing) == 1) Perl_save_sptr(my_perl, (SV**)&((my_perl->Ilast_in_gv))); } else if (((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) && (((my_perl->Ilast_in_gv)) && ((svtype)(((const SV*)(my_perl->Ilast_in_gv))->sv_flags & 0xff)) == SVt_PVGV && (((my_perl->Ilast_in_gv))->sv_u.svu_gp) ? ((((my_perl->Ilast_in_gv))->sv_u.svu_gp)->gp_io) : ((void *)0))) ((XPVIO*) (((((my_perl->Ilast_in_gv))->sv_u.svu_gp)->gp_io))->sv_any)->xiv_u.xivu_iv = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); break; case '^': Perl_safesysfree(((void *)(((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_top_name))); s = ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_top_name = Perl_savesvpv(my_perl, sv); ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_top_gv = Perl_gv_fetchsv(my_perl, sv,0x01,SVt_PVIO); break; case '~': Perl_safesysfree(((void *)(((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_fmt_name))); s = ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_fmt_name = Perl_savesvpv(my_perl, sv); ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_fmt_gv = Perl_gv_fetchsv(my_perl, sv,0x01,SVt_PVIO); break; case '=': ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_page_len = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); break; case '-': ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_lines_left = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); if (((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_lines_left < 0L) ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_lines_left = 0L; break; case '%': ((XPVIO*) (((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_page = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); break; case '|': { IO * const io = ((((my_perl->Idefoutgv))->sv_u.svu_gp)->gp_io); if(!io) break; if (((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))) == 0) ((XPVIO*) (io)->sv_any)->xio_flags &= ~4; else { if (!(((XPVIO*) (io)->sv_any)->xio_flags & 4)) { PerlIO *ofp = ((XPVIO*) (io)->sv_any)->xio_ofp; if (ofp) (void)Perl_PerlIO_flush(my_perl, ofp); ((XPVIO*) (io)->sv_any)->xio_flags |= 4; } } } break; case '/': ({ SV * const _sv = ((SV *)({ void *_p = ((my_perl->Irs)); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); (my_perl->Irs) = Perl_newSVsv(my_perl, sv); break; case '\\': ({ SV * const _sv = ((SV *)({ void *_p = ((my_perl->Iors_sv)); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); if (((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) || ((sv)->sv_flags & 0x00200000)) { (my_perl->Iors_sv) = Perl_newSVsv(my_perl, sv); } else { (my_perl->Iors_sv) = ((void *)0); } break; case '[': (void)( { if ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)) || ((&(my_perl->Icompiling))->cop_hints & 0x00000010)) { (&(my_perl->Icompiling))->cop_hints |= 0x00000010; if ((&(my_perl->Icompiling)) == &(my_perl->Icompiling)) { SV *val = Perl_newSViv(my_perl, (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); (void)((SV **)Perl_hv_common(my_perl, ((((((my_perl->Ihintgv))->sv_u.svu_gp))->gp_hv)), ((void *)0), ("" "$[" ""), (sizeof("$[")-1), 0, (0x04|0x20), (val), 0)); Perl_mg_set(my_perl, val); (my_perl->Ihints) |= 0x00000010; } else { (&(my_perl->Icompiling))->cop_hints_hash = Perl_refcounted_he_new(my_perl, (&(my_perl->Icompiling))->cop_hints_hash, Perl_newSVpvn_flags(my_perl, ("" "$[" ""), (sizeof("$[")-1), 0x00080000), Perl_sv_2mortal(my_perl, Perl_newSViv(my_perl, (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))))); } } } ); break; case '?': # 2572 "mg.c" (void)( { (my_perl->Istatusvalue) = ((((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2))); if ((my_perl->Istatusvalue) != -1) (my_perl->Istatusvalue) &= 0xFFFF; } ); break; case '!': { ((*__errno_location ()) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : ((((svtype)((sv)->sv_flags & 0xff)) == SVt_BIND) ? ((((sv)->sv_u.svu_rv))->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000)) : ((sv)->sv_flags & (0x00000100|0x00000200|0x00000400|0x00000800| 0x00001000|0x00002000|0x00004000|0x00008000))) ? Perl_sv_2iv_flags(my_perl, sv,2) : 0)) ; } break; case '<': (my_perl->Iuid) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); if ((my_perl->Idelaymagic)) { (my_perl->Idelaymagic) |= 0x001; break; } (void)setreuid((uid_t)(my_perl->Iuid), (uid_t)-1); # 2614 "mg.c" (my_perl->Iuid) = getuid(); (my_perl->Itainting) |= ((my_perl->Iuid) && ((my_perl->Ieuid) != (my_perl->Iuid) || (my_perl->Iegid) != (my_perl->Igid))); break; case '>': (my_perl->Ieuid) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); if ((my_perl->Idelaymagic)) { (my_perl->Idelaymagic) |= 0x002; break; } (void)seteuid((uid_t)(my_perl->Ieuid)); # 2641 "mg.c" (my_perl->Ieuid) = geteuid(); (my_perl->Itainting) |= ((my_perl->Iuid) && ((my_perl->Ieuid) != (my_perl->Iuid) || (my_perl->Iegid) != (my_perl->Igid))); break; case '(': (my_perl->Igid) = (((sv)->sv_flags & 0x00000100) ? ((XPVIV*) (sv)->sv_any)->xiv_u.xivu_iv : Perl_sv_2iv_flags(my_perl, sv,2)); if ((my_perl->Idelaymagic)) { (my_perl->Idelaymagic) |= 0x010; break; } (void)setregid((gid_t)(my_perl->Igid), (gid_t)-1); # 2668 "mg.c" (my_perl->Igid) = getgid(); (my_perl->Itainting) |= ((my_perl->Iuid) && ((my_perl->Ieuid) != (my_perl->Iuid) || (my_perl->Iegid) != (my_perl->Igid))); break; case ')': { const char *p = (((sv)->sv_flags & (0x00000400)) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((const char*)(0 + (sv)->sv_u.svu_pv))) : (const char*) Perl_sv_2pv_flags(my_perl, sv,&len,2|32)); gid_t *gary = ((void *)0); int maxgrp = sysconf(_SC_NGROUPS_MAX); if (maxgrp < 0) maxgrp = 65536; while (((*p) == ' ' || (*p) == '\t' || (*p) == '\n' || (*p) =='\r' || (*p) == '\f')) ++p; (my_perl->Iegid) = atoll(p); for (i = 0; i < maxgrp; ++i) { while (*p && !((*p) == ' ' || (*p) == '\t' || (*p) == '\n' || (*p) =='\r' || (*p) == '\f')) ++p; while (((*p) == ' ' || (*p) == '\t' || (*p) == '\n' || (*p) =='\r' || (*p) == '\f')) ++p; if (!*p) break; if(!gary) (gary = ((void)(sizeof(gid_t) > 1 && ((size_t)(i + 1)+0.0) > ((size_t)~0)/sizeof(gid_t) && (Perl_croak_nocontext("%s",(PL_memory_wrap)),0)), (gid_t*)(Perl_safesysmalloc((size_t)((i + 1)*sizeof(gid_t)))))); else (gary = ((void)(sizeof(gid_t) > 1 && ((size_t)(i + 1)+0.0) > ((size_t)~0)/sizeof(gid_t) && (Perl_croak_nocontext("%s",(PL_memory_wrap)),0)), (gid_t*)(Perl_safesysrealloc((void *)(gary),(size_t)((i + 1)*sizeof(gid_t)))))); gary[i] = atoll(p); } if (i) (void)setgroups(i, gary); Perl_safesysfree(((void *)(gary))); } if ((my_perl->Idelaymagic)) { (my_perl->Idelaymagic) |= 0x020; break; } (void)setegid((gid_t)(my_perl->Iegid)); # 2730 "mg.c" (my_perl->Iegid) = getegid(); (my_perl->Itainting) |= ((my_perl->Iuid) && ((my_perl->Ieuid) != (my_perl->Iuid) || (my_perl->Iegid) != (my_perl->Igid))); break; case ':': (my_perl->Ichopset) = (((sv)->sv_flags & (0x00000400|(0x08000000|0x00000800|0x01000000))) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv)) : Perl_sv_pvn_force_flags(my_perl, sv,&len,2)); break; case '0': (void)( { int _eC_; if ((_eC_ = pthread_mutex_lock((&PL_dollarzero_mutex)))) Perl_croak_nocontext("panic: MUTEX_LOCK (%d) [%s:%d]", _eC_, "mg.c", 2737); } ); # 2769 "mg.c" if ((my_perl->Iorigalen) > 1) { s = (((sv)->sv_flags & (0x00000400|(0x08000000|0x00000800|0x01000000))) == 0x00000400 ? ((len = ((XPV*) (sv)->sv_any)->xpv_cur), ((sv)->sv_u.svu_pv)) : Perl_sv_pvn_force_flags(my_perl, sv,&len,2)); if (len >= (STRLEN)(my_perl->Iorigalen)-1) { ((void)(sizeof(char) > 1 && ((size_t)((my_perl->Iorigalen)-1)+0.0) > ((size_t)~0)/sizeof(char) && (Perl_croak_nocontext("%s",(PL_memory_wrap)),0)), (void)memcpy((char*)((my_perl->Iorigargv)[0]),(const char*)(s), ((my_perl->Iorigalen)-1) * sizeof(char))); } else { # 2787 "mg.c" const int pad = ' '; ((void)(sizeof(char) > 1 && ((size_t)(len)+0.0) > ((size_t)~0)/sizeof(char) && (Perl_croak_nocontext("%s",(PL_memory_wrap)),0)), (void)memcpy((char*)((my_perl->Iorigargv)[0]),(const char*)(s), (len) * sizeof(char))); (my_perl->Iorigargv)[0][len] = 0; memset((my_perl->Iorigargv)[0] + len + 1, pad, (my_perl->Iorigalen) - len - 1); } (my_perl->Iorigargv)[0][(my_perl->Iorigalen)-1] = 0; for (i = 1; i < (my_perl->Iorigargc); i++) (my_perl->Iorigargv)[i] = 0; } (void)( { int _eC_; if ((_eC_ = pthread_mutex_unlock((&PL_dollarzero_mutex)))) Perl_croak_nocontext("panic: MUTEX_UNLOCK (%d) [%s:%d]", _eC_, "mg.c", 2799); } ); break; } return 0; } I32 Perl_whichsig(register PerlInterpreter* my_perl __attribute__((unused)), const char *sig) { register char* const* sigv; ; ((void)my_perl); for (sigv = (char* const*)PL_sig_name; *sigv; sigv++) if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (sig) && __builtin_constant_p (*sigv) && (__s1_len = __builtin_strlen (sig), __s2_len = __builtin_strlen (*sigv), (!((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) || __s1_len >= 4) && (!((size_t)(const void *)((*sigv) + 1) - (size_t)(const void *)(*sigv) == 1) || __s2_len >= 4)) ? __builtin_strcmp (sig, *sigv) : (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) && (__s1_len = __builtin_strlen (sig), __s1_len < 4) ? (__builtin_constant_p (*sigv) && ((size_t)(const void *)((*sigv) + 1) - (size_t)(const void *)(*sigv) == 1) ? __builtin_strcmp (sig, *sigv) : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) (*sigv); register int __result = (((__const unsigned char *) (__const char *) (sig))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (sig))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p (*sigv) && ((size_t)(const void *)((*sigv) + 1) - (size_t)(const void *)(*sigv) == 1) && (__s2_len = __builtin_strlen (*sigv), __s2_len < 4) ? (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) ? __builtin_strcmp (sig, *sigv) : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (sig); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) (*sigv))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) (*sigv))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) (*sigv))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) (*sigv))[3]); } } __result; }))) : __builtin_strcmp (sig, *sigv)))); }))) return PL_sig_num[sigv - (char* const*)PL_sig_name]; if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (sig) && __builtin_constant_p ("CHLD") && (__s1_len = __builtin_strlen (sig), __s2_len = __builtin_strlen ("CHLD"), (!((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("CHLD") + 1) - (size_t)(const void *)("CHLD") == 1) || __s2_len >= 4)) ? __builtin_strcmp (sig, "CHLD") : (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) && (__s1_len = __builtin_strlen (sig), __s1_len < 4) ? (__builtin_constant_p ("CHLD") && ((size_t)(const void *)(("CHLD") + 1) - (size_t)(const void *)("CHLD") == 1) ? __builtin_strcmp (sig, "CHLD") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("CHLD"); register int __result = (((__const unsigned char *) (__const char *) (sig))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (sig))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("CHLD") && ((size_t)(const void *)(("CHLD") + 1) - (size_t)(const void *)("CHLD") == 1) && (__s2_len = __builtin_strlen ("CHLD"), __s2_len < 4) ? (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) ? __builtin_strcmp (sig, "CHLD") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (sig); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("CHLD"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("CHLD"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("CHLD"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("CHLD"))[3]); } } __result; }))) : __builtin_strcmp (sig, "CHLD")))); }))) return 17; if ((!__extension__ ({ size_t __s1_len, __s2_len; (__builtin_constant_p (sig) && __builtin_constant_p ("CLD") && (__s1_len = __builtin_strlen (sig), __s2_len = __builtin_strlen ("CLD"), (!((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) || __s1_len >= 4) && (!((size_t)(const void *)(("CLD") + 1) - (size_t)(const void *)("CLD") == 1) || __s2_len >= 4)) ? __builtin_strcmp (sig, "CLD") : (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) && (__s1_len = __builtin_strlen (sig), __s1_len < 4) ? (__builtin_constant_p ("CLD") && ((size_t)(const void *)(("CLD") + 1) - (size_t)(const void *)("CLD") == 1) ? __builtin_strcmp (sig, "CLD") : (__extension__ ({ __const unsigned char *__s2 = (__const unsigned char *) (__const char *) ("CLD"); register int __result = (((__const unsigned char *) (__const char *) (sig))[0] - __s2[0]); if (__s1_len > 0 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[1] - __s2[1]); if (__s1_len > 1 && __result == 0) { __result = (((__const unsigned char *) (__const char *) (sig))[2] - __s2[2]); if (__s1_len > 2 && __result == 0) __result = (((__const unsigned char *) (__const char *) (sig))[3] - __s2[3]); } } __result; }))) : (__builtin_constant_p ("CLD") && ((size_t)(const void *)(("CLD") + 1) - (size_t)(const void *)("CLD") == 1) && (__s2_len = __builtin_strlen ("CLD"), __s2_len < 4) ? (__builtin_constant_p (sig) && ((size_t)(const void *)((sig) + 1) - (size_t)(const void *)(sig) == 1) ? __builtin_strcmp (sig, "CLD") : (__extension__ ({ __const unsigned char *__s1 = (__const unsigned char *) (__const char *) (sig); register int __result = __s1[0] - ((__const unsigned char *) (__const char *) ("CLD"))[0]; if (__s2_len > 0 && __result == 0) { __result = (__s1[1] - ((__const unsigned char *) (__const char *) ("CLD"))[1]); if (__s2_len > 1 && __result == 0) { __result = (__s1[2] - ((__const unsigned char *) (__const char *) ("CLD"))[2]); if (__s2_len > 2 && __result == 0) __result = (__s1[3] - ((__const unsigned char *) (__const char *) ("CLD"))[3]); } } __result; }))) : __builtin_strcmp (sig, "CLD")))); }))) return 17; return -1; } void Perl_sighandler(int sig, siginfo_t *sip, void *uap __attribute__((unused))) { register PerlInterpreter* my_perl __attribute__((unused)) = ((PerlInterpreter *)pthread_getspecific(PL_thr_key)); SV **sp = (my_perl->Istack_sp); GV *gv = ((void *)0); SV *sv = ((void *)0); SV * const tSv = (my_perl->ISv); CV *cv = ((void *)0); OP *myop = (my_perl->Iop); U32 flags = 0; XPV * const tXpv = (my_perl->IXpv); if ((my_perl->Isavestack_ix) + 15 <= (my_perl->Isavestack_max)) flags |= 1; if ((my_perl->Imarkstack_ptr) < (my_perl->Imarkstack_max) - 2) flags |= 4; if ((my_perl->Iscopestack_ix) < (my_perl->Iscopestack_max) - 3) flags |= 16; if (!(my_perl->Ipsig_ptr)[sig]) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "Signal SIG%s received, but no signal handler set.\n", PL_sig_name[sig]); exit(sig); } if (flags & 1) { (my_perl->Isavestack_ix) += 5; Perl_save_destructor_x(my_perl, (DESTRUCTORFUNC_t)(S_unwind_handler_stack),(void*)((void*)&flags)); } if (flags & 4) (my_perl->Imarkstack_ptr)++; if (flags & 16) (my_perl->Iscopestack_ix) += 1; if (!(((my_perl->Ipsig_ptr)[sig])->sv_flags & 0x00000800) || !(cv = ((CV *)({ void *_p = ((((my_perl->Ipsig_ptr)[sig])->sv_u.svu_rv)); _p; }))) || ((svtype)((cv)->sv_flags & 0xff)) != SVt_PVCV) { HV *st; cv = Perl_sv_2cv(my_perl, (my_perl->Ipsig_ptr)[sig],&st,&gv,0x01); } if (!cv || !((XPVCV*)({ void *_p = ((cv)->sv_any); _p; }))->xcv_root_u.xcv_root) { Perl_ck_warner(my_perl, (26 ), "SIG%s handler \"%s\" not defined.\n", PL_sig_name[sig], (gv ? ((((XPVGV*)((((gv)->sv_u.svu_gp)->gp_egv) ? (((gv)->sv_u.svu_gp)->gp_egv) : gv)->sv_any)->xiv_u.xivu_namehek))->hek_key : ((cv && ((XPVCV*)({ void *_p = ((cv)->sv_any); _p; }))->xcv_gv) ? ((((XPVGV*)((((((XPVCV*)({ void *_p = ((cv)->sv_any); _p; }))->xcv_gv)->sv_u.svu_gp)->gp_egv) ? (((((XPVCV*)({ void *_p = ((cv)->sv_any); _p; }))->xcv_gv)->sv_u.svu_gp)->gp_egv) : ((XPVCV*)({ void *_p = ((cv)->sv_any); _p; }))->xcv_gv)->sv_any)->xiv_u.xivu_namehek))->hek_key : "__ANON__"))); goto cleanup; } if((my_perl->Ipsig_name)[sig]) { sv = ({ SV * const _sv = ((SV *)({ void *_p = ((my_perl->Ipsig_name)[sig]); _p; })); (_sv)->sv_refcnt++; _sv; }); flags |= 64; } else { sv = Perl_sv_newmortal(my_perl); Perl_sv_setpv(my_perl, sv,PL_sig_name[sig]); } (void)( { PERL_SI *next = (my_perl->Icurstackinfo)->si_next; if (!next) { next = Perl_new_stackinfo(my_perl, 32,2048/sizeof(PERL_CONTEXT) - 1); next->si_prev = (my_perl->Icurstackinfo); (my_perl->Icurstackinfo)->si_next = next; } next->si_type = 4; next->si_cxix = -1; ((XPVAV*) (next->si_stack)->sv_any)->xav_fill = 0; (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((next->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (next->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = next->si_stack; } ); (my_perl->Icurstackinfo) = next; (void)0; } ); (void)( { if (++(my_perl->Imarkstack_ptr) == (my_perl->Imarkstack_max)) Perl_markstack_grow(my_perl); *(my_perl->Imarkstack_ptr) = (I32)((sp) - (my_perl->Istack_base)); } ); (*++sp = (sv)); { struct sigaction oact; if (sigaction(sig, 0, &oact) == 0 && oact.sa_flags & 4) { if (sip) { HV *sih = ((HV *)({ void *_p = (Perl_newSV_type(my_perl, SVt_PVHV)); _p; })); SV *rv = Perl_newRV_noinc(my_perl, ((SV *)({ void *_p = (sih); _p; }))); (void)((SV **)Perl_hv_common(my_perl, (sih), ((void *)0), ("" "signo" ""), (sizeof("signo")-1), 0, (0x04|0x20), (Perl_newSViv(my_perl, sip->si_signo)), 0)); (void)((SV **)Perl_hv_common(my_perl, (sih), ((void *)0), ("" "code" ""), (sizeof("code")-1), 0, (0x04|0x20), (Perl_newSViv(my_perl, sip->si_code)), 0)); # 2921 "mg.c" (void)( { if ((my_perl->Istack_max) - sp < (int)(2)) { sp = Perl_stack_grow(my_perl, sp,sp,(int) (2)); } } ); (*++sp = (rv)); (*++sp = (Perl_newSVpvn_flags(my_perl, ((char *)sip),(sizeof(*sip)),0x00080000))); } } } (my_perl->Istack_sp) = sp; Perl_call_sv(my_perl, ((SV *)({ void *_p = (cv); _p; })),4|8); (void)( { SV **sp = (my_perl->Istack_sp); PERL_SI * const prev = (my_perl->Icurstackinfo)->si_prev; if (!prev) { PerlIO_printf(((my_perl->Istderrgv) && (((svtype)(((my_perl->Istderrgv))->sv_flags & 0xff)) == SVt_PVGV) && ((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io) && ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp ? ((XPVIO*) (((((my_perl->Istderrgv))->sv_u.svu_gp)->gp_io))->sv_any)->xio_ofp : Perl_PerlIO_stderr(my_perl)), "panic: POPSTACK\n"); Perl_my_exit(my_perl, 1); } (void)( { ((XPVAV*) ((my_perl->Icurstack))->sv_any)->xav_fill = sp - (my_perl->Istack_base); (my_perl->Istack_base) = ((prev->si_stack)->sv_u.svu_array); (my_perl->Istack_max) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_max; sp = (my_perl->Istack_sp) = (my_perl->Istack_base) + ((XPVAV*) (prev->si_stack)->sv_any)->xav_fill; (my_perl->Icurstack) = prev->si_stack; } ); (my_perl->Icurstackinfo) = prev; } ); if (( !(*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))) ? 0 : (((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_flags & 0x00000400) ? (({XPV *nxpv = (XPV*)((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_any; nxpv && (nxpv->xpv_cur > 1 || (nxpv->xpv_cur && *((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_u.svu_pv != '0')); }) ? 1 : 0) : (((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_flags & 0x00000100) ? ((XPVIV*) ((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_any)->xiv_u.xivu_iv != 0 : (((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_flags & 0x00000200) ? ((XPVNV*) ((*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv))))->sv_any)->xnv_u.xnv_nv != 0.0 : Perl_sv_2bool(my_perl, (*((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv ? &((((my_perl->Ierrgv))->sv_u.svu_gp)->gp_sv) : &(((Perl_gv_add_by_type(my_perl, ((my_perl->Ierrgv)),SVt_NULL))->sv_u.svu_gp)->gp_sv)))) )) { sigset_t set; sigemptyset(&set); sigaddset(&set,sig); sigprocmask(1, &set, ((void *)0)); Perl_die(my_perl, ((void *)0)); } cleanup: if (flags & 1) (my_perl->Isavestack_ix) -= 8; if (flags & 4) (my_perl->Imarkstack_ptr)--; if (flags & 16) (my_perl->Iscopestack_ix) -= 1; if (flags & 64) ({ SV * const _sv = ((SV *)({ void *_p = (sv); _p; })); if (_sv) { if ((_sv)->sv_refcnt) { if (--((_sv)->sv_refcnt) == 0) Perl_sv_free2(my_perl, _sv); } else { Perl_sv_free(my_perl, _sv); } } }); (my_perl->Iop) = myop; (my_perl->ISv) = tSv; (my_perl->IXpv) = tXpv; return; } static void S_restore_magic(register PerlInterpreter* my_perl __attribute__((unused)), const void *p) { extern int Perl___notused __attribute__((unused)); MGS* const mgs = ((MGS*) ((char*)(my_perl->Isavestack) + (IV)(unsigned long)(p))); SV* const sv = mgs->mgs_sv; if (!sv) return; if (((svtype)((sv)->sv_flags & 0xff)) >= SVt_PVMG && ((XPVMG*) (sv)->sv_any)->xmg_u.xmg_magic) { if (mgs->mgs_readonly) ((sv)->sv_flags |= 0x08000000); if (mgs->mgs_magical) (sv)->sv_flags |= mgs->mgs_magical; else Perl_mg_magical(my_perl, sv); if (((sv)->sv_flags & 0x00200000)) { const U32 pubflags = (sv)->sv_flags & (0x00000100|0x00000200|0x00000400); if (pubflags) { (sv)->sv_flags &= ~( pubflags | (0x00001000|0x00002000|0x00004000) ); (sv)->sv_flags |= ( pubflags << 4 ); } } } mgs->mgs_sv = ((void *)0); # 3016 "mg.c" if ((my_perl->Isavestack_ix) == mgs->mgs_ss_ix) { I32 popval = ((my_perl->Isavestack)[--(my_perl->Isavestack_ix)].any_i32); ; (my_perl->Isavestack_ix) -= 2; popval = ((my_perl->Isavestack)[--(my_perl->Isavestack_ix)].any_i32); ; popval = ((my_perl->Isavestack)[--(my_perl->Isavestack_ix)].any_i32); (my_perl->Isavestack_ix) -= popval; } } static void S_unwind_handler_stack(register PerlInterpreter* my_perl __attribute__((unused)), const void *p) { extern int Perl___notused __attribute__((unused)); const U32 flags = *(const U32*)p; ; if (flags & 1) (my_perl->Isavestack_ix) -= 5; } # 3055 "mg.c" int Perl_magic_sethint(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); SV *key = (mg->mg_len == -2) ? ((SV *)({ void *_p = (mg->mg_ptr); _p; })) : Perl_newSVpvn_flags(my_perl, mg->mg_ptr,mg->mg_len,0x00080000); ; ; # 3072 "mg.c" (my_perl->Ihints) |= 0x00020000; (my_perl->Icompiling).cop_hints_hash = Perl_refcounted_he_new(my_perl, (my_perl->Icompiling).cop_hints_hash, key, sv); return 0; } # 3086 "mg.c" int Perl_magic_clearhint(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { extern int Perl___notused __attribute__((unused)); ; ; ((void)sv); ; ((void)sv); (my_perl->Ihints) |= 0x00020000; (my_perl->Icompiling).cop_hints_hash = Perl_refcounted_he_new(my_perl, (my_perl->Icompiling).cop_hints_hash, ((SV *)({ void *_p = (mg->mg_ptr); _p; })), &PL_sv_placeholder); return 0; } # 3112 "mg.c" int Perl_magic_clearhints(register PerlInterpreter* my_perl __attribute__((unused)), SV *sv, MAGIC *mg) { ; ; ((void)sv); ((void)mg); if ((my_perl->Icompiling).cop_hints_hash) { Perl_refcounted_he_free(my_perl, (my_perl->Icompiling).cop_hints_hash); (my_perl->Icompiling).cop_hints_hash = ((void *)0); } return 0; }