bug fix #2259
This commit is contained in:
parent
fc234f7cc4
commit
c533fc4dd2
|
|
@ -1 +1 @@
|
||||||
Copyright (C) 2005-2018 by Ivan Bondarev, Stanislav Mikhalkovich
|
Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich
|
||||||
30
TestSuite/explicitinterface6.pas
Normal file
30
TestSuite/explicitinterface6.pas
Normal 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.
|
||||||
|
|
@ -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);
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
|
||||||
|
|
@ -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)
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
Copyright (C) 2005-2019 by Ivan Bondarev, Stanislav Mikhalkovich
|
Copyright (C) 2005-2020 by Ivan Bondarev, Stanislav Mikhalkovich
|
||||||
|
|
@ -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 с разъяснениями и исключениями, данными ниже.
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in a new issue