From 9f8f982cc20e39fb3cf46449602d90a71972c4af Mon Sep 17 00:00:00 2001
From: AlexanderZemlyak <92867056+AlexanderZemlyak@users.noreply.github.com>
Date: Tue, 4 Jun 2024 17:06:34 +0300
Subject: [PATCH] Delete xml documentation of standard modules (#3140)

---
 TreeConverter/TreeConversion/syntax_tree_visitor.cs | 7 +++++--
 bin/Lib/ABCObjects.pas                              | 1 -
 bin/Lib/ABCObjects.xml                              | 5 -----
 bin/Lib/CRT.pas                                     | 1 -
 bin/Lib/CRT.xml                                     | 5 -----
 bin/Lib/GraphABC.pas                                | 1 -
 bin/Lib/GraphABC.xml                                | 5 -----
 bin/Lib/PABCSystem.pas                              | 2 --
 bin/Lib/PABCSystem.xml                              | 5 -----
 9 files changed, 5 insertions(+), 27 deletions(-)
 delete mode 100644 bin/Lib/ABCObjects.xml
 delete mode 100644 bin/Lib/CRT.xml
 delete mode 100644 bin/Lib/GraphABC.xml
 delete mode 100644 bin/Lib/PABCSystem.xml

diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
index 3c516006a..61a06225f 100644
--- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs
+++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs
@@ -111,6 +111,8 @@ namespace PascalABCCompiler.TreeConverter
         {
             //convertion_data_and_alghoritms.__i = 0;
             Initialize(initializationData);
+
+            this.docs = initializationData.docs;
             //comp_units=UsedUnits;
             //visit(SyntaxUnit
             //SyntaxTreeToSemanticTreeConverter.interface_using_list = namespaces;
@@ -122,6 +124,9 @@ namespace PascalABCCompiler.TreeConverter
         {
             Initialize(initializationData);
 
+            if (this.docs != null)
+                this.docs = initializationData.docs;
+
             using_list.AddRange(initializationData.interfaceNamespaces);
             interface_using_list.AddRange(initializationData.interfaceNamespaces);
             using_list.AddRange(initializationData.implementationNamespaces);
@@ -150,8 +155,6 @@ namespace PascalABCCompiler.TreeConverter
 
             SymbolTable.CaseSensitive = SemanticRulesConstants.SymbolTableCaseSensitive;
 
-            if (docs != null)
-                this.docs = initializationData.docs;
             this.debug = initializationData.debug;
             this.debugging = initializationData.debugging;
             this.for_intellisense = initializationData.forIntellisense;
diff --git a/bin/Lib/ABCObjects.pas b/bin/Lib/ABCObjects.pas
index ef2d4971a..708b732b5 100644
--- a/bin/Lib/ABCObjects.pas
+++ b/bin/Lib/ABCObjects.pas
@@ -10,7 +10,6 @@ unit ABCObjects;
 //{$apptype windows}
 {$reference '%GAC%\System.Windows.Forms.dll'}
 {$reference '%GAC%\System.Drawing.dll'}
-{$gendoc true}
 
 interface
 
diff --git a/bin/Lib/ABCObjects.xml b/bin/Lib/ABCObjects.xml
deleted file mode 100644
index 90226e328..000000000
--- a/bin/Lib/ABCObjects.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<doc>
-  <unit name="ABCObjects" />
-  <members />
-</doc>
\ No newline at end of file
diff --git a/bin/Lib/CRT.pas b/bin/Lib/CRT.pas
index e934f1d11..d2c161d6d 100644
--- a/bin/Lib/CRT.pas
+++ b/bin/Lib/CRT.pas
@@ -7,7 +7,6 @@
 unit CRT;
 
 {$apptype console}
-{$gendoc true}
 
 interface
 
diff --git a/bin/Lib/CRT.xml b/bin/Lib/CRT.xml
deleted file mode 100644
index 56c7dbfac..000000000
--- a/bin/Lib/CRT.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<doc>
-  <unit name="CRT" />
-  <members />
-</doc>
\ No newline at end of file
diff --git a/bin/Lib/GraphABC.pas b/bin/Lib/GraphABC.pas
index 970f5802e..5dbbe0e22 100644
--- a/bin/Lib/GraphABC.pas
+++ b/bin/Lib/GraphABC.pas
@@ -8,7 +8,6 @@ unit GraphABC;
 {$apptype windows} 
 {$reference '%GAC%\System.Windows.Forms.dll'}
 {$reference '%GAC%\System.Drawing.dll'}
-{$gendoc true}
 
 interface
 
diff --git a/bin/Lib/GraphABC.xml b/bin/Lib/GraphABC.xml
deleted file mode 100644
index 254fd01fe..000000000
--- a/bin/Lib/GraphABC.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<doc>
-  <unit name="GraphABC" />
-  <members />
-</doc>
\ No newline at end of file
diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas
index fbdee0e67..9b503384c 100644
--- a/bin/Lib/PABCSystem.pas
+++ b/bin/Lib/PABCSystem.pas
@@ -7,8 +7,6 @@ unit PABCSystem;
 
 {$zerobasedstrings off}
 
-{$gendoc true}
-
 // Default Application type
 {$apptype console}
 
diff --git a/bin/Lib/PABCSystem.xml b/bin/Lib/PABCSystem.xml
deleted file mode 100644
index 09c905ca8..000000000
--- a/bin/Lib/PABCSystem.xml
+++ /dev/null
@@ -1,5 +0,0 @@
-<?xml version="1.0" encoding="utf-8"?>
-<doc>
-  <unit name="PABCSystem" />
-  <members />
-</doc>
\ No newline at end of file