Changeset 16146


Ignore:
Timestamp:
Jul 27, 2014, 10:15:15 PM (7 years ago)
Author:
gb
Message:

From trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/pinsn/source/compiler/acode-rewrite.lisp

    r16116 r16146  
    295295                ((and c2 (> c2 0) (< c2 (ash 1 24)) (eql (logcount c2) 1)
    296296                      (acode-form-typep form1 'integer trust-decls))
    297                  (setq shift-count (1- (integer-length c1)))
     297                 (setq shift-count (1- (integer-length c2)))
    298298                 (setf (acode-operator w) (%nx1-operator ash)
    299299                       (cadr (acode-operands w)) (make-acode (%nx1-operator fixnum) shift-count)
Note: See TracChangeset for help on using the changeset viewer.