aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2011-06-13 16:14:48 +0200
committerBjörn Gustavsson <[email protected]>2011-10-11 11:36:34 +0200
commiteea824979a7e8dfd760b943b1790663849862342 (patch)
tree57ff1850f87889609d8794b52c43b7ea52cbaf26
parent929c67fdaca5de8ea9ac3c602acbbaccd074a492 (diff)
downloadotp-eea824979a7e8dfd760b943b1790663849862342.tar.gz
otp-eea824979a7e8dfd760b943b1790663849862342.tar.bz2
otp-eea824979a7e8dfd760b943b1790663849862342.zip
Add some more information in instruction comments
-rwxr-xr-xerts/emulator/utils/beam_makeops5
1 files changed, 3 insertions, 2 deletions
diff --git a/erts/emulator/utils/beam_makeops b/erts/emulator/utils/beam_makeops
index f1fa71fd9e..ec3d6c067d 100755
--- a/erts/emulator/utils/beam_makeops
+++ b/erts/emulator/utils/beam_makeops
@@ -1451,7 +1451,7 @@ sub tr_gen_from {
push(@code, &make_op($types, 'is_type', $type_mask));
} else {
$cond = '';
- push(@code, &make_op($types, 'is_type_eq',
+ push(@code, &make_op("$types== $val", 'is_type_eq',
$type_mask, $val));
}
}
@@ -1629,7 +1629,8 @@ sub tr_gen_to {
if defined @{$gen_transform{$key}}; # Fail
my(@prefix) = (&make_op($comment), &make_op('', 'try_me_else', &tr_code_len(@code)));
unshift(@code, @prefix);
- push(@{$gen_transform{$key}}, @code, &make_op('', 'fail'));
+ push(@{$gen_transform{$key}},
+ @code, make_op(""), make_op("$key", 'fail'));
}
sub tr_code_len {