Changeset 12996 for trunk/abcl/src/org


Ignore:
Timestamp:
11/04/10 13:41:38 (11 years ago)
Author:
ehuelsmann
Message:

Fix JRockit crashing on our byte code - second occurrance.

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

    r12995 r12996  
    64486448           (END-PROTECTED-RANGE (gensym))
    64496449           (THROW-HANDLER (gensym))
     6450           (RETHROW (gensym))
    64506451           (DEFAULT-HANDLER (gensym))
    64516452           (EXIT (gensym)))
     
    64746475      (emit-move-from-stack target) ; Stack depth is 0.
    64756476      (emit 'goto EXIT)
     6477      (label RETHROW) ; Start of handler for all other Throwables.
     6478      ;; A Throwable object is on the runtime stack here. Stack depth is 1.
     6479      (emit-push-current-thread)
     6480      (emit-invokevirtual +lisp-thread+ "popCatchTag" nil nil)
     6481      (emit 'athrow) ; Re-throw.
    64766482      (label DEFAULT-HANDLER) ; Start of handler for all other Throwables.
    64776483      ;; A Throwable object is on the runtime stack here. Stack depth is 1.
Note: See TracChangeset for help on using the changeset viewer.