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

* -Csmmm works for win32 but default is set to 32Mb

Browse Source
This commit is contained in:
pierre 1999-05-17 13:02:12 +00:00
parent e138bd6d24
commit 587b9d622c
2 changed files with 21 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/systems.pas
View File

@ -1008,8 +1008,8 @@ implementation
ar : ar_i386_arw;
res : res_i386_windres;
heapsize : 2048*1024;
maxheapsize : 32768*1024;
stacksize : 32768
maxheapsize : 32*1024*1024;
stacksize : 32*1024*1024
)
{$endif i386}
{$ifdef m68k}
@ -1470,7 +1470,10 @@ begin
end.
{
$Log$
Revision 1.73 1999-05-11 00:44:06 peter
Revision 1.74 1999-05-17 13:02:12 pierre
* -Csmmm works for win32 but default is set to 32Mb
Revision 1.73 1999/05/11 00:44:06 peter
* released pecoff for win32 as default
Revision 1.72 1999/05/05 22:22:05 peter

19
compiler/win_targ.pas
View File

@ -689,8 +689,10 @@ unit win_targ;
Message1(execinfo_x_codesize,tostr(peheader.SizeOfCode));
Message1(execinfo_x_initdatasize,tostr(peheader.SizeOfInitializedData));
Message1(execinfo_x_uninitdatasize,tostr(peheader.SizeOfUninitializedData));
Message1(execinfo_x_stackreserve,tostr(peheader.SizeOfStackReserve));
Message1(execinfo_x_stackcommit,tostr(peheader.SizeOfStackCommit));
{ change stack size (PM) }
{ I am not sure that the default value is adequate !! }
peheader.SizeOfStackReserve:=stacksize;
{ change the header }
{ sub system }
{ gui=2 }
@ -701,16 +703,25 @@ unit win_targ;
peheader.Subsystem:=3;
seek(f,peheaderpos);
blockwrite(f,peheader,sizeof(tpeheader));
close(f);
if ioresult<>0 then
Message1(execinfo_f_cant_process_executable,n);
seek(f,peheaderpos);
blockread(f,peheader,sizeof(tpeheader));
{ write the value after the change }
Message1(execinfo_x_stackreserve,tostr(peheader.SizeOfStackReserve));
Message1(execinfo_x_stackcommit,tostr(peheader.SizeOfStackCommit));
close(f);
{$I+}
end;
end.
{
$Log$
Revision 1.24 1999-05-01 13:25:04 peter
Revision 1.25 1999-05-17 13:02:13 pierre
* -Csmmm works for win32 but default is set to 32Mb
Revision 1.24 1999/05/01 13:25:04 peter
* merged nasm compiler
* old asm moved to oldasm/