[fpc-devel]Possible Compiler bug in FPC 1.04 under Win32?

[murphy]

Hi!

When i compile the attached source code i got some strange 
errors.

--snip--
Compiling devpdflib.pas
devpdflib.pas(88,27) Error: Incompatible types: got "<procedure variable type of function():SmallInt;ClearStack;Cdecl>" expected "SMALLINT"
devpdflib.pas(104,27) Error: Incompatible types: got "<procedure variable type of function():SmallInt;ClearStack;Cdecl>" expected "SMALLINT"
devpdflib.pas(120,14) Error: Incompatible types: got "<procedure variable type of function():^TPDF;ClearStack;Cdecl>" expected "PPDF"
devpdflib.pas(138) Fatal: There were 3 errors compiling module, stopping
--snip--

The source code is for first error:

type
  TPDF_get_majorversion =function:Integer cdecl;
var
  FPDF_get_majorversion :TPDF_get_majorversion;

function PDF_get_majorversion:Integer;
begin
  PDF_get_majorversion:=FPDF_get_majorversion;
end;

The function call returns an error.
Does anyone knows why?

Please help me as fast as you can...

Bye, Torsten

------- End of forwarded message -------
_,,,o¿o,,,_
-------------- next part --------------
The following section of this message contains a file attachment
prepared for transmission using the Internet MIME message format.
If you are using Pegasus Mail, or any another MIME-compliant system,
you should be able to save it or view it from within your mailer.
If you cannot, please ask your system administrator for assistance.

   ---- File information -----------
     File:  devPDFLib.pas
     Date:  17 Jan 2001, 12:53
     Size:  3016 bytes.
     Type:  Program-source
-------------- next part --------------
A non-text attachment was scrubbed...
Name: devPDFLib.pas
Type: application/octet-stream
Size: 3016 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20010117/2279d981/attachment.obj>