Changeset 13152


Ignore:
Timestamp:
01/16/11 10:45:55 (11 years ago)
Author:
ehuelsmann
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/unsafe-p-removal/abcl/src/org/armedbear/lisp/jvm.lisp

    r13151 r13152  
    684684        (let ((target-block (jump-target-block node)))
    685685          (and (null (jump-non-local-p node))
    686                (eq (node-compiland target-block) *current-compiland*)
    687686               (member target-block *blocks*))))
    688687      (when (tagbody-node-p node) (tagbody-non-local-go-p node))
Note: See TracChangeset for help on using the changeset viewer.