diff options
| author | Sverker Eriksson <[email protected]> | 2016-07-01 15:54:11 +0200 |
|---|---|---|
| committer | Sverker Eriksson <[email protected]> | 2016-07-01 15:54:11 +0200 |
| commit | cdc483461c1c82cbefd333d65fd86ac0d78058c8 (patch) | |
| tree | 4f02d9d98b54c47339c3e0bcc94ae8434a5fe625 /erts | |
| parent | f1691991f0617f7bc0d2b58a4f0ad9410c2e8442 (diff) | |
| download | otp-cdc483461c1c82cbefd333d65fd86ac0d78058c8.tar.gz otp-cdc483461c1c82cbefd333d65fd86ac0d78058c8.tar.bz2 otp-cdc483461c1c82cbefd333d65fd86ac0d78058c8.zip | |
erts: Fix gcbif trace wrappers
Broken on master by f0f4e72c8ec5c08993ff.
Diffstat (limited to 'erts')
| -rwxr-xr-x | erts/emulator/utils/make_tables | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/erts/emulator/utils/make_tables b/erts/emulator/utils/make_tables index fc0500d77f..27f9dcc878 100755 --- a/erts/emulator/utils/make_tables +++ b/erts/emulator/utils/make_tables @@ -91,8 +91,11 @@ while (<>) { $alias .= "${name}_$arity"; } my $wrapper; - $wrapper = "wrap_$alias" if $type eq 'bif'; - $wrapper = $alias if $type eq 'ubif'; + if ($type eq 'bif') { + $wrapper = "wrap_$alias"; + } else { + $wrapper = $alias; + } push(@bif, ["am_$atom_alias{$mod}","am_$atom_alias{$name}",$arity, $alias,$wrapper]); push(@bif_type, $type); |