From e1f13876f56424f6f05c187b2fe3a19e26348a31 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 3 Oct 1999 19:39:05 +0000
Subject: [PATCH]   * fixed argv[0] length

---
 rtl/win32/syswin32.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/rtl/win32/syswin32.pp b/rtl/win32/syswin32.pp
index 6462869115..c4203a93dd 100644
--- a/rtl/win32/syswin32.pp
+++ b/rtl/win32/syswin32.pp
@@ -677,8 +677,9 @@ begin
   count:=0;
   cmdline:=getcommandfile;
   Arglen:=0;
-  while (cmdline[Arglen]<>#0) do
-    Inc(ArgLen);
+  repeat
+    Inc(Arglen);
+  until (cmdline[Arglen]=#0);
   getmem(argsbuf[count],arglen);
   move(cmdline^,argsbuf[count]^,arglen);
   { Now skip the first one }
@@ -1009,7 +1010,10 @@ end.
 
 {
   $Log$
-  Revision 1.44  1999-09-10 15:40:35  peter
+  Revision 1.45  1999-10-03 19:39:05  peter
+    * fixed argv[0] length
+
+  Revision 1.44  1999/09/10 15:40:35  peter
     * fixed do_open flags to be > $100, becuase filemode can be upto 255
 
   Revision 1.43  1999/07/07 10:04:43  michael