mirror of
https://github.com/vishapoberon/compiler.git
synced 2026-04-06 01:42:24 +00:00
fixed bug found by zorko
and described
[here](https://code.google.com/p/ofront/issues/detail?id=6) with a
little modification.
Former-commit-id: 7ff54e56bd
This commit is contained in:
parent
015617518c
commit
4d34283a4e
2 changed files with 2 additions and 2 deletions
|
|
@ -203,7 +203,7 @@ MODULE OPC; (* copyright (c) J. Templ 12.7.95 / 3.7.96 *)
|
|||
ELSE
|
||||
pointers := 0;
|
||||
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 openClause THEN OPM.Write(OpenParen); openClause := FALSE END ;
|
||||
WHILE pointers > 0 DO OPM.Write(Star); DEC (pointers) END
|
||||
|
|
|
|||
|
|
@ -1 +1 @@
|
|||
80e5f927908e8441dcbdb947ac1b71a0d02e861c
|
||||
1bf4f972c6fb10b8b7f3c6613948482a1682528c
|
||||
Loading…
Add table
Add a link
Reference in a new issue