From b23da8a6c84d7443508abed2a61b3089d60a2b4d Mon Sep 17 00:00:00 2001 From: Gurusamy Sarathy Date: Sun, 27 Sep 1998 04:43:06 +0000 Subject: run vms_yfix.pl p4raw-id: //depot/perl@1897 --- vms/perly_c.vms | 29 +++++++++++++++-------------- 1 file changed, 15 insertions(+), 14 deletions(-) (limited to 'vms') diff --git a/vms/perly_c.vms b/vms/perly_c.vms index 12c8b4e3db..1583f61a10 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; -- cgit v1.2.1