X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=regen_perly.pl;h=fb01dbd8242412c9100c7ebcfd6b8b2ee03eca49;hb=9444d2138b6b5264fb9381e43188986db5564e80;hp=378c5a32bb19df644334f9282d29a9772eecd139;hpb=702119bc891cbff15043348ab2eab5c9d600e0be;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/regen_perly.pl b/regen_perly.pl
index 378c5a3..fb01dbd 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";
 }