cosmopolitan/libc/sysv/systemfive.S

467 lines
17 KiB
ArmAsm
Raw Normal View History

/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8 -*-│
2020-06-15 14:18:57 +00:00
vi: set et ft=asm ts=8 sw=8 fenc=utf-8 :vi
Copyright 2020 Justine Alexandra Roberts Tunney
2020-12-28 01:18:44 +00:00
Permission to use, copy, modify, and/or distribute this software for
any purpose with or without fee is hereby granted, provided that the
above copyright notice and this permission notice appear in all copies.
2020-06-15 14:18:57 +00:00
2020-12-28 01:18:44 +00:00
THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL
WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED
WARRANTIES OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE
AUTHOR BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
PERFORMANCE OF THIS SOFTWARE.
2020-06-15 14:18:57 +00:00
*/
#include "libc/calls/strace.internal.h"
2020-06-15 14:18:57 +00:00
#include "libc/dce.h"
#include "libc/macros.internal.h"
Make numerous improvements - Python static hello world now 1.8mb - Python static fully loaded now 10mb - Python HTTPS client now uses MbedTLS - Python REPL now completes import stmts - Increase stack size for Python for now - Begin synthesizing posixpath and ntpath - Restore Python \N{UNICODE NAME} support - Restore Python NFKD symbol normalization - Add optimized code path for Intel SHA-NI - Get more Python unit tests passing faster - Get Python help() pagination working on NT - Python hashlib now supports MbedTLS PBKDF2 - Make memcpy/memmove/memcmp/bcmp/etc. faster - Add Mersenne Twister and Vigna to LIBC_RAND - Provide privileged __printf() for error code - Fix zipos opendir() so that it reports ENOTDIR - Add basic chmod() implementation for Windows NT - Add Cosmo's best functions to Python cosmo module - Pin function trace indent depth to that of caller - Show memory diagram on invalid access in MODE=dbg - Differentiate stack overflow on crash in MODE=dbg - Add stb_truetype and tools for analyzing font files - Upgrade to UNICODE 13 and reduce its binary footprint - COMPILE.COM now logs resource usage of build commands - Start implementing basic poll() support on bare metal - Set getauxval(AT_EXECFN) to GetModuleFileName() on NT - Add descriptions to strerror() in non-TINY build modes - Add COUNTBRANCH() macro to help with micro-optimizations - Make error / backtrace / asan / memory code more unbreakable - Add fast perfect C implementation of μ-Law and a-Law audio codecs - Make strtol() functions consistent with other libc implementations - Improve Linenoise implementation (see also github.com/jart/bestline) - COMPILE.COM now suppresses stdout/stderr of successful build commands
2021-09-28 05:58:51 +00:00
#include "libc/nexgen32e/macros.h"
#include "libc/sysv/consts/nr.h"
2020-06-15 14:18:57 +00:00
/*
besiyata
dishmaya
cosmopolitan § bell system five » system call support
*/
.initbss 300,_init_systemfive
__hostos:
.quad 0
.endobj __hostos,globl,hidden
// Performs System Five System Call.
//
// Cosmopolitan is designed to delegate all function calls into the
// Linux, FreeBSD, OpenBSD, and XNU kernels via this function, with
// few exceptions. This function should generally only be called by
// generated thunks in the libc/sysv/syscalls/ directory.
//
// It's safe to call this function on Windows, where it will always
// return -1 with errno == ENOSYS. Further note that -1 is the only
// return value that means error, a common anti-pattern is to check
// for values less than 0 (which is more problematic on 32-bit).
//
// It is important to consider that system calls are one order of a
// magnitude more expensive than normal function calls. For example
// getpid() on Linux usually takes 500ns, and cached i/o calls will
// take 1µs or more. So we don't need to inline them like Chromium.
//
// Another thing to consider is that BSDs only loosely follow the
// System Five ABI for the SYSCALL instruction. For example Linux
// always follows the six argument limit but the FreeBSD sendfile
// system call accepts a seventh argument that is passed on stack
// and OpenBSD modifies functions like mmap so that the sixth arg
// is passed on the stack. There's also the carry flag convention
// that XNU, FreeBSD, and OpenBSD inherited from 386BSD aka Jolix
//
// @param %rax function ordinal supplied by jump slot
// @param %rdi,%rsi,%rdx,%rcx,%r8,%r9 and rest on stack
// @return %rax:%rdx is result, or -1 w/ errno on error
// @clob %rcx,%r10,%r11
// @see syscalls.sh
__systemfive:
.quad 0
.endobj __systemfive,globl,hidden
__pid: .quad 0
.endobj __pid,globl,hidden
2020-06-15 14:18:57 +00:00
.previous
.privileged
2020-06-15 14:18:57 +00:00
.Lanchorpoint:
#if SupportsLinux() || SupportsMetal()
systemfive_linux:
2021-02-05 14:16:20 +00:00
and $0xfff,%eax
cmp $0xfff,%eax
je systemfive_enosys # never taken branches cost nothing
mov %rcx,%r10 # syscall instruction clobbers %rcx
push %rbp # linux never reads args from stack
mov %rsp,%rbp # having frame will help backtraces
syscall # this is known as a context switch
pop %rbp # next we check to see if it failed
cmp $-4095,%rax # system five nexgen32e abi § a.2.1
jae systemfive_error # encodes errno as neg return value
2020-06-15 14:18:57 +00:00
ret
.endfn systemfive_linux,globl,hidden
systemfive_error:
2020-06-15 14:18:57 +00:00
neg %eax
// 𝑠𝑙𝑖𝑑𝑒
.endfn systemfive_error,globl,hidden
2021-02-08 12:04:42 +00:00
#endif
systemfive_errno:
2022-05-16 20:20:08 +00:00
xchg %eax,%ecx
.errno
mov %ecx,(%rax) # normalize to c library convention
push $-1 # negative one is only error result
pop %rax # the push pop is to save code size
2020-06-15 14:18:57 +00:00
ret
.endfn systemfive_errno,globl,hidden
systemfive_enosys:
2020-06-15 14:18:57 +00:00
mov ENOSYS(%rip),%eax
jmp systemfive_errno
.endfn systemfive_enosys,globl,hidden
2021-02-08 12:04:42 +00:00
#if SupportsNetbsd()
systemfive_netbsd:
2021-02-05 14:16:20 +00:00
shr $4*13,%rax
jmp systemfive_bsdscrub
2021-02-11 16:37:18 +00:00
.endfn systemfive_netbsd,globl,hidden
2021-02-08 12:04:42 +00:00
#endif
#if SupportsOpenbsd()
systemfive_openbsd:
2021-02-05 14:16:20 +00:00
shr $4*10,%rax
jmp systemfive_bsdscrub
.endfn systemfive_openbsd,globl,hidden
2021-02-08 12:04:42 +00:00
#endif
#if SupportsFreebsd()
systemfive_freebsd:
2021-02-05 14:16:20 +00:00
shr $4*7,%rax
2020-06-15 14:18:57 +00:00
movzwl %ax,%eax
// 𝑠𝑙𝑖𝑑𝑒
.endfn systemfive_freebsd,globl,hidden
2021-02-08 12:04:42 +00:00
#endif
#if SupportsBsd()
systemfive_bsdscrub:
2021-02-05 14:16:20 +00:00
and $0xfff,%eax
// 𝑠𝑙𝑖𝑑𝑒
.endfn systemfive_bsdscrub,globl,hidden
systemfive_bsd:
2020-06-15 14:18:57 +00:00
cmp $0xfff,%ax
je systemfive_enosys
mov %rcx,%r10
push %rbx
push 32(%rsp)
push 24(%rsp)
push 16(%rsp)
mov %rax,%rbx # save ordinal for SIGSYS crash report
syscall # bsd will need arg on stack sometimes
pop %rbx
pop %rbx
pop %rbx
pop %rbx
jc systemfive_errno # bsd sets carry flag if %rax is errno
2020-06-15 14:18:57 +00:00
ret
.endfn systemfive_bsd
2021-02-08 12:04:42 +00:00
#endif
#if SupportsXnu()
systemfive_xnu:
// 0x?????????2153??? # how syscalls.sh encodes xnu ordinals
//
//
// 0x0000000002000153 # how xnu wants ordinals to be encoded
2020-06-15 14:18:57 +00:00
mov %eax,%r11d
2021-02-05 14:16:20 +00:00
and $0x0f000000,%r11d
shl $8,%eax
shr $20,%eax
2020-06-15 14:18:57 +00:00
or %r11d,%eax
jmp systemfive_bsd
.endfn systemfive_xnu,globl,hidden
2021-02-08 12:04:42 +00:00
#endif
2020-06-15 14:18:57 +00:00
.previous
// Initializes System Five system call support.
//
// (1) Extracts parameters passed by kernel
// (2) Detects OS without issuing system calls
// (3) Unpacks magnums from libc/sysv/consts.sh
// (4) Replaces stack with one we control
//
// @param %r15 is auxv
// @note OpenBSD devs: let us know if you start using auxv
2020-06-15 14:18:57 +00:00
.init.start 300,_init_systemfive
push %rbx
push %rsi
// Detect the operating system.
mov (%rdi),%eax # __hostos
#if SupportsWindows() || SupportsXnu() || SupportsFreebsd()
// set by libc/ape.S for XNU
// set by libc/crt/crt.S for XNU/FreeBSD
// set by libc/nt/winmain.greg.c for New Technology
test %eax,%eax
jnz _init_systemfive_detected # os is already known
#endif
2021-02-08 12:04:42 +00:00
#if SupportsOpenbsd()
2021-02-24 12:00:38 +00:00
cmpq $0,(%r15) # OpenBSD has no auxv
jnz 0f
mov $OPENBSD,%al
jmp _init_systemfive_detected
2021-02-24 12:00:38 +00:00
0:
2021-02-08 12:04:42 +00:00
#endif
#if SupportsNetbsd()
2021-02-24 12:00:38 +00:00
xor %ecx,%ecx
0: cmpq $2014,(%r15,%rcx,8) # NetBSD's AT_EXECFN
2021-02-24 12:00:38 +00:00
jne 1f
mov $NETBSD,%al
jmp _init_systemfive_detected
2021-02-24 12:00:38 +00:00
1: cmpq $0,(%r15,%rcx,8)
lea 2(%ecx),%ecx
2021-02-05 14:16:20 +00:00
jnz 0b
2021-02-24 12:00:38 +00:00
2:
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
mov $LINUX,%al
_init_systemfive_detected:
stosq # __hostos
2021-02-24 12:00:38 +00:00
bsr %eax,%eax
mov $_init_systemfive_jmptab,%ebx
movzbl (%rbx,%rax),%eax
lea (%rbx,%rax),%eax
jmp *%rax
_init_systemfive_jmptab:
.byte _init_systemfive_linux-_init_systemfive_jmptab
.byte _init_systemfive_metal-_init_systemfive_jmptab
.byte _init_systemfive_windows-_init_systemfive_jmptab
.byte _init_systemfive_xnu-_init_systemfive_jmptab
.byte _init_systemfive_openbsd-_init_systemfive_jmptab
.byte _init_systemfive_freebsd-_init_systemfive_jmptab
.byte _init_systemfive_netbsd-_init_systemfive_jmptab
.endobj _init_systemfive_jmptab
_init_systemfive_linux:
2021-02-24 12:00:38 +00:00
#if SupportsLinux()
pushb systemfive_linux-.Lanchorpoint
2021-02-24 12:00:38 +00:00
mov $syscon_linux,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_linux
_init_systemfive_metal:
2021-02-24 12:00:38 +00:00
#if SupportsMetal()
Make numerous improvements - Python static hello world now 1.8mb - Python static fully loaded now 10mb - Python HTTPS client now uses MbedTLS - Python REPL now completes import stmts - Increase stack size for Python for now - Begin synthesizing posixpath and ntpath - Restore Python \N{UNICODE NAME} support - Restore Python NFKD symbol normalization - Add optimized code path for Intel SHA-NI - Get more Python unit tests passing faster - Get Python help() pagination working on NT - Python hashlib now supports MbedTLS PBKDF2 - Make memcpy/memmove/memcmp/bcmp/etc. faster - Add Mersenne Twister and Vigna to LIBC_RAND - Provide privileged __printf() for error code - Fix zipos opendir() so that it reports ENOTDIR - Add basic chmod() implementation for Windows NT - Add Cosmo's best functions to Python cosmo module - Pin function trace indent depth to that of caller - Show memory diagram on invalid access in MODE=dbg - Differentiate stack overflow on crash in MODE=dbg - Add stb_truetype and tools for analyzing font files - Upgrade to UNICODE 13 and reduce its binary footprint - COMPILE.COM now logs resource usage of build commands - Start implementing basic poll() support on bare metal - Set getauxval(AT_EXECFN) to GetModuleFileName() on NT - Add descriptions to strerror() in non-TINY build modes - Add COUNTBRANCH() macro to help with micro-optimizations - Make error / backtrace / asan / memory code more unbreakable - Add fast perfect C implementation of μ-Law and a-Law audio codecs - Make strtol() functions consistent with other libc implementations - Improve Linenoise implementation (see also github.com/jart/bestline) - COMPILE.COM now suppresses stdout/stderr of successful build commands
2021-09-28 05:58:51 +00:00
pushb systemfive_enosys-.Lanchorpoint
2021-02-24 12:00:38 +00:00
mov $syscon_linux,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_metal
_init_systemfive_windows:
2021-02-24 12:00:38 +00:00
#if SupportsWindows()
pushb systemfive_enosys-.Lanchorpoint
2021-02-24 12:00:38 +00:00
mov $syscon_windows,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_windows
_init_systemfive_xnu:
#if SupportsXnu()
pushb systemfive_xnu-.Lanchorpoint
mov $syscon_xnu,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_xnu
_init_systemfive_openbsd:
2021-02-24 12:00:38 +00:00
#if SupportsOpenbsd()
pushb systemfive_openbsd-.Lanchorpoint
2021-02-24 12:00:38 +00:00
mov $syscon_openbsd,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_openbsd
_init_systemfive_freebsd:
#if SupportsFreebsd()
pushb systemfive_freebsd-.Lanchorpoint
mov $syscon_freebsd,%esi
jmp _init_systemfive_os
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_freebsd
_init_systemfive_netbsd:
#if SupportsNetbsd()
pushb systemfive_netbsd-.Lanchorpoint
mov $syscon_netbsd,%esi
// 𝑠𝑙𝑖𝑑𝑒
2021-02-08 12:04:42 +00:00
#endif
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_netbsd
_init_systemfive_os:
2020-06-15 14:18:57 +00:00
pop %rax
2021-02-24 12:00:38 +00:00
add $.Lanchorpoint,%eax
stosq # __systemfive
// 𝑠𝑙𝑖𝑑𝑒
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_os
_init_systemfive_magnums:
2020-06-15 14:18:57 +00:00
push %rdi
2021-02-24 12:00:38 +00:00
mov $syscon_start,%edi
2: cmp $syscon_end,%edi
2020-06-15 14:18:57 +00:00
jnb 5f
2021-02-24 12:00:38 +00:00
xor %ebx,%ebx
2020-06-15 14:18:57 +00:00
xor %ecx,%ecx
xor %edx,%edx
2021-02-24 12:00:38 +00:00
3: lodsb # decodes uleb128
movzbl %al,%edx
and $127,%dl
shl %cl,%rdx
or %rdx,%rbx
add $7,%cl
test $128,%al
jnz 3b
xchg %rbx,%rax
2020-06-15 14:18:57 +00:00
stosq
#ifdef SYSDEBUG
inc %r8d
#endif
2020-06-15 14:18:57 +00:00
jmp 2b
5: nop
#ifdef SYSDEBUG
push %rdi
push %rsi
push %r8
call __describe_os
mov %rax,%rdx
pop %r8
.weak __stracef
ezlea __stracef,ax
test %rax,%rax
jz 5f
ezlea .Llog,di
mov %r8d,%esi
call *%rax
5: pop %rsi
pop %rdi
#endif /* DEBUGSYS */
pop %rdi
pop %rsi
pop %rbx
// 𝑠𝑙𝑖𝑑𝑒
2021-02-24 12:00:38 +00:00
.endfn _init_systemfive_magnums
#if SupportsSystemv()
_init_systemfive_pid:
ezlea __hostos,cx
mov (%rcx),%al
mov (%rdi),%eax
testb $WINDOWS|METAL,(%rcx)
jnz 1f
mov __NR_getpid,%eax
syscall
1: stosq
.endfn _init_systemfive_pid
#endif
2021-02-08 12:04:42 +00:00
#if SupportsSystemv() && !defined(TINY)
_init_systemfive_syscall:
mov __NR_msyscall,%eax # syscall origin protect
2021-02-24 12:00:38 +00:00
cmp $0xfff,%ax # openbsd is pretty cool
jae _init_systemfive_done
push %rdi
push %rsi
.weak __privileged_addr
.weak __privileged_size
mov $__privileged_addr,%edi
mov $__privileged_size,%esi
syscall
pop %rsi
pop %rdi
// 𝑠𝑙𝑖𝑑𝑒
#endif /* TINY */
_init_systemfive_done:
nop
.init.end 300,_init_systemfive,globl,hidden
2020-06-15 14:18:57 +00:00
// Sections for varint encoded magic numbers.
//
// These sections are all ordered by (group_name, constant_name).
// They're populated by modules simply referencing the symbols.
//
// @see libc/sysv/consts.sh
// @see libc/sysv/consts/syscon_h
2020-06-15 14:18:57 +00:00
.section .piro.bss.sort.syscon.1,"aw",@nobits
.align 8
syscon_start:/*
2020-06-15 14:18:57 +00:00
...decentralized quadwords...
*/.previous
.section .piro.bss.sort.syscon.3,"aw",@nobits
syscon_end:
2020-06-15 14:18:57 +00:00
.previous
.type syscon_start,@object
.type syscon_end,@object
.globl syscon_start
.globl syscon_end
#if SupportsLinux() || SupportsMetal()
2020-06-15 14:18:57 +00:00
.section .sort.rodata.syscon.linux.1,"a",@progbits
.align 1
syscon_linux:/*
2020-06-15 14:18:57 +00:00
...decentralized leb128...
*/.previous
.type syscon_linux,@object
.globl syscon_linux
2021-02-08 12:04:42 +00:00
#endif
#if SupportsXnu()
2020-06-15 14:18:57 +00:00
.section .sort.rodata.syscon.xnu.1,"a",@progbits
.align 1
syscon_xnu:/*
2020-06-15 14:18:57 +00:00
...decentralized leb128...
*/.previous
.type syscon_xnu,@object
.globl syscon_xnu
2021-02-08 12:04:42 +00:00
#endif
#if SupportsFreebsd()
2020-06-15 14:18:57 +00:00
.section .sort.rodata.syscon.freebsd.1,"a",@progbits
.align 1
syscon_freebsd:/*
2020-06-15 14:18:57 +00:00
...decentralized leb128...
*/.previous
.type syscon_freebsd,@object
.globl syscon_freebsd
2021-02-08 12:04:42 +00:00
#endif
#if SupportsOpenbsd()
2020-06-15 14:18:57 +00:00
.section .sort.rodata.syscon.openbsd.1,"a",@progbits
.align 1
syscon_openbsd:/*
2021-02-05 14:16:20 +00:00
...decentralized leb128...
*/.previous
.type syscon_openbsd,@object
.globl syscon_openbsd
2021-02-08 12:04:42 +00:00
#endif
#if SupportsNetbsd()
2021-02-05 14:16:20 +00:00
.section .sort.rodata.syscon.netbsd.1,"a",@progbits
.align 1
syscon_netbsd:/*
2020-06-15 14:18:57 +00:00
...decentralized leb128...
*/.previous
.type syscon_netbsd,@object
.globl syscon_netbsd
2021-02-08 12:04:42 +00:00
#endif
#if SupportsWindows()
2020-06-15 14:18:57 +00:00
.section .sort.rodata.syscon.windows.1,"a",@progbits
.align 1
syscon_windows:/*
2020-06-15 14:18:57 +00:00
...decentralized leb128...
*/.previous
.type syscon_windows,@object
.globl syscon_windows
2021-02-08 12:04:42 +00:00
#endif
#ifdef SYSDEBUG
.rodata.str1.1
.Llog: .ascii STRACE_PROLOGUE
.ascii "bell system five system call support"
.asciz " %'u magnums loaded on %s\n"
.previous
#endif /* DEBUGSYS */