Changeset 10450


Ignore:
Timestamp:
Aug 12, 2008, 7:29:25 PM (11 years ago)
Author:
rme
Message:

FREEZE for x8632.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/X8632/x8632-utils.lisp

    r9821 r10450  
    381381  (single-value-return))
    382382
     383(defx8632lapfunction freeze ()
     384  "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
     385  (movl ($ arch::gc-trap-function-freeze) (% imm0))
     386  (uuo-gc-trap)
     387  (jmp-subprim .SPmakeu32))
     388
    383389;;; offset is a fixnum, one of the x8632::kernel-import-xxx constants.
    384390;;; Returns that kernel import, a fixnum.
Note: See TracChangeset for help on using the changeset viewer.