paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 05:37:41 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ set the win16 local heap size in the executable

Browse Source 
git-svn-id: trunk@31552 -
This commit is contained in:
nickysn 2015-09-06 13:52:22 +00:00
parent a05c304f87
commit 4b80bc958c
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/parser.pas
View File

@ -149,6 +149,13 @@ implementation
else else
stacksize:=5120; stacksize:=5120;
end; end;
if heapsize=0 then
begin
if init_settings.x86memorymodel in x86_far_data_models then
heapsize:=8192
else
heapsize:=4096;
end;
end; end;
{$endif i8086} {$endif i8086}
end; end;

1
compiler/systems/t_win16.pas
View File

@ -141,6 +141,7 @@ begin
LinkRes.Add('library '+MaybeQuoted(s)); LinkRes.Add('library '+MaybeQuoted(s));
end; end;
LinkRes.Add('format windows'); LinkRes.Add('format windows');
LinkRes.Add('option heapsize='+tostr(heapsize));
if (cs_link_map in current_settings.globalswitches) then if (cs_link_map in current_settings.globalswitches) then
LinkRes.Add('option map='+maybequoted(ChangeFileExt(current_module.exefilename,'.map'))); LinkRes.Add('option map='+maybequoted(ChangeFileExt(current_module.exefilename,'.map')));
LinkRes.Add('name ' + maybequoted(current_module.exefilename)); LinkRes.Add('name ' + maybequoted(current_module.exefilename));