diff options
| author | Dave Mitchell <davem@fdisolutions.com> | 2006-12-17 22:21:40 +0000 |
|---|---|---|
| committer | Dave Mitchell <davem@fdisolutions.com> | 2006-12-17 22:21:40 +0000 |
| commit | 1654d59374622f7e3936c1480c6dd5a043f5d77b (patch) | |
| tree | 67a8a8ebb66d46e3cb1d6544bcb444b240179776 /regen_perly.pl | |
| parent | 07a064898554820bb8b23ac8751026f7f33d51ae (diff) | |
| download | perl-1654d59374622f7e3936c1480c6dd5a043f5d77b.tar.gz | |
merge the four parser stacks into one
p4raw-id: //depot/perl@29569
Diffstat (limited to 'regen_perly.pl')
| -rw-r--r-- | regen_perly.pl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/regen_perly.pl b/regen_perly.pl index 378c5a32bb..fb01dbd824 100644 --- a/regen_perly.pl +++ b/regen_perly.pl @@ -175,6 +175,11 @@ sub extract { # C<#line 188 "perlytmp.c"> gets picked up by make depend, so remove them. $actlines =~ s/^#line \d+ "\Q$tmpc_file\E".*$//gm; + # convert yyvsp[nnn] into ps[nnn].val + + $actlines =~ s/yyvsp\[(.*?)\]/ps[$1].val/g + or die "Can't convert value stack name\n"; + return $actlines. "\n", $tablines. "\n"; } |