EmptyBlock raises issue on empty anonymous methods, but EmptyRoutine does not

[fourls]

Prerequisites

• This bug is in SonarDelphi, not SonarQube or my Delphi code.
• This bug has not already been reported.

SonarDelphi version

1.11.0

SonarQube version

No response

Issue description

EmptyBlock currently raises an issue on an empty anonymous method, while EmptyRoutine (which should) does not.

For example, the following raises a single EmptyBlock issue:

MyProcedure := procedure begin
    // I am empty for a reason!
  end;

This should be ignored by EmptyBlock, since the description states:

Exceptions

• Empty routine bodies (covered by the EmptyRoutine rule)

EmptyRoutine, on the other hand, should pick this up.

Steps to reproduce

Scan the following code with SonarDelphi:

unit Test;

interface

implementation

uses System.SysUtils;

function GetDummyProc: TProc;
begin
  Result := procedure begin
      // I am empty for a reason
    end;
end;

end.

Minimal Delphi code exhibiting the issue

No response