*** empty log message ***

1985-01-01 22:27:02 +00:00
parent d16efbab98
commit c235c1a93d
63 changed files with 992 additions and 0 deletions
--- a/lang/cem/libcc/mon/wait.e
+++ b/lang/cem/libcc/mon/wait.e
@@ -0,0 +1,33 @@
+#
+ mes 2,EM_WSIZE,EM_PSIZE
+#if EM_WSIZE<4
+#define STATUS_SIZE 2
+#else
+#define STATUS_SIZE EM_WSIZE
+#endif
+ exp $wait
+ pro $wait,0
+ loc 7
+ mon
+ zne *1
+ lal 0
+ loi EM_PSIZE
+ zer EM_PSIZE
+ cms EM_PSIZE
+ zeq *2
+#if EM_WSIZE==1
+ lal 0
+ loi EM_PSIZE
+ sti 2                  ; 2 bytes, not one int!
+#else
+ sil 0
+#endif
+ ret EM_WSIZE
+2
+ asp STATUS_SIZE
+ ret EM_WSIZE
+1
+ ste errno
+ loc -1
+ ret EM_WSIZE
+ end