Resolved an issue with records that appeared to be redefined when loaded from symbol- or object file

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7409 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxBinarySymbolFile.Mod

@@ -1152,14 +1152,15 @@ TYPE
 					END;
 					thisIndex := numberTypes; INC(numberTypes);
 
-					IF tag = sfInvisible THEN visibility := SyntaxTree.Internal;  R.RawNum(tag)  END;
+					IF tag = sfInvisible THEN visibility := SyntaxTree.Hidden;  R.RawNum(tag)  END;
 					IF tag = sfSysFlag THEN R.RawNum(sysflag); R.RawNum(tag)  END;
 
-
 					(* UserType2 *)
 					typtag := tag;
 					R.RawNum(tag);
 
+
+
 					baseType := Type();
 					R.RawString(name);
 
@@ -2469,7 +2470,7 @@ END Test;
 END FoxBinarySymbolFile.
 
 
-SystemTools.Free FoxBinarySymbolFile ~
+SystemTools.FreeDownTo FoxBinarySymbolFile ~
 FoxBinarySymbolFile.Test  Visualizer   ~
 
 Compiler.Compile -PCtp Visualizer.Sym ~