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:
Nick Barnes 2013-07-02 15:53:46 +01:00
parent 4afe5e9b6c
commit b860ecfa50
2 changed files with 3 additions and 10 deletions

View file

@ -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.

View file

@ -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)