Grom a écrit :
Download the 2.9 version ( source code ) http://llvm.org/releases/
- Extract to your desktop
- Open Terminal and go into llvm-2.9 directories
- ./configure --enable-shared
- make
- Drink coffee 20 mins
idle a écrit :suddenly I feel like kcc, very happy my code compiled!
)Moi c'est pareil. Depuis le temps, je devrais le savoir mais je ne sais toujours pas.Kwai chang caine a écrit :Je ne sais pas à quoi ça sert, comme dab, mais quand on te fait un cadeau, faut toujours dire merci
I don't know what is the function of this code, like usually, but when somebody give a present, it's important to always say thanks
Thanks a lot IDLE
Code : Tout sélectionner
*mem = allocatememory(X)
pokeI(*mem,LLVMInt32Type())
pokeI(*mem+4,#null)
pokeI(*mem+8,LLVMInt8Type())
pokeI(*mem+12,#null)
pokeI(*mem+16,#null) ;Don't know if you need to terminate a varArg with a null I assume you do
vArg = LLVMBuildVAArg(Builder,*mem,intType,"whatever");
Code : Tout sélectionner
;mul function x*y
;shows how to create a functions with more than one parameter
;Dim paramType(2) ;Pass in a Array of llvmtypes
;paramType(0) = intType
;parmaType(1) = intType
;FunctionReturnType = LLVMFunctionType(IntType,@paramType(0),2,0)
;To access the parameters note how they're obtained
;ArgX = LLVMGetFirstParam(mulf) ; by the function pointer
;ArgY = LLVMGetNextParam(ArgX) ; by the first Argument pointer
IncludeFile "llvm-2.9.pbi"
;dirty helper to read var arg strings
Procedure.s ReadVarString(*chr)
;there's an odd interaction with the c lib makes a second call
;which results in a IMA
;*chr is either 0 or some value offset from 0 like the length of the string from previous call
;this action only appears to comes from error messages but if your outputting to console
;checking *chr > 64000 avoids the IMA (needs fixing though)
Protected strout.s
If *chr > 64000
strout = PeekS(*chr)
EndIf
ProcedureReturn strout
EndProcedure
Procedure CreateMulFunction(M.i,Context.i)
Protected FunctionReturnType
Protected IntType
intType = LLVMInt32Type()
Dim paramType.i(2)
paramType(0)=IntType
paramType(1)=IntType
;Function returns an int And takes two ints as parameters.
FunctionReturnType = LLVMFunctionType(IntType,@paramType(0),2,0)
;Create the mul function definition And insert it into the module M.
mulF = LLVMAddFunction(M, "Mult",FunctionReturnType)
;Set the function call convention to FastCall so it can utilize tail call
LLVMSetFunctionCallConv(mulf,#LLVMFastCallConv)
;Add Entry basic block To the function.
BB = LLVMAppendBasicBlockInContext(Context, mulF, "Entry")
;Get a pointer to the ArgX.i and add to function...
ArgX = LLVMGetFirstParam(mulF) ; Get the arg from function pointer .
LLVMSetValueName(ArgX, "ArgX") ; Give it a symbolic name.
;Get pointer to second argY note you pass in the pointer to the first arg
ArgY = LLVMGetNextParam(ArgX) ;Get arg from first Argument pointer
LLVMSetValueName(ArgY, "ArgY") ;
;Create the intstruction Builder .
Builder = LLVMCreateBuilderInContext(Context)
;Set the builder to insert at the first BasicBlock.
LLVMPositionBuilderAtEnd(Builder, BB)
;Create the operation
Res = LLVMBuildMul(Builder,ArgX,ArgY,"x*y")
;Create a return block
RetBB = LLVMAppendBasicBlockInContext(Context, MulF, "return")
;build a jmp to the return block ( the optimizer will remove the jmp if it's not needed)
LLVMBuildBr(Builder,RetBB)
LLVMPositionBuilderAtEnd(Builder, RetBB)
;build the return instruction
LLVMBuildRet(Builder,Res)
;Don't forget to free the builder.
LLVMDisposeBuilder(Builder)
;Return the function ref
ProcedureReturn mulF
EndProcedure
Procedure main(x,y)
Protected errStr.s
Protected EE.i
LLVMLinkInJIT()
Context = LLVMGetGlobalContext()
;Create a module for our function.
M = LLVMModuleCreateWithNameInContext("test mult", Context)
;make mul function
mulF = CreateMulFunction(M, Context)
;Create JIT engine execution
If LLVMCreateExecutionEngineForModule(@EE, M, pStr)
PrintN(ReadVarString(pStr))
LLVMDisposeMessage(pStr)
Input()
End
EndIf
;Verify module
PrintN("verifying module")
If LLVMVerifyModule(M, #LLVMPrintMessageAction,pStr)
PrintN("Error constructing function!")
PrintN(ReadVarString(pstr))
LLVMDisposeMessage(pStr)
Input()
End
EndIf
PrintN("OK")
PrintN("Test module succeded")
PrintN("Run mul(" + Str(x) + "*" + Str(y) + ") in JIT");
;Call the Mul function With the arguments x,y:
Dim arg.i(2)
Arg(0) = LLVMCreateGenericValueOfInt(LLVMInt32Type(), x, 1)
Arg(1) = LLVMCreateGenericValueOfInt(LLVMInt32Type(), y, 1)
;Run function
GV = LLVMRunFunction(EE, MulF,2,@Arg(0))
;convert the result
PrintN("Jit Result: ")
PrintN(Str(LLVMGenericValueToInt(GV, 1)))
;clean up
LLVMDisposeGenericValue(Arg)
LLVMDisposeGenericValue(GV)
LLVMDisposeExecutionEngine(EE)
EndProcedure
OpenConsole()
PrintN("enter value for x")
X = Val(Input())
PrintN("enter value for y")
Y = Val(Input())
main(x,y)
PrintN("")
PrintN("Press enter to quit")
Input()
CloseConsole()
Code : Tout sélectionner
NewFunction("fib",#QuadType)
AddFunctionParam("fib",argx)
DeclareFunction(Context,Module,"fib")
CreateFunction(Context,Module,"fib")
AddFunctionProtectedVar("fib",aa)
AddFunctionProtectedVar("fib",bb)
AddFunctionProtectedVar("fib",cc)
AddFunctionCmp("fib",#LLVMIntSLE,argx,p4)
AddFunctionReturn("fib",p5)
AddFunctionElse("fib")
AddFunctionWhile("fib",#LLVMIntSGT,argX,p6)
push(lexp(),aa)
push(ops(),#LLVMAdd)
push(lexp(),bb)
push(ops(),#LLVMAssign)
push(lexp(),cc)
Expr() ;c = a + b
push(lexp(),bb)
push(ops(),#LLVMAssign)
push(lexp(),aa)
Expr() ;b = a
push(lexp(),aa)
push(ops(),#LLVMAssign)
push(lexp(),cc)
expr() ;a = c
push(lexp(),argX)
push(ops(),#LLVMsub)
push(lexp(),one)
push(lexp(),argX)
push(ops(),#LLVMAssign)
expr() ; Argx - 1
AddfunctionWend("fib")
AddFunctionReturn("fib",cc)