[fpc-devel][fpc1.1] getopts.pp

[Maxim Artemev]

Hello!

I found little mistake in $(subj)

Here the diff:

C:\fpc_1.1\fpc\rtl\inc>diff -urN getopts.pp getopts.pp.new
--- getopts.pp Thu Mar 28 20:54:25 2002
+++ getopts.pp.new Tue Nov 19 19:19:06 2002
@@ -84,7 +84,7 @@
 { create argv[0] which is the started filename }
   s:=paramstr(0);
   arglen:=length(s);
-  getmem(argsbuf[0],arglen);
+  getmem(argsbuf[0],arglen + 1);
   strpcopy(argsbuf[0],s);
 { create commandline }
   s:='';




---
WBR, Max Artemev.
Mathematical department of the Pedagogic University of Moscow, Russia.
The Raccoons Homepage http://theraccoons.lionking.ru
[Furry] [Pascal++] [*NIX]