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

b xor i

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2019-07-01 22:32:06 +03:00
parent 323ba75b89
commit b333fd6b04
5 changed files with 13 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 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 = "2169"; public const string Revision = "2170";
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%=2169
%COREVERSION%=0 %COREVERSION%=0
%REVISION%=2170
%MINOR%=5
%MAJOR%=3 %MAJOR%=3

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.5.0.2169' !define VERSION '3.5.0.2170'

6
TestSuite/xor_byte_int.pas Normal file
View file

@ -0,0 +1,6 @@
begin
var b: byte := 255;
var i: int64 := 256;
Assert(b xor i = 511);
Assert(i xor b = 511);
end.

4
TreeConverter/TreeConversion/convertion_data_and_alghoritms.cs
View file

@ -2082,7 +2082,9 @@ namespace PascalABCCompiler.TreeConverter
//Тупая заглушка для примитивных типов. иначе не работает +=, у нас лишком много неявных приведений //Тупая заглушка для примитивных типов. иначе не работает +=, у нас лишком много неявных приведений
//в дальнейшем может вызвать странное поведение, это надо проверить //в дальнейшем может вызвать странное поведение, это надо проверить
if (set_of_possible_functions.Count == 2 && indefinits.Count == 0) if (set_of_possible_functions.Count == 2 && indefinits.Count == 0)
if (set_of_possible_functions[0] is basic_function_node && set_of_possible_functions[1] is basic_function_node) if (set_of_possible_functions[0] is basic_function_node && set_of_possible_functions[1] is basic_function_node
// добавил это условие из-за комментария. Не понимаю, почему иначе не работает +=. Все тесты проходят 01.07.19 если закомментировать вообще этот if !!!
&& set_of_possible_functions[0].name == "+=" && set_of_possible_functions[1].name == "+=")
return set_of_possible_functions[0]; return set_of_possible_functions[0];
if (indefinits.Count > 0) if (indefinits.Count > 0)