vishapoberon/compiler
1
0
Fork 0
mirror of https://github.com/vishapoberon/compiler.git synced 2026-04-06 02:52:24 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

fixes "memory past end of source var" warning, solution by @kekcleader;

Browse source 
issue: https://github.com/vishaps/voc/issues/96
This commit is contained in:
Norayr Chilingarian 2021-12-27 19:52:27 +04:00
parent 3d62284b32
commit bc8adf76c1
1 changed files with 9 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/runtime/Files.Mod
View file

@ -672,7 +672,15 @@ Especially Length would become fairly complex.
PROCEDURE WriteSet* (VAR R: Rider; x: SET); PROCEDURE WriteSet* (VAR R: Rider; x: SET);
VAR b: ARRAY 4 OF CHAR; i: LONGINT; VAR b: ARRAY 4 OF CHAR; i: LONGINT;
BEGIN i := SYSTEM.VAL(LONGINT, x); y: SYSTEM.SET64;
BEGIN
IF SIZE(SET) = SIZE(INTEGER) THEN
i := SYSTEM.VAL(INTEGER, x);
ELSE
y := x;
i := SYSTEM.VAL(LONGINT, y);
END;
b[0] := CHR(i); b[1] := CHR(i DIV 100H); b[2] := CHR(i DIV 10000H); b[3] := CHR(i DIV 1000000H); b[0] := CHR(i); b[1] := CHR(i DIV 100H); b[2] := CHR(i DIV 10000H); b[3] := CHR(i DIV 1000000H);
WriteBytes(R, b, 4); WriteBytes(R, b, 4);
END WriteSet; END WriteSet;