diff options
Diffstat (limited to 'contrib/perl5/regcomp.pl')
-rw-r--r-- | contrib/perl5/regcomp.pl | 29 |
1 files changed, 25 insertions, 4 deletions
diff --git a/contrib/perl5/regcomp.pl b/contrib/perl5/regcomp.pl index cfe59ad..d7d0733 100644 --- a/contrib/perl5/regcomp.pl +++ b/contrib/perl5/regcomp.pl @@ -21,7 +21,7 @@ open OUT, ">$tmp_h"; print OUT <<EOP; /* !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - This file is built by regcomp.pl from regcomp.sym. + This file is built by regcomp.pl from regcomp.sym. Any changes made here will be lost! */ @@ -39,9 +39,9 @@ EOP print OUT <<EOP; #ifndef DOINIT -EXTCONST U8 regkind[]; +EXTCONST U8 PL_regkind[]; #else -EXTCONST U8 regkind[] = { +EXTCONST U8 PL_regkind[] = { EOP $ind = 0; @@ -79,7 +79,7 @@ EOP $ind = 0; while (++$ind <= $tot) { $size = $longj[$ind] || 0; - + print OUT <<EOP; $size, /* $name[$ind] */ EOP @@ -87,6 +87,27 @@ EOP print OUT <<EOP; }; + +#ifdef DEBUGGING +const static char * const reg_name[] = { +EOP + +$ind = 0; +while (++$ind <= $tot) { + $hind = sprintf "%#4x", $ind-1; + $size = $longj[$ind] || 0; + + print OUT <<EOP; + "$name[$ind]", /* $hind */ +EOP +} + +print OUT <<EOP; +}; + +const static int reg_num = $tot; + +#endif /* DEBUGGING */ #endif /* REG_COMP_C */ EOP |