Browse Source

* use .Create_sizeuint and sizeuinttype when writing tinterfacetable.EntryCount

git-svn-id: trunk@34635 -
nickysn 8 years ago
parent
commit
7fceb8aa1f
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncgvmt.pas

+ 1 - 1
compiler/ncgvmt.pas

@@ -833,7 +833,7 @@ implementation
         datatcb.begin_anonymous_record('',default_settings.packrecords,1,
           targetinfos[target_info.system]^.alignment.recordalignmin,
           targetinfos[target_info.system]^.alignment.maxCrecordalign);
-        datatcb.emit_tai(Tai_const.Create_pint(_class.ImplementedInterfaces.count),search_system_type('SIZEUINT').typedef);
+        datatcb.emit_tai(Tai_const.Create_sizeint(_class.ImplementedInterfaces.count),sizeuinttype);
         interfaceentrydef:=search_system_type('TINTERFACEENTRY').typedef;
         interfaceentrytypedef:=search_system_type('TINTERFACEENTRYTYPE').typedef;
         if _class.ImplementedInterfaces.count>0 then