Changeset 12997

Timestamp:

11/04/10 15:52:33 (12 years ago)

Author:

ehuelsmann

Message:

Truely fix JRockit: actually use the new label to jump to.

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -6469 +6469 @@
       ;; If it's not the tag we're looking for, we branch to the start of the
       ;; catch-all handler, which will do a re-throw.
-      (emit 'if_acmpne DEFAULT-HANDLER) ; Stack depth is 1.
+      (emit 'if_acmpne RETHROW) ; Stack depth is 1.
       (emit-push-current-thread)
       (emit-invokevirtual +lisp-throw+ "getResult"