mirror/nasm
2
0
Fork 0
mirror of https://github.com/netwide-assembler/nasm.git synced 2025-03-31 18:20:22 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fixed regdis.c generation.

Browse Source
This commit is contained in:
Keith Kanios 2007-04-15 01:37:13 +00:00
parent 61ff53c80d
commit b7314d83f1
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
regs.pl
View File

@ -102,10 +102,15 @@ if ( $fmt eq 'h' ) {
foreach $class ( sort(keys(%disclass)) ) {
printf "static const int %-8s[] = {", $class;
@foo = @{$disclass{$class}};
@bar = 0;
$counter = 0;
for ( $i = 0 ; $i < scalar(@foo) ; $i++ ) {
$foo[$i] = defined($foo[$i]) ? "R_\U$foo[$i]\E" : '0';
if (defined($foo[$i])) {
$bar[$counter] = "R_\U$foo[$i]\E";
$counter ++;
}
}
print join(',', @foo), "};\n";
print join(',', @bar), "};\n";
}
} else {
die "$0: Unknown output format\n";