[armedbear-cvs] r12997 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Thu Nov  4 11:52:33 2010
New Revision: 12997

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

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

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Thu Nov  4 11:52:33 2010
@@ -6468,7 +6468,7 @@
       (aload tag-register) ; Stack depth is 3.
       ;; 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"
                           (list +lisp-thread+) +lisp-object+)