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

* use .create_nil_dataptr instead of .create_pint(0) for writing the 'next'

Browse Source 
field in tobjcrttiwriter.gen_objc_protocol_list

git-svn-id: trunk@34704 -
This commit is contained in:
nickysn 2016-10-10 14:03:52 +00:00
parent b8e1151eed
commit 9669e5aa00
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/objcgutl.pas
View File

@ -475,7 +475,7 @@ procedure tobjcrttiwriter.gen_objc_protocol_list(list: tasmlist; protolist: tfpo
if (abi=oa_fragile) then
{ From Clang: next, always nil}
tcb.emit_tai(tai_const.Create_pint(0),ptruinttype);
tcb.emit_tai(tai_const.Create_nil_dataptr,ptruinttype);
{ From Clang: protocols count}
tcb.emit_tai(Tai_const.Create_pint(protolist.Count),ptruinttype);
for i:=0 to protolist.Count-1 do