Changeset 12995 for trunk/abcl/src/org


Ignore:
Timestamp:
11/04/10 10:09:16 (11 years ago)
Author:
ehuelsmann
Message:

Fix JRockit crashing on our byte code.

Found by: Joel Borggrén-Franck

joel (dot) borggren (dot) franck <at> gmail.com

Patch by: me

File:
1 edited

Legend:

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

    r12964 r12995  
    36023602        ;; If it's not the block we're looking for...
    36033603        (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)
    36043608        (label EXTENT-EXIT-HANDLER)
    36053609        ;; Not the tag we're looking for.
Note: See TracChangeset for help on using the changeset viewer.