In perly.y, change PL_parser to parser

All these code snippets are embedded inside a function
(perly.c:yyparse) that puts the current value of PL_parser in a local
variable named parser.  So the two are equivalent, but the latter
only has to access a local variable.

Before:

$ ls -ld perly.o
-rw-r--r--  1 sprout  staff  94748 Aug 22 06:12 perly.o

After:

$ ls -ld perly.o
-rw-r--r--  1 sprout  staff  94340 Aug 22 06:15 perly.o

4 files changed, 63 insertions, 63 deletions

diff --git a/perly.act b/perly.act
index c5b693aef2..2d12b05515 100644
--- a/perly.act
+++ b/perly.act
@@ -7,7 +7,7 @@
 case 2:
 #line 114 "perly.y"
     {
-			  PL_parser->expect = XSTATE;
+			  parser->expect = XSTATE;
 			;}
     break;
 
@@ -105,16 +105,16 @@ case 2:
 
   case 14:
 #line 180 "perly.y"
-    { if (PL_parser->copline > (line_t)(ps[(1) - (4)].val.ival))
-			      PL_parser->copline = (line_t)(ps[(1) - (4)].val.ival);
+    { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
+			      parser->copline = (line_t)(ps[(1) - (4)].val.ival);
 			  (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
 			;}
     break;
 
   case 15:
 #line 188 "perly.y"
-    { if (PL_parser->copline > (line_t)(ps[(1) - (7)].val.ival))
-			      PL_parser->copline = (line_t)(ps[(1) - (7)].val.ival);
+    { if (parser->copline > (line_t)(ps[(1) - (7)].val.ival))
+			      parser->copline = (line_t)(ps[(1) - (7)].val.ival);
 			  (yyval.opval) = block_end((ps[(2) - (7)].val.ival), (ps[(5) - (7)].val.opval));
 			;}
     break;
@@ -126,8 +126,8 @@ case 2:
 
   case 17:
 #line 199 "perly.y"
-    { if (PL_parser->copline > (line_t)(ps[(1) - (4)].val.ival))
-			      PL_parser->copline = (line_t)(ps[(1) - (4)].val.ival);
+    { if (parser->copline > (line_t)(ps[(1) - (4)].val.ival))
+			      parser->copline = (line_t)(ps[(1) - (4)].val.ival);
 			  (yyval.opval) = block_end((ps[(2) - (4)].val.ival), (ps[(3) - (4)].val.opval));
 			;}
     break;
@@ -229,8 +229,8 @@ case 2:
 						CvOUTSIDE(PL_compcv)
 					     ))[(ps[(2) - (3)].val.opval)->op_targ]))
 			      CvCLONE_on(PL_compcv);
-			  PL_parser->in_my = 0;
-			  PL_parser->in_my_stash = NULL;
+			  parser->in_my = 0;
+			  parser->in_my_stash = NULL;
 			;}
     break;
 
@@ -276,7 +276,7 @@ case 2:
     {
 			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
 			      newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
-			  PL_parser->copline = (line_t)(ps[(1) - (7)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
 			;}
     break;
 
@@ -285,7 +285,7 @@ case 2:
     {
 			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
 			      newCONDOP(0, (ps[(4) - (7)].val.opval), op_scope((ps[(6) - (7)].val.opval)), (ps[(7) - (7)].val.opval)));
-			  PL_parser->copline = (line_t)(ps[(1) - (7)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
 			;}
     break;
 
@@ -299,7 +299,7 @@ case 2:
 				    || PAD_COMPNAME_FLAGS_isOUR(offset)
 				      ? 0
 				      : offset));
-			  PL_parser->copline = (line_t)(ps[(1) - (6)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (6)].val.ival);
 			;}
     break;
 
@@ -319,7 +319,7 @@ case 2:
 			  (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				      (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
-			  PL_parser->copline = (line_t)(ps[(1) - (8)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
 			;}
     break;
 
@@ -329,7 +329,7 @@ case 2:
 			  (yyval.opval) = block_end((ps[(3) - (8)].val.ival),
 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				      (ps[(4) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval), (ps[(6) - (8)].val.ival)));
-			  PL_parser->copline = (line_t)(ps[(1) - (8)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
 			;}
     break;
 
@@ -356,7 +356,7 @@ case 2:
 				      forop));
 			  }
 			  (yyval.opval) = block_end((ps[(3) - (13)].val.ival), forop);
-			  PL_parser->copline = (line_t)(ps[(1) - (13)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (13)].val.ival);
 			;}
     break;
 
@@ -364,7 +364,7 @@ case 2:
 #line 371 "perly.y"
     {
 			  (yyval.opval) = block_end((ps[(3) - (9)].val.ival), newFOROP(0, (ps[(4) - (9)].val.opval), (ps[(6) - (9)].val.opval), (ps[(8) - (9)].val.opval), (ps[(9) - (9)].val.opval)));
-			  PL_parser->copline = (line_t)(ps[(1) - (9)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (9)].val.ival);
 			;}
     break;
 
@@ -373,7 +373,7 @@ case 2:
     {
 			  (yyval.opval) = block_end((ps[(4) - (8)].val.ival), newFOROP(0,
 				      op_lvalue((ps[(2) - (8)].val.opval), OP_ENTERLOOP), (ps[(5) - (8)].val.opval), (ps[(7) - (8)].val.opval), (ps[(8) - (8)].val.opval)));
-			  PL_parser->copline = (line_t)(ps[(1) - (8)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (8)].val.ival);
 			;}
     break;
 
@@ -382,7 +382,7 @@ case 2:
     {
 			  (yyval.opval) = block_end((ps[(3) - (7)].val.ival),
 				  newFOROP(0, (OP*)NULL, (ps[(4) - (7)].val.opval), (ps[(6) - (7)].val.opval), (ps[(7) - (7)].val.opval)));
-			  PL_parser->copline = (line_t)(ps[(1) - (7)].val.ival);
+			  parser->copline = (line_t)(ps[(1) - (7)].val.ival);
 			;}
     break;
 
@@ -411,8 +411,8 @@ case 2:
 			  /* a block is a loop that happens once */
 			  (yyval.opval) = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				  (OP*)NULL, block_end((ps[(5) - (8)].val.ival), (ps[(7) - (8)].val.opval)), (OP*)NULL, 0);
-			  if (PL_parser->copline > (line_t)(ps[(4) - (8)].val.ival))
-			      PL_parser->copline = (line_t)(ps[(4) - (8)].val.ival);
+			  if (parser->copline > (line_t)(ps[(4) - (8)].val.ival))
+			      parser->copline = (line_t)(ps[(4) - (8)].val.ival);
 			;}
     break;
 
@@ -427,7 +427,7 @@ case 2:
 #line 413 "perly.y"
     {
 			  (yyval.opval) = (OP*)NULL;
-			  PL_parser->copline = NOLINE;
+			  parser->copline = NOLINE;
 			;}
     break;
 
@@ -441,9 +441,9 @@ case 2:
 			  else {
 			      list = (ps[(1) - (2)].val.opval);
 			  }
-			  if (PL_parser->copline == NOLINE)
-			       PL_parser->copline = CopLINE(PL_curcop)-1;
-			  else PL_parser->copline--;
+			  if (parser->copline == NOLINE)
+			       parser->copline = CopLINE(PL_curcop)-1;
+			  else parser->copline--;
 			  (yyval.opval) = newSTATEOP(0, NULL,
 					  convert(OP_FORMLINE, 0, list));
 			;}
@@ -492,7 +492,7 @@ case 2:
   case 61:
 #line 457 "perly.y"
     { (yyval.opval) = newFOROP(0, (OP*)NULL, (ps[(3) - (3)].val.opval), (ps[(1) - (3)].val.opval), (OP*)NULL);
-			  PL_parser->copline = (line_t)(ps[(2) - (3)].val.ival); ;}
+			  parser->copline = (line_t)(ps[(2) - (3)].val.ival); ;}
     break;
 
   case 62:
@@ -515,7 +515,7 @@ case 2:
 
   case 65:
 #line 472 "perly.y"
-    { PL_parser->copline = (line_t)(ps[(1) - (6)].val.ival);
+    { parser->copline = (line_t)(ps[(1) - (6)].val.ival);
 			    (yyval.opval) = newCONDOP(0,
 				newSTATEOP(OPf_SPECIAL,NULL,(ps[(3) - (6)].val.opval)),
 				op_scope((ps[(5) - (6)].val.opval)), (ps[(6) - (6)].val.opval));
@@ -653,15 +653,15 @@ case 2:
     {
 			  (yyval.opval) = op_append_list(OP_LINESEQ, (ps[(2) - (3)].val.opval),
 				newSTATEOP(0, NULL, sawparens(newNULLLIST())));
-			  PL_parser->expect = XBLOCK;
+			  parser->expect = XBLOCK;
 			;}
     break;
 
   case 94:
 #line 594 "perly.y"
     {
-			  if (PL_parser->copline > (line_t)(ps[(3) - (5)].val.ival))
-			      PL_parser->copline = (line_t)(ps[(3) - (5)].val.ival);
+			  if (parser->copline > (line_t)(ps[(3) - (5)].val.ival))
+			      parser->copline = (line_t)(ps[(3) - (5)].val.ival);
 			  (yyval.opval) = block_end((ps[(1) - (5)].val.ival),
 				op_append_list(OP_LINESEQ, (ps[(2) - (5)].val.opval), (ps[(4) - (5)].val.opval)));
 			;}
@@ -1380,7 +1380,7 @@ case 2:
 
   case 225:
 #line 1018 "perly.y"
-    { PL_parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
+    { parser->in_my = 0; (yyval.opval) = my((ps[(1) - (1)].val.opval)); ;}
     break;
 
   case 226:
@@ -1464,6 +1464,6 @@ case 2:
     
 
 /* Generated from:
- * 83084fd3dca0e3c3a6f15a4ebdb137fc8ab3aa93ca0f1c04ea06228ac4ea79c3 perly.y
+ * 39b6174c4729deec2a6ee4698d7dcd6496acb0a8f063daf726d1f853d4dcb54e perly.y
  * d1d4df7b8e30ac9dede664af9179e6e5e7ddc7f2ad9c4eff9e2e5b32c9e16a6e regen_perly.pl
  * ex: set ro: */
diff --git a/perly.h b/perly.h
index 874d120b99..395ff5a4b7 100644
--- a/perly.h
+++ b/perly.h
@@ -256,6 +256,6 @@ typedef union YYSTYPE
 
 
 /* Generated from:
- * 83084fd3dca0e3c3a6f15a4ebdb137fc8ab3aa93ca0f1c04ea06228ac4ea79c3 perly.y
+ * 39b6174c4729deec2a6ee4698d7dcd6496acb0a8f063daf726d1f853d4dcb54e perly.y
  * d1d4df7b8e30ac9dede664af9179e6e5e7ddc7f2ad9c4eff9e2e5b32c9e16a6e regen_perly.pl
  * ex: set ro: */
diff --git a/perly.tab b/perly.tab
index a8d8e790a5..76cef4baab 100644
--- a/perly.tab
+++ b/perly.tab
@@ -1121,6 +1121,6 @@ static const toketypes yy_type_tab[] =
 };
 
 /* Generated from:
- * 83084fd3dca0e3c3a6f15a4ebdb137fc8ab3aa93ca0f1c04ea06228ac4ea79c3 perly.y
+ * 39b6174c4729deec2a6ee4698d7dcd6496acb0a8f063daf726d1f853d4dcb54e perly.y
  * d1d4df7b8e30ac9dede664af9179e6e5e7ddc7f2ad9c4eff9e2e5b32c9e16a6e regen_perly.pl
  * ex: set ro: */
diff --git a/perly.y b/perly.y
index e2f934f4d2..77773fdf5c 100644
--- a/perly.y
+++ b/perly.y
@@ -112,7 +112,7 @@
 /* Top-level choice of what kind of thing yyparse was called to parse */
 grammar	:	GRAMPROG
 			{
-			  PL_parser->expect = XSTATE;
+			  parser->expect = XSTATE;
 			}
 		remember stmtseq
 			{
@@ -177,16 +177,16 @@ grammar	:	GRAMPROG
 
 /* An ordinary block */
 block	:	'{' remember stmtseq '}'
-			{ if (PL_parser->copline > (line_t)$1)
-			      PL_parser->copline = (line_t)$1;
+			{ if (parser->copline > (line_t)$1)
+			      parser->copline = (line_t)$1;
 			  $$ = block_end($2, $3);
 			}
 	;
 
 /* format body */
 formblock:	'=' remember ';' FORMRBRACK formstmtseq ';' '.'
-			{ if (PL_parser->copline > (line_t)$1)
-			      PL_parser->copline = (line_t)$1;
+			{ if (parser->copline > (line_t)$1)
+			      parser->copline = (line_t)$1;
 			  $$ = block_end($2, $5);
 			}
 	;
@@ -196,8 +196,8 @@ remember:	/* NULL */	/* start a full lexical scope */
 	;
 
 mblock	:	'{' mremember stmtseq '}'
-			{ if (PL_parser->copline > (line_t)$1)
-			      PL_parser->copline = (line_t)$1;
+			{ if (parser->copline > (line_t)$1)
+			      parser->copline = (line_t)$1;
 			  $$ = block_end($2, $3);
 			}
 	;
@@ -279,8 +279,8 @@ barestmt:	PLUGSTMT
 						CvOUTSIDE(PL_compcv)
 					     ))[$2->op_targ]))
 			      CvCLONE_on(PL_compcv);
-			  PL_parser->in_my = 0;
-			  PL_parser->in_my_stash = NULL;
+			  parser->in_my = 0;
+			  parser->in_my_stash = NULL;
 			}
 		proto subattrlist optsubbody
 			{
@@ -311,13 +311,13 @@ barestmt:	PLUGSTMT
 			{
 			  $$ = block_end($3,
 			      newCONDOP(0, $4, op_scope($6), $7));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	UNLESS '(' remember miexpr ')' mblock else
 			{
 			  $$ = block_end($3,
 			      newCONDOP(0, $4, op_scope($6), $7));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	GIVEN '(' remember mexpr ')' mblock
 			{
@@ -328,7 +328,7 @@ barestmt:	PLUGSTMT
 				    || PAD_COMPNAME_FLAGS_isOUR(offset)
 				      ? 0
 				      : offset));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	WHEN '(' remember mexpr ')' mblock
 			{ $$ = block_end($3, newWHENOP($4, op_scope($6))); }
@@ -339,14 +339,14 @@ barestmt:	PLUGSTMT
 			  $$ = block_end($3,
 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				      $4, $7, $8, $6));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	UNTIL '(' remember iexpr ')' mintro mblock cont
 			{
 			  $$ = block_end($3,
 				  newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				      $4, $7, $8, $6));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	FOR '(' remember mnexpr ';'
 			{ parser->expect = XTERM; }
@@ -365,24 +365,24 @@ barestmt:	PLUGSTMT
 				      forop));
 			  }
 			  $$ = block_end($3, forop);
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	FOR MY remember my_scalar '(' mexpr ')' mblock cont
 			{
 			  $$ = block_end($3, newFOROP(0, $4, $6, $8, $9));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	FOR scalar '(' remember mexpr ')' mblock cont
 			{
 			  $$ = block_end($4, newFOROP(0,
 				      op_lvalue($2, OP_ENTERLOOP), $5, $7, $8));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	FOR '(' remember mexpr ')' mblock cont
 			{
 			  $$ = block_end($3,
 				  newFOROP(0, (OP*)NULL, $4, $6, $7));
-			  PL_parser->copline = (line_t)$1;
+			  parser->copline = (line_t)$1;
 			}
 	|	block cont
 			{
@@ -402,8 +402,8 @@ barestmt:	PLUGSTMT
 			  /* a block is a loop that happens once */
 			  $$ = newWHILEOP(0, 1, (LOOP*)(OP*)NULL,
 				  (OP*)NULL, block_end($5, $7), (OP*)NULL, 0);
-			  if (PL_parser->copline > (line_t)$4)
-			      PL_parser->copline = (line_t)$4;
+			  if (parser->copline > (line_t)$4)
+			      parser->copline = (line_t)$4;
 			}
 	|	sideff ';'
 			{
@@ -412,7 +412,7 @@ barestmt:	PLUGSTMT
 	|	';'
 			{
 			  $$ = (OP*)NULL;
-			  PL_parser->copline = NOLINE;
+			  parser->copline = NOLINE;
 			}
 	;
 
@@ -426,9 +426,9 @@ formline:	THING formarg
 			  else {
 			      list = $1;
 			  }
-			  if (PL_parser->copline == NOLINE)
-			       PL_parser->copline = CopLINE(PL_curcop)-1;
-			  else PL_parser->copline--;
+			  if (parser->copline == NOLINE)
+			       parser->copline = CopLINE(PL_curcop)-1;
+			  else parser->copline--;
 			  $$ = newSTATEOP(0, NULL,
 					  convert(OP_FORMLINE, 0, list));
 			}
@@ -455,7 +455,7 @@ sideff	:	error
 			{ $$ = newLOOPOP(OPf_PARENS, 1, $3, $1); }
 	|	expr FOR expr
 			{ $$ = newFOROP(0, (OP*)NULL, $3, $1, (OP*)NULL);
-			  PL_parser->copline = (line_t)$2; }
+			  parser->copline = (line_t)$2; }
 	|	expr WHEN expr
 			{ $$ = newWHENOP($3, op_scope($1)); }
 	;
@@ -469,7 +469,7 @@ else	:	/* NULL */
 			  $$ = op_scope($2);
 			}
 	|	ELSIF '(' mexpr ')' mblock else
-			{ PL_parser->copline = (line_t)$1;
+			{ parser->copline = (line_t)$1;
 			    $$ = newCONDOP(0,
 				newSTATEOP(OPf_SPECIAL,NULL,$3),
 				op_scope($5), $6);
@@ -585,15 +585,15 @@ subsignature:	/* NULL */ { $$ = (OP*)NULL; }
 			{
 			  $$ = op_append_list(OP_LINESEQ, $<opval>2,
 				newSTATEOP(0, NULL, sawparens(newNULLLIST())));
-			  PL_parser->expect = XBLOCK;
+			  parser->expect = XBLOCK;
 			}
 	;
 
 /* Subroutine body - block with optional signature */
 realsubbody:	remember subsignature '{' stmtseq '}'
 			{
-			  if (PL_parser->copline > (line_t)$3)
-			      PL_parser->copline = (line_t)$3;
+			  if (parser->copline > (line_t)$3)
+			      parser->copline = (line_t)$3;
 			  $$ = block_end($1,
 				op_append_list(OP_LINESEQ, $2, $4));
 			}
@@ -1015,7 +1015,7 @@ optexpr:	/* NULL */
 /* A little bit of trickery to make "for my $foo (@bar)" actually be
    lexical */
 my_scalar:	scalar
-			{ PL_parser->in_my = 0; $$ = my($1); }
+			{ parser->in_my = 0; $$ = my($1); }
 	;
 
 amper	:	'&' indirob