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

fix #1598

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2018-12-17 00:27:40 +03:00
parent 3670ff6aff
commit bed2a15a6c
5 changed files with 18 additions and 6 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 = "4"; public const string Minor = "4";
public const string Build = "2"; public const string Build = "2";
public const string Revision = "1898"; public const string Revision = "1899";
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%=4
%REVISION%=1898
%COREVERSION%=2 %COREVERSION%=2
%REVISION%=1899
%MINOR%=4
%MAJOR%=3 %MAJOR%=3

2
ReleaseGenerators/PascalABCNET_version.nsh
View file

@ -1 +1 @@
!define VERSION '3.4.2.1898' !define VERSION '3.4.2.1899'

4
SyntaxVisitors/YieldVisitors/ReplaceBreakContinueWithGotoLabelVisitor.cs
View file

@ -41,11 +41,11 @@ namespace SyntaxVisitors
var pcName = pcIdent.name.ToLower(); var pcName = pcIdent.name.ToLower();
if (pcName == "break") if (pcName == "break")
{ {
Replace(pc, this.GotoBreak); ReplaceUsingParent(pc, this.GotoBreak);
} }
else if (pcName == "continue") else if (pcName == "continue")
{ {
Replace(pc, this.GotoContinue); ReplaceUsingParent(pc, this.GotoContinue);
} }
} }
} }

12
TestSuite/yield_break2.pas Normal file
View file

@ -0,0 +1,12 @@
function f1: sequence of byte;
begin
while true do
begin
yield 1;
break;
end;
end;
begin
Assert(f1.First=1);
end.