|
@@ -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 }
|