Changeset 14340


Ignore:
Timestamp:
Oct 8, 2010, 4:09:24 PM (9 years ago)
Author:
gb
Message:

%ILOGNOT, ASH backend stuff for ARM.

Location:
trunk/source/compiler/ARM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/ARM/arm-vinsns.lisp

    r14159 r14340  
    38193819  (bne lab))
    38203820
     3821(define-arm-vinsn %ilognot (((dest :imm))
     3822                            ((src :imm))
     3823                            ((temp :u32)))
     3824  (orr temp src (:$ arm::fixnummask))
     3825  (mvn dest temp))
     3826
    38213827;;; In case arm::*arm-opcodes* was changed since this file was compiled.
    38223828#+maybe-never
  • trunk/source/compiler/ARM/arm2.lisp

    r14302 r14340  
    54075407  (arm2-extract-charcode seg vreg xfer c (not (arm2-form-typep c 'character))))
    54085408
     5409(defarm2 arm2-%ilognot %ilognot (seg vreg xfer form)
     5410  (ensuring-node-target (target vreg)
     5411    (! %ilognot target (arm2-one-untargeted-reg-form seg form target)))
     5412  (^))
     5413
     5414
    54095415(defarm2 arm2-%ilogior2 %ilogior2 (seg vreg xfer form1 form2)
    54105416  (let* ((fix1 (acode-fixnum-form-p form1))
     
    86418647                nil))
    86428648
     8649(defarm2 arm2-ash ash (seg vreg xfer num amt)
     8650  (or (acode-optimize-ash seg vreg xfer num amt *arm2-trust-declarations*)
     8651      (progn
     8652        (arm2-two-targeted-reg-forms seg num ($ arm::arg_y) amt ($ arm::arg_z))
     8653        (arm2-fixed-call-builtin seg vreg xfer '.SPbuiltin-ash))))
Note: See TracChangeset for help on using the changeset viewer.