paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 16:29:12 +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); inc(count);
end; end;
{ Insert TableCount,InitCount at start } { Insert TableCount,InitCount at start }
unitinits.insert(Tai_const.Create_32bit(0)); unitinits.insert(Tai_const.Create_pint(0));
unitinits.insert(Tai_const.Create_32bit(count)); unitinits.insert(Tai_const.Create_pint(count));
{ Add to data segment } { Add to 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,'INITFINAL',sizeof(pint)); 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; end;
TInitFinalTable = record TInitFinalTable = record
TableCount, TableCount,
InitCount : longint; InitCount : {$ifdef VER2_6}longint{$else}nativeint{$endif};
Procs : array[1..maxunits] of TInitFinalRec; Procs : array[1..maxunits] of TInitFinalRec;
end; end;
PInitFinalTable = ^TInitFinalTable; PInitFinalTable = ^TInitFinalTable;
@ -846,7 +846,7 @@ var
procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc; procedure fpc_InitializeUnits;[public,alias:'FPC_INITIALIZEUNITS']; compilerproc;
var var
i : longint; i : nativeint;
{$ifdef DEBUG} {$ifdef DEBUG}
pt : PInitFinalTable; pt : PInitFinalTable;
{$endif} {$endif}