--- a/compiler/TConstantBinding.st	Mon Aug 31 18:37:31 2015 +0100
+++ b/compiler/TConstantBinding.st	Wed Sep 02 09:18:00 2015 +0100
@@ -24,29 +24,18 @@
     ^ value
 ! !
 
-!TConstantBinding methodsFor:'conversion'!
-
-asLLVMValueInModule: anLLVMModule
-    value isInteger ifTrue:[ 
-        ^ LLVMConstant sint: value type: (type asLLVMTypeInModule: anLLVMModule)
-    ].
-    self notYetImplemented
-
-    "Created: / 31-08-2015 / 12:22:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !TConstantBinding methodsFor:'initialization'!
 
 initializeWithValue: anObject
     value := anObject.
     value class == SmallInteger ifTrue:[ 
-        type := TSimpleType named: 'SmallInteger'.
+        type := TSimpleType named: 'tSmallInteger'.
         ^ self.
     ].
     self error: 'Unsupported constant'
 
     "Created: / 25-08-2015 / 23:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 31-08-2015 / 12:24:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 01-09-2015 / 21:55:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'testing'!