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

bug fix #484

Browse source
This commit is contained in:
miks1965 2017-11-03 22:21:03 +03:00
parent 0bd68de18a
commit 48cd0913c4
8 changed files with 2474 additions and 2445 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 = "3";
public const string Build = "0";
public const string Revision = "1561";
public const string Revision = "1564";
public const string MainVersion = Major + "." + Minor;
public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

4
Configuration/Version.defs
View file

@ -1,4 +1,4 @@
%COREVERSION%=0
%REVISION%=1561
%MINOR%=3
%REVISION%=1564
%COREVERSION%=0
%MAJOR%=3

6
Parsers/PascalABCParserNewSaushkin/ABCPascal.cs
View file

@ -1,9 +1,9 @@
//
// This CSharp output file generated by Gardens Point LEX
// Version: 1.1.3.301
// Machine: IVAN-PC
// DateTime: 15.10.2017 14:45:01
// UserName: Ivan
// Machine: DESKTOP-A6LT9RI
// DateTime: 03.11.2017 16:54:38
// UserName: ?????????
// GPLEX input file <ABCPascal.lex>
// GPLEX frame file <embedded resource>
//

12
Parsers/PascalABCParserNewSaushkin/ABCPascal.y
View file

@ -650,14 +650,12 @@ var_decl_sect
{
$$ = ($1 as variable_definitions).Add($2 as var_def_statement, @$);
}
/* | tkVar tkRoundOpen identifier tkComma ident_list tkRoundClose tkAssign expr tkSemiColon
| tkVar tkRoundOpen identifier tkComma ident_list tkRoundClose tkAssign expr_l1 tkSemiColon
{
if ($7.type != Operators.Assignment)
parsertools.AddErrorFromResource("ONLY_BASE_ASSIGNMENT_FOR_TUPLE",@6);
($5 as ident_list).Insert(0,$3);
$5.source_context = LexLocation.MergeAll(@1,@2,@3,@4,@5,@6);
$$ = new assign_var_tuple($5 as ident_list, $8, @$);
}*/
}
;
const_decl
@ -1893,6 +1891,12 @@ var_decl_part
{
$$ = new var_def_statement($1 as ident_list, $3, $5, definition_attribute.None, false, @$);
}
/*| tkRoundOpen identifier tkComma ident_list tkRoundClose tkAssign expr_l1
{
($4 as ident_list).Insert(0,$2);
$4.source_context = LexLocation.MergeAll(@1,@2,@3,@4,@5,@6);
$$ = new assign_var_tuple($4 as ident_list, $7, @$);
}*/
;
typed_var_init_expression

4885
Parsers/PascalABCParserNewSaushkin/ABCPascalYacc.cs
View file

File diff suppressed because it is too large Load diff

3
Parsers/PascalABCParserNewSaushkin/PABC.ymc
View file

@ -174,6 +174,9 @@ script=

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.3.0.1561'
!define VERSION '3.3.0.1564'

5
TestSuite/CompilationSamples/GlobalTupleInit.pas Normal file
View file

@ -0,0 +1,5 @@
var (a,b) := (1,2);
begin
end.