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

fix #2042

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2019-07-11 22:05:19 +03:00
parent dddd90f710
commit b5ea7dacb9
6 changed files with 19 additions and 16 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 Major = "3";
public const string Minor = "5"; public const string Minor = "5";
public const string Build = "0"; public const string Build = "0";
public const string Revision = "2191"; public const string Revision = "2192";
public const string MainVersion = Major + "." + Minor; public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=5
%REVISION%=2191
%COREVERSION%=0 %COREVERSION%=0
%REVISION%=2192
%MINOR%=5
%MAJOR%=3 %MAJOR%=3

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.5.0.2191' !define VERSION '3.5.0.2192'

12
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -8488,23 +8488,23 @@ begin
end; end;
end; end;
/// Возвращает бесконечную последовательность целых от текущего значения с шагом step /// Возвращает бесконечную последовательность целых от текущего значения с шагом st
function Step(Self: integer; step: integer): sequence of integer; extensionmethod; function Step(Self: integer; st: integer): sequence of integer; extensionmethod;
begin begin
while True do while True do
begin begin
yield Self; yield Self;
Self += step; Self += st;
end; end;
end; end;
/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом step /// Возвращает бесконечную последовательность вещественных от текущего значения с шагом st
function Step(Self: real; step: real): sequence of real; extensionmethod; function Step(Self: real; st: real): sequence of real; extensionmethod;
begin begin
while True do while True do
begin begin
yield Self; yield Self;
Self += step; Self += st;
end; end;
end; end;

3
TestSuite/StepReal.pas Normal file
View file

@ -0,0 +1,3 @@
begin
Assert(0.0.Step(0.3).Take(2).SequenceEqual(Seq(0.0,0.3)));
end.

12
bin/Lib/PABCSystem.pas
View file

@ -8488,23 +8488,23 @@ begin
end; end;
end; end;
/// Возвращает бесконечную последовательность целых от текущего значения с шагом step /// Возвращает бесконечную последовательность целых от текущего значения с шагом st
function Step(Self: integer; step: integer): sequence of integer; extensionmethod; function Step(Self: integer; st: integer): sequence of integer; extensionmethod;
begin begin
while True do while True do
begin begin
yield Self; yield Self;
Self += step; Self += st;
end; end;
end; end;
/// Возвращает бесконечную последовательность вещественных от текущего значения с шагом step /// Возвращает бесконечную последовательность вещественных от текущего значения с шагом st
function Step(Self: real; step: real): sequence of real; extensionmethod; function Step(Self: real; st: real): sequence of real; extensionmethod;
begin begin
while True do while True do
begin begin
yield Self; yield Self;
Self += step; Self += st;
end; end;
end; end;