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

Исправлена ошибка с x[1:^1][5]

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2023-06-06 08:14:59 +03:00
parent 1c1981e1ec
commit dc95f368d7
7 changed files with 14 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 = "9"; public const string Minor = "9";
public const string Build = "0"; public const string Build = "0";
public const string Revision = "3295"; public const string Revision = "3296";
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%=9
%REVISION%=3295
%COREVERSION%=0 %COREVERSION%=0
%REVISION%=3296
%MINOR%=9
%MAJOR%=3 %MAJOR%=3

BIN
Localization/DefaultLang.resources
View file

Binary file not shown.

2
Release/pabcversion.txt
View file

@ -1 +1 @@
3.9.0.3295 3.9.0.3296

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.9.0.3295' !define VERSION '3.9.0.3296'

5
SyntaxVisitors/SugarVisitors/IndexVisitor.cs
View file

@ -35,8 +35,13 @@ namespace SyntaxVisitors.SugarVisitors
ind.source_context); ind.source_context);
syntax_tree_node mc = null; syntax_tree_node mc = null;
var possibleIndexer = ind.Parent?.Parent; var possibleIndexer = ind.Parent?.Parent;
if (ind.Parent != null && !(ind.Parent is expression_list))
possibleIndexer = null;
if (possibleIndexer != null && possibleIndexer is indexer indexer) if (possibleIndexer != null && possibleIndexer is indexer indexer)
{ {
// x[1:^1][5] - не должно сюда заходить в этом случае !!! Но неожиданно possibleIndexer оказывается expr[5]
// Сюда должно заходить только при x[^1,3]. То есть, ind.Parent д.б. expression_list и только в этом случае!!!
// Надо подняться до узла indexer и запомнить индекс, под которым данный index входит // Надо подняться до узла indexer и запомнить индекс, под которым данный index входит
// Идём по Parent - и смотрим, когда Parent = indexer // Идём по Parent - и смотрим, когда Parent = indexer
// Находим у него expressions и ищем, под каким индексом в нем содержится текущий. // Находим у него expressions и ищем, под каким индексом в нем содержится текущий.

4
TestSuite/sl_ind.pas Normal file
View file

@ -0,0 +1,4 @@
begin
var x:=|1,2,3,4,5,6,7,8,9,10|;
Assert(x[1:^1][5] = 7);
end.