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

fixed bug found by zorko

Browse source 
and described
[here](https://code.google.com/p/ofront/issues/detail?id=6) with a
little modification.
This commit is contained in:
norayr 2015-06-16 21:33:41 +04:00
parent 643e79f65d
commit 7ff54e56bd
2 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/voc/OPC.Mod
View file

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

BIN
vocstatic.linux.gcc.x86_64
View file

Binary file not shown.