Rakarake/churf
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

LLVMIr code now has the fastcc flag to enable speeed 😎

Browse source
This commit is contained in:
Samuel Hammersberg 2023-02-20 16:44:27 +01:00
parent afbc700db2
commit 4df3f705ed
2 changed files with 29 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/LlvmIr.hs
View file

@ -136,7 +136,7 @@ llvmIrToString = go 0
replicate i '\t' <> case l of
(Define t (Ident i) params) ->
concat
[ "define ", show t, " @", i
[ "define fastcc ", show t, " @", i
, "(", intercalate ", " (map (\(Ident y, x) -> unwords [show x, "%" <> y]) params)
, ") {\n"
]
@ -170,7 +170,7 @@ llvmIrToString = go 0
]
(Call t vis (Ident i) arg) ->
concat
[ "call ", show t, " ", show vis, i, "("
[ "call fastcc ", show t, " ", show vis, i, "("
, intercalate ", " $ Prelude.map (\(x, y) -> show x <> " " <> show y) arg
, ")\n"
]