Larger strings

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

source/Generic.Reflection.Mod

@@ -474,7 +474,7 @@ CONST
 	END OnHeapOrStack;
 	
 	PROCEDURE WriteValueString*(w: Streams.Writer; adr: ADDRESS; maxLen: LONGINT; low, high: ADDRESS);
-	CONST MaxString = 32; 
+	CONST MaxString = 96; 
 	VAR ch: CHAR;
 	BEGIN
 		IF maxLen > MaxString THEN maxLen := MaxString END; 
@@ -489,6 +489,7 @@ CONST
 			DEC(maxLen);
 		END;
 		w.Char('"');
+		IF maxLen = 0 THEN w.String("..."); END;
 	END WriteValueString;
 
 	PROCEDURE WriteValue*(w: Streams.Writer; refs: Modules.Bytes; VAR offset: LONGINT; adr: ADDRESS; low, high: ADDRESS);