Changeset 13886 for branches


Ignore:
Timestamp:
Jun 25, 2010, 2:04:46 AM (9 years ago)
Author:
rme
Message:

Dump some new functions that turn out to be redundant.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/rme-logops/compiler/nx0.lisp

    r13885 r13886  
    27402740    (subtypep (nx-form-type arg env) type env)))
    27412741
    2742 (defun nx-fixnum-op-p (form env)
    2743   (target-word-size-case
    2744    (32 (nx-form-typep form '(signed-byte 30) env))
    2745    (64 (nx-form-typep form '(signed-byte 61) env))))
    2746 
    2747 (defun nx-natural-op-p (form env)
    2748   (target-word-size-case
    2749    (32 (nx-form-typep form '(unsigned-byte 32) env))
    2750    (64 (nx-form-typep form '(unsigned-byte 64) env))))
    2751 
    27522742(defun nx-binary-fixnum-op-p (form1 form2 env &optional ignore-result-type)
    27532743  (setq form1 (nx-transform form1 env)
     
    27832773
    27842774(defun nx-logand-2-op (arg-1 arg-2 env)
    2785   (let ((fix-1 (nx-fixnum-op-p arg-1 env))
    2786         (fix-2 (nx-fixnum-op-p arg-2 env))
    2787         (nat-1 (nx-natural-op-p arg-1 env))
    2788         (nat-2 (nx-natural-op-p arg-2 env))
    2789         (form-1 (nx1-form arg-1))
    2790         (form-2 (nx1-form arg-2)))
     2775  (let* ((form-1 (nx1-form arg-1))
     2776         (form-2 (nx1-form arg-2))
     2777         (fix-1 (nx-acode-fixnum-type-p form-1 env))
     2778         (fix-2 (nx-acode-fixnum-type-p form-2 env))
     2779         (nat-1 (nx-acode-natural-type-p form-1 env))
     2780         (nat-2 (nx-acode-natural-type-p form-2 env)))
    27912781    (cond
    27922782      ((and fix-1 fix-2)
Note: See TracChangeset for help on using the changeset viewer.