godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Lay-out changes and made IMPORTS more specific

Browse Source
This commit is contained in:
ceriel
1991-03-05 13:47:08 +00:00
parent ac83fe3815
commit 3a715f5479
16 changed files with 217 additions and 207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
lang/m2/libm2/CSP.mod
View File

@@ -14,7 +14,7 @@ IMPLEMENTATION MODULE CSP;
FROM random IMPORT Uniform;
FROM SYSTEM IMPORT BYTE, ADDRESS, NEWPROCESS, TRANSFER;
FROM Storage IMPORT Allocate, Deallocate;
IMPORT Traps;
FROM Traps IMPORT Message;
CONST WorkSpaceSize = 1000;
@@ -212,7 +212,7 @@ IMPLEMENTATION MODULE CSP;
BEGIN
WITH ch^ DO
IF owner # NIL THEN
Traps.Message("Channel already has an owner");
Message("Channel already has an owner");
HALT
END;
owner := cp
@@ -251,7 +251,7 @@ IMPLEMENTATION MODULE CSP;
BEGIN
WITH ch^ DO
IF cp # owner THEN
Traps.Message("Only owner of channel can receive from it");
Message("Only owner of channel can receive from it");
HALT
END;
IF Sending(ch) THEN