paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-04 13:47:23 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ higher level browser

Browse Source
This commit is contained in:
pierre 1999-11-07 23:57:36 +00:00
parent 917bf5b071
commit aa99cfa4d0
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/symdef.inc
View File

@ -217,7 +217,7 @@
is_in_current:=true;
exit;
end
else if p^.symtabletype in [{localsymtable,parasymtable,}objectsymtable] then
else if p^.symtabletype in [localsymtable,parasymtable,objectsymtable] then
begin
if assigned(p^.defowner) then
p:=pobjectdef(p^.defowner)^.owner
@ -2569,12 +2569,14 @@ Const local_symtable_index : longint = $8001;
pdo:=_class;
st:=aktlocalsymtable;
new(parast,loadas(parasymtable));
parast^.defowner:=@self;
aktlocalsymtable:=parast;
parast^.deref;
parast^.next:=owner;
parast^.load_browser;
aktlocalsymtable:=st;
new(localst,loadas(localsymtable));
localst^.defowner:=@self;
aktlocalsymtable:=localst;
localst^.deref;
localst^.next:=parast;
@ -2642,6 +2644,7 @@ Const local_symtable_index : longint = $8001;
PPU files are then easier to read PM }
if not assigned(parast) then
parast:=new(psymtable,init(parasymtable));
parast^.defowner:=@self;
st:=aktlocalsymtable;
aktlocalsymtable:=parast;
parast^.writeas;
@ -2650,6 +2653,7 @@ Const local_symtable_index : longint = $8001;
parast^.write_browser;
if not assigned(localst) then
localst:=new(psymtable,init(localsymtable));
localst^.defowner:=@self;
aktlocalsymtable:=localst;
localst^.writeas;
localst^.unitid:=local_symtable_index;
@ -3811,7 +3815,10 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.174 1999-11-06 14:34:26 peter
Revision 1.175 1999-11-07 23:57:36 pierre
+ higher level browser
Revision 1.174 1999/11/06 14:34:26 peter
* truncated log to 20 revs
Revision 1.173 1999/11/05 17:18:02 pierre