diff options
author | H. Peter Anvin <hpa@zytor.com> | 2019-08-07 01:11:21 -0700 |
---|---|---|
committer | H. Peter Anvin <hpa@zytor.com> | 2019-08-07 01:11:21 -0700 |
commit | 21b0aa4c29a17448cb8ea5199d97a872deedfd67 (patch) | |
tree | 88c2c901c91ecb7ae0af27cdff4eca7576350313 /x86 | |
parent | 0d4d431a016c873ff96f31476874ca87ed76a056 (diff) | |
download | nasm-21b0aa4c29a17448cb8ea5199d97a872deedfd67.tar.gz |
x86/insns-iflags.ph: add comments in iflag.c
Add comments to iflag.c so a human user can have any hope of
figuring out what a particular bitmask actually means.
Signed-off-by: H. Peter Anvin <hpa@zytor.com>
Diffstat (limited to 'x86')
-rw-r--r-- | x86/insns-iflags.ph | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/x86/insns-iflags.ph b/x86/insns-iflags.ph index cca3acf8..208c1eed 100644 --- a/x86/insns-iflags.ph +++ b/x86/insns-iflags.ph @@ -115,12 +115,13 @@ if_end(); my %insns_flag_hash = (); my @insns_flag_values = (); +my @insns_flag_lists = (); sub insns_flag_index(@) { return undef if $_[0] eq "ignore"; my @prekey = sort(@_); - my $key = join("", @prekey); + my $key = join(',', @prekey); if (not defined($insns_flag_hash{$key})) { my @newkey = (0) x $iflag_words; @@ -134,6 +135,7 @@ sub insns_flag_index(@) { my $str = join(',', map { sprintf("UINT32_C(0x%08x)",$_) } @newkey); push @insns_flag_values, $str; + push @insns_flag_lists, $key; $insns_flag_hash{$key} = $#insns_flag_values; } @@ -227,9 +229,10 @@ sub write_iflag_c() { printf N "const iflag_t insns_flags[%d] = {\n", $#insns_flag_values + 1; foreach my $i (0 .. $#insns_flag_values) { - print N sprintf(" /* %4d */ {{ %s }},\n", $i, $insns_flag_values[$i]); + printf N " {{%s}}, /* %3d : %s */\n", + $insns_flag_values[$i], $i, $insns_flag_lists[$i]; } - print N "};\n\n"; + print N "};\n"; close N; } |