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 incorrect dynarray length type merge with subsequent longint in IdentList.

Browse source
This commit is contained in:
David Brown 2016-12-02 13:02:35 +00:00
parent 6c0c666f91
commit 5c3b42be09
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/OPC.Mod
View file

@ -655,7 +655,7 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
DeclareObj(obj, vis = 3); DeclareObj(obj, vis = 3);
IF obj^.typ^.comp = OPT.DynArr THEN (* declare len parameter(s) *) IF obj^.typ^.comp = OPT.DynArr THEN (* declare len parameter(s) *)
EndStat; BegStat; EndStat; BegStat;
base := OPT.linttyp; base := OPT.adrtyp;
OPM.WriteString("ADDRESS "); LenList(obj, FALSE, TRUE) OPM.WriteString("ADDRESS "); LenList(obj, FALSE, TRUE)
ELSIF (obj^.mode = OPT.VarPar) & (obj^.typ^.comp = OPT.Record) THEN ELSIF (obj^.mode = OPT.VarPar) & (obj^.typ^.comp = OPT.Record) THEN
EndStat; BegStat; EndStat; BegStat;