LLVMBasicBlock.st
changeset 22 789a35bd30ac
parent 14 c7dea3fcc5a7
child 28 97013ae2abae
--- 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>"
 ! !