[lazarus] lazarus cvs / fpc1.9.0 compile error

[Ken Moffat]

Vincent Snijders wrote:

>  
>
>>-----Oorspronkelijk bericht-----
>>Van: Ken Moffat [mailto:kmoffat at drizzle.com] 
>>Just downloaded fpc 1.9 to my slack9.1 partition, and lazarus 
>>cvs, and 
>>got the following error on "make":
>>
>>Free Pascal Compiler version 1.9.0 [2003/11/05] for i386 
>>Copyright (c) 1993-2002 by Florian Klaempfl Target OS: Linux 
>>for i386 Compiling allunits.pp Compiling utrace.pp
>>utrace.pp(69,22) Error: Incompatible types: got "<procedure variable 
>>type of procedure(const ShortString,const ShortString, Longint, 
>>Pointer);StdCall>" expected "<procedure variable type of 
>>procedure(const 
>>ShortString,const ShortString, Longint, Longint);
>>utrace.pp(70,23) Error: Incompatible types: got "<address of 
>>procedure(const ShortString,const ShortString, Longint, 
>>Longint);StdCall>" expected "<procedure variable type of 
>>procedure(const 
>>ShortString,const ShortString, Longint, Pointer);StdCall>"
>>utrace.pp(73) Fatal: There were 2 errors compiling module, stopping
>>make[1]: *** [allunits.ppu] Error 1
>>make[1]: Leaving directory `/usr/share/lazarus/lcl'
>>make: *** [lcl] Error 2
>>
>>--
>>ken
>>    
>>
>Can you quote the lines 69, 70 and 73, please? I have no code at line
>69. Is utrace.pp up to date?
>
>Vincent.
>
>_________________________________________________________________
>     To unsubscribe: mail lazarus-request at miraclec.com with
>                "unsubscribe" as the Subject
>   archives at http://www.lazarus.freepascal.org/mailarchives
>  
>

lines 66-72.

initialization

   TraceFileName := '';
   OldProcPointer := AssertErrorProc;  // the current Assert Error Handler
   AssertErrorProc := @TraceAssertHandler  // set to new Assert Error 
Handler

end.

I think this is a fresh download from cvs. I'll update and try again.