Recompiled

Configuration/GlobalAssemblyInfo.cs

@@ -15,7 +15,7 @@ internal static class RevisionClass
 	public const string Major = "3";
 	public const string Minor = "8";
 	public const string Build = "2";
-	public const string Revision = "3015";
+	public const string Revision = "3016";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=8
-%REVISION%=3015
 %COREVERSION%=2
+%REVISION%=3016
+%MINOR%=8
 %MAJOR%=3

Release/pabcversion.txt

@@ -1 +1 @@
-3.8.2.3015
+3.8.2.3016

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.8.2.3015'
+!define VERSION '3.8.2.3016'

TestSuite/CompilationSamples/ABCDatabases.pas

@@ -80,6 +80,8 @@ type
     [PrintAttribute(' ', 4, -5)]
     property УчитсяВКШ: boolean read _inSunSchool;
   end;}
+
+  ///!#
   Ученик = auto class
     Фамилия: string;
     Класс, Рост: integer;

TestSuite/CompilationSamples/PABCSystem.pas

@@ -14137,7 +14137,9 @@ begin
   
   // SSM 10/11/18 восстановил эту строку чтобы в главном потоке в вещественных была точка
   System.Threading.Thread.CurrentThread.CurrentCulture := new System.Globalization.CultureInfo('en-US');
-
+  var defaultCulture := typeof(System.Globalization.CultureInfo).GetProperty('DefaultThreadCurrentCulture');
+  if defaultCulture <> nil then
+    defaultCulture.SetValue(nil, new System.Globalization.CultureInfo('en-US'));
   input := new TextFile();
   output := new TextFile();
   output.sw := Console.Out;

TestSuite/CompilationSamples/PT4Exam.pas

@@ -154,7 +154,7 @@ end;
 
 
 initialization
-  PrintDelimDefault := ' ';
+  PrintDelimDefault := '';
 finalization
 
   FinExam;