+#include "arch.h"
+#include "interr.h"
+#include "thread.h"
+
+#include "validate.h"
+#include "gc-internal.h"
+
+/* lutex stuff */
+#if defined(LISP_FEATURE_SB_THREAD) && defined(LISP_FEATURE_SB_LUTEX)
+#include "genesis/sap.h"
+#include "pthread-lutex.h"
+#endif
+
+
+unsigned char build_id[] =
+#include "../../output/build-id.tmp"
+;
+
+int
+open_binary(char *filename, int mode)
+{
+#ifdef LISP_FEATURE_WIN32
+ mode |= O_BINARY;
+#endif
+
+ return open(filename, mode);
+}
+
+
+static struct runtime_options *
+read_runtime_options(int fd)
+{
+ size_t optarray[RUNTIME_OPTIONS_WORDS];
+ struct runtime_options *options = NULL;
+
+ if (read(fd, optarray, RUNTIME_OPTIONS_WORDS * sizeof(size_t)) !=
+ RUNTIME_OPTIONS_WORDS * sizeof(size_t)) {
+ return NULL;
+ }
+
+ if ((RUNTIME_OPTIONS_MAGIC != optarray[0]) || (0 == optarray[1])) {
+ return NULL;
+ }
+
+ options = successful_malloc(sizeof(struct runtime_options));
+
+ options->dynamic_space_size = optarray[2];
+ options->thread_control_stack_size = optarray[3];
+
+ return options;
+}
+
+void
+maybe_initialize_runtime_options(int fd)
+{
+ struct runtime_options *new_runtime_options;
+ off_t end_offset = sizeof(lispobj) +
+ sizeof(os_vm_offset_t) +
+ (RUNTIME_OPTIONS_WORDS * sizeof(size_t));
+
+ lseek(fd, -end_offset, SEEK_END);
+
+ if (new_runtime_options = read_runtime_options(fd)) {
+ runtime_options = new_runtime_options;
+ }
+}
+
+/* Search 'filename' for an embedded core. An SBCL core has, at the
+ * end of the file, a trailer containing optional saved runtime
+ * options, the start of the core (an os_vm_offset_t), and a final
+ * signature word (the lispobj CORE_MAGIC). If this trailer is found
+ * at the end of the file, the start of the core can be determined
+ * from the core size.
+ *
+ * If an embedded core is present, this returns the offset into the
+ * file to load the core from, or -1 if no core is present. */
+os_vm_offset_t
+search_for_embedded_core(char *filename)
+{
+ lispobj header;
+ os_vm_offset_t lispobj_size = sizeof(lispobj);
+ os_vm_offset_t trailer_size = lispobj_size + sizeof(os_vm_offset_t);
+ os_vm_offset_t core_start, pos;
+ int fd = -1;
+
+ if ((fd = open_binary(filename, O_RDONLY)) < 0)
+ goto lose;
+ if (lseek(fd, -lispobj_size, SEEK_END) < 0)
+ goto lose;
+ if (read(fd, &header, (size_t)lispobj_size) < lispobj_size)
+ goto lose;
+
+ if (header == CORE_MAGIC) {
+ if (lseek(fd, -trailer_size, SEEK_END) < 0)
+ goto lose;
+ if (read(fd, &core_start, sizeof(os_vm_offset_t)) < 0)
+ goto lose;
+
+ if (lseek(fd, core_start, SEEK_SET) < 0)
+ goto lose;
+ pos = lseek(fd, 0, SEEK_CUR);
+
+ if (read(fd, &header, (size_t)lispobj_size) < lispobj_size)
+ goto lose;