Make considerably more progress on AARCH64

- Utilities like pledge.com now build
- kprintf() will no longer balk at 48-bit addresses
- There's a new aarch64-dbg build mode that should work
- gc() and defer() are mostly pacified; avoid using them on aarch64
- THIRD_PART_STB now has Arm Neon intrinsics for fast image handling

libc/intrin/asan.c

@@ -47,10 +47,9 @@
 #include "libc/sysv/errfuns.h"
 #include "libc/thread/tls.h"
 #include "third_party/dlmalloc/dlmalloc.h"
-
 #ifdef __x86_64__
+
 STATIC_YOINK("_init_asan");
-#endif
 
 #if IsModeDbg()
 // MODE=dbg
@@ -1505,3 +1504,5 @@ void __asan_init(int argc, char **argv, char **envp, intptr_t *auxv) {
   STRACE("/_/   \\_\\____/_/   \\_\\_| \\_|");
   STRACE("cosmopolitan memory safety module initialized");
 }
+
+#endif /* __x86_64__ */

libc/intrin/asanthunk.c

@@ -16,6 +16,7 @@
 │ TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR             │
 │ PERFORMANCE OF THIS SOFTWARE.                                                │
 ╚─────────────────────────────────────────────────────────────────────────────*/
+#ifdef __x86_64__
 
 void __asan_report_load(void *, int);
 void __asan_report_store(void *, int);
@@ -171,3 +172,5 @@ void __asan_store16() {
 void __asan_store32() {
   __builtin_trap();
 }
+
+#endif /* __x86_64__ */

libc/intrin/intrin.mk

@@ -78,6 +78,14 @@ o/$(MODE)/libc/intrin/asan.o: private			\
 			-finline			\
 			-finline-functions
 
+o/$(MODE)/libc/intrin/asanthunk.o: private		\
+		OVERRIDE_CFLAGS +=			\
+			-x-no-pg			\
+			$(MNO_FENTRY)			\
+			-ffreestanding			\
+			-fno-sanitize=all		\
+			-fno-stack-protector
+
 # we can't use compiler magic because:
 #   kprintf() is mission critical to error reporting
 o/$(MODE)/libc/intrin/getmagnumstr.greg.o		\

libc/intrin/kpollnames.S

@@ -0,0 +1,46 @@
+/*-*- 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/fmt/magnumstrs.internal.h"
+#include "libc/macros.internal.h"
+
+	.macro	.e e s
+	.long	\e - kPollNames
+	.long	.L\@ - kPollNames
+	.rodata.str1.1
+.L\@:	.string	"\s"
+	.previous
+	.endm
+
+	.section .rodata,"a",@progbits
+	.balign	4
+	.underrun
+kPollNames:
+        .e	POLLNVAL	"POLLNVAL"
+	.e	POLLWRNORM	"POLLWRNORM"
+	.e	POLLWRBAND	"POLLWRBAND"
+	.e	POLLRDNORM	"POLLRDNORM"
+	.e	POLLRDHUP	"POLLRDHUP"
+	.e	POLLRDBAND	"POLLRDBAND"
+	.e	POLLHUP		"POLLHUP"
+	.e	POLLERR		"POLLERR"
+	.e	POLLPRI		"POLLPRI"
+	.e	POLLOUT		"POLLOUT"
+	.e	POLLIN		"POLLIN"
+	.endobj	kPollNames,globl,hidden
+	.overrun

libc/intrin/kprintf.greg.c

@@ -48,6 +48,7 @@
 #include "libc/runtime/internal.h"
 #include "libc/runtime/memtrack.internal.h"
 #include "libc/runtime/runtime.h"
+#include "libc/runtime/stack.h"
 #include "libc/runtime/symbols.internal.h"
 #include "libc/str/str.h"
 #include "libc/str/tab.internal.h"
@@ -173,12 +174,16 @@ privileged bool kisdangerous(const void *p) {
   int frame;
   if (kisimagepointer(p)) return false;
   if (kiskernelpointer(p)) return false;
+  if (IsOldStack(p)) return false;
   if (IsLegalPointer(p)) {
-    frame = (intptr_t)p >> 16;
+    frame = (uintptr_t)p >> 16;
     if (IsStackFrame(frame)) return false;
-    if (IsOldStackFrame(frame)) return false;
     if (kismapped(frame)) return false;
   }
+  if (GetStackAddr() + GUARDSIZE <= (uintptr_t)p &&
+      (uintptr_t)p < GetStackAddr() + GetStackSize()) {
+    return false;
+  }
   return true;
 }
 
@@ -219,12 +224,12 @@ privileged static void klog(const char *b, size_t n) {
   register long r0 asm("x0") = (long)2;
   register long r1 asm("x1") = (long)b;
   register long r2 asm("x2") = (long)n;
+  register long r8 asm("x8") = (long)__NR_write;
   register long res_x0 asm("x0");
-  asm volatile("mov\tx8,%1\n\t"
-               "svc\t0"
+  asm volatile("svc\t0"
                : "=r"(res_x0)
-               : "i"(64), "r"(r0), "r"(r1), "r"(r2)
-               : "x8", "memory");
+               : "r"(r0), "r"(r1), "r"(r2), "r"(r8)
+               : "memory");
 #else
 #error "unsupported architecture"
 #endif

libc/intrin/lshrti3.c

@@ -0,0 +1,46 @@
+/* clang-format off */
+/* ===-- lshrti3.c - Implement __lshrti3 -----------------------------------===
+ *
+ *                     The LLVM Compiler Infrastructure
+ *
+ * This file is dual licensed under the MIT and the University of Illinois Open
+ * Source Licenses. See LICENSE.TXT for details.
+ *
+ * ===----------------------------------------------------------------------===
+ *
+ * This file implements __lshrti3 for the compiler_rt library.
+ *
+ * ===----------------------------------------------------------------------===
+ */
+
+#include "third_party/compiler_rt/int_lib.h"
+
+#ifdef CRT_HAS_128BIT
+
+/* Returns: logical a >> b */
+
+/* Precondition:  0 <= b < bits_in_tword */
+
+COMPILER_RT_ABI ti_int
+__lshrti3(ti_int a, si_int b)
+{
+    const int bits_in_dword = (int)(sizeof(di_int) * CHAR_BIT);
+    utwords input;
+    utwords result;
+    input.all = a;
+    if (b & bits_in_dword)  /* bits_in_dword <= b < bits_in_tword */
+    {
+        result.s.high = 0;
+        result.s.low = input.s.high >> (b - bits_in_dword);
+    }
+    else  /* 0 <= b < bits_in_dword */
+    {
+        if (b == 0)
+            return a;
+        result.s.high  = input.s.high >> b;
+        result.s.low = (input.s.high << (bits_in_dword - b)) | (input.s.low >> b);
+    }
+    return result.all;
+}
+
+#endif /* CRT_HAS_128BIT */