From 73e6ffe6752c73ede73d5eea5a62c9ef205536c9 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Sat, 1 Mar 2014 14:33:10 +0000
Subject: [PATCH] * the TableCount and InitCount fields in the INITFINAL table
 changed to   nativeint (generates smaller and more efficient code on i8086)

git-svn-id: trunk@26913 -
---
 compiler/ngenutil.pas | 4 ++--
 rtl/inc/system.inc    | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/compiler/ngenutil.pas b/compiler/ngenutil.pas
index 8bfd9b335e..bdd703e9f9 100644
--- a/compiler/ngenutil.pas
+++ b/compiler/ngenutil.pas
@@ -685,8 +685,8 @@ implementation
           inc(count);
         end;
       { Insert TableCount,InitCount at start }
-      unitinits.insert(Tai_const.Create_32bit(0));
-      unitinits.insert(Tai_const.Create_32bit(count));
+      unitinits.insert(Tai_const.Create_pint(0));
+      unitinits.insert(Tai_const.Create_pint(count));
       { Add to data segment }
       maybe_new_object_file(current_asmdata.asmlists[al_globals]);
       new_section(current_asmdata.asmlists[al_globals],sec_data,'INITFINAL',sizeof(pint));
diff --git a/rtl/inc/system.inc b/rtl/inc/system.inc
index f6de87ad6d..cb5be7f542 100644
--- a/rtl/inc/system.inc
+++ b/rtl/inc/system.inc
@@ -832,7 +832,7 @@ type
   end;
   TInitFinalTable = record
     TableCount,
-    InitCount  : longint;
+    InitCount  : {$ifdef VER2_6}longint{$else}nativeint{$endif};
     Procs      : array[1..maxunits] of TInitFinalRec;
   end;
   PInitFinalTable = ^TInitFinalTable;
@@ -846,7 +846,7 @@ var
 
 procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
 var
-  i : longint;
+  i : nativeint;
 {$ifdef DEBUG}
   pt : PInitFinalTable;
 {$endif}