Changeset 2d8f7b0 for libcfa/src/concurrency/alarm.cfa

Timestamp:

Apr 14, 2020, 11:53:25 AM (4 years ago)

Author:

Thierry Delisle <tdelisle@…>

Branches:

ADT, arm-eh, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

34d0a28

Parents:

7df014f

Message:

Implemented basic non-blocking io

File:

• libcfa/src/concurrency/alarm.cfa (modified) (1 diff)

libcfa/src/concurrency/alarm.cfa

@@ -176 +176 @@
 }
 
+//=============================================================================================
+// Utilities
+//=============================================================================================
+
+void sleep( Duration duration ) {
+        alarm_node_t node = { active_thread(), __kernel_get_time() + duration, 0`s };
+
+        register_self( &node );
+        park( __cfaabi_dbg_ctx );
+
+        /* paranoid */ verify( !node.set );
+        /* paranoid */ verify( node.next == 0p );
+}
+
 // Local Variables: //
 // mode: c //