run vms_yfix.pl
Gurusamy Sarathy [Sun, 27 Sep 1998 04:43:06 +0000 (04:43 +0000)]
p4raw-id: //depot/perl@1897

vms/perly_c.vms

index 12c8b4e..1583f61 100644 (file)
@@ -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;