diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 3494717db..6c9405e5e 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "4"; public const string Build = "2"; - public const string Revision = "1822"; + public const string Revision = "1825"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 558fefe7a..176037c68 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%MINOR%=4 -%REVISION%=1822 %COREVERSION%=2 +%REVISION%=1825 +%MINOR%=4 %MAJOR%=3 diff --git a/Localization/DefaultLang.resources b/Localization/DefaultLang.resources index c0357059f..eb97a7a26 100644 Binary files a/Localization/DefaultLang.resources and b/Localization/DefaultLang.resources differ diff --git a/PABCNetHelp/LangGuide/Operators/break.html b/PABCNetHelp/LangGuide/Operators/break.html index 961143e72..ae2cbb3bc 100644 --- a/PABCNetHelp/LangGuide/Operators/break.html +++ b/PABCNetHelp/LangGuide/Operators/break.html @@ -51,10 +51,9 @@ exit

Вызов exit в разделе операторов основной программы приводит к ее немедленному завершению.

-

Следует отметить, что в -PascalABC.NET (в отличие от Borland Pascal и -Borland Delphi) break, continueexit являются не процедурами, а именно операторами.

+

Более точно, break, continueexit в +PascalABC.NET являются операторами вызова специальных внутренних процедур.

diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index 17290a697..f6b32d424 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.4.2.1822' +!define VERSION '3.4.2.1825' diff --git a/TestSuite/typed_var_init1.pas b/TestSuite/typed_var_init1.pas new file mode 100644 index 000000000..2711f07d4 --- /dev/null +++ b/TestSuite/typed_var_init1.pas @@ -0,0 +1,7 @@ +п»їvar c: string := '123'[1:3]; +var c1: string := '123'[1]; + +begin + Assert(c='12'); + Assert(c1='1') +end. \ No newline at end of file