fcl-passrc error on class functions in 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
UTF8 = object
const
MaxCharLen = 4;
BOM = #$EF#$BB#$BF;
type
CharBytes = type string[MaxCharLen];
Statistics = record
n: array[1 .. MaxCharLen] of uint;
end;
var
class function Validate(const s: string): boolean; static;
class function Validate(s: pChar; len: size_t): boolean; static;
class function GetStatistics(const s: string): Statistics; static;
class function Codepoints(s: pChar; len: size_t): uint; static;
class function Codepoints(const s: string): uint; static;
class function Next(const s: string; var pos: sint): UTFchar; static;
class function Next(const s: string; var pos: sint; out sym: UTFchar): UTFchar; static; cinline
class function Next(var s: pChar; var cb: size_t): UTFchar; static;
class function Prev(const s: string; var pos: sint): UTFchar; static;
class function Prev(const s: string; var pos: sint; out sym: UTFchar): UTFchar; static; cinline
class function Peek(const s: string; pos: sint): UTFchar; static; cinline
class function Peek(const s: string; pos: sint; out len: size_t): UTFchar; static; cinline
class function Peek(const s: string; pos: sint; out sym: UTFchar): UTFchar; static; cinline
class function Peek(const s: string; pos: sint; out len: size_t; out sym: UTFchar): UTFchar; static; cinline
class function CodepointToString(const char: UTFchar; syms: pChar): sint; static;
class function CodepointToString(const char: UTFchar): CharBytes; static; cinline
class function IsEOL(s: pChar; len: size_t; out eolen: size_t): boolean; static;
private
class function ToStringError(const char: UTFchar; const what: string): Exception; static;
end;
implementation
end.
Gives Parser error: "Expected "Identifier" at token "class" in file E:\zcad\other\pudgb\passrcerrors.pas at line 15 column 7"
Mantis conversion info:
- Mantis ID: 31707
- Fixed in version: 3.1.1
- Fixed in revision: 35949 (#2b67d4c7)
- Target version: 3.2.0