paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-04 03:19:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

* don't allocate persistent temps for classes (they are not refcounted)

Browse Source 
git-svn-id: trunk@14372 -
This commit is contained in:
Jonas Maebe 2009-12-08 20:00:27 +00:00
parent 092823308a
commit 09b4918cab
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/ncgbas.pas
View File

@ -381,7 +381,8 @@ interface
internalerror(200108222); internalerror(200108222);
{ get a (persistent) temp } { get a (persistent) temp }
if tempinfo^.typedef.needs_inittable then if (tempinfo^.typedef.needs_inittable) and
not is_class(tempinfo^.typedef) then
begin begin
location_reset_ref(tempinfo^.location,LOC_REFERENCE,def_cgsize(tempinfo^.typedef),0); location_reset_ref(tempinfo^.location,LOC_REFERENCE,def_cgsize(tempinfo^.typedef),0);
tg.GetTempTyped(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.temptype,tempinfo^.location.reference); tg.GetTempTyped(current_asmdata.CurrAsmList,tempinfo^.typedef,tempinfo^.temptype,tempinfo^.location.reference);