From da16d41c58ec5384a2f227dd9e42d9d0c2e46f08 Mon Sep 17 00:00:00 2001
From: Mikhalkovich Stanislav <miks@math.sfedu.ru>
Date: Wed, 25 Jun 2025 19:07:18 +0300
Subject: [PATCH] =?UTF-8?q?=D0=A3=D0=B4=D0=B0=D0=BB=D0=B8=D0=BB=20=D0=B4?=
 =?UTF-8?q?=D0=B2=D0=B0=20=D1=84=D0=B0=D0=B9=D0=BB=D0=B0=20=D1=81=20=D0=BE?=
 =?UTF-8?q?=D1=88=D0=B8=D0=B1=D0=BA=D0=B0=D0=BC=D0=B8=20-=20=D0=BE=D0=B1?=
 =?UTF-8?q?=D0=BE=D0=B1=D1=89=D0=B5=D0=BD=D0=BD=D0=B0=D1=8F=20=D1=84=D1=83?=
 =?UTF-8?q?=D0=BD=D0=BA=D1=86=D0=B8=D1=8F=20=D0=BF=D1=80=D0=B8=D1=81=D0=B2?=
 =?UTF-8?q?=D0=B0=D0=B8=D0=B2=D0=B0=D0=B5=D1=82=D1=81=D1=8F=20=D0=B4=D0=B5?=
 =?UTF-8?q?=D0=BB=D0=B5=D0=B3=D0=B0=D1=82=D1=83?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 TestSuite/errors/err0545_delegates23.pas | 17 -----------------
 TestSuite/errors/err0546_delegates25.pas | 23 -----------------------
 2 files changed, 40 deletions(-)
 delete mode 100644 TestSuite/errors/err0545_delegates23.pas
 delete mode 100644 TestSuite/errors/err0546_delegates25.pas

diff --git a/TestSuite/errors/err0545_delegates23.pas b/TestSuite/errors/err0545_delegates23.pas
deleted file mode 100644
index c5854ab41..000000000
--- a/TestSuite/errors/err0545_delegates23.pas
+++ /dev/null
@@ -1,17 +0,0 @@
-var i: integer;
-
-procedure p0(p: byte->());
-begin
-  Inc(i);
-end;
-procedure p1<T>(o: T);
-begin
-  Inc(i);
-end;
-
-begin
-  p0(p1&<byte>);
-  //Ошибка: Нельзя преобразовать тип procedure(o: T) к Action<byte>
-  p0(p1);
-  assert(i = 2);
-end.
\ No newline at end of file
diff --git a/TestSuite/errors/err0546_delegates25.pas b/TestSuite/errors/err0546_delegates25.pas
deleted file mode 100644
index d2b1b58b3..000000000
--- a/TestSuite/errors/err0546_delegates25.pas
+++ /dev/null
@@ -1,23 +0,0 @@
-var i: integer;
-
-procedure p0(p: byte->());
-begin
-  p(1);
-  Inc(i);
-end;
-
-type
-  t1 = class
-    static procedure p1<T>(o: T) := exit;
-    procedure p2<T>(o: T) := exit;
-  end;
-  
-begin
-  // OK
-  p0(t1.p1&<byte>);
-  p0(t1.Create.p2&<byte>);
-  // А эти 2 падают
-  p0(t1.p1);
-  p0(t1.Create.p2);
-  assert(i = 4);
-end.
\ No newline at end of file