aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/utils/beam_makeops
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2010-10-18 16:39:59 +0200
committerBjörn Gustavsson <[email protected]>2011-01-17 15:23:38 +0100
commite31af112f63b11622d6a3a49cb444d5613af2f1f (patch)
tree99972deacdd447774d5892bccc06389843885f48 /erts/emulator/utils/beam_makeops
parentec325cc785916c6a4991fe2e03747a97b7e1ae75 (diff)
downloadotp-e31af112f63b11622d6a3a49cb444d5613af2f1f.tar.gz
otp-e31af112f63b11622d6a3a49cb444d5613af2f1f.tar.bz2
otp-e31af112f63b11622d6a3a49cb444d5613af2f1f.zip
Pass the external word size to the beam_makeops script
Giving the beam_makeops script access to the external word size (=the size of instruction words) will allow it to pack more operands into a word for the 64 bits emulator.
Diffstat (limited to 'erts/emulator/utils/beam_makeops')
-rwxr-xr-xerts/emulator/utils/beam_makeops2
1 files changed, 2 insertions, 0 deletions
diff --git a/erts/emulator/utils/beam_makeops b/erts/emulator/utils/beam_makeops
index cb91517f04..aa1aba6856 100755
--- a/erts/emulator/utils/beam_makeops
+++ b/erts/emulator/utils/beam_makeops
@@ -27,6 +27,7 @@ my $outdir = "."; # Directory for output files.
my $verbose = 0;
my $hot = 1;
my $num_file_opcodes = 0;
+my $wordsize = 32;
# This is shift counts and mask for the packer.
my $WHOLE_WORD = '';
@@ -171,6 +172,7 @@ while (@ARGV && $ARGV[0] =~ /^-(.*)/) {
($target = \&emulator_output), next if /^emulator/;
($target = \&compiler_output), next if /^compiler/;
($outdir = shift), next if /^outdir/;
+ ($wordsize = shift), next if /^wordsize/;
($verbose = 1), next if /^v/;
die "$0: Bad option: -$_\n";
}