Changeset 9369


Ignore:
Timestamp:
May 6, 2008, 5:10:04 PM (11 years ago)
Author:
rme
Message:

Placeholders for various gc-related functions (gc, full-gccount, egc,
%configure-egc, purify, impurify)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-utils.lisp

    r9312 r9369  
    300300
    301301(defx8632lapfunction gc ()
    302   (int ($ 3)))
     302  (check-nargs 0)
     303  (movl ($ arch::gc-trap-function-gc) (% imm0))
     304  (uuo-gc-trap)
     305  (movl ($ nil) (% arg_z))
     306  (single-value-return))
    303307
    304308(defx8632lapfunction full-gccount ()
    305   (int ($ 3)))
     309  (ref-global tenured-area arg_z)
     310  (test (% arg_z) (% arg_z))
     311  (cmovel (@ (+ x8632::nil-value (x8632::%kernel-global 'gc-count))) (% arg_z))
     312  (cmovnel (@ x8632::area.gc-count (% arg_z)) (% arg_z))
     313  (single-value-return))
    306314
    307315(defx8632lapfunction egc ((arg arg_z))
    308   (int ($ 3)))
     316  "Enable the EGC if arg is non-nil, disables the EGC otherwise. Return
     317the previous enabled status. Although this function is thread-safe (in
     318the sense that calls to it are serialized), it doesn't make a whole lot
     319of sense to be turning the EGC on and off from multiple threads ..."
     320  (int ($ 3))
     321  (single-value-return))
    309322
    310323(defx8632lapfunction %configure-egc ((e0size 4)
     
    312325                                     (e1size arg_y)
    313326                                     (e2size arg_z))
    314   (int ($ 3)))
     327  (check-nargs 3)
     328  (movl (@ e0size (% esp)) (% temp0))
     329  (movl ($ arch::gc-trap-function-configure-egc) (% imm0))
     330  (uuo-gc-trap)
     331  (single-value-return 3))
    315332
    316333(defx8632lapfunction purify ()
    317   (int ($ 3)))
     334  (check-nargs 0)
     335  (movl ($ arch::gc-trap-function-purify) (% imm0))
     336  (uuo-gc-trap)
     337  (movl ($ nil) (% arg_z))
     338  (single-value-return))
    318339
    319340(defx8632lapfunction impurify ()
    320   (int ($ 3)))
     341  (check-nargs 0)
     342  (movl ($ arch::gc-trap-function-impurify) (% imm0))
     343  (uuo-gc-trap)
     344  (movl ($ nil) (% arg_z))
     345  (single-value-return))
    321346
    322347(defx8632lapfunction use-lisp-heap-gc-threshold ()
Note: See TracChangeset for help on using the changeset viewer.