fixes, different traps, new files

1987-06-26 15:59:52 +00:00
parent 8e013368b3
commit ea69982a26
17 changed files with 798 additions and 71 deletions
--- a/lang/m2/libm2/Processes.mod
+++ b/lang/m2/libm2/Processes.mod
@@ -8,6 +8,8 @@ IMPLEMENTATION MODULE Processes [1];

  FROM Storage IMPORT ALLOCATE;

+  FROM Traps IMPORT Message;
+
  TYPE	SIGNAL = POINTER TO ProcessDescriptor;

 	ProcessDescriptor =
@@ -72,6 +74,7 @@ IMPLEMENTATION MODULE Processes [1];
 	UNTIL cp^.ready;
 	IF cp = s0 THEN
 		(* deadlock *)
+		Message("deadlock");
 		HALT
 	END;
 	s0^.ready := FALSE;