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

fix #2005

Browse source 
correct Assert comment
This commit is contained in:
Mikhalkovich Stanislav 2019-07-05 18:44:40 +03:00
parent d41d2e4e7a
commit 180a53a3ad
12 changed files with 23 additions and 7 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 = "5";
public const string Build = "0";
public const string Revision = "2177";
public const string Revision = "2179";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

2
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%MINOR%=5
%REVISION%=2177
%REVISION%=2179
%COREVERSION%=0
%MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

4
PABCNetHelp/LangGuide/PABCSystemUnit/Files/System subroutines.html
View file

@ -33,9 +33,9 @@
<param name="Keyword" value="Sleep"></object>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1251"><link rel="StyleSheet" href="../../../default.css">
</HEAD><body><H1>Cистемные подпрограммы</H1>
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);</code>
<table border=0 cellpadding=5><tr><td><code><b>procedure</b> Assert(cond: boolean);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется</td></tr>
<tr><td><code><b>procedure</b> Assert(cond: boolean; message: string; sourceFile: string := ''; line: integer := 0);</code>
<tr><td><code><b>procedure</b> Assert(cond: boolean; message: string);</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Выводит в специальном окне диагностическое сообщение и стек вызовов подпрограмм если условие не выполняется</td></tr>
<tr><td><code><b>function</b> ChangeFileNameExtension(name, newext: string): string;</code>
<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Изменяет расширение файла с именем name на newext</td></tr>

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.5.0.2177'
!define VERSION '3.5.0.2179'

4
TestSuite/errors/err0330.pas Normal file
View file

@ -0,0 +1,4 @@
begin
var l: (A, B, C);
print(l.A);
end.

4
TestSuite/errors/err0331.pas Normal file
View file

@ -0,0 +1,4 @@
type Foo = (One, Two, Three, Four);
begin
print(Foo.One.Two.Three.Four.Four.Two.One);
end.

4
TreeConverter/TreeConversion/syntax_tree_visitor.cs
View file

@ -9701,6 +9701,10 @@ namespace PascalABCCompiler.TreeConverter
AddError(new MemberIsNotDeclaredInType(id_right, get_location(id_right), en.type));
}
List<SymbolInfo> sil = en.type.find_in_type(id_right.name, context.CurrentScope);
if (en.type.IsEnum && sil != null && sil[0].sym_info is class_constant_definition) // l.A
{
AddError(get_location(id_right), "ACCESS_TO_ENUM_CONST_THROUGH_OBJECT");
}
if (sil == null)
{
AddError(new MemberIsNotDeclaredInType(id_right, get_location(id_right), en.type));

2
bin/Lib/PABCSystem.pas
View file

@ -1150,8 +1150,10 @@ function ChangeFileNameExtension(name, newext: string): string;
/// Возвращает True, если файл с именем name существует
function FileExists(name: string): boolean;
///- procedure Assert(cond: boolean);
/// Выводит в специальном окне стек вызовов подпрограмм если условие не выполняется
procedure Assert(cond: boolean; sourceFile: string := ''; line: integer := 0);
///- procedure Assert(cond: boolean; message: string);
/// Выводит в специальном окне диагностическое сообщение и стек вызовов подпрограмм если условие не выполняется
procedure Assert(cond: boolean; message: string; sourceFile: string := ''; line: integer := 0);

3
bin/Lng/Eng/SemanticErrors_ms.dat
View file

@ -28,4 +28,5 @@ UNNAMED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Unnamed records ca
UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Unnamed records can not contain several visibility section
OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS=OpenMP-directive-based constructions cannot contain lambdas
LAMBDAS_IN_CONSTRUCTOR_PARAMETERS_ARE_FORBIDDEN_IN_THIS_CONTEXT=Lambda-expressions as constructor parameters are forbidden in this context
PROCEDURE_TYPE_SHOULD_BE_REPLACED_BY_TYPE_NAME_IN_THIS_CONTEXT=Procedure type should be replaced by type name in this context
PROCEDURE_TYPE_SHOULD_BE_REPLACED_BY_TYPE_NAME_IN_THIS_CONTEXT=Procedure type should be replaced by type name in this context
ACCESS_TO_ENUM_CONST_THROUGH_OBJECT=Enum constant can not be accessed through an object

3
bin/Lng/Rus/SemanticErrors_ms.dat
View file

@ -29,4 +29,5 @@ UNNAMED_RECORD_CAN_CONTAIN_ONLY_ONE_PUBLIC_VISIBILITY_SECTION=Безымянны
UNNAMED_RECORD_CANNOT_CONTAIN_SEVERAL_VISIBILITY_SECTIONS=Безымянные записи не могут содержать несколько секций видимости
OPENMP_CONTROLLED_CONSTRUCTIONS_CANNOT_CONTAIN_LAMBDAS=Лямбда-выражения не могут содержаться внутри конструкций под управлением OpenMP-директив
LAMBDAS_IN_CONSTRUCTOR_PARAMETERS_ARE_FORBIDDEN_IN_THIS_CONTEXT=Лямбда-выражения как параметры конструктора запрещены в этом контексте
PROCEDURE_TYPE_SHOULD_BE_REPLACED_BY_TYPE_NAME_IN_THIS_CONTEXT=Процедурный тип следует заменить именем типа в данном контексте
PROCEDURE_TYPE_SHOULD_BE_REPLACED_BY_TYPE_NAME_IN_THIS_CONTEXT=Процедурный тип следует заменить именем типа в данном контексте
ACCESS_TO_ENUM_CONST_THROUGH_OBJECT=Нельзя обратиться к элементу перечисления через объект

BIN
bin/PascalABCNET.chm
View file

Binary file not shown.