fix pascalabcnet/pascalabcnetide#251

TestSuite/intellisense_tests/generics27.pas

@@ -0,0 +1,17 @@
+type
+  I1<T> = interface;
+  I2<T> = interface;
+  
+  I1<T> = interface(I2<T>)
+    
+  end;
+  
+  I2<T> = interface(I1<T>)
+    
+  end;
+
+type t1=class(I1<byte>) end;
+  
+begin
+  new t1;
+end.

TreeConverter/NetWrappers/NetHelper.cs

@@ -982,6 +982,13 @@ namespace PascalABCCompiler.NetHelper
                     return true;
         	return false;
 		}
+
+        public static bool IsNetNamespaceInAssembly(string name, Assembly a)
+        {
+            if (cur_used_assemblies != null && cur_used_assemblies.ContainsKey(a) && (namespace_assemblies[a] as Hashtable).ContainsKey(name))
+                return true;
+            return false;
+        }
 		
 		public static bool IsNetNamespace(string name,PascalABCCompiler.TreeRealization.using_namespace_list _unar, out string full_ns)
 		{

TreeConverter/TreeConversion/syntax_tree_visitor.cs

@@ -140,7 +140,7 @@ namespace PascalABCCompiler.TreeConverter
         internal void AddError(location loc, string ErrResourceString, params object[] values)
         {
             Errors.Error err = new SimpleSemanticError(loc, ErrResourceString, values);
-            if (ThrowCompilationError && !for_intellisense)
+            if ((ThrowCompilationError && !for_intellisense) || ErrResourceString == "FORWARD_DECLARATION_{0}_AS_BASE_TYPE")
             {
                 throw err;
             }