2
0
Эх сурвалжийг харах

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 жил өмнө
parent
commit
242dec2370

+ 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;