--- a/src/JavaClassReader.st Sun Oct 30 13:04:54 2011 +0000
+++ b/src/JavaClassReader.st Sun Oct 30 17:12:34 2011 +0000
@@ -258,7 +258,7 @@
class isNil ifTrue:[
JavaVM booted ifFalse:[
- self breakPoint:#jv info: 'Should not happen!!'.
+ ^nil
].
JavaClassReader classLoaderQuerySignal answer: JavaVM systemClassLoader do:[
class := self
@@ -272,7 +272,7 @@
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 20-10-1998 / 17:24:54 / cg"
"Modified: / 21-10-2011 / 13:39:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified: / 30-10-2011 / 13:14:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 30-10-2011 / 16:50:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readClass: className ignoring: classesBeingLoadedOrNil classPath: classPath
@@ -369,17 +369,11 @@
javaClass setBinaryFilePath: (inStream pathName).
].
inStream close.
- AbsolutelySilent ifFalse: [
- Logger
- log: 'loaded class ' , javaClass displayString
- severity: #info
- facility: 'JVM'.
- ].
^ javaClass.
"Created: / 15-04-1996 / 14:58:53 / cg"
"Modified: / 09-05-1998 / 01:44:24 / cg"
- "Modified: / 14-09-2011 / 22:20:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 30-10-2011 / 18:01:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
readStream: aStream
@@ -397,8 +391,7 @@
| javaClass |
- javaClass := JavaClassReader new readStream: aStream
- ignoring: classesBeingLoaded.
+ javaClass := JavaClassReader new readStream: aStream ignoring: classesBeingLoaded.
Logger
log: 'loaded class ' , javaClass displayString
severity: #info
@@ -408,6 +401,7 @@
"Modified: / 30-03-1998 / 18:14:40 / cg"
"Modified: / 09-05-2011 / 23:15:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
"Modified: / 14-09-2011 / 22:21:34 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (format): / 30-10-2011 / 18:02:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!JavaClassReader class methodsFor:'obsolete'!