paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-15 22:50:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

* 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.

Browse Source 
git-svn-id: trunk@23494 -
This commit is contained in:
sergei 2013-01-22 15:07:22 +00:00
parent 6788fd6433
commit 6a86d0d83a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/threadvr.inc
View File

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