From d2ff0ea5d54688a0a7f3f3af3b3a880a66eb100e Mon Sep 17 00:00:00 2001 From: "H. Peter Anvin" Date: Mon, 26 May 2008 11:21:25 -0700 Subject: [PATCH] Add some comments to the output of macros.pl Add some comments to the output of macros.pl, which might make it a little bit easier to debug issues if there should be any. --- macros.pl | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/macros.pl b/macros.pl index 98f97ee7..ec8d85ff 100644 --- a/macros.pl +++ b/macros.pl @@ -18,8 +18,10 @@ undef $tasm_count; open(OUTPUT,">macros.c") or die "unable to open macros.c\n"; -print OUTPUT "/* This file auto-generated from standard.mac by macros.pl" . -" - don't edit it */\n"; +print OUTPUT "/*\n"; +print OUTPUT " * Do not edit - this file auto-generated by macros.pl from:\n"; +print OUTPUT " * ", join(' ', @ARGV), "\n"; +print OUTPUT " */\n"; print OUTPUT "\n"; print OUTPUT "#include \"tables.h\"\n"; print OUTPUT "\n"; @@ -27,11 +29,13 @@ print OUTPUT "const char * const nasm_stdmac[] = {\n"; foreach $fname ( @ARGV ) { open(INPUT,$fname) or die "unable to open $fname\n"; + print OUTPUT " /* *** From $fname *** */\n"; while () { $line++; chomp; if (m/^\s*\*END\*TASM\*MACROS\*\s*$/) { $tasm_count = $index; + print OUTPUT " /* --- End of TASM macros --- */\n"; } elsif (m/^\s*((\s*([^\"\';\s]+|\"[^\"]*\"|\'[^\']*\'))*)\s*(;.*)?$/) { $_ = $1; s/\\/\\\\/g; -- 2.11.4.GIT