Kaynağa Gözat

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

git-svn-id: trunk@34835 -
nickysn 8 yıl önce
ebeveyn
işleme
88ba9269ca
1 değiştirilmiş dosya ile 2 ekleme ve 2 silme
  1. 2 2
      compiler/objcgutl.pas

+ 2 - 2
compiler/objcgutl.pas

@@ -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,