--- a/compiler/TConstantBinding.st	Mon Sep 14 16:27:00 2015 +0100
+++ b/compiler/TConstantBinding.st	Wed Sep 16 05:29:43 2015 +0100
@@ -12,10 +12,10 @@
 
 !TConstantBinding class methodsFor:'instance creation'!
 
-value: anObject
-    ^ self new initializeWithValue: anObject
+value: anObject type: aTType
+    ^ self new initializeWithValue: anObject type: aTType
 
-    "Created: / 25-08-2015 / 23:14:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 15-09-2015 / 08:19:32 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'accessing'!
@@ -37,16 +37,11 @@
 
 !TConstantBinding methodsFor:'initialization'!
 
-initializeWithValue: anObject
+initializeWithValue: anObject type: aTType
     value := anObject.
-    value class == SmallInteger ifTrue:[ 
-        type := TSimpleType named: 'tSIntegerW'.
-        ^ self.
-    ].
-    self error: 'Unsupported constant'
+    type := aTType.
 
-    "Created: / 25-08-2015 / 23:15:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 14-09-2015 / 15:18:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 15-09-2015 / 08:19:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !TConstantBinding methodsFor:'testing'!