moved/removed messages bothering standalone Oberon binaries

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

source/Unix.BootConsole.Mod

@@ -1,6 +1,6 @@
 MODULE BootConsole;	(** AUTHOR "G.F."; PURPOSE "Boot console"; *)
 
-IMPORT S := SYSTEM, Trace, Glue, Unix, Modules, Objects, Commands;
+IMPORT S := SYSTEM, Trace, Glue, Unix, Machine, Modules, Objects, Commands, KernelLog;
 
 TYPE
 	Module = Modules.Module;
@@ -165,6 +165,7 @@ VAR
 	PROCEDURE StartSystem;
 	BEGIN
 		IF ~TryCommand()  THEN
+			KernelLog.String( Machine.version );  KernelLog.Ln;
 			(* normal system start *)
 			LoadModule( "Clock" );
 			Execute( "XDisplay",  "Install" );
@@ -178,7 +179,6 @@ VAR
 	END StartSystem;
 
 	PROCEDURE InitSignalHandling;
-	VAR i: LONGINT;
 	BEGIN
 		Unix.HandleSignal( Unix.SIGHUP );
 		Unix.HandleSignal( Unix.SIGINT );

source/Unix.Kernel.Mod

@@ -200,9 +200,9 @@ BEGIN
 	ASSERT(1000 MOD Second = 0);	(* for Elapsed *)
 	second := Second;
 	Heaps.GC := Heaps.InvokeGC;
-	Machine.Acquire(Machine.TraceOutput);
+(*	Machine.Acquire(Machine.TraceOutput);
 	Trace.String( Machine.version ); Trace.String(": Kernel: Initialized and started."); Trace.Ln;
-	Machine.Release(Machine.TraceOutput);
+	Machine.Release(Machine.TraceOutput);	*)
 END Kernel.
 
 (**

source/Unix.UnixFiles.Mod

@@ -4,7 +4,7 @@ MODULE UnixFiles;   (** AUTHOR "gf"; PURPOSE "Unix file systems" *)
 
 (*  derived fron (SPARCOberon) Files.Mod by J. Templ 1.12. 89/14.05.93 *)
 
-IMPORT S := SYSTEM, Unix, Kernel, Modules, Log := KernelLog, Files, Commands, Tr := Trace;
+IMPORT S := SYSTEM, Unix, Kernel, Modules, Log := KernelLog, Files, Commands;
 
 
 CONST
@@ -596,7 +596,7 @@ TYPE
 				END Set;
 						
 				PROCEDURE SetX( VAR r: Files.Rider;  p: LONGINT );
-				VAR  org, offset, i, n, res: LONGINT;  buf: Buffer;
+				VAR  org, offset, i, n: LONGINT;  buf: Buffer;
 				BEGIN 
 					IF p > fsize THEN  p := LONGINT(fsize)
 					ELSIF p < 0 THEN  p := 0
@@ -1094,7 +1094,7 @@ TYPE
 		(* get search pathes *)
 		a := Unix.getenv( ADDRESSOF( "AOSPATH" ) );  i := 0;
 		IF a = 0 THEN
-			Log.String( "UnixFiles.Initialize: environment variable AOSPATH not defined" );  Log.Ln;
+		(*	Log.String( "UnixFiles.Initialize: environment variable AOSPATH not defined" );  Log.Ln; *)
 		ELSE
 			REPEAT
 				S.GET( a, ch );  INC( a );