diff --git a/Configuration/GlobalAssemblyInfo.cs b/Configuration/GlobalAssemblyInfo.cs index 09e3979ab..70efc987d 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 = "1"; - public const string Revision = "2710"; + public const string Revision = "2712"; 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 de2518195..6a1cf1644 100644 --- a/Configuration/Version.defs +++ b/Configuration/Version.defs @@ -1,4 +1,4 @@ %COREVERSION%=1 -%REVISION%=2710 +%REVISION%=2712 %MINOR%=7 %MAJOR%=3 diff --git a/Release/pabcversion.txt b/Release/pabcversion.txt index 583d37bda..6a3de746c 100644 --- a/Release/pabcversion.txt +++ b/Release/pabcversion.txt @@ -1 +1 @@ -3.7.1.2710 +3.7.1.2712 diff --git a/ReleaseGenerators/PascalABCNET_version.nsh b/ReleaseGenerators/PascalABCNET_version.nsh index d18f5e90a..08477596c 100644 --- a/ReleaseGenerators/PascalABCNET_version.nsh +++ b/ReleaseGenerators/PascalABCNET_version.nsh @@ -1 +1 @@ -!define VERSION '3.7.1.2710' +!define VERSION '3.7.1.2712' diff --git a/TestSuite/errors/err0376.pas b/TestSuite/errors/err0376.pas new file mode 100644 index 000000000..81eccbb31 --- /dev/null +++ b/TestSuite/errors/err0376.pas @@ -0,0 +1,3 @@ +begin + integer(True) +end. \ No newline at end of file diff --git a/TreeConverter/TreeConversion/syntax_tree_visitor.cs b/TreeConverter/TreeConversion/syntax_tree_visitor.cs index b0265990b..1dc64a874 100644 --- a/TreeConverter/TreeConversion/syntax_tree_visitor.cs +++ b/TreeConverter/TreeConversion/syntax_tree_visitor.cs @@ -3339,6 +3339,8 @@ namespace PascalABCCompiler.TreeConverter && !(sn is foreach_break_node) && !(sn is foreach_continue_node) ) AddError(get_location(_procedure_call), "STATEMENT_EXPECTED"); + if (sn is base_function_call bfc && bfc.IsExplicitConversion) + AddError(get_location(_procedure_call), "STATEMENT_EXPECTED"); return_value(sn); //_procedure_call.func_name.visit(this);