Browse Source

+ Small fix from Michael Baikov in setup_params

michael 26 years ago
parent
commit
7c95eb4053
1 changed files with 11 additions and 2 deletions
  1. 11 2
      rtl/go32v2/system.pp

+ 11 - 2
rtl/go32v2/system.pp

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