Changeset 12997
- Timestamp:
- 11/04/10 15:52:33 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12996 r12997 6469 6469 ;; If it's not the tag we're looking for, we branch to the start of the 6470 6470 ;; 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. 6472 6472 (emit-push-current-thread) 6473 6473 (emit-invokevirtual +lisp-throw+ "getResult"
Note: See TracChangeset
for help on using the changeset viewer.