Changeset 12152


Ignore:
Timestamp:
May 28, 2009, 8:35:04 PM (10 years ago)
Author:
gb
Message:

conditionalize for x8632

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/library/chud-metering.lisp

    r9674 r12152  
    120120  (single-value-return))
    121121
     122#+x8632-target
     123(ccl::defx8632lapfunction dynamic-dnode ((x arg_z))
     124  (movl (% x) (% imm0))
     125  (ref-global x86::heap-start arg_y)
     126  (subl (% arg_y) (% imm0))
     127  (shrl ($ x8632::dnode-shift) (% imm0))
     128  (box-fixnum imm0 arg_z)
     129  (single-value-return))
     130
    122131#+x8664-target
    123132(defun identify-functions-with-pure-code ()
     
    131140                           (when (typep o 'ccl::function-vector)
    132141                             (functions (ccl::function-vector-to-function o))))
     142                         ccl::area-dynamic
     143                         ccl::area-dynamic
     144                         )))
     145    (functions)))
     146
     147#+x8632-target
     148(defun identify-functions-with-pure-code ()
     149  (ccl::freeze)
     150  (ccl::collect ((functions))
     151    (block walk
     152      (let* ((frozen-dnodes (ccl::frozen-space-dnodes)))
     153        (ccl::%map-areas (lambda (o)
     154                           (when (>= (dynamic-dnode o) frozen-dnodes)
     155                             (return-from walk nil))
     156                           (when (typep o 'function)
     157                             (functions o)))
    133158                         ccl::area-dynamic
    134159                         ccl::area-dynamic
Note: See TracChangeset for help on using the changeset viewer.