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

Trigger build (after dragging each build machine past the v2.00 tag.)

Browse source
This commit is contained in:
David Brown 2016-11-24 19:00:46 +00:00
parent 056a317e54
commit 5ae282dc9f
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/compiler/OPP.Mod
View file

@ -218,12 +218,10 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *)
END END
END ; END ;
CheckSym(OPS.colon); Type(typ, OPT.notyp); CheckSym(OPS.colon); Type(typ, OPT.notyp);
IF ((typ.comp = OPT.Array) OR (typ.comp = OPT.Record)) IF ((typ.comp = OPT.Array) OR (typ.comp = OPT.Record))
& (typ.strobj = NIL) THEN & (typ.strobj = NIL) THEN
err(-309) err(-309)
END; END;
IF mode = OPT.Var THEN typ^.pvused := TRUE END ; IF mode = OPT.Var THEN typ^.pvused := TRUE END ;
(* typ^.pbused is set when parameter type name is parsed *) (* typ^.pbused is set when parameter type name is parsed *)
WHILE first # NIL DO first^.typ := typ; first := first^.link END ; WHILE first # NIL DO first^.typ := typ; first := first^.link END ;