Changeset 14989

Timestamp:

Sep 18, 2011, 3:33:10 AM (13 years ago)

Author:

Gary Byers

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:

• trunk/source/compiler/nx0.lisp (modified) (1 diff)

trunk/source/compiler/nx0.lisp

@@ -1360 +1360 @@
                                 (%ilsl $vbitpuntable 1)
                                 varbits))
-          (setf (var-refs var) 0
-                (var-refs boundto) (+ (var-refs var) (var-refs boundto)))
+          (setf (var-refs boundto) (+ (var-refs var) (var-refs boundto))
+                (var-refs var) 0)
           (nx-set-var-root-nrefs boundto
                                  (+ (1- boundtocount) varcount)))))))