From a33a42cc10c2b008056e6fd3d7767795eaa030f4 Mon Sep 17 00:00:00 2001 From: Mikhalkovich Stanislav Date: Tue, 29 Mar 2022 15:21:19 +0300 Subject: [PATCH] fix #2647 --- Configuration/GlobalAssemblyInfo.cs | 2 +- Configuration/Version.defs | 4 ++-- Release/pabcversion.txt | 2 +- ReleaseGenerators/PascalABCNET_version.nsh | 2 +- TestSuite/CompilationSamples/PABCSystem.pas | 2 +- bin/Lib/PABCSystem.pas | 2 +- 6 files changed, 7 insertions(+), 7 deletions(-) diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 94bbda053..b303af95a 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 = "8"; public const string Build = "3"; - public const string Revision = "3092"; + public const string Revision = "3093"; 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 23093a941..7a47a52f3 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=3 -%REVISION%=3092 %MINOR%=8 +%REVISION%=3093 +%COREVERSION%=3 %MAJOR%=3 diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 46336be49..e49b8ba70 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.8.3.3092 +3.8.3.3093 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index d450e2e4f..3737560e9 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.8.3.3092' +!define VERSION '3.8.3.3093' diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 6d446a917..f97a2908a 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -5356,7 +5356,7 @@ const procedure IOStandardSystem.ReadNextBuf; begin - realbuflen := tr.ReadBlock(buf, 0, buflen); + realbuflen := tr.Read{Block}(buf, 0, buflen); // SSM 29/03/22 #2647 if realbuflen < buflen then buf[realbuflen] := char(-1); pos := 0; diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 6d446a917..f97a2908a 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -5356,7 +5356,7 @@ const procedure IOStandardSystem.ReadNextBuf; begin - realbuflen := tr.ReadBlock(buf, 0, buflen); + realbuflen := tr.Read{Block}(buf, 0, buflen); // SSM 29/03/22 #2647 if realbuflen < buflen then buf[realbuflen] := char(-1); pos := 0;