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

ReplaceStatement -> ReplaceStatementUsingParent в LoweringVisitor

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2024-06-22 21:24:15 +03:00
parent ced4424196
commit e466c4b07b
3 changed files with 10 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
Languages/Pascal/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -1,11 +1,9 @@
//
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: LAPTOP-TE3HP881
// DateTime: 17.06.2024 10:51:32
// UserName: miks
// Machine: DESKTOP-G8V08V4
// DateTime: 22.06.2024 20:49:25
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>
//
@ -2186,7 +2184,7 @@ if (parserTools.buildTreeForFormatter)
parserTools.ParseDirective(yytext, CurrentLexLocation, out var directiveName, out var directiveParams);
var orgDirectiveName = directiveName;
if (directiveName == "") // слÑ?Ñ?ай пÑ?сÑ?ой диÑ?екÑ?ивÑ?
if (directiveName == "") // Ñ<EFBFBD>лÑ?Ñ?ай пÑ?Ñ<>Ñ?ой диÑ?екÑ?ивÑ?
break;
directiveName = directiveName.ToUpper();
@ -2283,7 +2281,7 @@ BEGIN(INITIAL);
parserTools.ParseDirective(yytext, CurrentLexLocation, out directiveName, out directiveParams);
orgDirectiveName = directiveName;
if (directiveName == "") // слÑ?Ñ?ай пÑ?сÑ?ой диÑ?екÑ?ивÑ?
if (directiveName == "") // Ñ<EFBFBD>лÑ?Ñ?ай пÑ?Ñ<>Ñ?ой диÑ?екÑ?ивÑ?
break;
directiveName = directiveName.ToUpper();

8
Languages/Pascal/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -1,11 +1,9 @@
// (see accompanying GPPGcopyright.rtf)
// GPPG version 1.3.6
// Machine: LAPTOP-TE3HP881
// DateTime: 17.06.2024 10:51:33
// UserName: miks
// Machine: DESKTOP-G8V08V4
// DateTime: 22.06.2024 20:49:26
// UserName: ?????????
// Input file <ABCPascal.y>
// options: no-lines gplex

4
SyntaxVisitors/Async/LoweringAsyncVisitor.cs
View file

@ -252,7 +252,7 @@ namespace SyntaxVisitors.Async
{
var if0 = new if_node(un_expr.Not(ifn.condition), gtAfter);
//Replace(ifn, SeqStatements(gotoStartIfCondition, ifn.then_body, lbAfter));
ReplaceStatement(ifn, SeqStatements(if0, ifn.then_body, lbAfter));
ReplaceStatementUsingParent(ifn, SeqStatements(if0, ifn.then_body, lbAfter));
// в declarations ближайшего блока добавить описание labels
block bl = listNodes.FindLast(x => x is block) as block;
@ -267,7 +267,7 @@ namespace SyntaxVisitors.Async
var if0 = new if_node(un_expr.Not(ifn.condition), gtAlt);
ReplaceStatement(ifn, SeqStatements(if0, ifn.then_body, gtAfter, lbAlt, lbAfter));
ReplaceStatementUsingParent(ifn, SeqStatements(if0, ifn.then_body, gtAfter, lbAlt, lbAfter));
// в declarations ближайшего блока добавить описание labels
block bl = listNodes.FindLast(x => x is block) as block;