Browse Source

* replaced all the remaining uses of nativeint in the rtl with either sizeint
or objpasint

git-svn-id: trunk@27237 -

nickysn 11 years ago
parent
commit
fb20791cbe
3 changed files with 5 additions and 5 deletions
  1. 2 2
      rtl/inc/system.inc
  2. 2 2
      rtl/objpas/objpas.pp
  3. 1 1
      rtl/win/syswin.inc

+ 2 - 2
rtl/inc/system.inc

@@ -849,7 +849,7 @@ type
   end;
   TInitFinalTable = record
     TableCount,
-    InitCount  : {$ifdef VER2_6}longint{$else}nativeint{$endif};
+    InitCount  : {$ifdef VER2_6}longint{$else}sizeint{$endif};
     Procs      : array[1..maxunits] of TInitFinalRec;
   end;
   PInitFinalTable = ^TInitFinalTable;
@@ -863,7 +863,7 @@ var
 
 procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
 var
-  i : nativeint;
+  i : ObjpasInt;
 {$ifdef DEBUG}
   pt : PInitFinalTable;
 {$endif}

+ 2 - 2
rtl/objpas/objpas.pp

@@ -303,7 +303,7 @@ Type
    end;
 
    TResourceStringTableList = Packed Record
-     Count : nativeint;
+     Count : sizeint;
      Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
        TableStart,
        TableEnd   : PResourceStringRecord;
@@ -319,7 +319,7 @@ Type
    end;
 
    TResStrInitTable = packed record
-     Count: {$ifdef VER2_6}longint{$else}nativeint{$endif};
+     Count: {$ifdef VER2_6}longint{$else}sizeint{$endif};
      Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry;
    end;
 

+ 1 - 1
rtl/win/syswin.inc

@@ -648,7 +648,7 @@ type
 
   PWStrInitTablesTable = ^TWStrInitTablesTable;
   TWStrInitTablesTable = packed record
-    count  : {$ifdef VER2_6}longint{$else}nativeint{$endif};
+    count  : {$ifdef VER2_6}longint{$else}sizeint{$endif};
     tables : packed array [1..32767] of PWStrInitEntry;
   end;