Sign in Join

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

Mailing lists / lazarus / 2003-03

Win32 not compile

5 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

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

Cristiano Magro

Hi
Source from CVS return error when compile

Show quoted text 7 lines
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
Cristiano

Reply by email

Mattias Gaertner
to Cristiano Magro
Show quoted text 21 lines
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

Reply by email

Cristiano Magro
to Cristiano Magro: At 22.08 28/03/2003 +0100, you On Fri, 28 Mar 2003 19:13:34 +0100…
you wrote 20 lines
On Fri, 28 Mar 2003 23:13:47 +0100 Cristiano Magro wrote: > At 22.08 28/03/2003 +0100, you wrote: > >On Fri, 28 Mar 2003 19:13:34 +0100 > >Cristiano Magro wrote: > > > > > Hi > {$ifdef Win32} > Dos, //for use of GetEnv() > {$endif} > > Cristiano Thanks for the hint. I added it and reactivated the line. Eventually I need cross compiling... Mattias

Compiling is ok now.

Cristiano

Reply by email

Mattias Gaertner
to Cristiano Magro: At 22.08 28/03/2003 +0100, you On Fri, 28 Mar 2003 19:13:34 +0100…
Show quoted text 30 lines
At 22.08 28/03/2003 +0100, you wrote: >On Fri, 28 Mar 2003 19:13:34 +0100 >Cristiano Magro wrote: > > > Hi > > Source from CVS return error when compile > > > > >Compiling filectrl.pp > > 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 I think if you add a Dos units to lcl\filectrl.pp so compiler find function GetEnv() uses {$ifdef Win32} Dos, //for use of GetEnv() {$endif} Cristiano

Thanks for the hint. I added it and reactivated the line. Eventually I need cross compiling...

Mattias

Reply by email

Cristiano Magro

At 22.08 28/03/2003 +0100, you
wrote:
On Fri, 28 Mar 2003 19:13:34
+0100

Cristiano Magro wrote 7 lines
Hi Source from CVS return error when compile � >Compiling filectrl.pp 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
I think if you add a Dos units to lcl\filectrl.pp so compiler find function GetEnv()
uses
{$ifdef Win32}
��������Dos,��������������� //for use of GetEnv()
{$endif}
Cristiano

Reply by email