JavaMethodWithException.st
changeset 3290 76d4443744ed
parent 3232 1ab5987f3982
child 3324 a58245c0e83a
--- a/JavaMethodWithException.st	Mon Dec 08 18:08:33 2014 +0000
+++ b/JavaMethodWithException.st	Mon Dec 08 23:03:45 2014 +0000
@@ -65,18 +65,24 @@
     "Return a collection of declared exception classes that this method
      throws"    
     exceptionTable isNil ifTrue: [ ^ nil ].
-    ^ exceptionTable collect: [:classRef | classRef resolve ].
+    ^ self exceptionTable collect: [:classRef | classRef resolve ].
 
     "Created: / 01-08-2012 / 10:09:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2014 / 14:29:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 exceptionTable
     "return exception table - collection of classRefs"
-    ^ exceptionTable.
+
+    | cp |
+
+    exceptionTable isNil ifTrue:[ ^ nil ].
+    cp := self constantPool.
+    ^ exceptionTable collect:[ :classRefIndex | cp at: classRefIndex ]
 
     "Created: / 05-11-1998 / 19:58:38 / cg"
-    "Modified: / 04-02-2011 / 22:07:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 04-06-2011 / 17:20:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
+    "Modified: / 04-12-2014 / 14:30:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 getExceptionTable
@@ -101,9 +107,10 @@
     "copy values from another javaMethod"
 
     super fromMethod:aJavaMethod.
-    exceptionTable := aJavaMethod exceptionTable
+    exceptionTable := aJavaMethod getExceptionTable
 
     "Created: / 14-08-2014 / 12:39:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 04-12-2014 / 14:31:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !JavaMethodWithException class methodsFor:'documentation'!