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

* Changed two variables from Integer to Longint. Integer is 16 bits when compiling System unit, using it results in less optimal code on most targets.

git-svn-id: trunk@23494 -
sergei преди 12 години
родител
ревизия
6a86d0d83a
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      rtl/inc/threadvr.inc

+ 2 - 2
rtl/inc/threadvr.inc

@@ -50,7 +50,7 @@ end;
 
 procedure init_all_unit_threadvars;
 var
-  i : integer;
+  i : longint;
 begin
 {$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}
   with PltvInitTablesTable(EntryInformation.ThreadvarTablesTable)^ do
@@ -84,7 +84,7 @@ end;
 
 procedure copy_all_unit_threadvars;
 var
-  i : integer;
+  i: longint;
 begin
 {$ifdef FPC_HAS_INDIRECT_MAIN_INFORMATION}
   with PltvInitTablesTable(EntryInformation.ThreadvarTablesTable)^ do