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

compiler: don't skip objc class/protocols in case of initrtti, fixed crash of dynamic array/record which contains a objc class/protocol and requires an initialization

Browse Source 
git-svn-id: trunk@24723 -
This commit is contained in:
paul 2013-06-01 14:45:10 +00:00
parent 3953eed6b3
commit 5ff7bb884e
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

@ -1298,7 +1298,7 @@ implementation
procedure TRTTIWriter.write_rtti_reference(def:tdef;rt:trttitype);
begin
if not assigned(def) or is_void(def) or is_objc_class_or_protocol(def) then
if not assigned(def) or is_void(def) or ((rt<>initrtti) and is_objc_class_or_protocol(def)) then
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(nil))
else
current_asmdata.asmlists[al_rtti].concat(Tai_const.Create_sym(ref_rtti(def,rt)));