diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-05-05 21:21:05 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-10 10:57:49 +0000 |
| commit | 12c0d5b3ada38b3c72014da534747207f5863a25 (patch) | |
| tree | 38467af2f8e77585658939bd07f237423b5161d1 /regcomp.pl | |
| parent | 2644cc246913b2601c6d8d6cdfbbcdcd3d41eb1f (diff) | |
| download | perl-12c0d5b3ada38b3c72014da534747207f5863a25.tar.gz | |
Cosmetic: data-driven REx-dump
Message-Id: <199905060521.BAA03485@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3372
Diffstat (limited to 'regcomp.pl')
| -rw-r--r-- | regcomp.pl | 25 |
1 files changed, 23 insertions, 2 deletions
diff --git a/regcomp.pl b/regcomp.pl index d78321895c..d7d0733010 100644 --- a/regcomp.pl +++ b/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! */ @@ -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 |