vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-05 23:22:25 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

plongrealarray had to be pointer to longrealarray. -- noch

Browse source
This commit is contained in:
norayr 2016-11-29 15:00:18 +04:00
parent a22c894fd4
commit 047d8b94e7
2 changed files with 16 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

22
src/library/ulm/ulmSYSTEM.Mod
View file

@ -8,7 +8,7 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
TYPE bytearray* = ARRAY SIZE(LONGINT) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
pbytearray* = POINTER TO bytearray;
TYPE longrealarray* = ARRAY SIZE(LONGREAL) OF SYSTEM.BYTE; (* need this because voc does not convert implicitly LONGINT to ARRAY OF BYTE; -- noch *)
plongrealarray* = POINTER TO bytearray;
plongrealarray* = POINTER TO longrealarray;
PROCEDURE LongToByteArr* ( l : LONGINT; VAR bar : bytearray); (* noch *)
VAR b : SYSTEM.BYTE;
@ -23,24 +23,26 @@ TYPE pchar = POINTER TO ARRAY 1 OF CHAR;
PROCEDURE LRealToByteArr* ( l : LONGREAL; VAR lar : longrealarray); (* noch *)
VAR b : SYSTEM.BYTE;
(*adr: SYSTEM.ADDRESS;*)
p : plongrealarray;
i : LONGINT;
BEGIN
p := SYSTEM.VAL(plongrealarray, SYSTEM.ADR(l));
FOR i := 0 TO SIZE(LONGREAL) -1 DO
b := p^[i]; lar[i] := b;
b := p^[i];
lar[i] := b;
END
(*
adr := SYSTEM.ADR(l);
i := 0;
REPEAT
SYSTEM.GET(adr + i, b);
lar[i] := b;
INC(i)
UNTIL i = SIZE(LONGREAL);*)
END LRealToByteArr;
(*
PROCEDURE -Write(adr, n: LONGINT): LONGINT
"write(1/*stdout*/, adr, n)";
PROCEDURE -read(VAR ch: CHAR): LONGINT
"read(0/*stdin*/, ch, 1)";
*)
PROCEDURE TAS*(VAR flag:BOOLEAN): BOOLEAN; (* added for compatibility with ulmSYSTEM module; noch *)
VAR oldflag : BOOLEAN;
BEGIN

8
src/library/ulm/ulmTypes.Mod
View file

@ -55,13 +55,13 @@ MODULE ulmTypes;
UntracedAddress* = POINTER[1] TO UntracedAddressDesc; (*SYS.UNTRACEDADDRESS;*)
UntracedAddressDesc* = RECORD[1] END;
Count* = LONGINT;
Count* = SYS.INT32;
Size* = Count;
Byte* = SYS.BYTE;
IntAddress* = LONGINT;
Int8* = SHORTINT;
Int16* = INTEGER; (* No real 16 bit integer type *)
Int32* = INTEGER;
Int8* = SYS.INT8;
Int16* = SYS.INT16;
Int32* = SYS.INT32;
Real32* = REAL;
Real64* = LONGREAL;