6 lines
280 B
Text
6 lines
280 B
Text
procedure main()
|
|
write(if 0 = ishift(1,-1) then "little" else "big"," endian")
|
|
if match("flags",line := !open("/proc/cpuinfo")) then # Unix-like only
|
|
write(if find(" lm ",line) then 64 else 32," bits per word")
|
|
else write("Cannot determine word size.")
|
|
end
|