diff options
| author | Björn Gustavsson <[email protected]> | 2010-09-30 15:30:32 +0200 |
|---|---|---|
| committer | Björn Gustavsson <[email protected]> | 2010-09-30 15:36:15 +0200 |
| commit | 80d13dd3c0bea0f40811fa8d0c3690818c0414c1 (patch) | |
| tree | 32d6d564b5db1ee80a7e69a3069505931c78dd9e | |
| parent | 800a07c5a386a79465ad33e5015ba20bad2ccc62 (diff) | |
| download | otp-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.erl | 8 |
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() -> |