From 5a7332f3a843a37790e67ff1e97f8b47e4e5f1f3 Mon Sep 17 00:00:00 2001
From: Samuel Hammersberg <samuel.hammersberg@gmail.com>
Date: Mon, 8 May 2023 21:04:13 +0200
Subject: [PATCH] Fixed one error with chars.

---
 src/Codegen/Emits.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Codegen/Emits.hs b/src/Codegen/Emits.hs
index 4a2f794..7c9fa3b 100644
--- a/src/Codegen/Emits.hs
+++ b/src/Codegen/Emits.hs
@@ -370,7 +370,7 @@ preludeFuns def (Ident xs) arg1 arg2
   | "$langle$" `isPrefixOf` xs =  pure $ Icmp LLSlt I8 arg1 arg2
   | "$minus$" `isPrefixOf` xs = pure $ Sub I64 arg1 arg2
   | "printChar$" `isPrefixOf` xs = pure . UnsafeRaw $
-        "call i32 (ptr, ...) @printf(ptr noundef @.char_print_no_nl, i8 noundef " <> toIr arg1 <> ")\n"
+        "add i16 0,0\n    call i32 (ptr, ...) @printf(ptr noundef @.char_print_no_nl, i8 noundef " <> toIr arg1 <> ")\n"
   --char_print_no_nl
   | otherwise = pure def