From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 27 Sep 1998 04:43:06 +0000 (+0000)
Subject: run vms_yfix.pl
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b23da8a6c84d7443508abed2a61b3089d60a2b4d;p=p5sagit%2Fp5-mst-13.2.git

run vms_yfix.pl

p4raw-id: //depot/perl@1897
---

diff --git a/vms/perly_c.vms b/vms/perly_c.vms
index 12c8b4e..1583f61 100644
--- a/vms/perly_c.vms
+++ b/vms/perly_c.vms
@@ -7,6 +7,15 @@ static char yysccsid[] = "@(#)yaccpar 1.8 (Berkeley) 01/20/91";
 #include "EXTERN.h"
 #include "perl.h"
 
+#define yydebug	    PL_yydebug
+#define yynerrs	    PL_yynerrs
+#define yyerrflag   PL_yyerrflag
+#define yychar	    PL_yychar
+#define yyssp	    PL_yyssp
+#define yyvsp	    PL_yyvsp
+#define yyval	    PL_yyval
+#define yylval	    PL_yylval
+
 #ifdef PERL_OBJECT
 static void
 Dep(CPerlObj *pPerl)
@@ -1277,14 +1286,6 @@ dEXT char * yyrule[] = {
 #define YYMAXDEPTH 500
 #endif
 #endif
-dEXT int yydebug;
-dEXT int yynerrs;
-dEXT int yyerrflag;
-dEXT int yychar;
-dEXT short *yyssp;
-dEXT YYSTYPE *yyvsp;
-dEXT YYSTYPE yyval;
-dEXT YYSTYPE yylval;
 #line 643 "perly.y"
  /* PROGRAM */
 #line 1353 "perly.c"
@@ -1409,9 +1410,9 @@ yyloop:
 	    int yypv_index = (yyvsp - yyvs);
 	    yystacksize += YYSTACKSIZE;
 	    ysave->yyvs = yyvs =
-		(YYSTYPE*)realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
+		(YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
 	    ysave->yyss = yyss =
-		(short*)realloc((char*)yyss,yystacksize * sizeof(short));
+		(short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
 	    if (!yyvs || !yyss)
 		goto yyoverflow;
 	    yyssp = yyss + yyps_index;
@@ -1464,9 +1465,9 @@ yyinrecovery:
 		    int yyps_index = (yyssp - yyss);
 		    int yypv_index = (yyvsp - yyvs);
 		    yystacksize += YYSTACKSIZE;
-		    ysave->yyvs = yyvs = (YYSTYPE*)realloc((char*)yyvs,
+		    ysave->yyvs = yyvs = (YYSTYPE*)PerlMem_realloc((char*)yyvs,
 			yystacksize * sizeof(YYSTYPE));
-		    ysave->yyss = yyss = (short*)realloc((char*)yyss,
+		    ysave->yyss = yyss = (short*)PerlMem_realloc((char*)yyss,
 			yystacksize * sizeof(short));
 		    if (!yyvs || !yyss)
 			goto yyoverflow;
@@ -2350,9 +2351,9 @@ break;
 	int yypv_index = (yyvsp - yyvs);
 	yystacksize += YYSTACKSIZE;
 	ysave->yyvs = yyvs =
-	    (YYSTYPE*)realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
+	    (YYSTYPE*)PerlMem_realloc((char*)yyvs,yystacksize * sizeof(YYSTYPE));
 	ysave->yyss = yyss =
-	    (short*)realloc((char*)yyss,yystacksize * sizeof(short));
+	    (short*)PerlMem_realloc((char*)yyss,yystacksize * sizeof(short));
 	if (!yyvs || !yyss)
 	    goto yyoverflow;
 	yyssp = yyss + yyps_index;