paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-06 13:07:16 +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; is_in_current:=true;
exit; exit;
end end
else if p^.symtabletype in [{localsymtable,parasymtable,}objectsymtable] then else if p^.symtabletype in [localsymtable,parasymtable,objectsymtable] then
begin begin
if assigned(p^.defowner) then if assigned(p^.defowner) then
p:=pobjectdef(p^.defowner)^.owner p:=pobjectdef(p^.defowner)^.owner
@ -2569,12 +2569,14 @@ Const local_symtable_index : longint = $8001;
pdo:=_class; pdo:=_class;
st:=aktlocalsymtable; st:=aktlocalsymtable;
new(parast,loadas(parasymtable)); new(parast,loadas(parasymtable));
parast^.defowner:=@self;
aktlocalsymtable:=parast; aktlocalsymtable:=parast;
parast^.deref; parast^.deref;
parast^.next:=owner; parast^.next:=owner;
parast^.load_browser; parast^.load_browser;
aktlocalsymtable:=st; aktlocalsymtable:=st;
new(localst,loadas(localsymtable)); new(localst,loadas(localsymtable));
localst^.defowner:=@self;
aktlocalsymtable:=localst; aktlocalsymtable:=localst;
localst^.deref; localst^.deref;
localst^.next:=parast; localst^.next:=parast;
@ -2642,6 +2644,7 @@ Const local_symtable_index : longint = $8001;
PPU files are then easier to read PM } PPU files are then easier to read PM }
if not assigned(parast) then if not assigned(parast) then
parast:=new(psymtable,init(parasymtable)); parast:=new(psymtable,init(parasymtable));
parast^.defowner:=@self;
st:=aktlocalsymtable; st:=aktlocalsymtable;
aktlocalsymtable:=parast; aktlocalsymtable:=parast;
parast^.writeas; parast^.writeas;
@ -2650,6 +2653,7 @@ Const local_symtable_index : longint = $8001;
parast^.write_browser; parast^.write_browser;
if not assigned(localst) then if not assigned(localst) then
localst:=new(psymtable,init(localsymtable)); localst:=new(psymtable,init(localsymtable));
localst^.defowner:=@self;
aktlocalsymtable:=localst; aktlocalsymtable:=localst;
localst^.writeas; localst^.writeas;
localst^.unitid:=local_symtable_index; localst^.unitid:=local_symtable_index;
@ -3811,7 +3815,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $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 * truncated log to 20 revs
Revision 1.173 1999/11/05 17:18:02 pierre Revision 1.173 1999/11/05 17:18:02 pierre