added comment -- noch

Former-commit-id: 29d62cf1b0
This commit is contained in:
Norayr Chilingarian 2015-02-10 18:43:31 +04:00
parent e2a8882f11
commit 249e6f03ee

View file

@ -102,7 +102,7 @@ MODULE ulmTypes;
(*RETURN SYS.VAL(Int16, int)*) (*RETURN SYS.VAL(Int16, int)*)
longintarr := SYS.VAL(intarr64, int); longintarr := SYS.VAL(intarr64, int);
int16[0] := longintarr[0]; int16[0] := longintarr[0];
int16[1] := longintarr[1]; int16[1] := longintarr[1]; (* this will work for little endiad -- noch *)
END ToInt16; END ToInt16;
PROCEDURE ToInt32*(int: LONGINT) : Int32; PROCEDURE ToInt32*(int: LONGINT) : Int32;