Changeset 7850


Ignore:
Timestamp:
Dec 9, 2007, 1:38:40 PM (13 years ago)
Author:
gb
Message:

Conditionalize gf call-counting. Use lock prefix if it's enabled.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-clos.lisp

    r7849 r7850  
    165165      (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
    166166      (:code-size x8664::gf-code-size)
    167       (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
     167      #+count-gf-calls
     168      (progn
     169        (lock)
     170        (addq ($ x8664::fixnumone) (@ 'hash (% fn))))
    168171      (movq (@ (% rsp)) (% ra0))
    169172      (save-frame-variable-arg-count)
     
    191194  (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
    192195  (:code-size x8664::gf-code-size)
    193   (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
     196  #+count-gf-calls
     197  (progn
     198    (lock)
     199    (addq ($ x8664::fixnumone) (@ 'hash (% fn))))
    194200  (check-nargs 1)
    195201  (movq (@ 'dispatch-table (% fn)) (% arg_y))
     
    200206  (:fixed-constants (class-wrapper slots dispatch-table dcode hash))
    201207  (:code-size x8664::gf-code-size)
    202   (addq ($ x8664::fixnumone) (@ 'hash (% fn)))
     208  #+count-gf-calls
     209  (progn
     210    (lock)
     211    (addq ($ x8664::fixnumone) (@ 'hash (% fn))))
    203212  (check-nargs 2)
    204213  (movq (@ 'dispatch-table (% fn)) (% arg_x))
Note: See TracChangeset for help on using the changeset viewer.