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

* For object fullrtti, add a parent 'field' regardless of whether its type needs inittable.

Browse Source 
git-svn-id: trunk@16635 -
This commit is contained in:
sergei 2010-12-24 16:20:44 +00:00
parent 814658847e
commit 2ff5f7a000
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ncgrtti.pas
View File

@ -156,7 +156,7 @@ implementation
provides correct handling of entire instance with RTL rtti routines. }
if (def.typ=objectdef) and (tobjectdef(def).objecttype=odt_object) and
Assigned(tobjectdef(def).childof) and
tobjectdef(def).childof.needs_inittable then
((rt=fullrtti) or (tobjectdef(def).childof.needs_inittable)) then
begin
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(tobjectdef(def).childof,rt)));
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_32bit(0));