Changeset 12995

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:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

@@ -3602 +3602 @@
         ;; If it's not the block we're looking for...
         (emit 'if_acmpeq THIS-BLOCK) ; Stack depth is 1.
+        ;; Not the tag we're looking for.
+        (emit 'aconst_null) ;; load null value
+        (emit-move-to-variable (block-id-variable block))
+        (emit 'athrow)
         (label EXTENT-EXIT-HANDLER)
         ;; Not the tag we're looking for.