paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-06 16:36:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* save and restore aktobjectdef

Browse Source 
git-svn-id: trunk@8384 -
This commit is contained in:
peter 2007-09-04 18:31:20 +00:00
parent b513ebe9c6
commit 0a9b94ca92
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/pdecobj.pas
View File

@ -512,8 +512,10 @@ implementation
i : longint; i : longint;
generictype : ttypesym; generictype : ttypesym;
current_blocktype : tblock_type; current_blocktype : tblock_type;
oldaktobjectdef : tobjectdef;
begin begin
old_object_option:=current_object_option; old_object_option:=current_object_option;
oldaktobjectdef:=aktobjectdef;
{ objects and class types can't be declared local } { objects and class types can't be declared local }
if not(symtablestack.top.symtabletype in [globalsymtable,staticsymtable]) then if not(symtablestack.top.symtabletype in [globalsymtable,staticsymtable]) then
@ -826,7 +828,7 @@ implementation
result:=aktobjectdef; result:=aktobjectdef;
{ restore old state } { restore old state }
aktobjectdef:=nil; aktobjectdef:=oldaktobjectdef;
testcurobject:=0; testcurobject:=0;
typecanbeforward:=storetypecanbeforward; typecanbeforward:=storetypecanbeforward;
current_object_option:=old_object_option; current_object_option:=old_object_option;