Changeset 13152

Timestamp:

01/16/11 10:45:55 (13 years ago)

Author:

ehuelsmann

Message:

A jump being local already implies it's within the same compiland.

File:

• branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp (modified) (1 diff)

branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp

@@ -684 +684 @@
         (let ((target-block (jump-target-block node)))
           (and (null (jump-non-local-p node))
-               (eq (node-compiland target-block) *current-compiland*)
                (member target-block *blocks*))))
       (when (tagbody-node-p node) (tagbody-non-local-go-p node))