shithub: mc

ref: 537313ee9a2179cc6e869c6e8c70da4af1f07f28
dir: /lib/thread/fsbase+freebsd.myr/

View raw version 
use std
use sys

use "types"

pkg thread =
	pkglocal const setfsbase : (h : tlshdr# -> void)
	pkglocal const getfsbase : (-> tlshdr#)
;;

const setfsbase = {h
	match sys.sysarch(sys.Archamd64setfs, &(h : void#))
	| 0:
	| err:
		std.fput(std.Err, "error: sysarch returned {}\n", err)
		std.suicide()
	;;
}

const getfsbase = {
	var h
	match sys.sysarch(sys.Archamd64getfs, &h)
	| 0: -> (h : tlshdr#)
	| err:
		std.fput(std.Err, "error: sysarch returned {}\n", err)
		std.suicide()
	;;
}