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

* added hack to support stack exceeding 32kb in size in the i8086 far data

Browse Source 
memory models

git-svn-id: trunk@27827 -
This commit is contained in:
nickysn 2014-05-29 17:07:01 +00:00
parent 2c6d3f1428
commit 47a7a9835a
1 changed files with 19 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
compiler/i8086/n8086util.pas
View File

@ -38,18 +38,35 @@ interface
implementation implementation
uses uses
globals,cpuinfo, sysutils,cutils,
globtype,globals,cpuinfo,
aasmbase,aasmdata,aasmtai; aasmbase,aasmdata,aasmtai;
class procedure ti8086nodeutils.InsertMemorySizes; class procedure ti8086nodeutils.InsertMemorySizes;
var
stacksizeleft,stackblock: LongInt;
i: Integer;
begin begin
inherited; inherited;
if current_settings.x86memorymodel in x86_far_data_models then if current_settings.x86memorymodel in x86_far_data_models then
begin begin
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_stack,'__stack', 16); new_section(current_asmdata.asmlists[al_globals],sec_stack,'__stack', 16);
current_asmdata.asmlists[al_globals].concat(tai_datablock.Create('___stack', stacksize)); current_asmdata.asmlists[al_globals].concat(tai_symbol.Createname_global('___stack', AT_DATA, stacksize));
{ HACK: since tai_datablock's size parameter is aint, which cannot be
larger than 32767 on i8086, but we'd like to support stack size of
up to 64kb, we may need to use several tai_datablocks to reserve
the stack segment }
i:=0;
stacksizeleft:=stacksize;
while stacksizeleft>0 do
begin
stackblock:=min(stacksizeleft,high(aint));
current_asmdata.asmlists[al_globals].concat(tai_datablock.Create('___stackblock'+IntToStr(i),stackblock));
dec(stacksizeleft,stackblock);
inc(i);
end;
end; end;
end; end;