paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-09 00:46:00 +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; procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
var var
i : ALUUInt; i : ALUUInt;
{$ifdef DEBUG}
pt : PInitFinalTable; pt : PInitFinalTable;
{$endif}
begin begin
{ call cpu/fpu initialisation routine } { call cpu/fpu initialisation routine }
fpc_cpuinit; fpc_cpuinit;
{$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION} {$ifdef FPC_HAS_INDIRECT_ENTRY_INFORMATION}
{$ifdef DEBUG}
pt := PInitFinalTable(EntryInformation.InitFinalTable); pt := PInitFinalTable(EntryInformation.InitFinalTable);
{$endif}
with PInitFinalTable(EntryInformation.InitFinalTable)^ do
{$else FPC_HAS_INDIRECT_ENTRY_INFORMATION} {$else FPC_HAS_INDIRECT_ENTRY_INFORMATION}
{$ifdef DEBUG}
pt := @InitFinalTable; pt := @InitFinalTable;
{$endif}
with InitFinalTable do
{$endif FPC_HAS_INDIRECT_ENTRY_INFORMATION} {$endif FPC_HAS_INDIRECT_ENTRY_INFORMATION}
with pt^ do
begin begin
for i:=1 to ALUUInt(TableCount) do for i:=1 to ALUUInt(TableCount) do
begin begin