mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 05:12:26 +00:00
parent
249e6f03ee
commit
5981787892
1 changed files with 1 additions and 1 deletions
|
|
@ -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]; (* this will work for little endiad -- noch *)
|
int16[1] := longintarr[1]; (* this will work for little endian -- noch *)
|
||||||
END ToInt16;
|
END ToInt16;
|
||||||
|
|
||||||
PROCEDURE ToInt32*(int: LONGINT) : Int32;
|
PROCEDURE ToInt32*(int: LONGINT) : Int32;
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue