llvm.ffi: add-library if found, should fix loading failures

extra/llvm/ffi/ffi.factor

@@ -1,11 +1,11 @@
 ! Copyright (C) 2009 Matthew Willis, 2017 Björn Lindqvist
 ! See http://factorcode.org/license.txt for BSD license.
-USING: alien alien.c-types alien.destructors alien.libraries
-alien.syntax ldcache ;
+USING: alien alien.c-types alien.libraries alien.syntax kernel
+ldcache ;
 IN: llvm.ffi
 
 <<
-"llvm" "LLVM-3.9" find-so cdecl add-library
+"llvm" "LLVM-3.9" find-so [ cdecl add-library ] [ drop ] if*
 >>
 
 LIBRARY: llvm
@@ -35,20 +35,22 @@ TYPEDEF: void* LLVMPassRegistryRef
 ! Type types
 ENUM: LLVMTypeKind
     LLVMVoidTypeKind
+    LLVMHalfTypeKind
     LLVMFloatTypeKind
     LLVMDoubleTypeKind
     LLVMX86_FP80TypeKind
     LLVMFP128TypeKind
     LLVMPPC_FP128TypeKind
     LLVMLabelTypeKind
-  LLVMMetadataTypeKind
     LLVMIntegerTypeKind
     LLVMFunctionTypeKind
     LLVMStructTypeKind
     LLVMArrayTypeKind
     LLVMPointerTypeKind
-  LLVMOpaqueTypeKind
-  LLVMVectorTypeKind ;
+    LLVMVectorTypeKind
+    LLVMMetadataTypeKind
+    LLVMX86_MMXTypeKind
+    LLVMTokenTypeKind ;
 
 ! Modules
 FUNCTION: LLVMModuleRef LLVMModuleCreateWithName ( c-string ModuleID )
@@ -68,6 +70,9 @@ FUNCTION: LLVMTypeRef LLVMFunctionType ( LLVMTypeRef ReturnType,
                                          LLVMTypeRef* ParamTypes,
                                          unsigned ParamCount, int IsVarArg )
 FUNCTION: LLVMTypeKind LLVMGetTypeKind ( LLVMTypeRef Ty )
+FUNCTION: LLVMTypeRef LLVMGetReturnType ( LLVMTypeRef FunctionTy )
+FUNCTION: LLVMTypeRef LLVMGetElementType ( LLVMTypeRef Ty )
+FUNCTION: unsigned LLVMGetIntTypeWidth ( LLVMTypeRef IntegerTy )
 
 ! Values
 FUNCTION: LLVMValueRef LLVMAddFunction ( LLVMModuleRef M,
@@ -78,6 +83,7 @@ FUNCTION: LLVMValueRef LLVMGetParam ( LLVMValueRef Fn,
 FUNCTION: c-string LLVMGetValueName ( LLVMValueRef Val )
 FUNCTION: unsigned LLVMCountParams ( LLVMValueRef Fn )
 FUNCTION: LLVMTypeRef LLVMTypeOf ( LLVMValueRef Val )
+FUNCTION: void LLVMDumpValue ( LLVMValueRef Val )
 
 ! Basic blocks
 FUNCTION: LLVMBasicBlockRef LLVMAppendBasicBlock ( LLVMValueRef Fn,

extra/llvm/tags.txt

@@ -1,3 +1,2 @@
 not tested
-not loaded
 compiler