Browse Source

* TResourceStringTableList.Count type changed from ptrint to nativeint. Both
types are the same on almost all platforms. The only difference is on i8086,
where ptrint changes according to the memory model, while nativeint stays
16-bit. In the compiler, the count is emitted with Tai_const.Create_pint,
which also stays 16-bit in all memory models, so the correct corresponding
type in the rtl is nativeint.

git-svn-id: trunk@26920 -

nickysn 11 years ago
parent
commit
49b65fedd9
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/objpas/objpas.pp

+ 1 - 1
rtl/objpas/objpas.pp

@@ -295,7 +295,7 @@ Type
    end;
    end;
 
 
    TResourceStringTableList = Packed Record
    TResourceStringTableList = Packed Record
-     Count : ptrint;
+     Count : nativeint;
      Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
      Tables : Array[{$ifdef cpu16}Byte{$else cpu16}Word{$endif cpu16}] of record
        TableStart,
        TableStart,
        TableEnd   : PResourceStringRecord;
        TableEnd   : PResourceStringRecord;