bug fix:

uses PT4;
var top: Node;
top.dispose;

Compiler/PCU/PCUReader.cs

@@ -1678,7 +1678,7 @@ namespace PascalABCCompiler.PCU
             for (int i = 0; i < num_par; i++)
                 cmn.parameters.AddElement(GetParameter(cmn));
             cmn.cont_type = (common_type_node)GetTypeReference(br.ReadInt32());
-            if (name==null)
+            if (name==null || true)
                 cmn.SetName(GetStringInClass(cmn.cont_type, name_ref));
             cmn.attributes.AddRange(GetAttributes());
             cmn.is_constructor = br.ReadBoolean();

TestSuite/CompilationSamples/PABCSystem.pas

@@ -3023,7 +3023,7 @@ end;}
 // Extension methods for IEnumerable<T>
 //------------------------------------------------------------------------------
 /// Выводит последовательность на экран, используя delim в качестве разделителя
-function System.Collections.Generic.IEnumerable<T>.Print(delim: string): sequence of T;
+function Print<T>(self: sequence of T; delim: string): sequence of T; extensionmethod;
 begin
   var g := Self.GetEnumerator();
   if g.MoveNext() then
@@ -3036,13 +3036,13 @@ begin
 end;
 
 /// Выводит последовательность на экран, используя пробел в качестве разделителя
-function System.Collections.Generic.IEnumerable<T>.Print(): sequence of T; 
+function Print<T>(self: sequence of T): sequence of T; extensionmethod;
 begin
   Result := Self.Print(' ');  
 end;
 
 /// Выводит последовательность на экран, используя delim в качестве разделителя, и переходит на новую строку
-function System.Collections.Generic.IEnumerable<T>.Println(delim: string): sequence of T;
+function Println<T>(self: sequence of T; delim: string): sequence of T; extensionmethod;
 begin
   Self.Print(delim);
   Writeln;
@@ -3050,7 +3050,7 @@ begin
 end;
 
 /// Выводит последовательность на экран, используя пробел качестве разделителя, и переходит на новую строку
-function System.Collections.Generic.IEnumerable<T>.Println(): sequence of T;
+function Println<T>(self: sequence of T): sequence of T; extensionmethod;
 begin
   Result := Self.Println(' ');  
 end;
@@ -3073,12 +3073,6 @@ begin
   Result := Self.JoinIntoString(' ');  
 end;
 
-{procedure System.Collections.Generic.IEnumerable<T>.&ForEach(action: Action<T>);
-begin
-  foreach x: T in Self do
-    action(x);
-end;}
-
 /// Применяет действие к каждому элементу последовательности
 procedure &ForEach<T>(self: sequence of T; action: T -> ()); extensionmethod;
 begin
@@ -3091,7 +3085,7 @@ begin
   Result := x;
 end;
 
-function System.Collections.Generic.IEnumerable<T>.Sorted(): sequence of T;
+function Sorted<T>(self: sequence of T): sequence of T; extensionmethod;
 begin
   Result := Self.OrderBy(Ident&<T>);
 end;

TreeConverter/NetWrappers/NetHelper.cs

@@ -1960,7 +1960,7 @@ namespace PascalABCCompiler.NetHelper
 			List<string> lst = new List<string>();
 			foreach (string s in namespaces.Keys)
 			{
-				if (s != name && s.StartsWith(name))
+				if (s != name && s.StartsWith(name, StringComparison.CurrentCultureIgnoreCase))
 					lst.Add(s.Substring(name.Length+1));
 			}
 			if (lst == null) return null;