From ead24aa00c7007efb20ce12cf982e2c25e9a49a5 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?=D0=91=D0=BE=D0=BD=D0=B4=D0=B0=D1=80=D0=B5=D0=B2=20=D0=98?=
 =?UTF-8?q?=D0=B2=D0=B0=D0=BD?= <ibond84@googlemail.com>
Date: Wed, 27 Mar 2019 21:08:37 +0100
Subject: [PATCH] bug fix #1891

---
 Compiler/PCU/PCUWriter.cs          |  4 ++++
 TestSuite/CompilationSamples/u.pas | 25 +++++++++++++++++++++++++
 2 files changed, 29 insertions(+)
 create mode 100644 TestSuite/CompilationSamples/u.pas

diff --git a/Compiler/PCU/PCUWriter.cs b/Compiler/PCU/PCUWriter.cs
index e5f51415c..82f7a6abd 100644
--- a/Compiler/PCU/PCUWriter.cs
+++ b/Compiler/PCU/PCUWriter.cs
@@ -2180,7 +2180,11 @@ namespace PascalABCCompiler.PCU
 		{
 			bw.Write(cur_cnn.non_template_types.Count);
 			for (int i=0; i<cur_cnn.non_template_types.Count; i++)
+                if (cur_cnn.non_template_types[i].type_special_kind != SemanticTree.type_special_kind.array_wrapper)
 				VisitTypeDefinition(cur_cnn.non_template_types[i]);
+            for (int i = 0; i < cur_cnn.non_template_types.Count; i++)
+                if (cur_cnn.non_template_types[i].type_special_kind == SemanticTree.type_special_kind.array_wrapper)
+                    VisitTypeDefinition(cur_cnn.non_template_types[i]);
             bw.Write(cur_cnn.runtime_types.Count);
 			for (int i=0; i<cur_cnn.runtime_types.Count; i++)
 				VisitCompiledTypeDefinition(cur_cnn.runtime_types[i]);
diff --git a/TestSuite/CompilationSamples/u.pas b/TestSuite/CompilationSamples/u.pas
new file mode 100644
index 000000000..324100e20
--- /dev/null
+++ b/TestSuite/CompilationSamples/u.pas
@@ -0,0 +1,25 @@
+unit u;
+
+type
+  e1 = (
+  
+    ef1,
+    ef2
+    
+  );
+  
+  t2 = class;
+  tarr = array[e1] of t2;
+  t2 = class
+  end;
+  
+  t1 = class
+    
+    a: array[e1] of t1;//обязательно тип элементов t1
+    procedure test(t: tarr);
+    begin
+      
+    end;
+  end;
+  
+end.
\ No newline at end of file