belka/elna
1
0
Fork 0
Code Issues 5 Pull Requests Releases Activity

Add branch relocation type

Browse Source
This commit is contained in:
Eugen Wissner
2024-10-08 17:29:08 +02:00
parent 699cc8684b
commit 87f183baad
5 changed files with 124 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
lib/Language/Elna/Architecture/RiscV.hs
View File

@ -142,9 +142,10 @@ data Type
deriving Eq
data RelocationType
= Lower12I XRegister Funct3 XRegister Text
| Lower12S Text Funct3 XRegister XRegister
| Higher20 XRegister Text -- Type U.
= RLower12I XRegister Funct3 XRegister Text
| RLower12S Text Funct3 XRegister XRegister
| RHigher20 XRegister Text -- Type U.
| RBranch Text Funct3 XRegister XRegister -- Type B.
deriving Eq
data Instruction
@ -299,9 +300,10 @@ type' (Type rd funct3' rs1 funct12')
.|. (fromIntegral (funct12 funct12') `shiftL` 20);
relocationType :: RelocationType -> Word32
relocationType (Lower12I rd funct3' rs1 _) = type' $ I rd funct3' rs1 0
relocationType (Lower12S _ funct3' rs1 rs2) = type' $ S 0 funct3' rs1 rs2
relocationType (Higher20 rd _) = type' $ U rd 0
relocationType (RLower12I rd funct3' rs1 _) = type' $ I rd funct3' rs1 0
relocationType (RLower12S _ funct3' rs1 rs2) = type' $ S 0 funct3' rs1 rs2
relocationType (RHigher20 rd _) = type' $ U rd 0
relocationType (RBranch _ funct3' rs1 rs2) = type' $ B 0 funct3' rs1 rs2
instruction :: Instruction -> ByteString.Builder.Builder
instruction = \case