[lazarus] Win32 not compile

[Mattias Gaertner]

On Fri, 28 Mar 2003 19:13:34 +0100
Cristiano Magro <xno at mediaplanet.it> wrote:

> Hi
> Source from CVS return error when compile
> 
>  >Compiling filectrl.pp
>  >filectrl.inc(346,30) Hint: Parameter AFILENAME not used
>  >filectrl.inc(358,31) Hint: Parameter AFILENAME not used
>  >filectrl.inc(481,3) Hint: Parameter EXCEPTIONONERROR not used
>  >filectrl.inc(541,33) Hint: Parameter AFILENAME not used
>  >filectrl.inc(656,40) Error: Identifier not found GETENV
>  >filectrl.pp(178) Fatal: There were 1 errors compiling module, stopping
>  >make[1]: *** [allunits.ppw] Error 1
>  >make[1]: Leaving directory `C:/pp/source/lazarus/lcl'
>  >make: *** [lcl] Error 2
> 
> the error is in this line from lcl\include\filectrl.inc
> 
>      Result:=SearchFileInPath(Result,'',GetEnv('PATH'),':',
>                               [sffDontSearchInBasePath]);
> 
> I think Result must be a const
> If I remove this lines the compiling is Ok

Thx.
Fixed.


Mattias