steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

remove some untested function extra/llvm

db4
Matthew Willis 2009-06-16 08:53:16 +09:00
parent f2b4b9236a
commit f55d83a84e
1 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/llvm/llvm.factor
View File

@ -5,7 +5,7 @@ quotations sequences specialized-arrays.alien ;
IN: llvm
: llvm-throw ( char** -- )
*void* [ alien>string ] [ LLVMDisposeMessage ] bi throw ;
[ alien>string ] [ LLVMDisposeMessage ] bi throw ;
DISPOSABLE-CENTRAL: module
CENTRAL: function
@ -76,10 +76,4 @@ M: LLVMExecutionEngine dispose* value>> LLVMDisposeExecutionEngine ;
: global>pointer ( value -- alien ) engine value>> swap LLVMGetPointerToGlobal ;
: find-function ( name -- fn )
engine value>> swap f <void*> [ LLVMFindFunction drop ] keep *void* ;
: llvm-int ( n -- Value )
32 LLVMIntType swap 1 LLVMCreateGenericValueOfInt ;
: prepare-args ( function seq -- f numargs args )
over LLVMCountParams swap [ llvm-int ] map f suffix >void*-array ;
engine value>> swap f <void*> [ LLVMFindFunction drop ] keep *void* ;