git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8422 8c9fc860-2736-0410-a75d-ab315db34111
@@ -380,8 +380,8 @@ TYPE
IF x.recordScope.procedures # NIL THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
currentScope := prevScope;
Indent; Keyword("END" );
+ IF (x.pointerType = NIL) & (x.recordScope.procedures # NIL) THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
END;
- IF x.recordScope.procedures # NIL THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
END VisitRecordType;
PROCEDURE Flag(identifier: SyntaxTree.Identifier; VAR first: BOOLEAN);