--- a/LLVMTypePointer.st Wed Oct 07 06:10:55 2015 +0100
+++ b/LLVMTypePointer.st Mon Oct 12 20:52:13 2015 +0100
@@ -42,6 +42,12 @@
!LLVMTypePointer methodsFor:'accessing'!
+pointee
+ ^ LLVM GetElementType: self
+
+ "Created: / 12-10-2015 / 16:23:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
sizeInBits
"For integer, pointer, FP types, return the size in bits. For all
other types, throw an LLVMTypeError.
@@ -54,6 +60,16 @@
"Created: / 13-08-2015 / 17:03:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
+!LLVMTypePointer methodsFor:'inspecting'!
+
+inspectorExtraAttributes
+ ^ super inspectorExtraAttributes
+ at: '-pointee' put: self pointee;
+ yourself.
+
+ "Created: / 12-10-2015 / 17:02:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
!LLVMTypePointer methodsFor:'testing'!
isPointerType