浏览代码

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;