Implement if statements with equality

2024-10-11 16:14:01 +02:00
parent 87f183baad
commit 0850f0a8d6
12 changed files with 168 additions and 93 deletions
--- 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