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

* String items can also be separated by spaces

Browse Source
This commit is contained in:
pierre 1999-02-16 12:46:38 +00:00
parent 29d778ac51
commit 216d00e8bc
1 changed files with 54 additions and 48 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/text/fpswitch.pas
View File

@ -452,7 +452,7 @@ var
procedure writeitem(P:PSwitchItem);{$ifndef FPC}far;{$endif} procedure writeitem(P:PSwitchItem);{$ifndef FPC}far;{$endif}
var var
s,s1 : string; s,s1 : string;
i : integer; i,j : integer;
begin begin
if P^.NeedParam then if P^.NeedParam then
begin begin
@ -461,8 +461,11 @@ var
s:=PStringItem(P)^.Str[SwitchesMode]; s:=PStringItem(P)^.Str[SwitchesMode];
repeat repeat
i:=pos(';',s); i:=pos(';',s);
j:=pos(' ',s);
if i=0 then if i=0 then
i:=256; i:=256;
if (j>0) and (j<i) then
i:=j;
s1:=Copy(s,1,i-1); s1:=Copy(s,1,i-1);
if s1<>'' then if s1<>'' then
writeln(CfgFile,' -'+Pref+P^.Param+s1); writeln(CfgFile,' -'+Pref+P^.Param+s1);
@ -827,7 +830,10 @@ end;
end. end.
{ {
$Log$ $Log$
Revision 1.9 1999-02-10 09:45:55 pierre Revision 1.10 1999-02-16 12:46:38 pierre
* String items can also be separated by spaces
Revision 1.9 1999/02/10 09:45:55 pierre
* MemorySizeSwitches Removed (was duplicate of MemorySwitches !) * MemorySizeSwitches Removed (was duplicate of MemorySwitches !)
* Added missing disposes at exit * Added missing disposes at exit