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

Рабочие изменения

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2018-12-05 20:47:38 +03:00
parent 4a96058739
commit 334c881540
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

@ -3009,8 +3009,11 @@ public partial class GPPGParser: ShiftReduceParser<PascalABCSavParser.Union, Lex
}
break;
case 103: // var_decl_sect -> var_decl_sect, var_decl
{
CurrentSemanticValue.stn = (ValueStack[ValueStack.Depth-2].stn as variable_definitions).Add(ValueStack[ValueStack.Depth-1].stn as var_def_statement, CurrentLocationSpan);
{
var vdn = ValueStack[ValueStack.Depth - 2].stn as variable_definitions;
var vds = ValueStack[ValueStack.Depth - 1].stn as var_def_statement;
CurrentSemanticValue.stn = vdn.Add(vds, CurrentLocationSpan);
}
break;
case 104: // var_decl_sect -> tkVar, tkRoundOpen, identifier, tkComma, ident_list,

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

@ -0,0 +1,4 @@
var f: integer->integer := x->2*Result;
begin
end.