소스 검색

Added missing procedures in records in symbol file

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7273 8c9fc860-2736-0410-a75d-ab315db34111
felixf 8 년 전
부모
커밋
242dec2370
1개의 변경된 파일1개의 추가작업 그리고 0개의 파일을 삭제
  1. 1 0
      source/FoxPrintout.Mod

+ 1 - 0
source/FoxPrintout.Mod

@@ -379,6 +379,7 @@ TYPE
 				prevScope := currentScope;
 				currentScope := x.recordScope;
 				VariableList(x.recordScope.firstVariable);
+				IF x.recordScope.procedures # NIL THEN w.Ln; ProcedureList(x.recordScope.procedures) END;
 				currentScope := prevScope;
 				Indent; Keyword("END" );
 			END;