From f55d83a84eac5f7416ee865c06422bbc8c8e6f55 Mon Sep 17 00:00:00 2001 From: Matthew Willis <matthew.willis@mac.com> Date: Tue, 16 Jun 2009 08:53:16 +0900 Subject: [PATCH] remove some untested function extra/llvm --- extra/llvm/llvm.factor | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/extra/llvm/llvm.factor b/extra/llvm/llvm.factor index 8c6385e05d..f5538be2c1 100644 --- a/extra/llvm/llvm.factor +++ b/extra/llvm/llvm.factor @@ -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 ; \ No newline at end of file + engine value>> swap f <void*> [ LLVMFindFunction drop ] keep *void* ; \ No newline at end of file