Changeset 15261


Ignore:
Timestamp:
Mar 21, 2012, 12:08:15 AM (7 years ago)
Author:
rme
Message:

GC safety fix to x8632 init-closure vinsn from trunk.

Location:
release/1.7/source
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • release/1.7/source

  • release/1.7/source/compiler/X86/X8632/x8632-vinsns.lisp

    r14777 r15261  
    33563356  (movb (:$b 6) (:@ x8632::misc-data-offset (:%l closure))) ;imm word count
    33573357  (movb (:$b #xbf) (:@ (+ x8632::misc-data-offset 2) (:%l closure))) ;movl $self, %fn
    3358   (movl (:%l closure) (:@ (+ x8632::misc-data-offset 3) (:%l closure)))
    33593358  (movb (:$b #xff) (:@ (+ x8632::misc-data-offset 7) (:%l closure))) ;jmp
    33603359  (movl (:$l #x0150b425) (:@ (+ x8632::misc-data-offset 8) (:%l closure))) ;.SPcall-closure
     
    33623361  ;; (movl ($ 0) (:@ (+ x8632::misc-data-offset 12))) ;"end" of self-references
    33633362  (movb (:$b 7) (:@ (+ x8632::misc-data-offset 16) (:%l closure))) ;self-reference offset
    3364   (movb (:$b x8632::function-boundary-marker) (:@ (+ x8632::misc-data-offset 20) (:%l closure))))
     3363  (movb (:$b x8632::function-boundary-marker) (:@ (+ x8632::misc-data-offset 20) (:%l closure)))
     3364  ;; If the GC moved the closure before we finished creating its
     3365  ;; self-reference table, it wouldn't have updated this self-reference
     3366  (movl (:%l closure) (:@ (+ x8632::misc-data-offset 3) (:%l closure))))
    33653367
    33663368(define-x8632-vinsn finalize-closure (((closure :lisp))
  • release/1.7/source/level-0/l0-cfm-support.lisp

    • Property svn:mergeinfo changed (with no actual effect on merging)
Note: See TracChangeset for help on using the changeset viewer.