From 587b9d622c0639630ecfac18dcaccdf0cb31fbd3 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Mon, 17 May 1999 13:02:12 +0000
Subject: [PATCH]  * -Csmmm works for win32 but default is set to 32Mb

---
 compiler/systems.pas  |  9 ++++++---
 compiler/win_targ.pas | 19 +++++++++++++++----
 2 files changed, 21 insertions(+), 7 deletions(-)

diff --git a/compiler/systems.pas b/compiler/systems.pas
index 3729bc60b6..01476c2e8c 100644
--- a/compiler/systems.pas
+++ b/compiler/systems.pas
@@ -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
diff --git a/compiler/win_targ.pas b/compiler/win_targ.pas
index 0539eab25b..92cbf12426 100644
--- a/compiler/win_targ.pas
+++ b/compiler/win_targ.pas
@@ -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/