No subject


Mon Sep 26 12:49:38 CEST 2005


 (* --- Toolbox of file system *)
 
PROCEDURE *List(name: ARRAY OF CHAR;  time, date, size: LONGINT; VAR cont:
BOOLEAN);
BEGIN
    INC(count);
	IF size # MIN(LONGINT) THEN
(* changed lines start *)
	    Texts.WriteDate(W, time, date);Texts.WriteString(W, 9X);	
	    Texts.WriteInt(W, size, 6); Texts.WriteString(W, 9X);
	    INC(total, size)
	END;
    Texts.WriteString(W, name);
(* changed lines end *)
    Texts.WriteLn(W)
END List;

re: Texts.WriteInt(W, size, 6)
The integer value used has been "5" but with Kernel.Mod being
over 100K this value must be increased to "6" decimal places to
accomodate the larger kernel source code file size integer.  



More information about the Oberon mailing list