diff options
| author | Karl Williamson <khw@cpan.org> | 2018-04-19 23:51:32 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2018-04-20 01:11:54 -0600 |
| commit | c2300ef8be26c9fc3c8b6b2c2010436e21614d19 (patch) | |
| tree | 1c863d25d658f4636208c7ee2d6ee82a288c972a /regen | |
| parent | 64affa0c39da0ad6851ea32489dadd6ce54e66e4 (diff) | |
| download | perl-c2300ef8be26c9fc3c8b6b2c2010436e21614d19.tar.gz | |
regen/mph.pl: Add comments to gen'd file
This adds a comment showing for each rule what the input is for it.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mph.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index c8eb9fadb4..e0c84fbfab 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -259,8 +259,8 @@ sub build_array_of_struct { ); $_ > 0xFF and die "panic: value exceeds range of U8" for @u8; - push @rows, sprintf(" { %5d, %5d, %5d, %3d, %3d, %s }", - @u16, @u8, $row->{value} ); + push @rows, sprintf(" { %5d, %5d, %5d, %3d, %3d, %s } /* %s%s */", + @u16, @u8, $row->{value}, $row->{prefix}, $row->{suffix}); } return \@rows,\%defines,\%tests; } |