aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorBjörn Gustavsson <[email protected]>2010-09-30 15:30:32 +0200
committerBjörn Gustavsson <[email protected]>2010-09-30 15:36:15 +0200
commit80d13dd3c0bea0f40811fa8d0c3690818c0414c1 (patch)
tree32d6d564b5db1ee80a7e69a3069505931c78dd9e
parent800a07c5a386a79465ad33e5015ba20bad2ccc62 (diff)
downloadotp-80d13dd3c0bea0f40811fa8d0c3690818c0414c1.tar.gz
otp-80d13dd3c0bea0f40811fa8d0c3690818c0414c1.tar.bz2
otp-80d13dd3c0bea0f40811fa8d0c3690818c0414c1.zip
ts_install: Identify the halfword emulator
-rw-r--r--lib/test_server/src/ts_install.erl8
1 files changed, 5 insertions, 3 deletions
diff --git a/lib/test_server/src/ts_install.erl b/lib/test_server/src/ts_install.erl
index bbbb7883db..2ddffccf5b 100644
--- a/lib/test_server/src/ts_install.erl
+++ b/lib/test_server/src/ts_install.erl
@@ -226,9 +226,11 @@ to_upper(String) ->
String).
word_size() ->
- case erlang:system_info(wordsize) of
- 4 -> "";
- 8 -> "/64"
+ case {erlang:system_info({wordsize,external}),
+ erlang:system_info({wordsize,internal})} of
+ {4,4} -> "";
+ {8,8} -> "/64";
+ {8,4} -> "/Halfword"
end.
linux_dist() ->