"{ NameSpace: Smalltalk }"

LLVMDisposableObject subclass:#LLVMBuilder

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'LLVM-Core'

!

!LLVMBuilder class methodsFor:'instance creation'!

new

    ^ LLVM CreateBuilder

    "Created: / 07-07-2015 / 22:38:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder class methodsFor:'generators'!

instructions

    ^ #(

        add:to: (isIntegerOrVector isIntegerOrVector)

        lsrh:by: (isIntegerOrVector isIntegerOrVector)

    )

    "Created: / 11-07-2015 / 13:05:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'constants'!

signedInt16Constant: value

    ^ self signedIntConstant: value type: LLVMType int16

    "Created: / 11-07-2015 / 16:43:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedInt1Constant: value

    ^ self signedIntConstant: value type: LLVMType int1

    "Created: / 11-07-2015 / 16:44:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedInt32Constant: value

    ^ self signedIntConstant: value type: LLVMType int32

    "Created: / 11-07-2015 / 16:44:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedInt64Constant: value

    ^ self signedIntConstant: value type: LLVMType int64

    "Created: / 11-07-2015 / 16:44:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedInt8Constant: value

    ^ self signedIntConstant: value type: LLVMType int8

    "Created: / 11-07-2015 / 16:47:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedIntConstant: value type: type

    self assert: type isIntegerType.

    self assert: value isInteger.

    ^ LLVM ConstInt: type _: value _: 1

    "Created: / 11-07-2015 / 16:41:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

signedIntptrConstant: value

    ^ self signedIntConstant: value type: LLVMType intptr

    "Created: / 11-07-2015 / 16:43:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedInt16Constant: value

    ^ self unsignedIntConstant: value type: LLVMType int16

    "Created: / 11-07-2015 / 16:42:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedInt18Constant: value

    ^ self unsignedIntConstant: value type: LLVMType int8

    "Created: / 11-07-2015 / 16:47:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedInt1Constant: value

    ^ self unsignedIntConstant: value type: LLVMType int1

    "Created: / 11-07-2015 / 16:42:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedInt32Constant: value

    ^ self unsignedIntConstant: value type: LLVMType int32

    "Created: / 11-07-2015 / 16:42:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedInt64Constant: value

    ^ self unsignedIntConstant: value type: LLVMType int64

    "Created: / 11-07-2015 / 16:42:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedIntConstant: value type: type

    self assert: type isIntegerType.

    self assert: value isInteger.

    ^ LLVM ConstInt: type _: value _: 0

    "Created: / 11-07-2015 / 16:41:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

unsignedIntptrConstant: value

    ^ self unsignedIntConstant: value type: LLVMType intptr

    "Created: / 11-07-2015 / 16:42:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'initialization & release'!

dispose

    ^ LLVM DisposeBuilder: self.

    "Modified (comment): / 08-07-2015 / 22:39:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'instructions - binary'!

add:value1 and:value2 

    ^ self add:value1 and:value2 as:''

    "Created: / 07-07-2015 / 22:52:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified (format): / 11-07-2015 / 13:00:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

add:value1 and:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildAdd: self  _: value1 _: value2 _: name

    "Created: / 07-07-2015 / 22:52:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 11-07-2015 / 14:57:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

and:value1 and:value2 

    ^ self and:value1 and:value2 as:''

    "Created: / 11-07-2015 / 14:58:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

and:value1 and:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildAnd: self  _: value1 _: value2 _: name

    "Created: / 11-07-2015 / 14:58:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

ashr:value1 by:value2 

    ^ self ashr:value1 by: value2 as:''

    "Created: / 11-07-2015 / 16:46:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

ashr:value1 by:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildAShr: self  _: value1 _: value2 _: name

    "Created: / 11-07-2015 / 16:46:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

lshr:value1 by:value2 

    ^ self lshr:value1 by: value2 as:''

    "Created: / 11-07-2015 / 13:02:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

lshr:value1 by:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildLShr: self  _: value1 _: value2 _: name

    "Created: / 11-07-2015 / 14:49:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

or:value1 and:value2 

    ^ self or:value1 and:value2 as:''

    "Created: / 11-07-2015 / 17:17:07 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

or:value1 and:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildOr: self  _: value1 _: value2 _: name

    "Created: / 11-07-2015 / 17:16:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

shl:value1 by:value2 

    ^ self shl:value1 by: value2 as:''

    "Created: / 11-07-2015 / 16:37:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

shl:value1 by:value2 as: name

    self assert: (value1 isKindOf: LLVMValue).

    self assert: (value1 isIntegerOrVectorValue).

    self assert: (value2 isKindOf: LLVMValue).

    self assert: (value2 isIntegerOrVectorValue).

    self assert: (name isSingleByteString).

    ^LLVM BuildShl: self  _: value1 _: value2 _: name

    "Created: / 11-07-2015 / 16:37:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'instructions - other'!

call: function with: arg1

    ^ self call: function withArguments: (Array with: arg1) as: ''.

    "Created: / 17-07-2015 / 12:48:24 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

call: function with: arg1 with: arg2

    ^ self call: function withArguments: (Array with: arg1 with: arg2) as: ''.

    "Created: / 17-07-2015 / 12:48:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

call: function with: arg1 with: arg2 with: arg3

    ^ self call: function withArguments: (Array with: arg1 with: arg2 with: arg3) as: ''.

    "Created: / 17-07-2015 / 12:48:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

call: function withArguments: arguments

    ^ self call: function withArguments: arguments as: ''.

    "Created: / 17-07-2015 / 12:47:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

call: function withArguments: arguments as: name

    | argumentsArray argumentsSize |

    self assert: (function isKindOf: LLVMFunction).

    self assert: (arguments isCollection).

    arguments do:[:argument | 

        self assert: (argument isKindOf:LLVMValue).  

    ].

    self assert: name isSingleByteString.

    argumentsSize := arguments size.

    argumentsArray := arguments asLLVMObjectArray.

    ^ LLVM BuildCall: self _: function _: argumentsArray _: argumentsSize _: name

    "Created: / 17-07-2015 / 11:09:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'instructions - terminators'!

ret:value1 

    self assert: (value1 isKindOf: LLVMValue).

    ^ LLVM BuildRet: self _: value1

    "Created: / 07-07-2015 / 22:55:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder methodsFor:'positioning'!

positionAtEnd: basicBlock

    LLVM PositionBuilderAtEnd: self  _: basicBlock

    "Created: / 07-07-2015 / 22:45:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!LLVMBuilder class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !