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

* use .create_int_dataptr instead of .create_pint in the remaining two places where .create_pint is used

Browse Source 
git-svn-id: trunk@34835 -
This commit is contained in:
nickysn 2016-11-07 15:09:07 +00:00
parent 32ec90dccf
commit 88ba9269ca
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/objcgutl.pas
View File

@ -477,7 +477,7 @@ procedure tobjcrttiwriter.gen_objc_protocol_list(list: tasmlist; protolist: tfpo
{ From Clang: next, always nil}
tcb.emit_tai(tai_const.Create_nil_dataptr,ptruinttype);
{ From Clang: protocols count}
tcb.emit_tai(Tai_const.Create_pint(protolist.Count),ptruinttype);
tcb.emit_tai(Tai_const.Create_int_dataptr(protolist.Count),ptruinttype);
for i:=0 to protolist.Count-1 do
begin
protodef:=(protolist[i] as TImplementedInterface).IntfDef;
@ -1238,7 +1238,7 @@ procedure tobjcrttiwriter_nonfragile.gen_objc_ivars(list: tasmlist; objccls: tob
else
vis:=AB_GLOBAL;
vars[vcnt].offssym:=current_asmdata.DefineAsmSymbol(prefix+vf.RealName,vis,AT_DATA,ptruinttype);
tcb.emit_tai(tai_const.create_pint(vf.fieldoffset),ptruinttype);
tcb.emit_tai(tai_const.Create_int_dataptr(vf.fieldoffset),ptruinttype);
list.concatList(
tcb.get_final_asmlist(
vars[vcnt].offssym,ptruinttype,