diff options
| author | Björn-Egil Dahlberg <[email protected]> | 2014-06-27 15:24:20 +0200 |
|---|---|---|
| committer | Björn-Egil Dahlberg <[email protected]> | 2014-08-26 12:12:48 +0200 |
| commit | 3e4422d3cf97d25423b6f5be714639e666b222d4 (patch) | |
| tree | 4208a968eafcf9cac1dfc02f90b2b4bc90ecb141 /lib/compiler/src/cerl.erl | |
| parent | 4e84810eca640220a333f104d25412399b6c0d31 (diff) | |
| download | otp-3e4422d3cf97d25423b6f5be714639e666b222d4.tar.gz otp-3e4422d3cf97d25423b6f5be714639e666b222d4.tar.bz2 otp-3e4422d3cf97d25423b6f5be714639e666b222d4.zip | |
compiler: Use variables in Map cerl inliner
Diffstat (limited to 'lib/compiler/src/cerl.erl')
| -rw-r--r-- | lib/compiler/src/cerl.erl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lib/compiler/src/cerl.erl b/lib/compiler/src/cerl.erl index 9d6768b157..7a2c3d70de 100644 --- a/lib/compiler/src/cerl.erl +++ b/lib/compiler/src/cerl.erl @@ -3063,10 +3063,12 @@ pat_vars(Node, Vs) -> map -> pat_list_vars(map_es(Node), Vs); map_pair -> - pat_list_vars([map_pair_op(Node),map_pair_key(Node),map_pair_val(Node)],Vs); + %% map_pair_key is not a pattern var, excluded + pat_list_vars([map_pair_op(Node),map_pair_val(Node)],Vs); binary -> pat_list_vars(binary_segments(Node), Vs); bitstr -> + %% bitstr_size is not a pattern var, excluded pat_vars(bitstr_val(Node), Vs); alias -> pat_vars(alias_pat(Node), [alias_var(Node) | Vs]) |