From 0850f0a8d66af028e32a79063cdad328b70db909 Mon Sep 17 00:00:00 2001
From: Eugen Wissner <belka@caraus.de>
Date: Fri, 11 Oct 2024 16:14:01 +0200
Subject: Implement if statements with equality

---
 lib/Language/Elna/RiscV/ElfWriter.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'lib/Language/Elna/RiscV/ElfWriter.hs')

diff --git a/lib/Language/Elna/RiscV/ElfWriter.hs b/lib/Language/Elna/RiscV/ElfWriter.hs
index d3b0e94..52a92ea 100644
--- a/lib/Language/Elna/RiscV/ElfWriter.hs
+++ b/lib/Language/Elna/RiscV/ElfWriter.hs
@@ -236,8 +236,8 @@ riscv32Elf code objectHandle = text
                             , st_info = stInfo STB_GLOBAL STT_FUNC
                             }
                         result =
-                            ( encoded <> encoded'
-                            , relocations <> relocations'
+                            ( encoded'
+                            , relocations'
                             , ElfHeaderResult (names <> Text.encodeUtf8 labelName <> "\0") (Vector.snoc symbols newEntry)
                             , definitions'
                             )
@@ -260,6 +260,9 @@ riscv32Elf code objectHandle = text
                         | RiscV.RBranch symbolName _ _ _ <- instructionType
                             -> Just -- R_RISCV_BRANCH
                             $ UnresolvedRelocation (Text.encodeUtf8 symbolName) offset 16
+                        | RiscV.RJal _ symbolName <- instructionType
+                            -> Just -- R_RISCV_JAL
+                            $ UnresolvedRelocation (Text.encodeUtf8 symbolName) offset 17
                     RiscV.CallInstruction symbolName
                         -> Just -- R_RISCV_CALL_PLT
                         $ UnresolvedRelocation (Text.encodeUtf8 symbolName) offset 19
-- 
cgit v1.2.3