diff options
| author | Björn Gustavsson <[email protected]> | 2011-06-13 16:14:48 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2011-10-11 11:36:34 +0200 |
| commit | eea824979a7e8dfd760b943b1790663849862342 (patch) | |
| tree | 57ff1850f87889609d8794b52c43b7ea52cbaf26 | |
| parent | 929c67fdaca5de8ea9ac3c602acbbaccd074a492 (diff) | |
| download | otp-eea824979a7e8dfd760b943b1790663849862342.tar.gz otp-eea824979a7e8dfd760b943b1790663849862342.tar.bz2 otp-eea824979a7e8dfd760b943b1790663849862342.zip | |
Add some more information in instruction comments
| -rwxr-xr-x | erts/emulator/utils/beam_makeops | 5 |
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 { |