Changeset 15790


Ignore:
Timestamp:
Apr 1, 2013, 1:31:51 AM (8 years ago)
Author:
gb
Message:

Don't define CCL::FREEZE or CCL::FLASH-FREEZE. (They haven't done anything
useful in years and can interact negatively with other means of reorganizing
memory.)

Location:
trunk/source/level-0
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/ARM/arm-utils.lisp

    r15488 r15790  
    409409
    410410
    411 (defarmlapfunction freeze ()
    412   "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
    413   (check-nargs 0)
    414   (mov imm0 (:$ arch::gc-trap-function-freeze))
    415   (uuo-gc-trap)
    416   (spjump .SPmakeu32))
    417 
    418 (defarmlapfunction flash-freeze ()
    419   "Like FREEZE, but don't GC first."
    420   (check-nargs 0)
    421   (mov imm0 (:$ arch::gc-trap-function-flash-freeze))
    422   (uuo-gc-trap)
    423   (spjump .SPmakeu32))
    424411
    425412(defarmlapfunction allow-heap-allocation ((arg arg_z))
  • trunk/source/level-0/PPC/ppc-utils.lisp

    r15487 r15790  
    577577
    578578
    579 (defppclapfunction freeze ()
    580   "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
    581   (check-nargs 0)
    582   (li imm0 arch::gc-trap-function-freeze)
    583   (trlgei allocptr 0)
    584   #+64-bit-target
    585   (ba .SPmakeu64)
    586   #+32-bit-target
    587   (ba .SPmakeu32))
    588 
    589 (defppclapfunction flash-freeze ()
    590   "Like FREEZE, but don't GC first."
    591   (check-nargs 0)
    592   (li imm0 arch::gc-trap-function-flash-freeze)
    593   (trlgei allocptr 0)
    594   #+64-bit-target
    595   (ba .SPmakeu64)
    596   #+32-bit-target
    597   (ba .SPmakeu32))
    598579
    599580(defun %watch (uvector)
  • trunk/source/level-0/X86/X8632/x8632-utils.lisp

    r15490 r15790  
    394394  (single-value-return))
    395395
    396 (defx8632lapfunction freeze ()
    397   "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
    398   (movl ($ arch::gc-trap-function-freeze) (% imm0))
    399   (uuo-gc-trap)
    400   (jmp-subprim .SPmakeu32))
    401 
    402 (defx8632lapfunction flash-freeze ()
    403   "Like FREEZE, without the GC."
    404   (movl ($ arch::gc-trap-function-flash-freeze) (% imm0))
    405   (uuo-gc-trap)
    406   (jmp-subprim .SPmakeu32))
    407396
    408397(defx8632lapfunction %watch ((uvector arg_z))
  • trunk/source/level-0/X86/x86-utils.lisp

    r15489 r15790  
    434434  (single-value-return))
    435435
    436 (defx86lapfunction freeze ()
    437   "Do a full GC, then consider all heap-allocated objects which survive to be non-relocatable."
    438   (movl ($ arch::gc-trap-function-freeze) (% imm0.l))
    439   (uuo-gc-trap)
    440   (jmp-subprim .SPmakeu64))
    441 
    442 (defx86lapfunction flash-freeze ()
    443   "Like FREEZE, without the GC."
    444   (movl ($ arch::gc-trap-function-flash-freeze) (% imm0.l))
    445   (uuo-gc-trap)
    446   (jmp-subprim .SPmakeu64))
    447436
    448437(defx86lapfunction %watch ((thing arg_z))
Note: See TracChangeset for help on using the changeset viewer.