diff options
author | Karl Williamson <khw@cpan.org> | 2018-04-19 08:56:00 -0600 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2018-04-20 01:11:54 -0600 |
commit | c0040b7e8ed06f80decc703246e417668aa3a7c1 (patch) | |
tree | 3854df1b37f806695518e7bcb275176d06a19212 /regen | |
parent | 9923c0b5362fcb85f1b42513db26f01d5f7859a5 (diff) | |
download | perl-c0040b7e8ed06f80decc703246e417668aa3a7c1.tar.gz |
regen/mph.pl: Move a print around
This needs to be placed elsewhere so it is always output, in preparation
for the next commits when not everything gets generated
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mph.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/regen/mph.pl b/regen/mph.pl index 8b6603cb24..e05c3d3ca1 100644 --- a/regen/mph.pl +++ b/regen/mph.pl @@ -284,6 +284,7 @@ sub print_algo { my $n= 0+@$second_level; my $data_size= 0+@$second_level * 8 + length $smart_blob; + print $ofh "#define ${prefix}_VALt I16\n\n"; print $ofh "/*\n"; printf $ofh "rows: %s\n", $n; printf $ofh "seed: %s\n", $seed1; @@ -347,7 +348,6 @@ EOF_CODE sub print_main { my ($ofh,$h_file,$match_name,$prefix)=@_; print $ofh <<"EOF_CODE"; -#define ${prefix}_VALt I16 #include "$h_file" int main(int argc, char *argv[]){ |