reverse order of linking for FINAL procedures

- INITIAL: first linked, first executed
- FINAL: first linked, last executed

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

source/GenericLinker.Mod

@@ -221,7 +221,7 @@ VAR
 	BEGIN
 		leftType := this.priority;
 		rightType := that.priority;
-		RETURN (leftType < rightType)
+		RETURN (leftType < rightType) OR (leftType = rightType) & (leftType = ExitCode)
 	END Precedes;