add option to shutdown from makefile

devyn · Aug 16, 2023 · 4d3ba93 · 4d3ba93
1 parent 7afd8e9
commit 4d3ba93
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 0 deletions.
diff --git a/stage1/words.s b/stage1/words.s
@@ -284,6 +284,12 @@ INITIAL_WORDS:
         .ascii "words$"
         .balign 8
 
+        .quad shutdown
+        .byte 9
+        .byte LISP_OBJECT_TYPE_INTEGER
+        .ascii "shutdown$"
+        .balign 8
+
         # end
         .quad 0
         .quad 0

diff --git a/stage2/make.mk b/stage2/make.mk
@@ -1,6 +1,9 @@
 stage2.lsp: $(wildcard stage2/*.lsp)
 	# strip comments
 	sed -E '/^ *(;.*)?$$/d' $^ > stage2.lsp
+	if [[ "${SHUTDOWN}" == 1 ]]; then \
+		echo "(call-native shutdown$$ 0)" >> stage2.lsp \
+	fi
 
 clean-stage2:
 	rm -f stage2.lsp