Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / fpc-devel / 2002-11

[fpc1.1] getopts.pp

2 messages · 2 people · –

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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]

Reply by email