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

* localbrowser loading of absolute fixed. It needed a symtablestack

Browse Source 
which was not setup correctly
This commit is contained in:
peter 2000-01-23 16:35:31 +00:00
parent 5ca6d45c4d
commit 8abfec4e7c
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/symdef.inc
View File

@ -2578,6 +2578,7 @@ Const local_symtable_index : longint = $8001;
var
pos : tfileposinfo;
{$ifndef NOLOCALBROWSER}
oldsymtablestack,
st : psymtable;
{$endif ndef NOLOCALBROWSER}
move_last : boolean;
@ -2598,6 +2599,7 @@ Const local_symtable_index : longint = $8001;
and is_in_current then
begin
{$ifndef NOLOCALBROWSER}
oldsymtablestack:=symtablestack;
st:=aktlocalsymtable;
new(parast,loadas(parasymtable));
parast^.defowner:=@self;
@ -2609,10 +2611,12 @@ Const local_symtable_index : longint = $8001;
new(localst,loadas(localsymtable));
localst^.defowner:=@self;
aktlocalsymtable:=localst;
symtablestack:=parast;
localst^.deref;
localst^.next:=parast;
localst^.load_browser;
aktlocalsymtable:=st;
symtablestack:=oldsymtablestack;
{$endif ndef NOLOCALBROWSER}
end;
end;
@ -3854,7 +3858,11 @@ Const local_symtable_index : longint = $8001;
{
$Log$
Revision 1.187 2000-01-09 23:16:06 peter
Revision 1.188 2000-01-23 16:35:31 peter
* localbrowser loading of absolute fixed. It needed a symtablestack
which was not setup correctly
Revision 1.187 2000/01/09 23:16:06 peter
* added st_default stringtype
* genstringconstnode extended with stringtype parameter using st_default
will do the old behaviour