LLVMTypePointer.st
changeset 50 dbda820d4d24
parent 38 52be9bfdf7e1
child 53 bbf3a88e2358
--- 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