[fpc-devel] Incompatible Types: got "untyped" expected "<procedure variable type of procedure(Pointer);Register>

[Sean McIlwain]

I'm getting a Error: Incompatible Types: got "untyped" expected 
"<procedure variable type of procedure(Pointer);Register> when compiling 
the following code.  This happens when using default parameter values.


Here is an example:


var Callback: procedure(Data: Pointer);

procedure Proc(AData: Pointer = nil);
begin
end;

initialization
Callback := Proc;   

If the = nil is removed, then the code compiles.

Thanks,
Sean