mirror of
git://git.sv.gnu.org/emacs.git
synced 2026-02-16 17:24:23 +00:00
Back out changes to master mps sources made inadvertently during a branch change.
Copied from Perforce Change: 182891 ServerID: perforce.ravenbrook.com
This commit is contained in:
parent
4afe5e9b6c
commit
b860ecfa50
2 changed files with 3 additions and 10 deletions
|
|
@ -145,7 +145,7 @@ end up in the topGen, which is shared between all chains and all
|
|||
pools.
|
||||
|
||||
For statistics and reporting purposes, when ``STATISTICS`` is
|
||||
on, each AMC pool has an array of ``PageRetStruct`` s, one per
|
||||
on, each AMC pool has an array of ``PageRetStruct``s, one per
|
||||
trace. This structure has many ``Count`` fields, and is
|
||||
intended to help to assess AMC page retention code. See job001811.
|
||||
|
||||
|
|
|
|||
|
|
@ -47,17 +47,10 @@
|
|||
(vector-set! chain 0 current)
|
||||
current)
|
||||
|
||||
(define (inner-loop i)
|
||||
(if (< i 100)
|
||||
(define (loop i)
|
||||
(if (< i 10000)
|
||||
(begin
|
||||
(define chain (make-chain 40))
|
||||
(chain-kill chain 3)
|
||||
(inner-loop (+ i 1)))))
|
||||
|
||||
(define (loop i)
|
||||
(if (< i 100)
|
||||
(begin
|
||||
(inner-loop 0)
|
||||
(write i)
|
||||
(loop (+ i 1)))))
|
||||
(loop 0)
|
||||
|
|
|
|||
Loading…
Reference in a new issue