aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2011-06-13 14:38:52 +0200
committerBjörn Gustavsson <[email protected]>2011-10-11 10:08:46 +0200
commit3b3bb767433a333750b090908fa370d957bbbfa2 (patch)
tree494ee27fd0814b45fbcefc2918945d441e99123a
parent8f52f4b5d92197de19dd5df29513a9dcb5437280 (diff)
downloadotp-3b3bb767433a333750b090908fa370d957bbbfa2.tar.gz
otp-3b3bb767433a333750b090908fa370d957bbbfa2.tar.bz2
otp-3b3bb767433a333750b090908fa370d957bbbfa2.zip
Generalize and rename is_set_var_instr() to is_instr()
It is more useful to have a helper function that can test for any instruction.
-rwxr-xr-xerts/emulator/utils/beam_makeops10
1 files changed, 5 insertions, 5 deletions
diff --git a/erts/emulator/utils/beam_makeops b/erts/emulator/utils/beam_makeops
index ebf7db3277..75047f22bd 100755
--- a/erts/emulator/utils/beam_makeops
+++ b/erts/emulator/utils/beam_makeops
@@ -1437,7 +1437,7 @@ sub tr_gen_from {
push(@code, &make_op($var, 'set_var', $var{$var}));
}
}
- if (is_set_var_instr($code[$#code])) {
+ if (is_instr($code[$#code], 'set_var')) {
my $ref = pop @code;
my $comment = $ref->[2];
my $var = $ref->[1][1];
@@ -1560,7 +1560,7 @@ sub tr_gen_to {
}
push(@code, &make_op('', 'next_arg'));
}
- pop(@code) if $code[$#code]->[1][0] eq 'next_arg';
+ pop(@code) if is_instr($code[$#code], 'next_arg');
}
push(@code, &make_op('', 'end'));
@@ -1597,10 +1597,10 @@ sub make_op {
[scalar(@op), [@op], $comment];
}
-sub is_set_var_instr {
- my($ref) = @_;
+sub is_instr {
+ my($ref,$op) = @_;
return 0 unless ref($ref) eq 'ARRAY';
- $ref->[1][0] eq 'set_var';
+ $ref->[1][0] eq $op;
}
sub tr_gen_call {