fixed SIGINT handling

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

source/Generic.Darwin.I386.Unix.Mod

@@ -934,11 +934,17 @@ VAR
 	VAR i: LONGINT;
 	BEGIN
 		FOR i := 1 TO 15 DO
-			IF i # 9 THEN InstallHandler(i) END;
+			IF ~(i IN {SIGINT, SIGKILL}) THEN InstallHandler(i) END;
 			InstallHandler( SIGUSR1 );
 		END;
 	END InitSignalHandler;
-
+	
+	PROCEDURE HandleSignal*( sig: LONGINT );
+	BEGIN
+		InstallHandler( sig )
+	END HandleSignal;
+	
+	
 	PROCEDURE errno*(): LONGINT;
 	VAR loc: ADDRESS;
 	BEGIN

source/Generic.Linux.I386.Unix.Mod

@@ -916,10 +916,9 @@ VAR
 	PROCEDURE {C} SigHandler  ( sig: LONGINT; scp: ADDRESS; ucp: Ucontext ); (* reversed arguments !! *)
 	BEGIN
 		IF trap # NIL THEN
-			Trace.Address( ucp ); Trace.Ln;
 			trap( sig, S.VAL( Mcontext, ADDRESSOF( ucp.mc ) ) )
 		ELSE
-			TRACE( sig, scp, ucp )
+			Trace.String( "Unix.SigHandler: sig = " ); Trace.Int( sig, 0 ); Trace.Ln;  exit( -1 );
 		END;
 	END SigHandler;
 
@@ -964,9 +963,14 @@ VAR
 	VAR i: LONGINT;
 	BEGIN
 		FOR i := 1 TO 15 DO
-			IF i # 9 THEN InstallHandler(i) END;
+			IF ~(i IN {SIGINT, SIGKILL}) THEN InstallHandler(i) END;
 		END;
 	END InitSignalHandler;
+	
+	PROCEDURE HandleSignal*( sig: LONGINT );
+	BEGIN
+		InstallHandler( sig )
+	END HandleSignal;
 
 	PROCEDURE errno*(): LONGINT;
 	VAR loc: ADDRESS;

source/Generic.Solaris.I386.Unix.Mod

@@ -614,11 +614,16 @@ VAR
 	VAR i: LONGINT;
 	BEGIN
 		FOR i := 1 TO 15 DO
-			IF i # 9 THEN InstallHandler( i ) END;
+			IF ~(i IN {SIGINT, SIGKILL}) THEN InstallHandler( i ) END;
 		END;
 		InstallHandler( SIGUSR1 );
 	END InitSignalHandler;
 	
+	PROCEDURE HandleSignal*( sig: LONGINT );
+	BEGIN
+		InstallHandler( sig )
+	END HandleSignal;
+	
 	(*-------------------------------------------------------------------------------------------------------------*)
 	
 	

source/Unix.BootConsole.Mod

@@ -182,6 +182,7 @@ BEGIN
 	Glue.Initialize;
 	InitializeCoreModules;
 	StartSystem;
+	Unix.HandleSignal( 2 );	
 	Objects.GCLoop
 END BootConsole.