summaryrefslogtreecommitdiff
path: root/lib/sys
diff options
context:
space:
mode:
authorOri Bernstein <ori@eigenstate.org>2016-05-09 08:53:59 +1200
committerOri Bernstein <ori@eigenstate.org>2016-05-09 08:55:15 +1200
commitd2a28cc46d5101760733f1b831287f6b9fcf1be1 (patch)
tree7828a69856bca119d4240916c30c7de8695c865b /lib/sys
parentc08505fb46fd8cdfee6b6f425709e5bc536f6a75 (diff)
downloadmc-d2a28cc46d5101760733f1b831287f6b9fcf1be1.tar.gz
Add support for OpenBSD thread spawning.
Diffstat (limited to 'lib/sys')
-rw-r--r--lib/sys/sys+openbsd-x64.myr7
-rw-r--r--lib/sys/syscall+linux-x64.s8
-rw-r--r--lib/sys/syscall+openbsd-x64.s28
3 files changed, 41 insertions, 2 deletions
diff --git a/lib/sys/sys+openbsd-x64.myr b/lib/sys/sys+openbsd-x64.myr
index a9244e8..bdf7f26 100644
--- a/lib/sys/sys+openbsd-x64.myr
+++ b/lib/sys/sys+openbsd-x64.myr
@@ -61,6 +61,12 @@ pkg sys =
nivcsw : uint64 /* involuntary context switches */
;;
+ type tforkparams = struct
+ tcb : void#
+ tid : pid#
+ stk : byte#
+ ;;
+
type statbuf = struct
mode : filemode
dev : uint32
@@ -472,6 +478,7 @@ pkg sys =
const execve : (cmd : byte[:], args : byte[:][:], env : byte[:][:] -> int64)
/* wrappers to extract wait status */
const waitstatus : (st : int32 -> waitstatus)
+ extern const __tfork_thread : (tfp : tforkparams#, sz : size, fn : void#, arg : void# -> pid)
/* fd manipulation */
const open : (path:byte[:], opts:fdopt -> fd)
diff --git a/lib/sys/syscall+linux-x64.s b/lib/sys/syscall+linux-x64.s
index 53291cb..7dc7843 100644
--- a/lib/sys/syscall+linux-x64.s
+++ b/lib/sys/syscall+linux-x64.s
@@ -33,10 +33,13 @@ sys$fnclone:
movq $56,%rax /* syscall num */
movq %rcx,%r10 /* tls */
syscall
+ cmpq $0,%rax
+ jb .doneparent
+
/* fn() */
testl %eax,%eax
- jnz parent
+ jnz .doneparent
call *%r15
/* exit(0) */
@@ -44,6 +47,7 @@ sys$fnclone:
movq $0, %rdi /* arg: 0 */
syscall
-parent:
+.doneparent:
popq %r15
ret
+
diff --git a/lib/sys/syscall+openbsd-x64.s b/lib/sys/syscall+openbsd-x64.s
index 827f25c..ea4a9b7 100644
--- a/lib/sys/syscall+openbsd-x64.s
+++ b/lib/sys/syscall+openbsd-x64.s
@@ -22,3 +22,31 @@ sys$syscall:
.success:
ret
+
+/* __tfork_thread(tfp : tforkparams#, sz : size, fn : void#, arg : void#-> tid) */
+.globl sys$__tfork_thread
+sys$__tfork_thread:
+ /* syscall */
+ movq %rdx, %r8
+ movq %rcx, %r9
+ movq $8, %rax
+ syscall
+ jb .failparent
+
+ /* are we in the parent? */
+ cmpq $0,%rax
+ jnz .doneparent
+
+ /* call the function and __threxit */
+ movq %r9, %rdi
+ callq *%r8
+
+ movq $302,%rax
+ xorq %rdi,%rdi
+ syscall
+
+.failparent:
+ negq %rax
+
+.doneparent:
+ ret