: (engine) ( provider -- engine )
[
- value>> f <void*> f <void*>
+ value>> f void* <ref> f void* <ref>
[ swapd 0 swap LLVMCreateJITCompiler drop ] 2keep
- *void* [ llvm-throw ] when* *void*
+ void* deref [ llvm-throw ] when* void* deref
]
[ t >>disposed drop ] bi
engine <dispose> ;
M: buffer dispose* value>> LLVMDisposeMemoryBuffer ;
: <buffer> ( path -- module )
- f <void*> f <void*>
+ f void* <ref> f void* <ref>
[ LLVMCreateMemoryBufferWithContentsOfFile drop ] 2keep
- *void* [ llvm-throw ] when* *void* buffer <dispose> ;
\ No newline at end of file
+ void* deref [ llvm-throw ] when* void* deref buffer <dispose> ;