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

fixed endless recursion in Stars for inherited imported fie

Browse source 
synced with Templ version of Ofront.


Former-commit-id: 5afbe2cfbc
This commit is contained in:
Norayr Chilingarian 2015-10-08 20:04:02 +04:00
parent b00409910c
commit 85dc46c036
2 changed files with 7 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/voc/OPC.Mod
View file

@ -202,9 +202,13 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
OPM.Write(OpenParen); OPM.Write(Star)
ELSE
pointers := 0;
WHILE (typ^.strobj = NIL) & (typ^.form = Pointer) DO INC (pointers); typ := typ^.BaseTyp END ;
IF (typ^.comp # DynArr) & (pointers # 0) THEN Stars (typ, openClause) END ;
(*WHILE (typ^.strobj = NIL) & (typ^.form = Pointer) DO INC (pointers); typ := typ^.BaseTyp END ;
IF (typ^.comp # DynArr) & (pointers # 0) THEN Stars (typ, openClause) END ;*)
WHILE ((typ^.strobj = NIL) OR (typ^.strobj^.name = "")) & (typ^.form = Pointer) DO
INC (pointers); typ := typ^.BaseTyp
END ;
IF pointers > 0 THEN
IF typ^.comp # DynArr THEN Stars (typ, openClause) END ;
IF openClause THEN OPM.Write(OpenParen); openClause := FALSE END ;
WHILE pointers > 0 DO OPM.Write(Star); DEC (pointers) END
END