* missing function result

tests/tbs/tb0456.pp

@@ -3,7 +3,7 @@
 type
   c=class
    function Byte: Byte; virtual; abstract;
-   function P(b: Byte); virtual; abstract;
+   function P(b: Byte):boolean; virtual; abstract;
   end;
 
 begin