Просмотр исходного кода

* changed the default stack size in the i8086 far data memory models to 16 KB

git-svn-id: trunk@27841 -
nickysn 11 лет назад
Родитель
Сommit
a52d8abe38
2 измененных файлов с 11 добавлено и 1 удалено
  1. 10 0
      compiler/parser.pas
  2. 1 1
      compiler/systems/i_msdos.pas

+ 10 - 0
compiler/parser.pas

@@ -122,6 +122,16 @@ implementation
              include(supported_calling_conventions,pocall_syscall);
              include(supported_calling_conventions,pocall_syscall);
            system_m68k_amiga:
            system_m68k_amiga:
              include(supported_calling_conventions,pocall_syscall);
              include(supported_calling_conventions,pocall_syscall);
+{$ifdef i8086}
+           system_i8086_msdos:
+             if stacksize=0 then
+               begin
+                 if init_settings.x86memorymodel in x86_far_data_models then
+                   stacksize:=16384
+                 else
+                   stacksize:=4096;
+               end;
+{$endif i8086}
          end;
          end;
       end;
       end;
 
 

+ 1 - 1
compiler/systems/i_msdos.pas

@@ -98,7 +98,7 @@ unit i_msdos;
                 maxCrecordalign : 2
                 maxCrecordalign : 2
               );
               );
             first_parm_offset : 4;
             first_parm_offset : 4;
-            stacksize    : 4096;
+            stacksize    : 0;
             stackalign   : 2;
             stackalign   : 2;
             abi          : abi_default;
             abi          : abi_default;
           );
           );