From 996c9baa63e0776f6650c6ba32b83baefb5f0505 Mon Sep 17 00:00:00 2001 From: Vincent Pit Date: Sat, 16 Feb 2008 00:08:50 +0100 Subject: Re: [PATCH] Splitting OP_CONST (Was: pp_const, not, that, hot?) Message-ID: <47B60D72.50708@profvince.com> Date: Fri, 15 Feb 2008 23:08:50 +0100 p4raw-id: //depot/perl@33356 --- opcode.h | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'opcode.h') diff --git a/opcode.h b/opcode.h index d59b96207e..29e4984a9e 100644 --- a/opcode.h +++ b/opcode.h @@ -358,6 +358,7 @@ EXTCONST char* const PL_op_name[] = { "semctl", "require", "dofile", + "hintseval", "entereval", "leaveeval", "entertry", @@ -729,6 +730,7 @@ EXTCONST char* const PL_op_desc[] = { "semctl", "require", "do \"file\"", + "eval hints", "eval \"string\"", "eval \"string\" exit", "eval {block}", @@ -1114,6 +1116,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ MEMBER_TO_FPTR(Perl_pp_semctl), MEMBER_TO_FPTR(Perl_pp_require), MEMBER_TO_FPTR(Perl_pp_require), /* Perl_pp_dofile */ + MEMBER_TO_FPTR(Perl_pp_hintseval), MEMBER_TO_FPTR(Perl_pp_entereval), MEMBER_TO_FPTR(Perl_pp_leaveeval), MEMBER_TO_FPTR(Perl_pp_entertry), @@ -1496,6 +1499,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ MEMBER_TO_FPTR(Perl_ck_fun), /* semctl */ MEMBER_TO_FPTR(Perl_ck_require), /* require */ MEMBER_TO_FPTR(Perl_ck_fun), /* dofile */ + MEMBER_TO_FPTR(Perl_ck_svconst), /* hintseval */ MEMBER_TO_FPTR(Perl_ck_eval), /* entereval */ MEMBER_TO_FPTR(Perl_ck_null), /* leaveeval */ MEMBER_TO_FPTR(Perl_ck_null), /* entertry */ @@ -1872,6 +1876,7 @@ EXTCONST U32 PL_opargs[] = { 0x0222281d, /* semctl */ 0x000136c0, /* require */ 0x00002240, /* dofile */ + 0x00000c04, /* hintseval */ 0x00003640, /* entereval */ 0x00002200, /* leaveeval */ 0x00000600, /* entertry */ -- cgit v1.2.1