690be544da
- Better UBSAN error messages - POSIX Advisory Locks polyfills - Move redbean manual to /.help.txt - System call memory safety in ASAN mode - Character classification now does UNICODE
529 lines
11 KiB
ArmAsm
529 lines
11 KiB
ArmAsm
/*-*- mode:unix-assembly; indent-tabs-mode:t; tab-width:8; coding:utf-8 -*-│
|
|
│vi: set et ft=asm ts=8 tw=8 fenc=utf-8 :vi│
|
|
╞══════════════════════════════════════════════════════════════════════════════╡
|
|
│ Copyright 2020 Justine Alexandra Roberts Tunney │
|
|
│ │
|
|
│ 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. │
|
|
│ │
|
|
│ 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. │
|
|
╚─────────────────────────────────────────────────────────────────────────────*/
|
|
#include "libc/macros.internal.h"
|
|
.text.unlikely
|
|
.source __FILE__
|
|
|
|
__ubsan_default_options:
|
|
ret
|
|
.endfn __ubsan_default_options
|
|
|
|
__ubsan_on_report:
|
|
ret
|
|
.endfn __ubsan_on_report,globl
|
|
|
|
__ubsan_get_current_report_data:
|
|
xor %eax,%eax
|
|
ret
|
|
.endfn __ubsan_get_current_report_data,globl
|
|
|
|
__ubsan_handle_type_mismatch_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call __ubsan_handle_type_mismatch
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_type_mismatch_abort,globl
|
|
|
|
__ubsan_handle_float_cast_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call __ubsan_handle_float_cast_overflow
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_float_cast_overflow_abort,globl
|
|
|
|
__ubsan_handle_type_mismatch_v1_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call ___ubsan_handle_type_mismatch_v1
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_type_mismatch_v1_abort,globl
|
|
|
|
__ubsan_handle_type_mismatch_v1:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call ___ubsan_handle_type_mismatch_v1
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_type_mismatch_v1,globl
|
|
|
|
__ubsan_handle_add_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "add_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_add_overflow_abort,globl
|
|
|
|
__ubsan_handle_add_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "add_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_add_overflow,globl
|
|
|
|
__ubsan_handle_alignment_assumption_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "alignment_assumption",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_alignment_assumption_abort,globl
|
|
|
|
__ubsan_handle_alignment_assumption:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "alignment_assumption",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_alignment_assumption,globl
|
|
|
|
__ubsan_handle_builtin_unreachable_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "builtin_unreachable",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_builtin_unreachable_abort,globl
|
|
|
|
__ubsan_handle_builtin_unreachable:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "builtin_unreachable",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_builtin_unreachable,globl
|
|
|
|
__ubsan_handle_cfi_bad_type_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "cfi_bad_type",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_cfi_bad_type_abort,globl
|
|
|
|
__ubsan_handle_cfi_bad_type:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "cfi_bad_type",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_cfi_bad_type,globl
|
|
|
|
__ubsan_handle_cfi_check_fail_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "cfi_check_fail",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_cfi_check_fail_abort,globl
|
|
|
|
__ubsan_handle_cfi_check_fail:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "cfi_check_fail",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_cfi_check_fail,globl
|
|
|
|
__ubsan_handle_divrem_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "divrem_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_divrem_overflow_abort,globl
|
|
|
|
__ubsan_handle_divrem_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "divrem_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_divrem_overflow,globl
|
|
|
|
__ubsan_handle_dynamic_type_cache_miss_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "dynamic_type_cache_miss",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_dynamic_type_cache_miss_abort,globl
|
|
|
|
__ubsan_handle_dynamic_type_cache_miss:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "dynamic_type_cache_miss",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_dynamic_type_cache_miss,globl
|
|
|
|
__ubsan_handle_function_type_mismatch_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "function_type_mismatch",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_function_type_mismatch_abort,globl
|
|
|
|
__ubsan_handle_function_type_mismatch:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "function_type_mismatch",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_function_type_mismatch,globl
|
|
|
|
__ubsan_handle_implicit_conversion_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "implicit_conversion",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_implicit_conversion_abort,globl
|
|
|
|
__ubsan_handle_implicit_conversion:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "implicit_conversion",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_implicit_conversion,globl
|
|
|
|
__ubsan_handle_invalid_builtin_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "invalid_builtin",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_invalid_builtin_abort,globl
|
|
|
|
__ubsan_handle_invalid_builtin:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "invalid_builtin",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_invalid_builtin,globl
|
|
|
|
__ubsan_handle_load_invalid_value_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "load_invalid_value (uninitialized? bool∌[01]?)",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_load_invalid_value_abort,globl
|
|
|
|
__ubsan_handle_load_invalid_value:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "load_invalid_value (uninitialized? bool∌[01]?)",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_load_invalid_value,globl
|
|
|
|
__ubsan_handle_missing_return_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "missing_return",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_missing_return_abort,globl
|
|
|
|
__ubsan_handle_missing_return:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "missing_return",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_missing_return,globl
|
|
|
|
__ubsan_handle_mul_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "mul_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_mul_overflow_abort,globl
|
|
|
|
__ubsan_handle_mul_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "mul_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_mul_overflow,globl
|
|
|
|
__ubsan_handle_negate_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "negate_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_negate_overflow_abort,globl
|
|
|
|
__ubsan_handle_negate_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "negate_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_negate_overflow,globl
|
|
|
|
__ubsan_handle_nonnull_arg_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_arg",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_arg_abort,globl
|
|
|
|
__ubsan_handle_nonnull_arg:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_arg",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_arg,globl
|
|
|
|
__ubsan_handle_nonnull_return_v1_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_return_v1",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_return_v1_abort,globl
|
|
|
|
__ubsan_handle_nonnull_return_v1:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_return_v1",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_return_v1,globl
|
|
|
|
__ubsan_handle_nullability_arg_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nullability_arg",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nullability_arg_abort,globl
|
|
|
|
__ubsan_handle_nullability_arg:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nullability_arg",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nullability_arg,globl
|
|
|
|
__ubsan_handle_nullability_return_v1_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nullability_return_v1",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nullability_return_v1_abort,globl
|
|
|
|
__ubsan_handle_nullability_return_v1:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nullability_return_v1",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nullability_return_v1,globl
|
|
|
|
__ubsan_handle_pointer_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "pointer_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_pointer_overflow_abort,globl
|
|
|
|
__ubsan_handle_pointer_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "pointer_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_pointer_overflow,globl
|
|
|
|
__ubsan_handle_shift_out_of_bounds_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call __ubsan_handle_shift_out_of_bounds
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_shift_out_of_bounds_abort,globl
|
|
|
|
__ubsan_handle_sub_overflow_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "sub_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_sub_overflow_abort,globl
|
|
|
|
__ubsan_handle_sub_overflow:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "sub_overflow",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_sub_overflow,globl
|
|
|
|
__ubsan_handle_vla_bound_not_positive_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "vla_bound_not_positive",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_vla_bound_not_positive_abort,globl
|
|
|
|
__ubsan_handle_vla_bound_not_positive:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "vla_bound_not_positive",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_vla_bound_not_positive,globl
|
|
|
|
__ubsan_handle_nonnull_return_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_return",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_return_abort,globl
|
|
|
|
__ubsan_handle_nonnull_return:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
loadstr "nonnull_return",si
|
|
call __ubsan_abort
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_nonnull_return,globl
|
|
|
|
__ubsan_handle_out_of_bounds_abort:
|
|
push %rbp
|
|
mov %rsp,%rbp
|
|
.profilable
|
|
call __ubsan_handle_out_of_bounds
|
|
pop %rbp
|
|
ret
|
|
.endfn __ubsan_handle_out_of_bounds_abort,globl
|