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

Пересобрал

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2021-12-12 20:45:48 +03:00
parent c95fa10824
commit b811d45dd8
5 changed files with 18 additions and 5 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 = "2";
public const string Revision = "3035";
public const string Revision = "3037";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=8
%REVISION%=3035
%REVISION%=3037
%COREVERSION%=2
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.8.2.3035
3.8.2.3037

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.8.2.3035'
!define VERSION '3.8.2.3037'

15
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -637,7 +637,20 @@ type
static function operator in(x: integer; r: IntRange): boolean := (x >= r.l) and (x <= r.h);
static function operator in(x: real; r: IntRange): boolean := (x >= r.l) and (x <= r.h);
static function operator=(r1,r2: IntRange): boolean := (r1.l = r2.l) and (r1.h = r2.h);
static function operator=(r1,r2: IntRange): boolean;
begin
var o1: object := r1;
var o2: object := r2;
if (o1 = nil) and (o2 = nil) then
Result := true
else if (o1 <> nil) and (o2 = nil) then
Result := false
else if (o1 = nil) and (o2 <> nil) then
Result := false
else
Result := (r1.l = r2.l) and (r1.h = r2.h);
end;
/// Возвращает True если диапазон пуст
function IsEmpty: boolean := l>h;