Changeset 12997


Ignore:
Timestamp:
11/04/10 15:52:33 (11 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r12996 r12997  
    64696469      ;; If it's not the tag we're looking for, we branch to the start of the
    64706470      ;; catch-all handler, which will do a re-throw.
    6471       (emit 'if_acmpne DEFAULT-HANDLER) ; Stack depth is 1.
     6471      (emit 'if_acmpne RETHROW) ; Stack depth is 1.
    64726472      (emit-push-current-thread)
    64736473      (emit-invokevirtual +lisp-throw+ "getResult"
Note: See TracChangeset for help on using the changeset viewer.