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

bug fix #806

Browse source
This commit is contained in:
Бондарев Иван 2018-05-06 11:31:16 +02:00
parent aed5af2618
commit b6aa4d9c90
2 changed files with 54 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

22
TestSuite/events4.pas Normal file
View file

@ -0,0 +1,22 @@
var a: integer;
type
t1 = class
event p:procedure;
procedure p1;
begin
self.p();
end;
end;
procedure test;
begin
a := 1;
end;
begin
var o := new t1;
o.p += test;
o.p1;
assert(a = 1);
end.

34
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -9060,8 +9060,14 @@ namespace PascalABCCompiler.TreeConverter
private expression_node expression_value_reciving(SyntaxTree.ident id_right, List<SymbolInfo> sil, expression_node en, bool expected_delegate) private expression_node expression_value_reciving(SyntaxTree.ident id_right, List<SymbolInfo> sil, expression_node en, bool expected_delegate)
{ {
definition_node dn = context.check_name_node_type(id_right.name, sil?.FirstOrDefault(), get_location(id_right), general_node_type.variable_node, general_node_type[] node_types;
general_node_type.function_node, general_node_type.property_node, general_node_type.constant_definition); if (en is this_node)
node_types = new general_node_type[] { general_node_type.variable_node,
general_node_type.function_node, general_node_type.property_node, general_node_type.constant_definition, general_node_type.event_node};
else
node_types = new general_node_type[] { general_node_type.variable_node,
general_node_type.function_node, general_node_type.property_node, general_node_type.constant_definition};
definition_node dn = context.check_name_node_type(id_right.name, sil?.FirstOrDefault(), get_location(id_right), node_types);
switch (dn.general_node_type) switch (dn.general_node_type)
{ {
/*case general_node_type.constant_defenition: /*case general_node_type.constant_defenition:
@ -9152,6 +9158,30 @@ namespace PascalABCCompiler.TreeConverter
//throw new ConstMemberCannotBeAccessedWithAnInstanceReference((class_constant_definition)dn, get_location(id_right)); //throw new ConstMemberCannotBeAccessedWithAnInstanceReference((class_constant_definition)dn, get_location(id_right));
return ((constant_definition_node)dn).const_value; return ((constant_definition_node)dn).const_value;
} }
case general_node_type.event_node:
{
if (dn.semantic_node_type == semantic_node_type.compiled_event)
{
compiled_event ce = (compiled_event)dn;
if (ce.is_static)
{
//throw new NonStaticAndStaticEvevnt();
}
nonstatic_event_reference ser = new nonstatic_event_reference(en, ce, get_location(id_right));
return ser;
}
else if (dn.semantic_node_type == semantic_node_type.common_event)
{
common_event ce = (common_event)dn;
if (ce.is_static)
{
//throw new NonStaticAndStaticEvevnt();
}
nonstatic_event_reference ser = new nonstatic_event_reference(en, ce, get_location(id_right));
return ser;
}
break;
}
} }
throw new CompilerInternalError("Invalid class member"); throw new CompilerInternalError("Invalid class member");
} }