administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

bug fix #241

Browse source
This commit is contained in:
Бондарев Иван 2016-07-20 20:33:26 +02:00
parent 712734c9ce
commit 3fbea94169
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
TestSuite/errors/err0218.pas Normal file
View file

@ -0,0 +1,10 @@
type
Icell = interface
property State: integer read write;
end;
Cell = class(Icell)
end;
begin
end.

5
TreeConverter/TreeConversion/compilation_context.cs
View file

@ -2595,6 +2595,11 @@ namespace PascalABCCompiler.TreeConverter
{
if (si.sym_info.general_node_type == general_node_type.function_node)
{
if (si.sym_info is common_method_node && (si.sym_info as common_method_node).cont_type == interf)
{
si = si.Next;
continue;
}
fn = si.sym_info as function_node;
//Сверяем параметры и тип возвращаемого значения
if (convertion_data_and_alghoritms.function_eq_params_and_result(meth, fn, true) && fn.polymorphic_state != SemanticTree.polymorphic_state.ps_virtual_abstract)