Ignore:
Timestamp:
Jul 12, 2010, 12:49:43 PM (9 years ago)
Author:
gb
Message:

arm-misc.lisp: Need xchgl for ARM (used in futex-based locking.)
l0-misc.lisp: ROOM and aux functions: no tsp on ARM
vinsn.lisp: rename :conditional attribute to :predicatable.
arm-vinsns.lisp, arm2.lisp: replace COPY-FPR with all 4 single/double
variants. Use :predicatable attribute to avoid some conditional branches.
arm-asm.lisp, arm-disassemble.lisp: add, fix some instruction definitions.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/arm/level-0/l0-misc.lisp

    r13927 r13955  
    219219
    220220
    221 ;;; Returns six values.
     221;;; Returns six values on most platforms, 4 on ARM.
    222222;;;   sp free
    223223;;;   sp used
    224224;;;   vsp free
    225225;;;   vsp used
    226 ;;;   tsp free
    227 ;;;   tsp used
     226;;;   tsp free  (not on ARM)
     227;;;   tsp used  (not on ARM)
    228228(defun %thread-stack-space (&optional (thread *current-lisp-thread*))
    229229  (when (eq thread *current-lisp-thread*)
     
    347347          (let* ((processes (all-processes)))
    348348            (dolist (thread-info stack-used-by-thread)
    349               (destructuring-bind (thread sp-free sp-used vsp-free vsp-used tsp-free tsp-used)
     349              (destructuring-bind (thread sp-free sp-used vsp-free vsp-used #-arm-target tsp-free #-arm-target tsp-used)
    350350                  thread-info
    351351                (let* ((process (dolist (p processes)
     
    355355                    (let ((sp-total (+ sp-used sp-free))
    356356                          (vsp-total (+ vsp-used vsp-free))
     357                          #-arm-target
    357358                          (tsp-total (+ tsp-used tsp-free)))
    358359                      (format t "~%~a(~d)~%  cstack:~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)~
    359                                ~%  vstack:~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)~
    360                                ~%  tstack:~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)"
     360                               ~%  vstack:~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)"
    361361                              (process-name process)
    362362                              (process-serial-number process)
    363363                              sp-total (k sp-total) sp-free (k sp-free) sp-used (k sp-used)
    364                               vsp-total (k vsp-total) vsp-free (k vsp-free) vsp-used (k vsp-used)
     364                              vsp-total (k vsp-total) vsp-free (k vsp-free) vsp-used  (k vsp-used))
     365                      #-arm-target
     366                      (format t
     367                               "~%  tstack:~12T~10D (~DK)  ~33T~10D (~DK)  ~54T~10D (~DK)"
     368
    365369                              tsp-total (k tsp-total) tsp-free (k tsp-free) tsp-used (k tsp-used)))))))))))))
    366370
Note: See TracChangeset for help on using the changeset viewer.