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

bug fix #828

Browse source
This commit is contained in:
Бондарев Иван 2018-06-02 14:09:23 +02:00
parent 78ea0be0e1
commit 30d672cbfc
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -10530,8 +10530,10 @@ namespace PascalABCCompiler.TreeConverter
class_definition cl_def = td.type_def as class_definition;
if (cl_def.body == null)
AddError(get_location(cl_def), "TYPE_PREDEFINITION_NOT_ALLOWED");
common_type_node ctn = context.advanced_create_type(td.type_name.name, get_location(td.type_name), false, false);
common_type_node ctn = context.advanced_create_type(td.type_name.name, get_location(td.type_name), (td.type_def as class_definition).keyword == class_keyword.Interface, false);
ctn.ForwardDeclarationOnly = true;
if ((td.type_def as class_definition).keyword == class_keyword.Interface)
ctn.IsInterface = true;
context.converted_type = null;
context.add_type_header(td, ctn);
}