paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-12 23:09:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

Allways use local pt variable to ameliorate readability of code

Browse Source 
git-svn-id: trunk@42082 -
This commit is contained in:
pierre 2019-05-16 08:24:45 +00:00
parent c8129c5228
commit 902ef73c7c
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/system.inc
View File

@ -949,23 +949,16 @@ var
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
var
i : ALUUInt;
{$ifdef DEBUG}
pt : PInitFinalTable;
{$endif}
begin
{ call cpu/fpu initialisation routine }
fpc_cpuinit;
{$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION}
{$ifdef DEBUG}
pt := PInitFinalTable(EntryInformation.InitFinalTable);
{$endif}
with PInitFinalTable(EntryInformation.InitFinalTable)^ do
{$else FPC_HAS_INDIRECT_ENTRY_INFORMATION}
{$ifdef DEBUG}
pt := @InitFinalTable;
{$endif}
with InitFinalTable do
{$endif FPC_HAS_INDIRECT_ENTRY_INFORMATION}
with pt^ do
begin
for i:=1 to ALUUInt(TableCount) do
begin