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

Sign для беззнаковых

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2025-08-25 23:04:15 +03:00
parent dc4cbb2547
commit 0483c2dca0
6 changed files with 13 additions and 13 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 = "11";
public const string Build = "0";
public const string Revision = "3653";
public const string Revision = "3654";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=11
%REVISION%=3653
%COREVERSION%=0
%REVISION%=3654
%MINOR%=11
%MAJOR%=3

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.11.0.3653
3.11.0.3654

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.11.0.3653'
!define VERSION '3.11.0.3654'

8
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -9269,13 +9269,13 @@ function Sign(x: BigInteger) := x.Sign;
function Sign(x: int64) := Math.Sign(x);
function Sign(x: byte): integer := 1;
function Sign(x: byte): integer := if x = 0 then 0 else 1;
function Sign(x: word): integer := 1;
function Sign(x: word): integer := if x = 0 then 0 else 1;
function Sign(x: longword): integer := 1;
function Sign(x: longword): integer := if x = 0 then 0 else 1;
function Sign(x: uint64): integer := 1;
function Sign(x: uint64): integer := if x = 0 then 0 else 1;
function Sign(x: real): integer := Math.Sign(x);

8
bin/Lib/PABCSystem.pas
View file

@ -9269,13 +9269,13 @@ function Sign(x: BigInteger) := x.Sign;
function Sign(x: int64) := Math.Sign(x);
function Sign(x: byte): integer := 1;
function Sign(x: byte): integer := if x = 0 then 0 else 1;
function Sign(x: word): integer := 1;
function Sign(x: word): integer := if x = 0 then 0 else 1;
function Sign(x: longword): integer := 1;
function Sign(x: longword): integer := if x = 0 then 0 else 1;
function Sign(x: uint64): integer := 1;
function Sign(x: uint64): integer := if x = 0 then 0 else 1;
function Sign(x: real): integer := Math.Sign(x);