#2684

SyntaxVisitors/CheckingVisitors/UnnamedRecordsCheckErrorsVisitor.cs

@@ -33,6 +33,7 @@ namespace SyntaxVisitors.CheckingVisitors
         }
         public void AddProcHeader(procedure_header h)
         {
+            if (h.name != null)
                 Add(h.name.meth_name);
             if (h.template_args != null)
                 AddIdentList(h.template_args);

TestSuite/records24.pas

@@ -0,0 +1,24 @@
+type
+  t1 = class
+    
+    procedure p1;
+    begin
+      // Если описать так - не воспроизводится
+//      var p := procedure->exit();
+      var p: procedure;
+      p := ()->exit();
+      p();
+    end;
+    
+    procedure p2;
+    // Обязательно вложенный тип
+    type r = record end;
+    begin
+    end;
+    
+  end;
+  
+begin 
+  var o := new t1;
+  o.p1;
+end.