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

Merge 29/08

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2020-08-29 15:45:01 +03:00
parent b1530ff6f6
commit d5f77542ec
14 changed files with 1111 additions and 1106 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 = "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;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=2670
%MINOR%=7
%REVISION%=2671
%COREVERSION%=0
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -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 <ABCPascal.lex>
// GPLEX frame file <embedded resource>

2
Parsers/PascalABCParserNewSaushkin/ABCPascal.y
View file

@ -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, @$);
}

2182
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

File diff suppressed because it is too large Load diff

1
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -283,5 +283,6 @@ script=

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.7.0.2670
3.7.0.2671

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.7.0.2670'
!define VERSION '3.7.0.2671'

4
TestSuite/CompilationSamples/PABCSystem.pas
View file

@ -2355,9 +2355,9 @@ function HSet(a: CharRange): HashSet<char>;
function SSet<T>(params a: array of T): SortedSet<T>;
/// Возвращает множество на базе бинарного дерева поиска, заполненное значениями из последовательности
function SSet<T>(a: sequence of T): SortedSet<T>;
/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное диапазоном значений
/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений
function SSet(a: IntRange): SortedSet<integer>;
/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное заполненный диапазоном значений
/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений
function SSet(a: CharRange): SortedSet<char>;

7
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -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;
}

4
bin/Lib/PABCSystem.pas
View file

@ -2355,9 +2355,9 @@ function HSet(a: CharRange): HashSet<char>;
function SSet<T>(params a: array of T): SortedSet<T>;
/// Возвращает множество на базе бинарного дерева поиска, заполненное значениями из последовательности
function SSet<T>(a: sequence of T): SortedSet<T>;
/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное диапазоном значений
/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений
function SSet(a: IntRange): SortedSet<integer>;
/// Возвращает множество на базе на базе бинарного дерева поиска, заполненное заполненный диапазоном значений
/// Возвращает множество на базе бинарного дерева поиска, заполненное диапазоном значений
function SSet(a: CharRange): SortedSet<char>;

BIN
bin/RunUnitTests.exe
View file

Binary file not shown.

5
bin/RunUnitTests.pas
View file

@ -25,7 +25,7 @@ end;
var Trim_Chars := Arr(#13,#10);
var RusTestStatus := Dict&<TestStatus,string>(
(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;