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

* fixed empty arguments

Browse Source
This commit is contained in:
peter 2001-06-07 21:16:30 +00:00
parent 9f32c20015
commit 9edddec212
2 changed files with 1605 additions and 1595 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/go32v2/system.pp
View File

@ -372,6 +372,8 @@ begin
{ skip leading spaces }
while pc^ in [#1..#32] do
inc(pc);
if pc^=#0 then
break;
{ calc argument length }
quote:=' ';
argstart:=pc;
@ -1531,7 +1533,10 @@ Begin
End.
{
$Log$
Revision 1.8 2001-06-01 22:23:21 peter
Revision 1.9 2001-06-07 21:16:30 peter
* fixed empty arguments
Revision 1.8 2001/06/01 22:23:21 peter
* same argument parsing -"abc" becomes -abc. This is compatible with
delphi and with unix shells (merged)

3193
rtl/win32/system.pp
View File

File diff suppressed because it is too large Load Diff