View Issue Details

IDProjectCategoryView StatusLast Update
0031540FPCFCLpublic2017-03-18 21:37
ReporterAndrey ZubarevAssigned ToMichael Van Canneyt 
PrioritynormalSeverityminorReproducibilityhave not tried
Status closedResolutionfixed 
Product VersionProduct Build 
Target Version3.2.0Fixed in Version3.1.1 
Summary0031540: fcl-passrc error inside inactive code block
Descriptionunit 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
TagsNo tags attached.
Fixed in Revision35588
FPCOldBugId
FPCTarget
Attached Files

Activities

Michael Van Canneyt

2017-03-15 13:36

administrator   ~0098916

Fixed, thanks for reporting!

Andrey Zubarev

2017-03-15 16:53

reporter   ~0098927

Thanks!

Andrey Zubarev

2017-03-18 16:40

reporter   ~0099022

Regression.
Other code example:
unit test111;
{$MODE DELPHI}
interface
uses sysutils;
type
TCADControl=class
             {$IFDEF DELPHI}procedure WMPaint(var Message: TWMPaint);{$ENDIF}
           end;
implementation
{$IFDEF DELPHI}
procedure TCADControl.WMPaint(var Message: TWMPaint);
begin
  if assigned(FOnPaint) then
    FOnPaint(self)
  else
    inherited;
end;
{$ENDIF}
end.

Michael Van Canneyt

2017-03-18 18:02

administrator   ~0099023

Hm. Seems like some merge removed my earlier fix. Fixed, rev. 35621

Andrey Zubarev

2017-03-18 21:37

reporter   ~0099034

Thanks!

Issue History

Date Modified Username Field Change
2017-03-15 07:28 Andrey Zubarev New Issue
2017-03-15 13:36 Michael Van Canneyt Fixed in Revision => 35588
2017-03-15 13:36 Michael Van Canneyt Note Added: 0098916
2017-03-15 13:36 Michael Van Canneyt Status new => resolved
2017-03-15 13:36 Michael Van Canneyt Fixed in Version => 3.1.1
2017-03-15 13:36 Michael Van Canneyt Resolution open => fixed
2017-03-15 13:36 Michael Van Canneyt Assigned To => Michael Van Canneyt
2017-03-15 13:36 Michael Van Canneyt Target Version => 3.2.0
2017-03-15 16:53 Andrey Zubarev Note Added: 0098927
2017-03-15 16:53 Andrey Zubarev Status resolved => closed
2017-03-18 16:40 Andrey Zubarev Note Added: 0099022
2017-03-18 16:40 Andrey Zubarev Status closed => feedback
2017-03-18 16:40 Andrey Zubarev Resolution fixed => reopened
2017-03-18 18:02 Michael Van Canneyt Note Added: 0099023
2017-03-18 18:02 Michael Van Canneyt Status feedback => resolved
2017-03-18 18:02 Michael Van Canneyt Resolution reopened => fixed
2017-03-18 21:37 Andrey Zubarev Note Added: 0099034
2017-03-18 21:37 Andrey Zubarev Status resolved => closed