paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 16:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed TResStrInitTable.Count and TWStrInitTablesTable.Count to nativeint

Browse Source 
git-svn-id: trunk@26921 -
This commit is contained in:
nickysn 2014-03-02 13:27:59 +00:00
parent 49b65fedd9
commit 5242ed7864
3 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -805,7 +805,7 @@ implementation
inc(count); inc(count);
end; end;
{ Insert TableCount at start } { Insert TableCount at start }
hlist.insert(Tai_const.Create_32bit(count)); hlist.insert(Tai_const.Create_pint(count));
{ insert in data segment } { insert in data segment }
maybe_new_object_file(current_asmdata.asmlists[al_globals]); maybe_new_object_file(current_asmdata.asmlists[al_globals]);
new_section(current_asmdata.asmlists[al_globals],sec_data,tablename,sizeof(pint)); new_section(current_asmdata.asmlists[al_globals],sec_data,tablename,sizeof(pint));

2
rtl/objpas/objpas.pp
View File

@ -311,7 +311,7 @@ Type
end; end;
TResStrInitTable = packed record TResStrInitTable = packed record
Count: longint; Count: {$ifdef VER2_6}longint{$else}nativeint{$endif};
Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry; Tables: packed array[1..{$ifdef cpu16}8191{$else cpu16}32767{$endif cpu16}] of PResStrInitEntry;
end; end;

2
rtl/win/syswin.inc
View File

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