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

* the TableCount and InitCount fields in the INITFINAL table changed to

Browse Source 
nativeint (generates smaller and more efficient code on i8086)

git-svn-id: trunk@26913 -
This commit is contained in:
nickysn 2014-03-01 14:33:10 +00:00
parent 95589fb1e2
commit 73e6ffe675
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ngenutil.pas
View File

@ -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));

4
rtl/inc/system.inc
View File

@ -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}