Преглед на файлове

* emit a sizeint, not a ptruint for TableCount in tnodeutils.InsertRuntimeInitsTablesTable as well

git-svn-id: trunk@34643 -
nickysn преди 8 години
родител
ревизия
bacea005fc
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      compiler/ngenutil.pas

+ 2 - 2
compiler/ngenutil.pas

@@ -1170,7 +1170,7 @@ implementation
         targetinfos[target_info.system]^.alignment.maxCrecordalign
       );
       { placeholder for the count }
-      countplaceholder:=tcb.emit_placeholder(ptruinttype);
+      countplaceholder:=tcb.emit_placeholder(sizesinttype);
       count:=0;
       hp:=tused_unit(usedunits.first);
       while assigned(hp) do
@@ -1193,7 +1193,7 @@ implementation
          inc(count);
        end;
       { Insert TableCount at start }
-      countplaceholder.replace(Tai_const.Create_pint(count),ptruinttype);
+      countplaceholder.replace(Tai_const.Create_sizeint(count),sizesinttype);
       countplaceholder.free;
       { insert in data segment }
       tabledef:=tcb.end_anonymous_record;