Fix in JavaVM for exception debugging. development
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 15 Nov 2013 23:00:36 +0000
branchdevelopment
changeset 2925 a77c05c8cd68
parent 2924 0479c114bcc0
child 2926 223fb480e1fb
Fix in JavaVM for exception debugging. Again, #name -> #binaryName problem.
JavaVM.st
--- 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