Changeset 15517


Ignore:
Timestamp:
Nov 29, 2012, 7:11:53 PM (7 years ago)
Author:
gb
Message:

In last clause of ACODE-OPTIMIZE-ASH, don't assume that types are
canonicalized as NUMERIC-CTYPEs. For now, punt if they aren't.
TODO: find maximum/minimum values for tother cases.

Fixes ticket:1031.

File:
1 edited

Legend:

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

    r15495 r15517  
    494494                  (amttype (specifier-type (acode-form-type amt trust-decls)))
    495495                  (fixtype (specifier-type target-fixnum-type)))
    496              (if (and (csubtypep numtype fixtype)
     496             (if (and (typep numtype 'numeric-ctype)
     497                      (csubtypep numtype fixtype)
     498                      (typep amttype 'numeric-ctype)
    497499                      (csubtypep amttype fixtype))
    498500               (let* ((highnum (numeric-ctype-high numtype))
Note: See TracChangeset for help on using the changeset viewer.