X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fcore%2Fao_task.c;h=65654731aeaeaccc9f45477e156ffa1419d13c0b;hb=31b42b99edbb976534ac432c07e218f13d1f5f9b;hp=4593bd790c4717586d258489749212d5cf4a5aae;hpb=ac5d053e6d766d243b7a425ae19779810c350125;p=fw%2Faltos

diff --git a/src/core/ao_task.c b/src/core/ao_task.c
index 4593bd79..65654731 100644
--- a/src/core/ao_task.c
+++ b/src/core/ao_task.c
@@ -125,6 +125,7 @@ ao_sleep(__xdata void *wchan)
 	ao_yield();
 	if (ao_cur_task->wchan) {
 		ao_cur_task->wchan = NULL;
+		ao_cur_task->alarm = 0;
 		return 1;
 	}
 	return 0;
@@ -157,6 +158,16 @@ ao_clear_alarm(void)
 	ao_cur_task->alarm = 0;
 }
 
+static __xdata uint8_t ao_forever;
+
+void
+ao_delay(uint16_t ticks)
+{
+	ao_alarm(ticks);
+	ao_sleep(&ao_forever);
+	ao_clear_alarm();
+}
+
 void
 ao_exit(void)
 {