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

* adaptation for symx86 to r32340

Browse Source 
git-svn-id: trunk@32341 -
This commit is contained in:
Jonas Maebe 2015-11-15 23:15:43 +00:00
parent 46dfa1af30
commit 33d711794e
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/x86/symx86.pas
View File

@ -124,9 +124,10 @@ implementation
{ do not simply push/pop current_module.localsymtable, because
that can have side-effects (e.g., it removes helpers) }
symtablestack:=nil;
res^.Data:=tx86pointerdefclass(cpointerdef).createx86(def,x86typ);
def.getreusablesymtab.insertdef(tdef(res^.Data));
symtablestack:=oldsymtablestack;
result:=tx86pointerdefclass(cpointerdef).createx86(def,x86typ);
setup_reusable_def(def,result,res,oldsymtablestack);
{ res^.Data may still be nil -> don't overwrite result }
exit;
end;
result:=tpointerdef(res^.Data);
end;