<html><head><meta http-equiv="Content-Type" content="text/html charset=us-ascii"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; -webkit-line-break: after-white-space;" class=""><div class=""><span style="white-space: pre-wrap; font-family: monospace;" class="">> Just for the record: Below is a possible implementation of the</span></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">> Oberon-07 compiler that disallows access to ALL intermediate objects,</span></font><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class=""><br class=""></span></font></div><div class=""><font face="monospace" class=""><span style="white-space: pre-wrap;" class="">Amendment: The modified ORP.qualident has one additional line:</span></font><br class=""><div class=""><font face="monospace" class=""><br class=""><span style="white-space: pre-wrap;" class=""> PROCEDURE</span> <span style="white-space: pre-wrap;" class="">qualident(VAR</span> <span style="white-space: pre-wrap;" class="">obj: ORB.Object);</span><br class=""><span style="white-space: pre-wrap;" class=""> BEGIN obj := ORB.thisObj(); ORS.Get(sym);</span><br class=""><span style="white-space: pre-wrap;" class=""> IF obj = NIL</span> <span style="white-space: pre-wrap;" class="">THEN ORS.Mark("undef"); obj := dummy END ;</span><br class=""><span style="white-space: pre-wrap;" class=""> IF (sym = ORS.period) & (obj.class = ORB.Mod) THEN</span><br class=""><span style="white-space: pre-wrap;" class=""> ORS.Get(sym);</span><br class=""><span style="white-space: pre-wrap;" class=""> IF sym = ORS.ident THEN obj := ORB.thisimport(obj); ORS.Get(sym);</span><br class=""><span style="white-space: pre-wrap;" class=""> IF obj = NIL</span> <span style="white-space: pre-wrap;" class="">THEN ORS.Mark("undef"); obj := dummy END</span><br class=""><span style="white-space: pre-wrap;" class=""> ELSE ORS.Mark("identifier expected"); obj := dummy</span><br class=""><span style="white-space: pre-wrap;" class=""> END</span><br class=""><span style="white-space: pre-wrap;" class=""> ELSE CheckLevel(obj.lev) (*<---- added*)</span><br class=""><span style="white-space: pre-wrap;" class=""> END</span><br class=""><span style="white-space: pre-wrap;" class=""> END qualident;</span><br class=""><br class=""></font><br class=""></div></div></div></body></html>