administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

fix #2647

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2022-03-29 15:21:19 +03:00
parent 22e43aa5f1
commit a33a42cc10
6 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
Configuration/GlobalAssemblyInfo.cs
View file

@ -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;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=3
%REVISION%=3092
%MINOR%=8
%REVISION%=3093
%COREVERSION%=3
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.8.3.3092
3.8.3.3093

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.8.3.3092'
!define VERSION '3.8.3.3093'

2
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -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;

2
bin/Lib/PABCSystem.pas
View file

@ -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;