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

Fix misfiring of error 308 by calculating type sizes when not already calculated.

Browse source
This commit is contained in:
David Brown 2016-11-15 22:59:43 +00:00
parent c12aae020d
commit 65db905f0b
6 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
src/compiler/OPB.Mod
View file

@ -1226,6 +1226,7 @@ MODULE OPB; (* RC 6.3.89 / 21.2.94 *) (* object model 17.1.93 *)
err(126)
END;
(* Warn if the result type includes memory past the end of the source variable *)
OPT.TypSize(x.typ); OPT.TypSize(p.typ);
IF (x.class # OPT.Nconst) & (x.typ.size < p.typ.size) THEN err(-308) END;
IF (x.class = OPT.Nconst) & (x.typ.form = OPT.Int) & (p.typ.form = OPT.Int) THEN