#ifdef PERL_GLOBAL_STRUCT_INIT
# define PERL_PPADDR_INITED
static const Perl_ppaddr_t Gppaddr[]
-#else
-# ifndef PERL_GLOBAL_STRUCT
-# define PERL_PPADDR_INITED
+#elif !defined(PERL_GLOBAL_STRUCT)
+# define PERL_PPADDR_INITED
EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
-# endif
#endif /* PERL_GLOBAL_STRUCT */
#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
# define PERL_PPADDR_INITED
#ifdef PERL_GLOBAL_STRUCT_INIT
# define PERL_CHECK_INITED
static const Perl_check_t Gcheck[]
-#else
-# ifndef PERL_GLOBAL_STRUCT
-# define PERL_CHECK_INITED
+#elif !defined(PERL_GLOBAL_STRUCT)
+# define PERL_CHECK_INITED
EXT Perl_check_t PL_check[] /* or perlvars.h */
-# endif
#endif
#if (defined(DOINIT) && !defined(PERL_GLOBAL_STRUCT)) || defined(PERL_GLOBAL_STRUCT_INIT)
# define PERL_CHECK_INITED
Perl_ck_cmp, /* i_le */
Perl_ck_cmp, /* ge */
Perl_ck_cmp, /* i_ge */
- Perl_ck_null, /* eq */
- Perl_ck_null, /* i_eq */
- Perl_ck_null, /* ne */
- Perl_ck_null, /* i_ne */
+ Perl_ck_cmp, /* eq */
+ Perl_ck_cmp, /* i_eq */
+ Perl_ck_cmp, /* ne */
+ Perl_ck_cmp, /* i_ne */
Perl_ck_null, /* ncmp */
Perl_ck_null, /* i_ncmp */
Perl_ck_null, /* slt */
0x00004b08, /* keys */
0x00001b00, /* delete */
0x00001b04, /* exists */
- 0x00000140, /* rv2hv */
+ 0x00000148, /* rv2hv */
0x00014204, /* helem */
0x00024401, /* hslice */
0x00024401, /* kvhslice */
#define OPpENTERSUB_DB 0x40
#define OPpEXISTS_SUB 0x40
#define OPpFLIP_LINENUM 0x40
+#define OPpINDEX_BOOLNEG 0x40
#define OPpLIST_GUESSED 0x40
#define OPpLVAL_DEFER 0x40
#define OPpOPEN_OUT_RAW 0x40
#define OPpOFFBYONE 0x80
#define OPpOPEN_OUT_CRLF 0x80
#define OPpPV_IS_UTF8 0x80
+#define OPpSORT_UNSTABLE 0x80
#define OPpTRANS_DELETE 0x80
START_EXTERN_C
'L','V','I','N','T','R','O','\0',
'L','V','S','U','B','\0',
'M','A','R','K','\0',
+ 'N','E','G','\0',
'N','O','(',')','\0',
'N','O','I','N','I','T','\0',
'N','O','V','E','R','\0',
'T','A','R','G','\0',
'T','A','R','G','M','Y','\0',
'U','N','I','\0',
+ 'U','N','S','T','A','B','L','E','\0',
'U','T','F','\0',
'k','e','y','\0',
'o','f','f','s','e','t','\0',
EXTCONST I16 PL_op_private_bitfields[] = {
0, 8, -1,
0, 8, -1,
- 0, 552, -1,
+ 0, 565, -1,
0, 8, -1,
0, 8, -1,
- 0, 559, -1,
- 0, 548, -1,
- 1, -1, 0, 525, 1, 33, 2, 283, -1,
+ 0, 572, -1,
+ 0, 561, -1,
+ 1, -1, 0, 529, 1, 33, 2, 283, -1,
4, -1, 1, 164, 2, 171, 3, 178, -1,
- 4, -1, 0, 525, 1, 33, 2, 283, 3, 110, -1,
+ 4, -1, 0, 529, 1, 33, 2, 283, 3, 110, -1,
};
86, /* length */
89, /* substr */
92, /* vec */
- 84, /* index */
- 84, /* rindex */
+ 94, /* index */
+ 94, /* rindex */
52, /* sprintf */
52, /* formline */
75, /* ord */
0, /* uc */
0, /* lc */
0, /* quotemeta */
- 94, /* rv2av */
- 101, /* aelemfast */
- 101, /* aelemfast_lex */
- 102, /* aelem */
- 107, /* aslice */
- 110, /* kvaslice */
+ 98, /* rv2av */
+ 105, /* aelemfast */
+ 105, /* aelemfast_lex */
+ 106, /* aelem */
+ 111, /* aslice */
+ 114, /* kvaslice */
0, /* aeach */
0, /* avalues */
40, /* akeys */
0, /* each */
40, /* values */
40, /* keys */
- 111, /* delete */
- 115, /* exists */
- 117, /* rv2hv */
- 102, /* helem */
- 107, /* hslice */
- 110, /* kvhslice */
- 125, /* multideref */
+ 115, /* delete */
+ 119, /* exists */
+ 121, /* rv2hv */
+ 106, /* helem */
+ 111, /* hslice */
+ 114, /* kvhslice */
+ 129, /* multideref */
52, /* unpack */
52, /* pack */
- 132, /* split */
+ 136, /* split */
52, /* join */
- 137, /* list */
+ 141, /* list */
12, /* lslice */
52, /* anonlist */
52, /* anonhash */
0, /* pop */
0, /* shift */
84, /* unshift */
- 139, /* sort */
- 146, /* reverse */
+ 143, /* sort */
+ 151, /* reverse */
0, /* grepstart */
- 148, /* grepwhile */
+ 153, /* grepwhile */
0, /* mapstart */
0, /* mapwhile */
0, /* range */
- 150, /* flip */
- 150, /* flop */
+ 155, /* flip */
+ 155, /* flop */
0, /* and */
0, /* or */
12, /* xor */
0, /* dor */
- 152, /* cond_expr */
+ 157, /* cond_expr */
0, /* andassign */
0, /* orassign */
0, /* dorassign */
- 154, /* entersub */
- 161, /* leavesub */
- 161, /* leavesublv */
+ 159, /* entersub */
+ 166, /* leavesub */
+ 166, /* leavesublv */
0, /* argcheck */
- 163, /* argelem */
+ 168, /* argelem */
0, /* argdefelem */
- 165, /* caller */
+ 170, /* caller */
52, /* warn */
52, /* die */
52, /* reset */
-1, /* lineseq */
- 167, /* nextstate */
- 167, /* dbstate */
+ 172, /* nextstate */
+ 172, /* dbstate */
-1, /* unstack */
-1, /* enter */
- 168, /* leave */
+ 173, /* leave */
-1, /* scope */
- 170, /* enteriter */
- 174, /* iter */
+ 175, /* enteriter */
+ 179, /* iter */
-1, /* enterloop */
- 175, /* leaveloop */
+ 180, /* leaveloop */
-1, /* return */
- 177, /* last */
- 177, /* next */
- 177, /* redo */
- 177, /* dump */
- 177, /* goto */
+ 182, /* last */
+ 182, /* next */
+ 182, /* redo */
+ 182, /* dump */
+ 182, /* goto */
52, /* exit */
0, /* method */
0, /* method_named */
0, /* leavewhen */
-1, /* break */
-1, /* continue */
- 179, /* open */
+ 184, /* open */
52, /* close */
52, /* pipe_op */
52, /* fileno */
52, /* getc */
52, /* read */
52, /* enterwrite */
- 161, /* leavewrite */
+ 166, /* leavewrite */
-1, /* prtf */
-1, /* print */
-1, /* say */
0, /* getpeername */
0, /* lstat */
0, /* stat */
- 184, /* ftrread */
- 184, /* ftrwrite */
- 184, /* ftrexec */
- 184, /* fteread */
- 184, /* ftewrite */
- 184, /* fteexec */
- 189, /* ftis */
- 189, /* ftsize */
- 189, /* ftmtime */
- 189, /* ftatime */
- 189, /* ftctime */
- 189, /* ftrowned */
- 189, /* fteowned */
- 189, /* ftzero */
- 189, /* ftsock */
- 189, /* ftchr */
- 189, /* ftblk */
- 189, /* ftfile */
- 189, /* ftdir */
- 189, /* ftpipe */
- 189, /* ftsuid */
- 189, /* ftsgid */
- 189, /* ftsvtx */
- 189, /* ftlink */
- 189, /* fttty */
- 189, /* fttext */
- 189, /* ftbinary */
+ 189, /* ftrread */
+ 189, /* ftrwrite */
+ 189, /* ftrexec */
+ 189, /* fteread */
+ 189, /* ftewrite */
+ 189, /* fteexec */
+ 194, /* ftis */
+ 194, /* ftsize */
+ 194, /* ftmtime */
+ 194, /* ftatime */
+ 194, /* ftctime */
+ 194, /* ftrowned */
+ 194, /* fteowned */
+ 194, /* ftzero */
+ 194, /* ftsock */
+ 194, /* ftchr */
+ 194, /* ftblk */
+ 194, /* ftfile */
+ 194, /* ftdir */
+ 194, /* ftpipe */
+ 194, /* ftsuid */
+ 194, /* ftsgid */
+ 194, /* ftsvtx */
+ 194, /* ftlink */
+ 194, /* fttty */
+ 194, /* fttext */
+ 194, /* ftbinary */
84, /* chdir */
84, /* chown */
75, /* chroot */
0, /* rewinddir */
0, /* closedir */
-1, /* fork */
- 193, /* wait */
+ 198, /* wait */
84, /* waitpid */
84, /* system */
84, /* exec */
84, /* kill */
- 193, /* getppid */
+ 198, /* getppid */
84, /* getpgrp */
84, /* setpgrp */
84, /* getpriority */
84, /* setpriority */
- 193, /* time */
+ 198, /* time */
-1, /* tms */
0, /* localtime */
52, /* gmtime */
0, /* require */
0, /* dofile */
-1, /* hintseval */
- 194, /* entereval */
- 161, /* leaveeval */
+ 199, /* entereval */
+ 166, /* leaveeval */
0, /* entertry */
-1, /* leavetry */
0, /* ghbyname */
0, /* lock */
0, /* once */
-1, /* custom */
- 200, /* coreargs */
- 204, /* avhvswitch */
+ 205, /* coreargs */
+ 209, /* avhvswitch */
3, /* runcv */
0, /* fc */
-1, /* padcv */
-1, /* introcv */
-1, /* clonecv */
- 206, /* padrange */
- 208, /* refassign */
- 214, /* lvref */
- 220, /* lvrefslice */
- 221, /* lvavref */
+ 211, /* padrange */
+ 213, /* refassign */
+ 219, /* lvref */
+ 225, /* lvrefslice */
+ 226, /* lvavref */
0, /* anonconst */
};
EXTCONST U16 PL_op_private_bitdefs[] = {
0x0003, /* scalar, prototype, refgen, srefgen, readline, regcmaybe, regcreset, regcomp, substcont, chop, schop, defined, undef, study, preinc, i_preinc, predec, i_predec, postinc, i_postinc, postdec, i_postdec, negate, i_negate, not, complement, ucfirst, lcfirst, uc, lc, quotemeta, aeach, avalues, each, pop, shift, grepstart, mapstart, mapwhile, range, and, or, dor, andassign, orassign, dorassign, argcheck, argdefelem, method, method_named, method_super, method_redir, method_redir_super, entergiven, leavegiven, enterwhen, leavewhen, untie, tied, dbmclose, getsockname, getpeername, lstat, stat, readlink, readdir, telldir, rewinddir, closedir, localtime, alarm, require, dofile, entertry, ghbyname, gnbyname, gpbyname, shostent, snetent, sprotoent, sservent, gpwnam, gpwuid, ggrnam, ggrgid, lock, once, fc, anonconst */
- 0x2e5c, 0x3f99, /* pushmark */
+ 0x2e5c, 0x4019, /* pushmark */
0x00bd, /* wantarray, runcv */
- 0x0498, 0x18d0, 0x404c, 0x3b08, 0x3225, /* const */
- 0x2e5c, 0x3379, /* gvsv */
+ 0x0498, 0x18d0, 0x40cc, 0x3b88, 0x32a5, /* const */
+ 0x2e5c, 0x33f9, /* gvsv */
0x1735, /* gv */
0x0067, /* gelem, lt, i_lt, gt, i_gt, le, i_le, ge, i_ge, eq, i_eq, ne, i_ne, ncmp, i_ncmp, slt, sgt, sle, sge, seq, sne, scmp, bit_and, bit_xor, bit_or, sbit_and, sbit_xor, sbit_or, smartmatch, lslice, xor */
- 0x2e5c, 0x3f98, 0x03d7, /* padsv */
- 0x2e5c, 0x3f98, 0x0614, 0x2f4c, 0x3c89, /* padav */
- 0x2e5c, 0x3f98, 0x0614, 0x06b0, 0x2f4c, 0x3c88, 0x29c1, /* padhv */
- 0x2e5c, 0x1ab8, 0x03d6, 0x2f4c, 0x3148, 0x4044, 0x0003, /* rv2gv */
- 0x2e5c, 0x3378, 0x03d6, 0x4044, 0x0003, /* rv2sv */
+ 0x2e5c, 0x4018, 0x03d7, /* padsv */
+ 0x2e5c, 0x4018, 0x0614, 0x2f4c, 0x3d09, /* padav */
+ 0x2e5c, 0x4018, 0x0614, 0x06b0, 0x2f4c, 0x3d08, 0x29c1, /* padhv */
+ 0x2e5c, 0x1ab8, 0x03d6, 0x2f4c, 0x31c8, 0x40c4, 0x0003, /* rv2gv */
+ 0x2e5c, 0x33f8, 0x03d6, 0x40c4, 0x0003, /* rv2sv */
0x2f4c, 0x0003, /* av2arylen, akeys, values, keys */
- 0x30bc, 0x0ef8, 0x0c54, 0x028c, 0x4208, 0x4044, 0x0003, /* rv2cv */
+ 0x313c, 0x0ef8, 0x0c54, 0x028c, 0x4288, 0x40c4, 0x0003, /* rv2cv */
0x0614, 0x06b0, 0x0003, /* ref */
0x018f, /* bless, glob, sprintf, formline, unpack, pack, join, anonlist, anonhash, splice, warn, die, reset, exit, close, pipe_op, fileno, umask, binmode, tie, dbmopen, sselect, select, getc, read, enterwrite, sysopen, sysseek, sysread, syswrite, eof, tell, seek, truncate, fcntl, ioctl, send, recv, socket, sockpair, bind, connect, listen, accept, shutdown, gsockopt, ssockopt, open_dir, seekdir, gmtime, shmget, shmctl, shmread, shmwrite, msgget, msgctl, msgsnd, msgrcv, semop, semget, semctl, ghbyaddr, gnbyaddr, gpbynumber, gsbyname, gsbyport, syscall */
- 0x355c, 0x3478, 0x2714, 0x2650, 0x0003, /* backtick */
+ 0x35dc, 0x34f8, 0x2714, 0x2650, 0x0003, /* backtick */
0x0615, /* subst */
- 0x0ffc, 0x2038, 0x0834, 0x3dcc, 0x23c8, 0x01e4, 0x0141, /* trans, transr */
+ 0x0ffc, 0x2038, 0x0834, 0x3e4c, 0x23c8, 0x01e4, 0x0141, /* trans, transr */
0x0e3c, 0x0538, 0x0067, /* sassign */
0x0af8, 0x09f4, 0x08f0, 0x2f4c, 0x0608, 0x0067, /* aassign */
- 0x42b0, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir */
+ 0x4330, 0x0003, /* chomp, schomp, ncomplement, scomplement, sin, cos, exp, log, sqrt, int, hex, oct, abs, ord, chr, chroot, rmdir */
0x0614, 0x2f4c, 0x0003, /* pos */
- 0x42b0, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */
+ 0x4330, 0x0067, /* pow, multiply, i_multiply, divide, i_divide, modulo, i_modulo, add, i_add, subtract, i_subtract, concat, left_shift, right_shift, nbit_and, nbit_xor, nbit_or */
0x13b8, 0x0067, /* repeat */
- 0x42b0, 0x018f, /* stringify, atan2, rand, srand, index, rindex, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */
- 0x0614, 0x42b0, 0x0003, /* length */
- 0x3870, 0x2f4c, 0x012b, /* substr */
+ 0x4330, 0x018f, /* stringify, atan2, rand, srand, crypt, push, unshift, flock, chdir, chown, unlink, chmod, utime, rename, link, symlink, mkdir, waitpid, system, exec, kill, getpgrp, setpgrp, getpriority, setpriority, sleep */
+ 0x0614, 0x4330, 0x0003, /* length */
+ 0x38f0, 0x2f4c, 0x012b, /* substr */
0x2f4c, 0x0067, /* vec */
- 0x2e5c, 0x3378, 0x0614, 0x2f4c, 0x3c88, 0x4044, 0x0003, /* rv2av */
+ 0x30b8, 0x0614, 0x4330, 0x018f, /* index, rindex */
+ 0x2e5c, 0x33f8, 0x0614, 0x2f4c, 0x3d08, 0x40c4, 0x0003, /* rv2av */
0x025f, /* aelemfast, aelemfast_lex */
0x2e5c, 0x2d58, 0x03d6, 0x2f4c, 0x0067, /* aelem, helem */
- 0x2e5c, 0x2f4c, 0x3c89, /* aslice, hslice */
+ 0x2e5c, 0x2f4c, 0x3d09, /* aslice, hslice */
0x2f4d, /* kvaslice, kvhslice */
- 0x2e5c, 0x3bd8, 0x2a74, 0x0003, /* delete */
- 0x4138, 0x0003, /* exists */
- 0x2e5c, 0x3378, 0x0614, 0x06b0, 0x2f4c, 0x3c88, 0x4044, 0x29c1, /* rv2hv */
- 0x2e5c, 0x2d58, 0x1074, 0x19d0, 0x2f4c, 0x4044, 0x0003, /* multideref */
- 0x2e5c, 0x3378, 0x0350, 0x2b6c, 0x2489, /* split */
+ 0x2e5c, 0x3c58, 0x2a74, 0x0003, /* delete */
+ 0x41b8, 0x0003, /* exists */
+ 0x2e5c, 0x33f8, 0x0614, 0x06b0, 0x2f4c, 0x3d08, 0x40c4, 0x29c1, /* rv2hv */
+ 0x2e5c, 0x2d58, 0x1074, 0x19d0, 0x2f4c, 0x40c4, 0x0003, /* multideref */
+ 0x2e5c, 0x33f8, 0x0350, 0x2b6c, 0x2489, /* split */
0x2e5c, 0x20f9, /* list */
- 0x3eb8, 0x3614, 0x1310, 0x27ac, 0x3968, 0x28a4, 0x32e1, /* sort */
+ 0x449c, 0x3f38, 0x3694, 0x1310, 0x27ac, 0x39e8, 0x28a4, 0x3361, /* sort */
0x27ac, 0x0003, /* reverse */
0x0614, 0x0003, /* grepwhile */
0x2bf8, 0x0003, /* flip, flop */
0x2e5c, 0x0003, /* cond_expr */
- 0x2e5c, 0x0ef8, 0x03d6, 0x028c, 0x4208, 0x4044, 0x2561, /* entersub */
- 0x36d8, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */
+ 0x2e5c, 0x0ef8, 0x03d6, 0x028c, 0x4288, 0x40c4, 0x2561, /* entersub */
+ 0x3758, 0x0003, /* leavesub, leavesublv, leavewrite, leaveeval */
0x02aa, 0x0003, /* argelem */
0x00bc, 0x018f, /* caller */
0x22d5, /* nextstate, dbstate */
- 0x2cfc, 0x36d9, /* leave */
- 0x2e5c, 0x3378, 0x0f6c, 0x39e5, /* enteriter */
- 0x39e5, /* iter */
+ 0x2cfc, 0x3759, /* leave */
+ 0x2e5c, 0x33f8, 0x0f6c, 0x3a65, /* enteriter */
+ 0x3a65, /* iter */
0x2cfc, 0x0067, /* leaveloop */
- 0x441c, 0x0003, /* last, next, redo, dump, goto */
- 0x355c, 0x3478, 0x2714, 0x2650, 0x018f, /* open */
+ 0x45bc, 0x0003, /* last, next, redo, dump, goto */
+ 0x35dc, 0x34f8, 0x2714, 0x2650, 0x018f, /* open */
0x1c70, 0x1ecc, 0x1d88, 0x1b44, 0x0003, /* ftrread, ftrwrite, ftrexec, fteread, ftewrite, fteexec */
0x1c70, 0x1ecc, 0x1d88, 0x0003, /* ftis, ftsize, ftmtime, ftatime, ftctime, ftrowned, fteowned, ftzero, ftsock, ftchr, ftblk, ftfile, ftdir, ftpipe, ftsuid, ftsgid, ftsvtx, ftlink, fttty, fttext, ftbinary */
- 0x42b1, /* wait, getppid, time */
- 0x3774, 0x0d10, 0x076c, 0x4388, 0x21e4, 0x0003, /* entereval */
+ 0x4331, /* wait, getppid, time */
+ 0x37f4, 0x0d10, 0x076c, 0x4408, 0x21e4, 0x0003, /* entereval */
0x301c, 0x0018, 0x1224, 0x1141, /* coreargs */
0x2f4c, 0x00c7, /* avhvswitch */
0x2e5c, 0x01fb, /* padrange */
- 0x2e5c, 0x3f98, 0x04f6, 0x292c, 0x1828, 0x0067, /* refassign */
- 0x2e5c, 0x3f98, 0x04f6, 0x292c, 0x1828, 0x0003, /* lvref */
+ 0x2e5c, 0x4018, 0x04f6, 0x292c, 0x1828, 0x0067, /* refassign */
+ 0x2e5c, 0x4018, 0x04f6, 0x292c, 0x1828, 0x0003, /* lvref */
0x2e5d, /* lvrefslice */
- 0x2e5c, 0x3f98, 0x0003, /* lvavref */
+ 0x2e5c, 0x4018, 0x0003, /* lvavref */
};
/* LENGTH */ (OPpARG1_MASK|OPpTARGET_MY|OPpTRUEBOOL),
/* SUBSTR */ (OPpARG3_MASK|OPpMAYBE_LVSUB|OPpSUBSTR_REPL_FIRST),
/* VEC */ (OPpARG2_MASK|OPpMAYBE_LVSUB),
- /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY),
- /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY),
+ /* INDEX */ (OPpARG4_MASK|OPpTARGET_MY|OPpTRUEBOOL|OPpINDEX_BOOLNEG),
+ /* RINDEX */ (OPpARG4_MASK|OPpTARGET_MY|OPpTRUEBOOL|OPpINDEX_BOOLNEG),
/* SPRINTF */ (OPpARG4_MASK),
/* FORMLINE */ (OPpARG4_MASK),
/* ORD */ (OPpARG1_MASK|OPpTARGET_MY),
/* POP */ (OPpARG1_MASK),
/* SHIFT */ (OPpARG1_MASK),
/* UNSHIFT */ (OPpARG4_MASK|OPpTARGET_MY),
- /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE),
+ /* SORT */ (OPpSORT_NUMERIC|OPpSORT_INTEGER|OPpSORT_REVERSE|OPpSORT_INPLACE|OPpSORT_DESCEND|OPpSORT_QSORT|OPpSORT_STABLE|OPpSORT_UNSTABLE),
/* REVERSE */ (OPpARG1_MASK|OPpREVERSE_INPLACE),
/* GREPSTART */ (OPpARG1_MASK),
/* GREPWHILE */ (OPpARG1_MASK|OPpTRUEBOOL),
https://perl5.git.perl.org / perl5.git / blobdiff