25 lines
507 B
Text
25 lines
507 B
Text
|
Enumeration
|
||
|
|
#LittleEndian
|
||
|
|
#BigEndian
|
||
|
|
EndEnumeration
|
||
|
|
|
||
|
|
ProcedureDLL EndianTest()
|
||
|
|
Protected Endian = #LittleEndian
|
||
|
|
Protected dummy.l= 'ABCD'
|
||
|
|
If "A"=Chr(PeekA(@dummy))
|
||
|
|
Endian=#BigEndian
|
||
|
|
EndIf
|
||
|
|
ProcedureReturn Endian
|
||
|
|
EndProcedure
|
||
|
|
|
||
|
|
;- *** Start of test code
|
||
|
|
If OpenConsole()
|
||
|
|
PrintN("Your word size is "+Str(SizeOf(Integer)) +" bytes,")
|
||
|
|
Select EndianTest()
|
||
|
|
Case #LittleEndian
|
||
|
|
PrintN("and you use Little Endian.")
|
||
|
|
Default
|
||
|
|
PrintN("and you use Big Endian.")
|
||
|
|
EndSelect
|
||
|
|
EndIf
|