From 86dbe8eb0abe2a2d5f0f687ff190c4e9f547d126 Mon Sep 17 00:00:00 2001
From: mRnea <akannemre@gmail.com>
Date: Sun, 18 Aug 2024 17:10:32 +0300
Subject: added a few operations and expanded standard library

---
 codegen.lisp | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

(limited to 'codegen.lisp')

diff --git a/codegen.lisp b/codegen.lisp
index 1e8c364..c74b4c0 100644
--- a/codegen.lisp
+++ b/codegen.lisp
@@ -313,7 +313,8 @@
 
 ;; ( -- a)
 (defop (push-int a) (:lex nil :targets :nasm)
-  ("push ~d" a))
+  ("mov rax, ~a" a)
+  ("push rax"))
 
 (defop (push-str len addr str) (:lex nil :targets :nasm)
   (progn (:write ("push ~d" len)
@@ -359,6 +360,17 @@
         (:write ("pop ~a" (aref call-regs i)))
         (finally (:write "syscall"))))
 
+(defop divmod (:targets :nasm)
+  "mov rdx, 0"
+  (rax rcx -- )
+  "div rcx"
+  (-- rax rdx))
+
+(defop * (:targets :nasm)
+  (rbx rax -- )
+  "mul rbx"
+  ( -- rax))
+
 (defun gen-dump (str)
   (format str "~{~a~%~}"
           '("dump:"
-- 
cgit v1.2.3