Fix in JavaVM for exception debugging.
Again, #name -> #binaryName problem.
--- a/JavaVM.st Fri Nov 15 22:39:13 2013 +0000
+++ b/JavaVM.st Fri Nov 15 23:00:36 2013 +0000
@@ -2841,6 +2841,7 @@
ExceptionDebugPatterns add: 'java/lang/RuntimeException'.
ExceptionDebugPatterns add: 'java/lang/ClassCastException'.
ExceptionDebugPatterns add: 'java/lang/IllegalAccess*'.
+ ExceptionDebugPatterns add: 'java/util/zip/ZipException'.
@@ -2848,7 +2849,7 @@
"
"Created: / 25-02-2011 / 08:08:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (comment): / 14-09-2013 / 23:59:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified (comment): / 15-11-2013 / 22:52:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
monitorTrace
@@ -3471,7 +3472,7 @@
tmpMessage := Java as_ST_String: tmpMessage
].
Logger
- log: 'JAVA: exception: ' , aJavaException class fullName , ' ('
+ log: 'JAVA: exception: ' , aJavaException class binaryName , ' ('
, tmpMessage , ')'
severity: #debug
facility: 'JVM'
@@ -3481,10 +3482,10 @@
(ExceptionDebugPatterns isNilOrEmptyCollection
or: [
ExceptionDebugPatterns
- anySatisfy: [:pattern | pattern match: aJavaException class fullName ]
+ anySatisfy: [:pattern | pattern match: aJavaException class binaryName ]
])
ifTrue: [
- self halt: ('JAVA: exceptionDebug: ' , aJavaException class fullName)
+ self halt: ('JAVA: exceptionDebug: ' , aJavaException class binaryName )
]
].
@@ -3579,7 +3580,7 @@
"Created: / 07-01-1998 / 15:28:22 / cg"
"Modified: / 24-12-1999 / 02:33:25 / cg"
"Modified: / 01-12-2011 / 18:32:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
- "Modified: / 08-10-2013 / 22:49:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 15-11-2013 / 22:55:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
throwExceptionClassName: aJavaExceptionClassName withMessage: someMessage