Changeset 13807


Ignore:
Timestamp:
Jun 11, 2010, 7:04:10 AM (10 years ago)
Author:
gb
Message:

Define some more FP instructions, fix some typos.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/compiler/ARM/arm-asm.lisp

    r13793 r13807  
    586586     #x0fb00fb0
    587587     ())
     588   (define-arm-instruction fnegd (:dd :dm)
     589     #x0ed10b40
     590     #x0fff0ff0
     591     ())
     592   (define-arm-instruction fnegs (:sd :sm)
     593     #x0ed10a40
     594     #x0bff0fb0
     595     ())
     596   (define-arm-instruction fsqrtd (:dd :dm)
     597     #x0eb10bc0
     598     #x0fff0ff0
     599     ())
     600   (define-arm-instruction fsqrts (:sd :sm)
     601     #x0eb10ac0
     602     #x0bff0fb0
     603     ())   
    588604   (define-arm-instruction faddd (:dd :dn :dm)
    589605     #x0e300b00
     
    664680   (define-arm-instruction fcvtsd (:sd :dm)
    665681     #x0eb70bc0
    666      #x0fbf0fc0
     682     #x0fbf0ff0
     683     ())
     684   (define-arm-instruction fcvtds (:dd :sm)
     685     #x0eb70ac0
     686     #x0ff70ac0
    667687     ())
    668688   (define-arm-instruction smull (:rd :rn :rm :rn)
     
    675695     ())
    676696
    677    (define-arm-instruction fstd (:sd :fpaddr)
     697   (define-arm-instruction fstd (:dd :fpaddr)
    678698     #x0d000b00
    679699     #x0f700f00
     
    683703     #x0f300f00
    684704     ())
    685    (define-arm-instruction fldd (:sd :fpaddr)
     705   (define-arm-instruction fldd (:dd :fpaddr)
    686706     #x0d100b00
    687707     #x0f700f00
     
    691711     #x0f300f00
    692712     ())
     713   (define-arm-instruction ftosid (:sd :dm)
     714     #x0ebd0b40
     715     #x0fbf0fc0
     716     ())
     717   (define-arm-instruction ftosizd (:sd :dm)
     718     #x0ebd0bc0
     719     #x0fbf0fc0
     720     ())
     721   (define-arm-instruction ftosis (:sd :sm)
     722     #x0ebd0a40
     723     #x0fbf0fc0
     724     ())
     725   (define-arm-instruction ftosizs (:sd :sm)
     726     #x0ebd0ac0
     727     #x0fbf0fc0
     728     ())   
    693729   (define-arm-instruction ldrex (:rd :@rn)
    694730     #x01900f9f
     
    834870
    835871(defun need-arm-dfpr (form)
    836   (or (get-arm-sfpr form)
     872  (or (get-arm-dfpr form)
    837873      (error "Expected an ARM double FP register, got ~s" form)))
    838874
     
    11581194      (unless (and (consp offset) (eq (keywordize (car offset)) :$))
    11591195        (error "Invalid FP address offset ~s in ~s." offset form))
    1160       (destructuring-bind (offset-form) (cadr offset)
     1196      (destructuring-bind (offset-form) (cdr offset)
    11611197        (let* ((offset-val (eval offset-form)))
    11621198          (when (logtest offset-val 3)
Note: See TracChangeset for help on using the changeset viewer.