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

Scan исправление

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-03-15 21:00:39 +03:00
parent a7598b50cd
commit f811066d7e
6 changed files with 8 additions and 6 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 = "9";
public const string Build = "0";
public const string Revision = "3434";
public const string Revision = "3436";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=3434
%REVISION%=3436
%MINOR%=9
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3434
3.9.0.3436

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3434'
!define VERSION '3.9.0.3436'

3
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -10195,7 +10195,8 @@ end;
function Scan<T>(Self: sequence of T; func: (T,T) -> T): sequence of T; extensionmethod;
begin
var e := Self.GetEnumerator;
e.MoveNext;
if not e.MoveNext then
exit;
var s := e.Current;
yield s;
while e.MoveNext do

3
bin/Lib/PABCSystem.pas
View file

@ -10195,7 +10195,8 @@ end;
function Scan<T>(Self: sequence of T; func: (T,T) -> T): sequence of T; extensionmethod;
begin
var e := Self.GetEnumerator;
e.MoveNext;
if not e.MoveNext then
exit;
var s := e.Current;
yield s;
while e.MoveNext do