--- a/compiler/TSimpleType.st	Wed Aug 26 07:51:18 2015 +0100
+++ b/compiler/TSimpleType.st	Mon Aug 31 13:53:40 2015 +0100
@@ -37,6 +37,35 @@
     "Created: / 25-08-2015 / 23:34:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!TSimpleType methodsFor:'conversion'!
+
+asLLVMTypeInModule: aLLVMModule
+    "Return the type as LLVMType"
+
+    "/ Q&D hack for builtin types, sigh...
+    name = 'i1' ifTrue:[ 
+        ^ LLVMType int1
+    ].
+    name = 'i8' ifTrue:[ 
+        ^ LLVMType int1
+    ].
+    name = 'i32' ifTrue:[ 
+        ^ LLVMType int32
+    ].
+    name = 'i64' ifTrue:[ 
+        ^ LLVMType int64
+    ].
+    name = 'iptr' ifTrue:[ 
+        ^ LLVMType intptr
+    ].
+    name = 'SmallInteger' ifTrue:[ 
+        ^ LLVMType intptr
+    ].                  
+    self notYetImplemented
+
+    "Created: / 31-08-2015 / 09:06:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !TSimpleType methodsFor:'initialization'!
 
 initializeWithName: aString