Changeset 8412


Ignore:
Timestamp:
01/30/05 12:46:41 (16 years ago)
Author:
piso
Message:

Work in progress (tested).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/j/src/org/armedbear/lisp/jvm.lisp

    r8410 r8412  
    22;;;
    33;;; Copyright (C) 2003-2005 Peter Graves
    4 ;;; $Id: jvm.lisp,v 1.377 2005-01-29 17:17:59 piso Exp $
     4;;; $Id: jvm.lisp,v 1.378 2005-01-30 12:46:41 piso Exp $
    55;;;
    66;;; This program is free software; you can redistribute it and/or
     
    34413441          (push tag local-tags)
    34423442          (push tag *visible-tags*))))
    3443 
    3444     ;; FIXME Pass 1 doesn't detect all non-local GOs! (HANDLER-CASE.17)
    3445     ;; So we do this unconditionally for now...
    3446     (when (or t (block-non-local-go-p block))
     3443    (when (block-non-local-go-p block)
    34473444      (setf environment-register (allocate-register))
    34483445      (emit-push-current-thread)
    34493446      (emit 'getfield +lisp-thread-class+ "lastSpecialBinding" +lisp-binding+)
    34503447      (emit 'astore environment-register))
    3451 
    34523448    (label BEGIN-BLOCK)
    34533449    (do* ((rest body (cdr rest))
Note: See TracChangeset for help on using the changeset viewer.