This commit is contained in:
Бондарев Иван 2020-08-16 12:25:28 +02:00
parent fc234f7cc4
commit c533fc4dd2
6 changed files with 35 additions and 5 deletions

View file

@ -1 +1 @@
Copyright (C) 2005-2018 by Ivan Bondarev, Stanislav Mikhalkovich Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich

View file

@ -0,0 +1,30 @@
var a: integer;
type
I1 = interface
procedure p1(i: integer);
procedure p1(s: string);
end;
t1 = class(I1)
public procedure I1.p1(i: integer);
begin
a := 1;
end;
public procedure I1.p1(s: string);
begin
a := 2;
end;
end;
begin
var o: I1 := new t1;
o.p1(2);
assert(a = 1);
o.p1('');
assert(a = 2);
end.

View file

@ -2702,7 +2702,7 @@ namespace PascalABCCompiler.TreeConverter
else else
{ {
sil = tmp_si; sil = tmp_si;
sil.RemoveRange(1, sil.Count() - 1); //sil.RemoveRange(1, sil.Count() - 1);
} }
} }

View file

@ -3,7 +3,7 @@ A copy of the GNU GPL is appended to this file.
IMPORTANT PascalABC.NET LICENSE TERMS IMPORTANT PascalABC.NET LICENSE TERMS
Copyright (C) 2005-2019 by Ivan Bondarev, Stanislav Mikhalkovich Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich
This program is free software; you may redistribute and/or modify it under the terms of the GNU LGPL version 3 with the clarifications and exceptions described below. This program is free software; you may redistribute and/or modify it under the terms of the GNU LGPL version 3 with the clarifications and exceptions described below.
PascalABC.NET can be linked with non-free modules and libraries. This condition is mainly concerned with possibility of adding foreign modules and libraries to PascalABC.NET, aimed at education. In particular, PascalABC.NET includes as a part PROGRAMMING TASKBOOK FOR PASCALABC.NET (in agreement with the author of this product), which is distributed under the terms of proprietary license (see \bin\PT4) PascalABC.NET can be linked with non-free modules and libraries. This condition is mainly concerned with possibility of adding foreign modules and libraries to PascalABC.NET, aimed at education. In particular, PascalABC.NET includes as a part PROGRAMMING TASKBOOK FOR PASCALABC.NET (in agreement with the author of this product), which is distributed under the terms of proprietary license (see \bin\PT4)

View file

@ -1 +1 @@
Copyright (C) 2005-2019 by Ivan Bondarev, Stanislav Mikhalkovich Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich

View file

@ -3,7 +3,7 @@
ВАЖНЕЙШИЕ УСЛОВИЯ РАСПРОСТРАНЕНИЯ ПРОДУКТА PascalABC.NET ВАЖНЕЙШИЕ УСЛОВИЯ РАСПРОСТРАНЕНИЯ ПРОДУКТА PascalABC.NET
Copyright (C) 2005-2019 by Ivan Bondarev, Stanislav Mikhalkovich Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich
Это программное обеспечение является свободным; вы можете распространять и/или Это программное обеспечение является свободным; вы можете распространять и/или
модифицировать его на условиях GNU LGPL версии 3 с разъяснениями и исключениями, данными ниже. модифицировать его на условиях GNU LGPL версии 3 с разъяснениями и исключениями, данными ниже.