Add MODE=optlinux build mode (#141)

libc/str/findembeddedape.c

@@ -0,0 +1,50 @@
+/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
+│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8                                :vi│
+╞══════════════════════════════════════════════════════════════════════════════╡
+│ Copyright 2021 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/bits/bits.h"
+#include "libc/log/libfatal.internal.h"
+#include "libc/macros.internal.h"
+#include "libc/str/str.h"
+
+#define TRIES 8
+
+/**
+ * Returns offset of binary embedded inside binary.
+ *
+ * This can be used to load zip assets from an executable that hasn't
+ * gone through the `objcopy -S -O binary` step. We make the assumption
+ * that an x86_64-pc-linux-gnu toolchain is being used. This routine
+ * would need to be changed to accommodate binaries built locally on
+ * Apple, FreeBSD, etc.
+ *
+ * @param p needs to be page aligned
+ * @param n is byte length of p
+ * @return base address of image or NULL if not found
+ */
+uint8_t *FindEmbeddedApe(const uint8_t *p, size_t n) {
+  size_t i;
+  uint64_t w;
+  n = MIN(n, TRIES * PAGESIZE);
+  for (i = 0; i + 8 <= n; i += PAGESIZE) {
+    w = READ64LE(p + i);
+    if (w == READ64LE("MZqFpD='") || w == READ64LE("\177ELF\2\1\1\11")) {
+      return (/*unconst*/ uint8_t *)(p + i);
+    }
+  }
+  return 0;
+}

libc/str/oldutf16.internal.h

@@ -6,6 +6,8 @@ COSMOPOLITAN_C_START_
 unsigned getutf16(const char16_t *, wint_t *);
 int pututf16(char16_t *, size_t, wint_t, bool);
 
+#if defined(__MNO_RED_ZONE__) && defined(__GNUC__) && !defined(__STRICT_ANSI__)
+
 #define pututf16(BUF, SIZE, CH, AWESOME) __pututf16(BUF, SIZE, CH, AWESOME)
 #define getutf16(BUF, CHPTR)             __getutf16(BUF, CHPTR)
 
@@ -42,6 +44,8 @@ forceinline unsigned __getutf16(const char16_t *s, wint_t *wc) {
   return ax;
 }
 
+#endif
+
 COSMOPOLITAN_C_END_
 #endif /* !(__ASSEMBLER__ + __LINKER__ + 0) */
 #endif /* COSMOPOLITAN_LIBC_STR_OLDUTF16_H_ */

libc/str/strlen16.c

@@ -0,0 +1,43 @@
+/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
+│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8                                :vi│
+╞══════════════════════════════════════════════════════════════════════════════╡
+│ Copyright 2021 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/dce.h"
+#include "libc/intrin/asan.internal.h"
+#include "libc/str/str.h"
+
+typedef char16_t xmm_t __attribute__((__vector_size__(16), __aligned__(16)));
+
+/**
+ * Returns length of NUL-terminated utf-16 string.
+ *
+ * @param s is non-null NUL-terminated string pointer
+ * @return number of shorts (excluding NUL)
+ * @asyncsignalsafe
+ */
+noasan size_t strlen16(const char16_t *s) {
+  size_t n;
+  xmm_t v, z = {0};
+  unsigned m, k = (uintptr_t)s & 15;
+  const xmm_t *p = (const xmm_t *)((uintptr_t)s & -16);
+  if (IsAsan()) __asan_verify(s, 2);
+  m = __builtin_ia32_pmovmskb128(*p == z) >> k << k;
+  while (!m) m = __builtin_ia32_pmovmskb128(*++p == z);
+  n = (const char16_t *)p + (__builtin_ctzl(m) >> 1) - s;
+  if (IsAsan()) __asan_verify(s, n * 2);
+  return n;
+}

libc/str/strnlen16.c

@@ -0,0 +1,37 @@
+/*-*- mode:c;indent-tabs-mode:nil;c-basic-offset:2;tab-width:8;coding:utf-8 -*-│
+│vi: set net ft=c ts=2 sts=2 sw=2 fenc=utf-8                                :vi│
+╞══════════════════════════════════════════════════════════════════════════════╡
+│ Copyright 2021 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/assert.h"
+#include "libc/str/str.h"
+
+/**
+ * Returns length of NUL-terminated 16-bit string w/ limit.
+ *
+ * @param s is utf16 string pointer
+ * @param n is max length in shorts
+ * @return number of shorts
+ * @asyncsignalsafe
+ */
+noasan size_t strnlen16(const char16_t *s, size_t n) {
+  size_t i;
+  for (i = 0;; ++i) {
+    if (i == n || !s[i]) break;
+  }
+  assert(i == n || (i < n && !s[i]));
+  return i;
+}

libc/str/tpdecode.internal.h

@@ -5,7 +5,7 @@ COSMOPOLITAN_C_START_
 
 int tpdecode(const char *, wint_t *) paramsnonnull((1)) libcesque;
 
-#ifndef __STRICT_ANSI__
+#if defined(__MNO_RED_ZONE__) && defined(__GNUC__) && !defined(__STRICT_ANSI__)
 #define tpdecode(S, OUT) __tpdecode(S, OUT)
 forceinline int __tpdecode(const char *s, wint_t *out) {
   int ax;

libc/str/tpenc.h

@@ -5,7 +5,7 @@ COSMOPOLITAN_C_START_
 
 uint64_t tpenc(int32_t) pureconst;
 
-#ifndef __STRICT_ANSI__
+#if defined(__MNO_RED_ZONE__) && defined(__GNUC__) && !defined(__STRICT_ANSI__)
 #define tpenc(CODE)            \
   ({                           \
     long Edi, Buf;             \