From 17aba7002c053ad0d4f1341d6ce7576b314d8165 Mon Sep 17 00:00:00 2001 From: peter Date: Sat, 7 Sep 2002 14:13:40 +0000 Subject: [PATCH] * fixed procdef access --- compiler/browcol.pas | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/compiler/browcol.pas b/compiler/browcol.pas index 7382f154e9..1c5eef71aa 100644 --- a/compiler/browcol.pas +++ b/compiler/browcol.pas @@ -1488,13 +1488,13 @@ end; procsym : begin with tprocsym(sym) do - if assigned(defs^.def) then + if assigned(first_procdef) then begin if cs_local_browser in aktmoduleswitches then - ProcessSymTable(Symbol,Symbol^.Items,defs^.def.parast); - if assigned(defs^.def.parast) then + ProcessSymTable(Symbol,Symbol^.Items,first_procdef.parast); + if assigned(first_procdef.parast) then begin - Symbol^.Params:=TypeNames^.Add(GetAbsProcParmDefStr(defs^.def)); + Symbol^.Params:=TypeNames^.Add(GetAbsProcParmDefStr(first_procdef)); end else { param-definition is NOT assigned } if assigned(Table.Name) then @@ -1504,9 +1504,9 @@ end; end; if cs_local_browser in aktmoduleswitches then begin - if assigned(defs^.def.localst) and - (defs^.def.localst.symtabletype<>staticsymtable) then - ProcessSymTable(Symbol,Symbol^.Items,defs^.def.localst); + if assigned(first_procdef.localst) and + (first_procdef.localst.symtabletype<>staticsymtable) then + ProcessSymTable(Symbol,Symbol^.Items,first_procdef.localst); end; end; end; @@ -2125,7 +2125,10 @@ begin end. { $Log$ - Revision 1.27 2002-08-25 19:25:18 peter + Revision 1.28 2002-09-07 14:13:40 peter + * fixed procdef access + + Revision 1.27 2002/08/25 19:25:18 peter * sym.insert_in_data removed * symtable.insertvardata/insertconstdata added * removed insert_in_data call from symtable.insert, it needs to be