[fpc-pascal] ParamStr(0) buggy?

[Hans-Juergen Taenzer]

Hello,

at the end of ParamStr(0) there is a wrong character.

A small testprogramm:

<---------------------------------------------------------->
Program t1;
var
i : longint ;
begin
    Writeln( 'paramstr(0): <' + paramstr(0) + '>');

    Writeln( 'Count other Parms: ', ParamCount);
    Writeln( 'Other Parms: ');

    For i :=1 to ParamCount do
        Writeln ( '<' + ParamStr(i) + '>');
end.

<---------------------------------------------------------->

The output of this programm is:

<---------------------------------------------------------->
C:\TMP\fp_test_paramstr>t1 2 3 4
paramstr(0): <C:\TMP\fp_test_paramstr\t1.exeL>
Count other Parms: 3
Other Parms:
<2>
<3>
<4>
<---------------------------------------------------------->

Compilerversion (source and targetplatform is win32):

Free Pascal Compiler version 2.0.0 [2005/05/08] for i386
Copyright (c) 1993-2005 by Florian Klaempfl

Hans-Jürgen