Explorar o código

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 %!s(int64=8) %!d(string=hai) anos
pai
achega
242dec2370
Modificáronse 1 ficheiros con 1 adicións e 0 borrados
  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;