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

bug fix #2043

Browse source
This commit is contained in:
Бондарев Иван 2019-07-14 19:13:20 +02:00
parent d56b2b1009
commit 72ed28d180
4 changed files with 6 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
TestSuite/namespaces/nstypedef1.pas
View file

@ -1,5 +1,7 @@
namespace nstypedef; namespace nstypedef;
uses System, System.Collections.Generic;
type type
myint2 = integer; myint2 = integer;
myfnc = function(o: TClass): integer; myfnc = function(o: TClass): integer;

2
TestSuite/namespaces/nstypedef2.pas
View file

@ -1,5 +1,7 @@
namespace nstypedef; namespace nstypedef;
uses System, System.Collections.Generic;
type IntList = List<integer>; type IntList = List<integer>;
type TClass2 = class type TClass2 = class

2
TestSuite/use_ns_typedef.pas
View file

@ -2,7 +2,7 @@
{$includenamespace 'namespaces/nstypedef1.pas'} {$includenamespace 'namespaces/nstypedef1.pas'}
{$includenamespace 'namespaces/nstypedef2.pas'} {$includenamespace 'namespaces/nstypedef2.pas'}
uses nstypedef; uses System, System.Collections.Generic, nstypedef;
begin begin
var i: myint2; var i: myint2;
assert(i = 0); assert(i = 0);

2
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -10925,7 +10925,7 @@ namespace PascalABCCompiler.TreeConverter
} }
scopes.Add(ns_scope2); scopes.Add(ns_scope2);
} }
else else if (si_list == null)
AddError(new NamespaceNotFound(nun.namespace_name.namespace_name, un.location)); AddError(new NamespaceNotFound(nun.namespace_name.namespace_name, un.location));
} }
} }