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

Added support for running GC profiller.

Browse source
This commit is contained in:
Samuel Hammersberg 2023-04-18 15:28:03 +02:00
parent b5384bf2c3
commit 9ffcbf66b9
2 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Codegen/CompilerState.hs
View file

@ -138,4 +138,6 @@ defaultStart =
, UnsafeRaw "declare external void @cheap_init()\n"
, UnsafeRaw "declare external ptr @cheap_alloc(i64)\n"
, UnsafeRaw "declare external void @cheap_dispose()\n"
, UnsafeRaw "declare external ptr @cheap_the()\n"
, UnsafeRaw "declare external void @cheap_set_profiler(ptr, i1)\n"
]

6
src/Codegen/Emits.hs
View file

@ -127,7 +127,11 @@ compileScs (MIR.DData (MIR.Data typ ts) : xs) = do
compileScs xs
firstMainContent :: [LLVMIr]
firstMainContent = [UnsafeRaw "call void @cheap_init()\n"]
firstMainContent =
[ UnsafeRaw "%prof = call ptr @cheap_the()\n"
, UnsafeRaw "call void @cheap_set_profiler(ptr %prof, i1 true)\n"
, UnsafeRaw "call void @cheap_init()\n"
]
lastMainContent :: LLVMValue -> [LLVMIr]
lastMainContent var =