Hi...

I was trying to compile some old TP code and got a strange error message:

program test_reg;
type
  ShTableLine= procedure(n: integer);
  procedure DummyShLine(Nr: integer);
  begin
  end;  {DummyShLine}
  procedure UseIt;
  const
    PrevProc: ShTableLine = DummyShLine;
  begin
  end;
begin
end.

This gives me the following message (referring to the 'const' line in UseIt):

Error: Incompatible types: got "DummyShLine(SmallInt)" expected "<procedure variable type of procedure(SmallInt);Register>"

I didn't declare the original as being 'register', why should it expect that later? And how to solve the problem?

Thanks!

John
PS: FPC is version 2.0.2

John Coppens wrote

PrevProc: ShTableLine = DummyShLine;

Use

    PrevProc: ShTableLine = @DummyShLine;

to tell fpc it's an address and no function call.

Have fun,
Marc

or compile your code in tp mode (fpc -h for help about command line parameters).

Vincent

Thanks both!

I hope this gets to the list. I had found the problem just minutes after putting the question on the net (as frequently happens), and sent a notice to the list. I had to leave, so I didn't notice that the message bounced:

: host lists.freepascal.org
[193.224.143.26] said: 554 Service unavailable; Client host [208.97.132.5] blocked using bl.spamcop.net; Blocked - see http://www.spamcop.net/bl.shtml?208.97.132.5 (in reply to RCPT TO command)

Again, appreciated...

John