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

+ Small fix from Michael Baikov in setup_params

Browse Source
This commit is contained in:
michael 1999-07-19 07:57:49 +00:00
parent 835f1a632b
commit 7c95eb4053
1 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/go32v2/system.pp
View File

@ -334,6 +334,12 @@ for i:=1 to length(doscmd) do
if doscmd[i] = quote then
begin
quote := #0;
if (i>1) and ((doscmd[i-1]='''') or (doscmd[i-1]='"')) then
begin
j := i+1;
doscmd[i] := #0;
continue;
end;
doscmd[i] := #0;
largs[argc]:=@doscmd[j];
inc(argc);
@ -1254,7 +1260,10 @@ Begin
End.
{
$Log$
Revision 1.13 1999-05-19 16:54:21 pierre
Revision 1.14 1999-07-19 07:57:49 michael
+ Small fix from Michael Baikov in setup_params
Revision 1.13 1999/05/19 16:54:21 pierre
* closes all handles >+ 5
Revision 1.12 1999/05/17 21:52:33 florian
@ -1387,4 +1396,4 @@ End.
Revision 1.3 1998/05/04 16:21:54 florian
+ LFNSupport flag to the interface moved
}
}