Changeset 13886
- Timestamp:
- Jun 25, 2010, 2:04:46 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/rme-logops/compiler/nx0.lisp
r13885 r13886 2740 2740 (subtypep (nx-form-type arg env) type env))) 2741 2741 2742 (defun nx-fixnum-op-p (form env)2743 (target-word-size-case2744 (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-case2749 (32 (nx-form-typep form '(unsigned-byte 32) env))2750 (64 (nx-form-typep form '(unsigned-byte 64) env))))2751 2752 2742 (defun nx-binary-fixnum-op-p (form1 form2 env &optional ignore-result-type) 2753 2743 (setq form1 (nx-transform form1 env) … … 2783 2773 2784 2774 (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))) 2791 2781 (cond 2792 2782 ((and fix-1 fix-2)
Note: See TracChangeset
for help on using the changeset viewer.