diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-09 12:55:09 -0500 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:53:53 +0000 |
| commit | 8c52afecd5252bed5ed8df3a63a6cd9affde4ab4 (patch) | |
| tree | bf76561b68d175b89a738902a9cce82ceb3cb23c /perly.c.diff | |
| parent | cdaebead333273a920fe10cbcb2213a9fbefa241 (diff) | |
| download | perl-8c52afecd5252bed5ed8df3a63a6cd9affde4ab4.tar.gz | |
Newer -DLEAKTEST patch
p4raw-id: //depot/perl@466
Diffstat (limited to 'perly.c.diff')
| -rw-r--r-- | perly.c.diff | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/perly.c.diff b/perly.c.diff index e13b04bd8c..69555cf2e0 100644 --- a/perly.c.diff +++ b/perly.c.diff @@ -105,7 +105,7 @@ Index: perly.c if (yys = getenv("YYDEBUG")) { ---- 1291,1348 ---- +--- 1291,1349 ---- #define YYACCEPT goto yyaccept #define YYERROR goto yyerrlab + @@ -152,7 +152,8 @@ Index: perly.c + #endif + #endif + -+ struct ysv *ysave = (struct ysv*)safemalloc(sizeof(struct ysv)); ++ struct ysv *ysave; ++ New(73, ysave, 1, struct ysv); + SAVEDESTRUCTOR(yydestruct, ysave); + ysave->oldyydebug = yydebug; + ysave->oldyynerrs = yynerrs; @@ -166,14 +167,16 @@ Index: perly.c { *************** *** 1381,1384 **** ---- 1357,1368 ---- +--- 1357,1370 ---- yychar = (-1); + /* + ** Initialize private stacks (yyparse may be called from an action) + */ -+ ysave->yyss = yyss = (short*)safemalloc(yystacksize*sizeof(short)); -+ ysave->yyvs = yyvs = (YYSTYPE*)safemalloc(yystacksize*sizeof(YYSTYPE)); ++ New(73, yyss, yystacksize, short); ++ New(73, yyvs, yystacksize, YYSTYPE); ++ ysave->yyss = yyss; ++ ysave->yyvs = yyvs; + if (!yyvs || !yyss) + goto yyoverflow; + |