From 795707881285fd171c552516b11e5f7aca65f064 Mon Sep 17 00:00:00 2001
From: Bad Diode <bd@badd10de.dev>
Date: Tue, 9 Nov 2021 16:32:57 +0100
Subject: Add compilation context

This prepares the compiler for the compilation of lambdas/procedures.
---
 src/x86_64/prelude.asm | 11 +++--------
 1 file changed, 3 insertions(+), 8 deletions(-)

(limited to 'src/x86_64')

diff --git a/src/x86_64/prelude.asm b/src/x86_64/prelude.asm
index c9ef823..05762b9 100644
--- a/src/x86_64/prelude.asm
+++ b/src/x86_64/prelude.asm
@@ -108,14 +108,9 @@ not_string:
 
     ;; is fixnum?
     mov     rax, rdi
+    and     rax, FIXNUM_MASK
+    cmp     rax, FIXNUM_TAG
+    jne     display_end
     call    printdln
 display_end:
     ret
-
-global  _start
-_start:
-    ;; point `rdi` to the start of the heap.
-    mov     r15, bdl_heap
-
-    ;; make sure the last element in the stack is the nil value.
-    push    NIL_VAL
-- 
cgit v1.2.1