diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 145d81dd8..3ab17836c 100644 --- a/Configuration/GlobalAssemblyInfo.cs +++ b/Configuration/GlobalAssemblyInfo.cs @@ -15,7 +15,7 @@ internal static class RevisionClass public const string Major = "3"; public const string Minor = "7"; public const string Build = "0"; - public const string Revision = "2670"; + public const string Revision = "2671"; public const string MainVersion = Major + "." + Minor; public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision; diff --git a/Configuration/Version.defs b/Configuration/Version.defs index 78c64c3e2..159a11642 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ -%COREVERSION%=0 -%REVISION%=2670 %MINOR%=7 +%REVISION%=2671 +%COREVERSION%=0 %MAJOR%=3 diff --git a/Localization/DefaultLang.resources b/Localization/DefaultLang.resources index dac6069f5..ff2e09529 100644 Binary files a/Localization/DefaultLang.resources and b/Localization/DefaultLang.resources differ diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs index 8923c16ea..0204c8afd 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascal.cs @@ -2,7 +2,7 @@ // This CSharp output file generated by Gardens Point LEX // Version: 1.1.3.301 // Machine: DESKTOP-G8V08V4 -// DateTime: 26.08.2020 0:44:46 +// DateTime: 27.08.2020 0:13:56 // UserName: ????????? // GPLEX input file // GPLEX frame file diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascal.y b/Parsers/PascalABCParserNewSaushkin/ABCPascal.y index 184892c18..046413e29 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascal.y +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascal.y @@ -897,7 +897,7 @@ const_factor ; const_set - : tkSquareOpen const_elem_list tkSquareClose + : tkSquareOpen elem_list tkSquareClose { $$ = new pascal_set_constant($2 as expression_list, @$); } diff --git a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs index 92ad31f96..17e17f739 100644 --- a/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs +++ b/Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs @@ -2,9 +2,9 @@ // GPPG version 1.3.6 // Machine: DESKTOP-G8V08V4 -// DateTime: 26.08.2020 0:44:47 +// DateTime: 27.08.2020 0:13:56 // UserName: ????????? -// Input file +// Input file // options: no-lines gplex @@ -59,7 +59,7 @@ public abstract class ScanBase : AbstractScanner { - // Verbatim content from ABCPascal.y + // Verbatim content from D:\PABC_Git\Parsers\PascalABCParserNewSaushkin\ABCPascal.y // ��� ���������� ����������� � ����� GPPGParser, �������������� ����� ������, ������������ �������� gppg public syntax_tree_node root; // �������� ���� ��������������� ������ @@ -71,7 +71,7 @@ public partial class GPPGParser: ShiftReduceParser scanner) : base(scanner) { } - // End verbatim content from ABCPascal.y + // End verbatim content from D:\PABC_Git\Parsers\PascalABCParserNewSaushkin\ABCPascal.y #pragma warning disable 649 private static Dictionary aliasses; @@ -167,7 +167,7 @@ public partial class GPPGParser: ShiftReduceParser new_expr { CurrentSemanticValue.ex = ValueStack[ValueStack.Depth-1].ex; } break; - case 154: // const_set -> tkSquareOpen, const_elem_list, tkSquareClose + case 154: // const_set -> tkSquareOpen, elem_list, tkSquareClose { CurrentSemanticValue.ex = new pascal_set_constant(ValueStack[ValueStack.Depth-2].stn as expression_list, CurrentLocationSpan); } diff --git a/Parsers/PascalABCParserNewSaushkin/PABC.ymc b/Parsers/PascalABCParserNewSaushkin/PABC.ymc index 8cc0534dc..8c6ce1091 100644 --- a/Parsers/PascalABCParserNewSaushkin/PABC.ymc +++ b/Parsers/PascalABCParserNewSaushkin/PABC.ymc @@ -283,5 +283,6 @@ script= + diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 20bd31262..a49483d09 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.7.0.2670 +3.7.0.2671 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index 0345a8406..20aad5e2b 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.7.0.2670' +!define VERSION '3.7.0.2671' diff --git a/TestSuite/CompilationSamples/PABCSystem.pas b/TestSuite/CompilationSamples/PABCSystem.pas index 66c639f61..d391fc3d6 100644 --- a/TestSuite/CompilationSamples/PABCSystem.pas +++ b/TestSuite/CompilationSamples/PABCSystem.pas @@ -2355,9 +2355,9 @@ function HSet(a: CharRange): HashSet; function SSet(params a: array of T): SortedSet; /// Возвращает множество на базе бинарного дерева поиска, заполненное значениями из последовательности function SSet(a: sequence of T): SortedSet; -/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное диапазоном значений +/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений function SSet(a: IntRange): SortedSet; -/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное заполненный диапазоном значений +/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений function SSet(a: CharRange): SortedSet; diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index 2d864c11f..6cc9c9e8a 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -1352,7 +1352,10 @@ namespace PascalABCCompiler.TreeConverter convertion_data_and_alghoritms.explicit_convert_type(oti.lower_value,SystemLibrary.SystemLibrary.int64_type),convertion_data_and_alghoritms.explicit_convert_type(oti.upper_value,SystemLibrary.SystemLibrary.int64_type)),right.type); } else if (oti.lower_value is char_const_node) - right = convertion_data_and_alghoritms.create_simple_function_call(SystemLibrary.SystemLibInitializer.CheckCharRangeFunction.sym_info as common_namespace_function_node, null, right, oti.lower_value,oti.upper_value); + right = convertion_data_and_alghoritms.create_simple_function_call( + SystemLibrary.SystemLibInitializer.CheckCharRangeFunction.sym_info as common_namespace_function_node, + null, right, oti.lower_value,oti.upper_value + ); } expression_node exp_node = convertion_data_and_alghoritms.create_simple_function_call(fnsel, loc, left, right); return exp_node; @@ -14006,7 +14009,7 @@ namespace PascalABCCompiler.TreeConverter if (context.top_function.IsOperator && (context.top_function.name == compiler_string_consts.implicit_operator_name || context.top_function.name == compiler_string_consts.explicit_operator_name) && context.top_function.parameters.Count == 1 && context.top_function.return_value_type != null) { if (!(context.top_function.return_value_type is compiled_type_node) && !(context.top_function.return_value_type is compiled_generic_instance_type_node) || !(context.top_function.parameters[0].type is compiled_type_node) && !(context.top_function.parameters[0].type is compiled_generic_instance_type_node)) - AddError(get_location(_procedure_attributes_list), "IMPLICIT_EXPLICIT_OPERATOR_EXTENSION_ONLY_FOR_COMPILED_CLASSES_ALLOWED"); + ;//AddError(get_location(_procedure_attributes_list), "IMPLICIT_EXPLICIT_OPERATOR_EXTENSION_ONLY_FOR_COMPILED_CLASSES_ALLOWED"); } break; } diff --git a/bin/Lib/PABCSystem.pas b/bin/Lib/PABCSystem.pas index 66c639f61..d391fc3d6 100644 --- a/bin/Lib/PABCSystem.pas +++ b/bin/Lib/PABCSystem.pas @@ -2355,9 +2355,9 @@ function HSet(a: CharRange): HashSet; function SSet(params a: array of T): SortedSet; /// Возвращает множество на базе бинарного дерева поиска, заполненное значениями из последовательности function SSet(a: sequence of T): SortedSet; -/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное диапазоном значений +/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений function SSet(a: IntRange): SortedSet; -/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное заполненный диапазоном значений +/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений function SSet(a: CharRange): SortedSet; diff --git a/bin/RunUnitTests.exe b/bin/RunUnitTests.exe index edb25f28d..9f0d47dff 100644 Binary files a/bin/RunUnitTests.exe and b/bin/RunUnitTests.exe differ diff --git a/bin/RunUnitTests.pas b/bin/RunUnitTests.pas index 99b2635e1..4c0b332d4 100644 --- a/bin/RunUnitTests.pas +++ b/bin/RunUnitTests.pas @@ -25,7 +25,7 @@ end; var Trim_Chars := Arr(#13,#10); var RusTestStatus := Dict&( - (TestStatus.Failed,'Тесты провалены'), + (TestStatus.Failed,'Тесты не прошли'), (TestStatus.Inconclusive,'Тесты не завершены'), (TestStatus.Passed,'Тесты прошли'), (TestStatus.Skipped,'Тесты пропущены'), @@ -198,7 +198,8 @@ begin Println; if summary.FailedCount > 0 then begin - Print(' Проваленные тесты - Провалено:', summary.FailureCount); Print(', Ошибки:', summary.ErrorCount); + Print(' Неудачные тесты - Не прошло:', summary.FailureCount); + Print(', Ошибки:', summary.ErrorCount); Print(', Неверные:', summary.InvalidCount); Println; end;