Changeset 13926


Ignore:
Timestamp:
Jul 6, 2010, 1:36:25 AM (9 years ago)
Author:
gb
Message:

arm-arch.lisp: bytes-consed byte order.
arm-def.lisp: declare %FIXNUM-SET's arglist.
arm-float.lisp: %MAKE-SHORT-FLOAT-FROM-FIXNUMS: truncate mantissa.
arm-pred.lisp: Daily EQUAL bug: need to set nargs before calling EQL.
macros.lisp: LFUNLOOP: conditionalize for ARM.

Location:
branches/arm
Files:
6 edited

Legend:

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

    r13909 r13926  
    848848  last-lisp-frame
    849849  cs-limit                              ; cstack overflow limit
     850  total-bytes-allocated-low
    850851  total-bytes-allocated-high
    851   total-bytes-allocated-low
    852852  log2-allocation-quantum               ; unboxed
    853853  interrupt-pending                     ; fixnum
  • branches/arm/level-0/ARM/arm-def.lisp

    r13913 r13926  
    7878
    7979(defarmlapfunction %fixnum-set ((fixnum arg_x) (offset arg_y) #| &optional |# (new-value arg_z))
     80  (:arglist (fixnum offset &optional new-value))
    8081  (check-nargs 2 3)
    8182  (cmp nargs '2)
  • branches/arm/level-0/ARM/arm-float.lisp

    r13913 r13926  
    4848
    4949(defarmlapfunction %make-short-float-from-fixnums ((float 0) (sig arg_x) (exp arg_y) (sign arg_z))
    50   (unbox-fixnum imm0 sig)
     50  (mov imm0 (:lsl sig (:$ (- 32 (+ ieee-single-float-hidden-bit arm::fixnumshift)))))
     51  (mov imm0 (:lsr imm0 (:$ (- 32 ieee-single-float-hidden-bit))))
    5152  (and imm1 sign (:$ #x800000000))
    5253  (orr imm0 imm0 (:lsl exp (:$ (- 23 arm::fixnumshift))))
     
    275276  (declare (ignore operation op0 fp-status)))
    276277
     278(defun get-fpu-mode (mode) nil)
     279
     280(defun set-fpu-mode (mode value) nil)
    277281
    278282
  • branches/arm/level-0/ARM/arm-misc.lisp

    r13921 r13926  
    208208  (cmp allocptr (:$ -8))
    209209  (beq @go)
    210   (adds imm1 imm1 imm2)
    211   (adc imm0 imm0 (:$ 0))
     210  (adds imm0 imm0 imm2)
     211  (adc imm1 imm1 (:$ 0))
    212212  @go
    213213  (b .SPmakeu64))
  • branches/arm/level-0/ARM/arm-pred.lisp

    r13913 r13926  
    172172  (cmp imm0 (:$ arm::subtag-macptr))
    173173  (bgt @same)
     174  (set-nargs 2)
    174175  (ldr fname (:@ nfn 'eql))
    175176  (ldr nfn (:@ fname (:$ arm::symbol.fcell)))
  • branches/arm/lib/macros.lisp

    r13458 r13926  
    822822    `(loop with ,fn = ,function
    823823           with ,lfv = (function-to-function-vector ,fn)
    824            for ,i from #+ppc-target 1 #+x86-target (%function-code-words ,fn) below (%i- (uvsize  ,lfv) 1)
     824           for ,i from #+ppc-target 1 #+x86-target (%function-code-words ,fn) #+arm-target 2  below (%i- (uvsize  ,lfv) 1)
    825825           as ,var = (%svref ,lfv ,i)
    826826           ,@loop-body)))
Note: See TracChangeset for help on using the changeset viewer.