Changeset 15667 for release/1.9


Ignore:
Timestamp:
Feb 3, 2013, 1:19:33 AM (6 years ago)
Author:
gb
Message:

Propagate r15666 to 1.9.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.9/source/library/leaks.lisp

    r14507 r15667  
    435435  (with-other-threads-suspended
    436436    (when gc-first (gc)) ;; get rid of thread allocation chunks.  Wish could just egc...
    437     ;; This mustn't cons.
     437    ;; This mustn't cons.  Ut really shouldn't deadlock either, but
     438    ;; it could.  (The GC shouldn't free malloc'ed things if any threads
     439    ;; are suspended when it wakes up whatever it suspended, since one
     440    ;; of those sleeping threads could own a malloc lock.)
    438441    (let* ((first-area (%normalize-areas)) ;; youngest generation
    439442           (min-base (loop with current = (%current-tcr)
    440                            for tcr = (%fixnum-ref current target::tcr.next)
    441                              then (%fixnum-ref tcr target::tcr.next)
     443                           for tcr = (%fixnum-ref current
     444                                                  #+win32-target
     445                                                  target:tcr-aux.next
     446                                                  #-win32-target
     447                                                  target::tcr.next)
     448                             then (%fixnum-ref tcr
     449                                               #+win32-target
     450                                               target::tcr-aux.next
     451                                               #-win32-target
     452                                               target::tcr.next)
    442453                           as base fixnum = (%fixnum-ref tcr target::tcr.save-allocbase)
    443454                           when (> base 0)
Note: See TracChangeset for help on using the changeset viewer.