2017-07-12 09:19:07 -04:00
|
|
|
USING: accessors alien destructors io.pathnames kernel llvm.ffi
|
2017-07-12 22:00:23 -04:00
|
|
|
llvm.reader llvm.wrappers tools.test ;
|
2017-07-12 09:19:07 -04:00
|
|
|
IN: llvm.wrappers.tests
|
|
|
|
|
2017-07-12 22:00:23 -04:00
|
|
|
CONSTANT: ADD.BC "resource:extra/llvm/wrappers/add.bc"
|
|
|
|
|
2017-07-12 09:19:07 -04:00
|
|
|
{ 728 t } [
|
2017-07-12 22:00:23 -04:00
|
|
|
ADD.BC absolute-path <buffer>
|
2017-07-12 09:19:07 -04:00
|
|
|
[ value>> [ LLVMGetBufferSize ] keep ] with-disposal alien?
|
|
|
|
] unit-test
|
2017-07-12 22:00:23 -04:00
|
|
|
|
|
|
|
{ "sum" 2 } [
|
|
|
|
ADD.BC absolute-path load-module <engine>
|
|
|
|
"sum" find-function [ LLVMGetValueName ] [ LLVMCountParams ] bi
|
|
|
|
] unit-test
|