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