[fpc-pascal]1.0.6 problem

[James Mills]

Hi all,

I just recently upgraded to FPC 1.0.6 (Debian testing-SID), one of my
programs now doesn't compile because of this error.

functions.pas(42,2) Error: Incompatible types: got "<unknown type>" expected "<procedure variable type of function(PSTRING,LONGINT):AnsiString;>"

Here is the source pertaining to it:

{ Function Declarations }
function SignOf(args: pString; argCount: longInt): String;
function GetTimeOf(args: pString; argCount: longInt): String;
function TimeStamp(args: pString; argCount: longInt): String;
function Rnd(args: pString; argCount: longInt): String;
function AbsOf(args: pString; argCount: longInt): String;
function Ans(args: pString; argCount: longInt): String;
function Pow(args: pString; argCount: longInt): String;
function Duration(args: pString; argCount: longInt): String;
function Len(args: pString; argCount: longInt): String;
function Sigma(args: pString; argCount: longInt): String;
function IntOf(args: pString; argCount: longInt): String;
function FracOf(args: pString; argCount: longInt): String;
function nPr(args: pString; argCount: longInt): String;
function nCr(args: pString; argCount: longInt): String;
function getPI(args: pString; argCount: longInt): String;
function e(args: pString; argCount: longInt): String;
function sine(args: pString; argCount: longInt): String;
function cosine(args: pString; argCount: longInt): String;
function tangent(args: pString; argCount: longInt): String;
function arcsine(args: pString; argCount: longInt): String;
function arctangent(args: pString; argCount: longInt): String;
function Modulas(args: pString; argCount: longInt): String;
function SqrRoot(args: pString; argCount: longInt): String;
function RoundNumber(args: pString; argCount: longInt): String;
function TruncateNumber(args: pString; argCount: longInt): String;
function Radians(args: pString; argCount: longInt): String;
function Degrees(args: pString; argCount: longInt): String;

const NumFunctions = 27;

const FunctionsTable: Array[0..(NumFunctions - 1)] of function(args:
pString; argCount: longInt): String = (
   SignOf,
   GetTimeOf,
   TimeStamp,
   Rnd,
   AbsOf,
   Ans,
   Pow,
   Duration,
   Len,
   Sigma,
   IntOf,
   FracOf,
   nPr,
   nCr,
   getPI,
   e,
   sine,
   cosine,
   tangent,
   arcsine,
   arctangent,
   Modulas,
   SqrRoot,
   RoundNumber,
   TruncateNumber,
   Radians,
   Degrees
);

Could someone help me out here please, as it did compile with 1.0.4

thank you :)

James