--- a/JavaStringRef2.st Fri Feb 14 14:27:26 2014 +0100
+++ b/JavaStringRef2.st Wed Jan 28 03:12:08 2015 +0100
@@ -1,9 +1,9 @@
"
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
@@ -20,6 +20,8 @@
"
"{ Package: 'stx:libjava' }"
+"{ NameSpace: Smalltalk }"
+
JavaRef2 subclass:#JavaStringRef2
instanceVariableNames:'valueIndex'
classVariableNames:''
@@ -31,11 +33,11 @@
copyright
"
- COPYRIGHT (c) 1996-2011 by Claus Gittinger
+ COPYRIGHT (c) 1996-2015 by Claus Gittinger
New code and modifications done at SWING Research Group [1]:
- COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
+ COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
SWING Research Group, Czech Technical University in Prague
This software is furnished under a license and may be used
@@ -51,6 +53,22 @@
as of 1.9.2010
"
+!
+
+documentation
+"
+ A java.lang.String literal value.
+
+ [author:]
+ Jan Vrany <jan.vrany@fit.cvut.cz>
+
+ [instance variables:]
+
+ [class variables:]
+
+ [see also:]
+
+"
! !
!JavaStringRef2 class methodsFor:'instance creation'!
@@ -76,7 +94,7 @@
findResolvedValue: doClassInit
| myIndex |
- valueCache :=
+ resolvedValue :=
JavaVM
javaStringObjectForString: (constantPool at: valueIndex)
interned: true.
@@ -89,7 +107,7 @@
"/ myIndex := constantPool identityIndexOf: self.
"/ myIndex == 0 ifTrue:[self error:'Constant pool messed up. Should not happen'].
"/ constantPool at: myIndex put: valueCache.
- ^ valueCache.
+ ^ resolvedValue.
"Created: / 13-05-2011 / 17:21:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Created: / 23-02-2012 / 17:18:21 / Marcel Hlopko <hlopik@gmail.com>"
@@ -102,13 +120,13 @@
"Created: / 13-05-2011 / 17:20:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
!
-invalidateForClass: internalJavaClassName
- "Invalidates receiver iff it refers (even indirectly)
- to a class ref that has been resolved to given class.
- Returns true, if the receiver has been invalidated,
- false otherwise"
-
- ^false
+invalidateForClass: internalJavaClassName
+ "Invalidates receiver iff it refers (even indirectly)
+ to a class ref that has been resolved to given class.
+ Returns true, if the receiver has been invalidated,
+ false otherwise"
+
+ ^ false
"Created: / 13-05-2011 / 17:22:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 22-02-2012 / 20:52:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -157,7 +175,7 @@
!JavaStringRef2 class methodsFor:'documentation'!
version_CVS
- ^ '$Header: /cvs/stx/stx/libjava/JavaStringRef2.st,v 1.5 2013-09-06 00:41:26 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libjava/JavaStringRef2.st,v 1.6 2015-01-28 02:10:50 vrany Exp $'
!
version_HG
@@ -166,6 +184,6 @@
!
version_SVN
- ^ '§Id§'
+ ^ 'Id'
! !