From 902ef73c7c5112bf522e69501e74121be8d2f5e8 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 16 May 2019 08:24:45 +0000
Subject: [PATCH]  Allways use local pt variable to ameliorate readability of
 code

git-svn-id: trunk@42082 -
---
 rtl/inc/system.inc | 9 +--------
 1 file changed, 1 insertion(+), 8 deletions(-)

diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index c677e0bcfd..7466e6ab87 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -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