Преглед на файлове

Unified interface

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8267 8c9fc860-2736-0410-a75d-ab315db34111
negelef преди 7 години
родител
ревизия
e71535ed55
променени са 1 файла, в които са добавени 6 реда и са изтрити 0 реда
  1. 6 0
      source/Coop.Objects.Mod

+ 6 - 0
source/Coop.Objects.Mod

@@ -315,6 +315,12 @@ BEGIN
 	Machine.Release(Machine.Objects);
 END CancelTimeout;
 
+PROCEDURE LeaveA2-;
+END LeaveA2;
+
+PROCEDURE ReenterA2-;
+END ReenterA2;
+
 PROCEDURE InitEventHandling;
 BEGIN
 	NEW(event); event.next := event; event.prev := event;  (* event: head of timer event queue, only a sentinel *)