--- a/LLVMBasicBlock.st Fri Aug 07 14:10:48 2015 +0100
+++ b/LLVMBasicBlock.st Sat Aug 08 04:43:00 2015 +0100
@@ -16,7 +16,7 @@
"{ NameSpace: Smalltalk }"
LLVMObject subclass:#LLVMBasicBlock
- instanceVariableNames:'module'
+ instanceVariableNames:'function'
classVariableNames:''
poolDictionaries:''
category:'LLVM-S-Core'
@@ -42,13 +42,39 @@
!LLVMBasicBlock methodsFor:'accessing'!
-module
- ^ module
+builder
+ "Return a builder positioned at the end of the receiver"
+
+ | builder |
+
+ builder := LLVMBuilder new.
+ builder positionAtEnd: self.
+ ^ builder
+
+ "Created: / 08-08-2015 / 03:25:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+function
+ ^ function
+
+ "Created: / 08-08-2015 / 03:22:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!LLVMBasicBlock methodsFor:'converting'!
+
+asLLVMValue
+ "Return representation of the receiver as LLVMValue"
+
+ ^ LLVM BasicBlockAsValue: self
+
+ "Created: / 08-08-2015 / 02:11:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!LLVMBasicBlock methodsFor:'initialization'!
-module:aLLVMModule
- module := aLLVMModule.
+function:anLLVMFunction
+ function := anLLVMFunction.
+
+ "Created: / 08-08-2015 / 03:22:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !