Browse Source

* 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 years ago
parent
commit
6a86d0d83a
1 changed files with 2 additions and 2 deletions
  1. 2 2
      rtl/inc/threadvr.inc

+ 2 - 2
rtl/inc/threadvr.inc

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