Changeset 14989


Ignore:
Timestamp:
Sep 18, 2011, 10:33:10 AM (8 years ago)
Author:
gb
Message:

In NX1-TRANSITIVELY-PUNT-BINDINGS, zero out out (VAR-REFS VAR) after
adding its value to (VAR-REFS BOUNDTO). That works better than doing
it before.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/nx0.lisp

    r14982 r14989  
    13601360                                (%ilsl $vbitpuntable 1)
    13611361                                varbits))
    1362           (setf (var-refs var) 0
    1363                 (var-refs boundto) (+ (var-refs var) (var-refs boundto)))
     1362          (setf (var-refs boundto) (+ (var-refs var) (var-refs boundto))
     1363                (var-refs var) 0)
    13641364          (nx-set-var-root-nrefs boundto
    13651365                                 (+ (1- boundtocount) varcount)))))))
Note: See TracChangeset for help on using the changeset viewer.