Переглянути джерело

Merged revisions 4203-4204 via svnmerge from
http://[email protected]/svn/fpc/trunk

........
r4203 | hajny | 2006-07-14 23:12:00 +0000 (Fri, 14 Jul 2006) | 1 line

* initialization for -Cs and -Ch removed - target defaults used instead
........
r4204 | hajny | 2006-07-15 00:08:26 +0000 (Sat, 15 Jul 2006) | 1 line

* saving of switches with longint values fixed
........

git-svn-id: branches/fixes_2_0@4205 -

Tomas Hajny 19 роки тому
батько
коміт
075dac0529
1 змінених файлів з 7 додано та 4 видалено
  1. 7 4
      ide/fpswitch.pas

+ 7 - 4
ide/fpswitch.pas

@@ -104,7 +104,7 @@ type
       Val : array[TSwitchMode] of longint;
       constructor Init(const n,p:string; AID: TParamID);
       function  NeedParam:boolean;virtual;
-      function  ParamValue:string;virtual;
+      function  ParamValue(nr:sw_integer):string;virtual;
       function  GetNumberStr(SM: TSwitchMode): string; virtual;
       procedure Reset;virtual;
     end;
@@ -415,7 +415,7 @@ begin
 end;
 
 
-function TLongintItem.ParamValue:string;
+function TLongintItem.ParamValue(nr:sw_integer):string;
 var
   s : string;
 begin
@@ -1184,10 +1184,13 @@ begin
 {$endif i386}
        { FPC mode}
        CompilerModeSwitches^.SetCurrSel(0);
+(* Use platform defaults for memory switches. *)
        { 128k stack }
-       MemorySwitches^.SetLongintItem(0,65536*2);
+{       MemorySwitches^.SetLongintItem(0,65536*2);}
+       MemorySwitches^.SetLongintItem(0,0);
        { 2 MB heap }
-       MemorySwitches^.SetLongintItem(1,1024*1024*2);
+{       MemorySwitches^.SetLongintItem(1,1024*1024*2);}
+       MemorySwitches^.SetLongintItem(1,0);
        { goto/lable allowed }
        SyntaxSwitches^.SetBooleanItem(1,true);
        { inline allowed }