|
@@ -2578,6 +2578,7 @@ Const local_symtable_index : longint = $8001;
|
|
|
var
|
|
var
|
|
|
pos : tfileposinfo;
|
|
pos : tfileposinfo;
|
|
|
{$ifndef NOLOCALBROWSER}
|
|
{$ifndef NOLOCALBROWSER}
|
|
|
|
|
+ oldsymtablestack,
|
|
|
st : psymtable;
|
|
st : psymtable;
|
|
|
{$endif ndef NOLOCALBROWSER}
|
|
{$endif ndef NOLOCALBROWSER}
|
|
|
move_last : boolean;
|
|
move_last : boolean;
|
|
@@ -2598,6 +2599,7 @@ Const local_symtable_index : longint = $8001;
|
|
|
and is_in_current then
|
|
and is_in_current then
|
|
|
begin
|
|
begin
|
|
|
{$ifndef NOLOCALBROWSER}
|
|
{$ifndef NOLOCALBROWSER}
|
|
|
|
|
+ oldsymtablestack:=symtablestack;
|
|
|
st:=aktlocalsymtable;
|
|
st:=aktlocalsymtable;
|
|
|
new(parast,loadas(parasymtable));
|
|
new(parast,loadas(parasymtable));
|
|
|
parast^.defowner:=@self;
|
|
parast^.defowner:=@self;
|
|
@@ -2609,10 +2611,12 @@ Const local_symtable_index : longint = $8001;
|
|
|
new(localst,loadas(localsymtable));
|
|
new(localst,loadas(localsymtable));
|
|
|
localst^.defowner:=@self;
|
|
localst^.defowner:=@self;
|
|
|
aktlocalsymtable:=localst;
|
|
aktlocalsymtable:=localst;
|
|
|
|
|
+ symtablestack:=parast;
|
|
|
localst^.deref;
|
|
localst^.deref;
|
|
|
localst^.next:=parast;
|
|
localst^.next:=parast;
|
|
|
localst^.load_browser;
|
|
localst^.load_browser;
|
|
|
aktlocalsymtable:=st;
|
|
aktlocalsymtable:=st;
|
|
|
|
|
+ symtablestack:=oldsymtablestack;
|
|
|
{$endif ndef NOLOCALBROWSER}
|
|
{$endif ndef NOLOCALBROWSER}
|
|
|
end;
|
|
end;
|
|
|
end;
|
|
end;
|
|
@@ -3854,7 +3858,11 @@ Const local_symtable_index : longint = $8001;
|
|
|
|
|
|
|
|
{
|
|
{
|
|
|
$Log$
|
|
$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
|
|
* added st_default stringtype
|
|
|
* genstringconstnode extended with stringtype parameter using st_default
|
|
* genstringconstnode extended with stringtype parameter using st_default
|
|
|
will do the old behaviour
|
|
will do the old behaviour
|
peter