fcl-passrc error inside inactive code block
Original Reporter info from Mantis: zamtmn @zamtmn
-
Reporter name: Andrey Zubarev
Original Reporter info from Mantis: zamtmn @zamtmn
- Reporter name: Andrey Zubarev
Description:
unit VTxtStrm;
interface
uses
SysUtils, ExtType;
type
TTextStreamOnStream = class
constructor Create(AStream: TVStream);
end;
implementation
{$IFDEF CHECK_OBJECTS_FREE}
constructor TTextStreamBookmark.Create;
begin
RegisterObjectCreate(Self);
inherited Create;
end;
{$ENDIF}
begin
end.
Gives Parser error: "Syntax error at token "Identifier Self" at line 13 column 27"
But CHECK_OBJECTS_FREE undefined
Mantis conversion info:
- Mantis ID: 31540
- Fixed in version: 3.1.1
- Fixed in revision: 35588 (#3b9956dd)
- Target version: 3.2.0