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

macros.pl: remove debug prints; improve compression regex

Browse Source 
Remove debug print statements from macros.pl
Make sure we test for whitespace at end of statements
This commit is contained in:
H. Peter Anvin 2008-06-19 16:12:20 -07:00
parent 72edbb87ef
commit e21ede9c76
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
macros.pl
View File

@ -63,13 +63,11 @@ foreach $fname ( @ARGV ) {
$s1 =~ s/\\/\\\\/g;
$s1 =~ s/"/\\"/g;
$s2 = '';
print $s1, ":";
while ($s1 =~ /^(.*)(\%[a-zA-Z_][a-zA-Z0-9_]*)(\s*)(.*)$/) {
while ($s1 =~ /^(.*)(\%[a-zA-Z_][a-zA-Z0-9_]*)((\s+)(.*)|)$/) {
$s2 .= $1;
$pd = $2;
$ws = $3;
$s1 = $4;
print " ", $pd;
$ws = $4;
$s1 = $5;
if (defined($pptok_hash{$pd}) &&
$pptok_hash{$pd} <= 127) {
$s2 .= sprintf("\\x%02x\"\"", $pptok_hash{$pd}+128);
@ -77,7 +75,6 @@ foreach $fname ( @ARGV ) {
$s2 .= $pd.$ws;
}
}
print "\n";
$s2 .= $s1;
if (length($s2) > 0) {
printf OUT " /* %4d */ \"%s\",\n", $index++, $s2;