Changeset 12995
- Timestamp:
- 11/04/10 10:09:16 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
r12964 r12995 3602 3602 ;; If it's not the block we're looking for... 3603 3603 (emit 'if_acmpeq THIS-BLOCK) ; Stack depth is 1. 3604 ;; Not the tag we're looking for. 3605 (emit 'aconst_null) ;; load null value 3606 (emit-move-to-variable (block-id-variable block)) 3607 (emit 'athrow) 3604 3608 (label EXTENT-EXIT-HANDLER) 3605 3609 ;; Not the tag we're looking for.
Note: See TracChangeset
for help on using the changeset viewer.