fix #1894
This commit is contained in:
parent
b333fd6b04
commit
53ea4a7c3e
|
|
@ -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 = "2170";
|
public const string Revision = "2171";
|
||||||
|
|
||||||
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;
|
||||||
|
|
|
||||||
|
|
@ -1,4 +1,4 @@
|
||||||
%COREVERSION%=0
|
|
||||||
%REVISION%=2170
|
|
||||||
%MINOR%=5
|
%MINOR%=5
|
||||||
|
%REVISION%=2171
|
||||||
|
%COREVERSION%=0
|
||||||
%MAJOR%=3
|
%MAJOR%=3
|
||||||
|
|
|
||||||
|
|
@ -1 +1 @@
|
||||||
!define VERSION '3.5.0.2170'
|
!define VERSION '3.5.0.2171'
|
||||||
|
|
|
||||||
7
TestSuite/xor_byte_int_fun.pas
Normal file
7
TestSuite/xor_byte_int_fun.pas
Normal file
|
|
@ -0,0 +1,7 @@
|
||||||
|
function f1: integer := 256;
|
||||||
|
|
||||||
|
begin
|
||||||
|
var b: byte := 255;
|
||||||
|
var i := f1 xor b;
|
||||||
|
Assert(i=511);
|
||||||
|
end.
|
||||||
Loading…
Reference in a new issue