From 5ae282dc9f73f314c51c870a205d402dcf71ed7d Mon Sep 17 00:00:00 2001 From: David Brown Date: Thu, 24 Nov 2016 19:00:46 +0000 Subject: [PATCH] Trigger build (after dragging each build machine past the v2.00 tag.) --- src/compiler/OPP.Mod | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/compiler/OPP.Mod b/src/compiler/OPP.Mod index 329d52b4..826a60e6 100644 --- a/src/compiler/OPP.Mod +++ b/src/compiler/OPP.Mod @@ -218,12 +218,10 @@ MODULE OPP; (* NW, RC 6.3.89 / 10.2.94 *) (* object model 4.12.93 *) END END ; CheckSym(OPS.colon); Type(typ, OPT.notyp); - IF ((typ.comp = OPT.Array) OR (typ.comp = OPT.Record)) & (typ.strobj = NIL) THEN err(-309) END; - IF mode = OPT.Var THEN typ^.pvused := TRUE END ; (* typ^.pbused is set when parameter type name is parsed *) WHILE first # NIL DO first^.typ := typ; first := first^.link END ;