bug fix #635

Release 3.3.0.1611

Configuration/GlobalAssemblyInfo.cs

@@ -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 = "1610";
+	public const string Revision = "1611";
 
         public const string MainVersion = Major + "." + Minor;
 	public const string FullVersion = Major + "." + Minor + "." + Build + "." + Revision;

Configuration/Version.defs

@@ -1,4 +1,4 @@
-%MINOR%=3
-%REVISION%=1610
 %COREVERSION%=0
+%REVISION%=1611
+%MINOR%=3
 %MAJOR%=3

ReleaseGenerators/PascalABCNET_version.nsh

@@ -1 +1 @@
-!define VERSION '3.3.0.1610'
+!define VERSION '3.3.0.1611'

SyntaxVisitors/YieldVisitors/CollectClassMethodsVisitor.cs

@@ -43,9 +43,9 @@ namespace SyntaxVisitors
             var methods = cd.body.class_def_blocks.SelectMany(cm => cm.members.Select(decl1 => 
                 {
                     if (decl1 is procedure_header)
-                        return (decl1 as procedure_header).name.meth_name;
+                        return (decl1 as procedure_header).name?.meth_name;
                     else if (decl1 is procedure_definition)
-                        return (decl1 as procedure_definition).proc_header.name.meth_name;
+                        return (decl1 as procedure_definition).proc_header.name?.meth_name;
                     return null;
                 }).Where(name => (object)name != null));
 

TestSuite/yieldwithconstructor.pas

@@ -0,0 +1,17 @@
+type
+  t1 = class
+    
+    public constructor(a: object);
+    begin
+    end;
+    
+    public function f1: sequence of byte;
+    begin
+      yield 0;
+    end;
+  
+  end;
+
+begin 
+  Assert(t1.Create(nil).f1.First = 0);
+end.