fcl-passrc error 'var' keyword before methods in class and objects
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
{$mode objfpc}
unit test;
interface
type
pFiber = ^Fiber;
Fiber = object
type
ResumeResult = (FiberFinished);
ResumeResults = set of ResumeResult;
var
finished: boolean;
function Split: pFiber;virtual;abstract;
type
HumanFormat = (HumanFormat);
var
function Human(format: HumanFormat): string;virtual;abstract;
private
h: pointer;
const
StackSize = 64 * 1024;
end;
implementation
end.
Gives Parser error: "Expected "Identifier" at token "function" in file E:\zcad\other\pudgb\passrcerrors.pas at line 16 column 12"
Mantis conversion info:
- Mantis ID: 31710
- Fixed in version: 3.1.1
- Fixed in revision: 35947 (#874d6b0a)
- Target version: 3.2.0