JavaField.st
changeset 3294 1013708261a8
parent 3196 d617b4590431
child 3324 a58245c0e83a
--- a/JavaField.st	Sun Dec 07 02:16:08 2014 +0000
+++ b/JavaField.st	Mon Dec 08 16:37:02 2014 +0000
@@ -22,7 +22,7 @@
 
 Object subclass:#JavaField
 	instanceVariableNames:'accessFlags class name descriptor signature index constantValue
-		annotations constantPool'
+		annotations'
 	classVariableNames:'A_FINAL A_PRIVATE A_PROTECTED A_PUBLIC A_STATIC A_TRANSIENT
 		A_VOLATILE A_SMALLTALK A_SYNTHETIC A_ENUM FieldTypeClasses'
 	poolDictionaries:''
@@ -152,11 +152,10 @@
 !
 
 constantPool
-
-    ^ constantPool
+    ^ class constantPool
 
     "Created: / 17-12-2010 / 18:40:23 / Marcel Hlopko <hlopik@gmail.com>"
-    "Modified: / 27-07-2011 / 09:38:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 08-12-2014 / 16:20:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 constantValue
@@ -194,7 +193,7 @@
     ].
     ^ index
 
-    "Modified: / 04-08-2014 / 15:55:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 08-12-2014 / 16:30:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 javaClass
@@ -229,14 +228,6 @@
     "Created: / 27-07-2011 / 09:27:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-setConstantPool:aJavaContantPool
-
-    constantPool := aJavaContantPool.
-
-    "Created: / 17-12-2010 / 18:41:59 / Marcel Hlopko <hlopik@gmail.com>"
-    "Created: / 27-07-2011 / 09:30:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 setConstantValue:something
     constantValue := something.