Fixed NORETURN modifier of procedure types which does not depend on calling convention

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8162 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxSemanticChecker.Mod

@@ -947,9 +947,8 @@ TYPE
 					ELSE
 						procedureType.SetCallingConvention(system.platformCallingConvention); 
 					END;
-				ELSIF HasFlag(modifiers, Global.NameNoReturn,position) THEN
-					procedureType.SetNoReturn(TRUE);
 				END;
+				IF HasFlag(modifiers, Global.NameNoReturn,position) THEN procedureType.SetNoReturn(TRUE) END;
 				IF HasValue(modifiers,Global.NameStackAligned,position,value) THEN procedureType.SetStackAlignment(LONGINT (value)) END; (* TODO: fix explicit integer truncation *)
 				IF HasFlag(modifiers, Global.NameDelegate,position) THEN procedureType.SetDelegate(TRUE) END;
 				IF HasFlag(modifiers, Global.NameRealtime,position) THEN procedureType.SetRealtime(TRUE) END;