xnu-1699.32.7.tar.gz

[apple/xnu.git] / osfmk / vm / vm_resident.c

/*
 * Copyright (c) 2000-2009 Apple Inc. All rights reserved.
 *
 * @APPLE_OSREFERENCE_LICENSE_HEADER_START@
 * 
 * This file contains Original Code and/or Modifications of Original Code
 * as defined in and that are subject to the Apple Public Source License
 * Version 2.0 (the 'License'). You may not use this file except in
 * compliance with the License. The rights granted to you under the License
 * may not be used to create, or enable the creation or redistribution of,
 * unlawful or unlicensed copies of an Apple operating system, or to
 * circumvent, violate, or enable the circumvention or violation of, any
 * terms of an Apple operating system software license agreement.
 * 
 * Please obtain a copy of the License at
 * http://www.opensource.apple.com/apsl/ and read it before using this file.
 * 
 * The Original Code and all software distributed under the License are
 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
 * Please see the License for the specific language governing rights and
 * limitations under the License.
 * 
 * @APPLE_OSREFERENCE_LICENSE_HEADER_END@
 */
/*
 * @OSF_COPYRIGHT@
 */
/* 
 * Mach Operating System
 * Copyright (c) 1991,1990,1989,1988,1987 Carnegie Mellon University
 * All Rights Reserved.
 * 
 * Permission to use, copy, modify and distribute this software and its
 * documentation is hereby granted, provided that both the copyright
 * notice and this permission notice appear in all copies of the
 * software, derivative works or modified versions, and any portions
 * thereof, and that both notices appear in supporting documentation.
 * 
 * CARNEGIE MELLON ALLOWS FREE USE OF THIS SOFTWARE IN ITS "AS IS"
 * CONDITION.  CARNEGIE MELLON DISCLAIMS ANY LIABILITY OF ANY KIND FOR
 * ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
 * 
 * Carnegie Mellon requests users of this software to return to
 * 
 *  Software Distribution Coordinator  or  Software.Distribution@CS.CMU.EDU
 *  School of Computer Science
 *  Carnegie Mellon University
 *  Pittsburgh PA 15213-3890
 * 
 * any improvements or extensions that they make and grant Carnegie Mellon
 * the rights to redistribute these changes.
 */
/*
 */
/*
 *      File:   vm/vm_page.c
 *      Author: Avadis Tevanian, Jr., Michael Wayne Young
 *
 *      Resident memory management module.
 */

#include <debug.h>
#include <libkern/OSAtomic.h>

#include <mach/clock_types.h>
#include <mach/vm_prot.h>
#include <mach/vm_statistics.h>
#include <mach/sdt.h>
#include <kern/counters.h>
#include <kern/sched_prim.h>
#include <kern/task.h>
#include <kern/thread.h>
#include <kern/kalloc.h>
#include <kern/zalloc.h>
#include <kern/xpr.h>
#include <vm/pmap.h>
#include <vm/vm_init.h>
#include <vm/vm_map.h>
#include <vm/vm_page.h>
#include <vm/vm_pageout.h>
#include <vm/vm_kern.h>                 /* kernel_memory_allocate() */
#include <kern/misc_protos.h>
#include <zone_debug.h>
#include <vm/cpm.h>
#include <pexpert/pexpert.h>

#include <vm/vm_protos.h>
#include <vm/memory_object.h>
#include <vm/vm_purgeable_internal.h>

#include <IOKit/IOHibernatePrivate.h>


#include <sys/kern_memorystatus.h>

#include <sys/kdebug.h>

boolean_t       vm_page_free_verify = TRUE;

uint32_t        vm_lopage_free_count = 0;
uint32_t        vm_lopage_free_limit = 0;
uint32_t        vm_lopage_lowater    = 0;
boolean_t       vm_lopage_refill = FALSE;
boolean_t       vm_lopage_needed = FALSE;

lck_mtx_ext_t   vm_page_queue_lock_ext;
lck_mtx_ext_t   vm_page_queue_free_lock_ext;
lck_mtx_ext_t   vm_purgeable_queue_lock_ext;

int             speculative_age_index = 0;
int             speculative_steal_index = 0;
struct vm_speculative_age_q vm_page_queue_speculative[VM_PAGE_MAX_SPECULATIVE_AGE_Q + 1];


__private_extern__ void         vm_page_init_lck_grp(void);

static void             vm_page_free_prepare(vm_page_t  page);
static vm_page_t        vm_page_grab_fictitious_common(ppnum_t phys_addr);




/*
 *      Associated with page of user-allocatable memory is a
 *      page structure.
 */

/*
 *      These variables record the values returned by vm_page_bootstrap,
 *      for debugging purposes.  The implementation of pmap_steal_memory
 *      and pmap_startup here also uses them internally.
 */

vm_offset_t virtual_space_start;
vm_offset_t virtual_space_end;
uint32_t        vm_page_pages;

/*
 *      The vm_page_lookup() routine, which provides for fast
 *      (virtual memory object, offset) to page lookup, employs
 *      the following hash table.  The vm_page_{insert,remove}
 *      routines install and remove associations in the table.
 *      [This table is often called the virtual-to-physical,
 *      or VP, table.]
 */
typedef struct {
        vm_page_t       pages;
#if     MACH_PAGE_HASH_STATS
        int             cur_count;              /* current count */
        int             hi_count;               /* high water mark */
#endif /* MACH_PAGE_HASH_STATS */
} vm_page_bucket_t;


#define BUCKETS_PER_LOCK        16

vm_page_bucket_t *vm_page_buckets;              /* Array of buckets */
unsigned int    vm_page_bucket_count = 0;       /* How big is array? */
unsigned int    vm_page_hash_mask;              /* Mask for hash function */
unsigned int    vm_page_hash_shift;             /* Shift for hash function */
uint32_t        vm_page_bucket_hash;            /* Basic bucket hash */
unsigned int    vm_page_bucket_lock_count = 0;          /* How big is array of locks? */

lck_spin_t      *vm_page_bucket_locks;


#if     MACH_PAGE_HASH_STATS
/* This routine is only for debug.  It is intended to be called by
 * hand by a developer using a kernel debugger.  This routine prints
 * out vm_page_hash table statistics to the kernel debug console.
 */
void
hash_debug(void)
{
        int     i;
        int     numbuckets = 0;
        int     highsum = 0;
        int     maxdepth = 0;

        for (i = 0; i < vm_page_bucket_count; i++) {
                if (vm_page_buckets[i].hi_count) {
                        numbuckets++;
                        highsum += vm_page_buckets[i].hi_count;
                        if (vm_page_buckets[i].hi_count > maxdepth)
                                maxdepth = vm_page_buckets[i].hi_count;
                }
        }
        printf("Total number of buckets: %d\n", vm_page_bucket_count);
        printf("Number used buckets:     %d = %d%%\n",
                numbuckets, 100*numbuckets/vm_page_bucket_count);
        printf("Number unused buckets:   %d = %d%%\n",
                vm_page_bucket_count - numbuckets,
                100*(vm_page_bucket_count-numbuckets)/vm_page_bucket_count);
        printf("Sum of bucket max depth: %d\n", highsum);
        printf("Average bucket depth:    %d.%2d\n",
                highsum/vm_page_bucket_count,
                highsum%vm_page_bucket_count);
        printf("Maximum bucket depth:    %d\n", maxdepth);
}
#endif /* MACH_PAGE_HASH_STATS */

/*
 *      The virtual page size is currently implemented as a runtime
 *      variable, but is constant once initialized using vm_set_page_size.
 *      This initialization must be done in the machine-dependent
 *      bootstrap sequence, before calling other machine-independent
 *      initializations.
 *
 *      All references to the virtual page size outside this
 *      module must use the PAGE_SIZE, PAGE_MASK and PAGE_SHIFT
 *      constants.
 */
vm_size_t       page_size  = PAGE_SIZE;
vm_size_t       page_mask  = PAGE_MASK;
int             page_shift = PAGE_SHIFT;

/*
 *      Resident page structures are initialized from
 *      a template (see vm_page_alloc).
 *
 *      When adding a new field to the virtual memory
 *      object structure, be sure to add initialization
 *      (see vm_page_bootstrap).
 */
struct vm_page  vm_page_template;

vm_page_t       vm_pages = VM_PAGE_NULL;
unsigned int    vm_pages_count = 0;
ppnum_t         vm_page_lowest = 0;

/*
 *      Resident pages that represent real memory
 *      are allocated from a set of free lists,
 *      one per color.
 */
unsigned int    vm_colors;
unsigned int    vm_color_mask;                  /* mask is == (vm_colors-1) */
unsigned int    vm_cache_geometry_colors = 0;   /* set by hw dependent code during startup */
queue_head_t    vm_page_queue_free[MAX_COLORS];
unsigned int    vm_page_free_wanted;
unsigned int    vm_page_free_wanted_privileged;
unsigned int    vm_page_free_count;
unsigned int    vm_page_fictitious_count;

unsigned int    vm_page_free_count_minimum;     /* debugging */

/*
 *      Occasionally, the virtual memory system uses
 *      resident page structures that do not refer to
 *      real pages, for example to leave a page with
 *      important state information in the VP table.
 *
 *      These page structures are allocated the way
 *      most other kernel structures are.
 */
zone_t  vm_page_zone;
vm_locks_array_t vm_page_locks;
decl_lck_mtx_data(,vm_page_alloc_lock)
unsigned int io_throttle_zero_fill;

unsigned int    vm_page_local_q_count = 0;
unsigned int    vm_page_local_q_soft_limit = 250;
unsigned int    vm_page_local_q_hard_limit = 500;
struct vplq     *vm_page_local_q = NULL;

/*
 *      Fictitious pages don't have a physical address,
 *      but we must initialize phys_page to something.
 *      For debugging, this should be a strange value
 *      that the pmap module can recognize in assertions.
 */
ppnum_t vm_page_fictitious_addr = (ppnum_t) -1;

/*
 *      Guard pages are not accessible so they don't
 *      need a physical address, but we need to enter
 *      one in the pmap.
 *      Let's make it recognizable and make sure that
 *      we don't use a real physical page with that
 *      physical address.
 */
ppnum_t vm_page_guard_addr = (ppnum_t) -2;

/*
 *      Resident page structures are also chained on
 *      queues that are used by the page replacement
 *      system (pageout daemon).  These queues are
 *      defined here, but are shared by the pageout
 *      module.  The inactive queue is broken into 
 *      inactive and zf for convenience as the 
 *      pageout daemon often assignes a higher 
 *      affinity to zf pages
 */
queue_head_t    vm_page_queue_active;
queue_head_t    vm_page_queue_inactive;
queue_head_t    vm_page_queue_zf;       /* inactive memory queue for zero fill */
queue_head_t    vm_page_queue_throttled;

unsigned int    vm_page_active_count;
unsigned int    vm_page_inactive_count;
unsigned int    vm_page_throttled_count;
unsigned int    vm_page_speculative_count;
unsigned int    vm_page_wire_count;
unsigned int    vm_page_wire_count_initial;
unsigned int    vm_page_gobble_count = 0;
unsigned int    vm_page_wire_count_warning = 0;
unsigned int    vm_page_gobble_count_warning = 0;

unsigned int    vm_page_purgeable_count = 0; /* # of pages purgeable now */
unsigned int    vm_page_purgeable_wired_count = 0; /* # of purgeable pages that are wired now */
uint64_t        vm_page_purged_count = 0;    /* total count of purged pages */

#if DEVELOPMENT || DEBUG
unsigned int    vm_page_speculative_recreated = 0;
unsigned int    vm_page_speculative_created = 0;
unsigned int    vm_page_speculative_used = 0;
#endif

uint64_t        max_valid_dma_address = 0xffffffffffffffffULL;
ppnum_t         max_valid_low_ppnum = 0xffffffff;


/*
 *      Several page replacement parameters are also
 *      shared with this module, so that page allocation
 *      (done here in vm_page_alloc) can trigger the
 *      pageout daemon.
 */
unsigned int    vm_page_free_target = 0;
unsigned int    vm_page_free_min = 0;
unsigned int    vm_page_throttle_limit = 0;
uint32_t        vm_page_creation_throttle = 0;
unsigned int    vm_page_inactive_target = 0;
unsigned int    vm_page_inactive_min = 0;
unsigned int    vm_page_free_reserved = 0;
unsigned int    vm_page_throttle_count = 0;

/*
 *      The VM system has a couple of heuristics for deciding
 *      that pages are "uninteresting" and should be placed
 *      on the inactive queue as likely candidates for replacement.
 *      These variables let the heuristics be controlled at run-time
 *      to make experimentation easier.
 */

boolean_t vm_page_deactivate_hint = TRUE;

struct vm_page_stats_reusable vm_page_stats_reusable;
        
/*
 *      vm_set_page_size:
 *
 *      Sets the page size, perhaps based upon the memory
 *      size.  Must be called before any use of page-size
 *      dependent functions.
 *
 *      Sets page_shift and page_mask from page_size.
 */
void
vm_set_page_size(void)
{
        page_mask = page_size - 1;

        if ((page_mask & page_size) != 0)
                panic("vm_set_page_size: page size not a power of two");

        for (page_shift = 0; ; page_shift++)
                if ((1U << page_shift) == page_size)
                        break;
}


/* Called once during statup, once the cache geometry is known.
 */
static void
vm_page_set_colors( void )
{
        unsigned int    n, override;
        
        if ( PE_parse_boot_argn("colors", &override, sizeof (override)) )               /* colors specified as a boot-arg? */
                n = override;   
        else if ( vm_cache_geometry_colors )                    /* do we know what the cache geometry is? */
                n = vm_cache_geometry_colors;
        else    n = DEFAULT_COLORS;                             /* use default if all else fails */

        if ( n == 0 )
                n = 1;
        if ( n > MAX_COLORS )
                n = MAX_COLORS;
                
        /* the count must be a power of 2  */
        if ( ( n & (n - 1)) != 0  )
                panic("vm_page_set_colors");
        
        vm_colors = n;
        vm_color_mask = n - 1;
}


lck_grp_t               vm_page_lck_grp_free;
lck_grp_t               vm_page_lck_grp_queue;
lck_grp_t               vm_page_lck_grp_local;
lck_grp_t               vm_page_lck_grp_purge;
lck_grp_t               vm_page_lck_grp_alloc;
lck_grp_t               vm_page_lck_grp_bucket;
lck_grp_attr_t          vm_page_lck_grp_attr;
lck_attr_t              vm_page_lck_attr;


__private_extern__ void
vm_page_init_lck_grp(void)
{
        /*
         * initialze the vm_page lock world
         */
        lck_grp_attr_setdefault(&vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_free, "vm_page_free", &vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_queue, "vm_page_queue", &vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_local, "vm_page_queue_local", &vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_purge, "vm_page_purge", &vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_alloc, "vm_page_alloc", &vm_page_lck_grp_attr);
        lck_grp_init(&vm_page_lck_grp_bucket, "vm_page_bucket", &vm_page_lck_grp_attr);
        lck_attr_setdefault(&vm_page_lck_attr);
}

void
vm_page_init_local_q()
{
        unsigned int            num_cpus;
        unsigned int            i;
        struct vplq             *t_local_q;

        num_cpus = ml_get_max_cpus();

        /*
         * no point in this for a uni-processor system
         */
        if (num_cpus >= 2) {
                t_local_q = (struct vplq *)kalloc(num_cpus * sizeof(struct vplq));

                for (i = 0; i < num_cpus; i++) {
                        struct vpl      *lq;

                        lq = &t_local_q[i].vpl_un.vpl;
                        VPL_LOCK_INIT(lq, &vm_page_lck_grp_local, &vm_page_lck_attr);
                        queue_init(&lq->vpl_queue);
                        lq->vpl_count = 0;
                }
                vm_page_local_q_count = num_cpus;

                vm_page_local_q = (struct vplq *)t_local_q;
        }
}


/*
 *      vm_page_bootstrap:
 *
 *      Initializes the resident memory module.
 *
 *      Allocates memory for the page cells, and
 *      for the object/offset-to-page hash table headers.
 *      Each page cell is initialized and placed on the free list.
 *      Returns the range of available kernel virtual memory.
 */

void
vm_page_bootstrap(
        vm_offset_t             *startp,
        vm_offset_t             *endp)
{
        register vm_page_t      m;
        unsigned int            i;
        unsigned int            log1;
        unsigned int            log2;
        unsigned int            size;

        /*
         *      Initialize the vm_page template.
         */

        m = &vm_page_template;
        bzero(m, sizeof (*m));

        m->pageq.next = NULL;
        m->pageq.prev = NULL;
        m->listq.next = NULL;
        m->listq.prev = NULL;
        m->next = VM_PAGE_NULL;

        m->object = VM_OBJECT_NULL;             /* reset later */
        m->offset = (vm_object_offset_t) -1;    /* reset later */

        m->wire_count = 0;
        m->local = FALSE;
        m->inactive = FALSE;
        m->active = FALSE;
        m->pageout_queue = FALSE;
        m->speculative = FALSE;
        m->laundry = FALSE;
        m->free = FALSE;
        m->reference = FALSE;
        m->gobbled = FALSE;
        m->private = FALSE;
        m->throttled = FALSE;
        m->__unused_pageq_bits = 0;

        m->phys_page = 0;               /* reset later */

        m->busy = TRUE;
        m->wanted = FALSE;
        m->tabled = FALSE;
        m->fictitious = FALSE;
        m->pmapped = FALSE;
        m->wpmapped = FALSE;
        m->pageout = FALSE;
        m->absent = FALSE;
        m->error = FALSE;
        m->dirty = FALSE;
        m->cleaning = FALSE;
        m->precious = FALSE;
        m->clustered = FALSE;
        m->overwriting = FALSE;
        m->restart = FALSE;
        m->unusual = FALSE;
        m->encrypted = FALSE;
        m->encrypted_cleaning = FALSE;
        m->list_req_pending = FALSE;
        m->dump_cleaning = FALSE;
        m->cs_validated = FALSE;
        m->cs_tainted = FALSE;
        m->no_cache = FALSE;
        m->zero_fill = FALSE;
        m->reusable = FALSE;
        m->slid = FALSE;
        m->__unused_object_bits = 0;


        /*
         *      Initialize the page queues.
         */
        vm_page_init_lck_grp();
        
        lck_mtx_init_ext(&vm_page_queue_free_lock, &vm_page_queue_free_lock_ext, &vm_page_lck_grp_free, &vm_page_lck_attr);
        lck_mtx_init_ext(&vm_page_queue_lock, &vm_page_queue_lock_ext, &vm_page_lck_grp_queue, &vm_page_lck_attr);
        lck_mtx_init_ext(&vm_purgeable_queue_lock, &vm_purgeable_queue_lock_ext, &vm_page_lck_grp_purge, &vm_page_lck_attr);
    
        for (i = 0; i < PURGEABLE_Q_TYPE_MAX; i++) {
                int group;

                purgeable_queues[i].token_q_head = 0;
                purgeable_queues[i].token_q_tail = 0;
                for (group = 0; group < NUM_VOLATILE_GROUPS; group++)
                        queue_init(&purgeable_queues[i].objq[group]);

                purgeable_queues[i].type = i;
                purgeable_queues[i].new_pages = 0;
#if MACH_ASSERT
                purgeable_queues[i].debug_count_tokens = 0;
                purgeable_queues[i].debug_count_objects = 0;
#endif
        };
    
        for (i = 0; i < MAX_COLORS; i++ )
                queue_init(&vm_page_queue_free[i]);

        queue_init(&vm_lopage_queue_free);
        queue_init(&vm_page_queue_active);
        queue_init(&vm_page_queue_inactive);
        queue_init(&vm_page_queue_throttled);
        queue_init(&vm_page_queue_zf);

        for ( i = 0; i <= VM_PAGE_MAX_SPECULATIVE_AGE_Q; i++ ) {
                queue_init(&vm_page_queue_speculative[i].age_q);

                vm_page_queue_speculative[i].age_ts.tv_sec = 0;
                vm_page_queue_speculative[i].age_ts.tv_nsec = 0;
        }
        vm_page_free_wanted = 0;
        vm_page_free_wanted_privileged = 0;
        
        vm_page_set_colors();


        /*
         *      Steal memory for the map and zone subsystems.
         */

        vm_map_steal_memory();
        zone_steal_memory();

        /*
         *      Allocate (and initialize) the virtual-to-physical
         *      table hash buckets.
         *
         *      The number of buckets should be a power of two to
         *      get a good hash function.  The following computation
         *      chooses the first power of two that is greater
         *      than the number of physical pages in the system.
         */

        if (vm_page_bucket_count == 0) {
                unsigned int npages = pmap_free_pages();

                vm_page_bucket_count = 1;
                while (vm_page_bucket_count < npages)
                        vm_page_bucket_count <<= 1;
        }
        vm_page_bucket_lock_count = (vm_page_bucket_count + BUCKETS_PER_LOCK - 1) / BUCKETS_PER_LOCK;

        vm_page_hash_mask = vm_page_bucket_count - 1;

        /*
         *      Calculate object shift value for hashing algorithm:
         *              O = log2(sizeof(struct vm_object))
         *              B = log2(vm_page_bucket_count)
         *              hash shifts the object left by
         *              B/2 - O
         */
        size = vm_page_bucket_count;
        for (log1 = 0; size > 1; log1++) 
                size /= 2;
        size = sizeof(struct vm_object);
        for (log2 = 0; size > 1; log2++) 
                size /= 2;
        vm_page_hash_shift = log1/2 - log2 + 1;
        
        vm_page_bucket_hash = 1 << ((log1 + 1) >> 1);           /* Get (ceiling of sqrt of table size) */
        vm_page_bucket_hash |= 1 << ((log1 + 1) >> 2);          /* Get (ceiling of quadroot of table size) */
        vm_page_bucket_hash |= 1;                                                       /* Set bit and add 1 - always must be 1 to insure unique series */

        if (vm_page_hash_mask & vm_page_bucket_count)
                printf("vm_page_bootstrap: WARNING -- strange page hash\n");

        vm_page_buckets = (vm_page_bucket_t *)
                pmap_steal_memory(vm_page_bucket_count *
                                  sizeof(vm_page_bucket_t));

        vm_page_bucket_locks = (lck_spin_t *)
                pmap_steal_memory(vm_page_bucket_lock_count *
                                  sizeof(lck_spin_t));

        for (i = 0; i < vm_page_bucket_count; i++) {
                register vm_page_bucket_t *bucket = &vm_page_buckets[i];

                bucket->pages = VM_PAGE_NULL;
#if     MACH_PAGE_HASH_STATS
                bucket->cur_count = 0;
                bucket->hi_count = 0;
#endif /* MACH_PAGE_HASH_STATS */
        }

        for (i = 0; i < vm_page_bucket_lock_count; i++)
                lck_spin_init(&vm_page_bucket_locks[i], &vm_page_lck_grp_bucket, &vm_page_lck_attr);

        /*
         *      Machine-dependent code allocates the resident page table.
         *      It uses vm_page_init to initialize the page frames.
         *      The code also returns to us the virtual space available
         *      to the kernel.  We don't trust the pmap module
         *      to get the alignment right.
         */

        pmap_startup(&virtual_space_start, &virtual_space_end);
        virtual_space_start = round_page(virtual_space_start);
        virtual_space_end = trunc_page(virtual_space_end);

        *startp = virtual_space_start;
        *endp = virtual_space_end;

        /*
         *      Compute the initial "wire" count.
         *      Up until now, the pages which have been set aside are not under 
         *      the VM system's control, so although they aren't explicitly
         *      wired, they nonetheless can't be moved. At this moment,
         *      all VM managed pages are "free", courtesy of pmap_startup.
         */
        assert((unsigned int) atop_64(max_mem) == atop_64(max_mem));
        vm_page_wire_count = ((unsigned int) atop_64(max_mem)) - vm_page_free_count - vm_lopage_free_count;     /* initial value */
        vm_page_wire_count_initial = vm_page_wire_count;
        vm_page_free_count_minimum = vm_page_free_count;

        printf("vm_page_bootstrap: %d free pages and %d wired pages\n",
               vm_page_free_count, vm_page_wire_count);

        simple_lock_init(&vm_paging_lock, 0);
}

#ifndef MACHINE_PAGES
/*
 *      We implement pmap_steal_memory and pmap_startup with the help
 *      of two simpler functions, pmap_virtual_space and pmap_next_page.
 */

void *
pmap_steal_memory(
        vm_size_t size)
{
        vm_offset_t addr, vaddr;
        ppnum_t phys_page;

        /*
         *      We round the size to a round multiple.
         */

        size = (size + sizeof (void *) - 1) &~ (sizeof (void *) - 1);

        /*
         *      If this is the first call to pmap_steal_memory,
         *      we have to initialize ourself.
         */

        if (virtual_space_start == virtual_space_end) {
                pmap_virtual_space(&virtual_space_start, &virtual_space_end);

                /*
                 *      The initial values must be aligned properly, and
                 *      we don't trust the pmap module to do it right.
                 */

                virtual_space_start = round_page(virtual_space_start);
                virtual_space_end = trunc_page(virtual_space_end);
        }

        /*
         *      Allocate virtual memory for this request.
         */

        addr = virtual_space_start;
        virtual_space_start += size;

        //kprintf("pmap_steal_memory: %08lX - %08lX; size=%08lX\n", (long)addr, (long)virtual_space_start, (long)size); /* (TEST/DEBUG) */

        /*
         *      Allocate and map physical pages to back new virtual pages.
         */

        for (vaddr = round_page(addr);
             vaddr < addr + size;
             vaddr += PAGE_SIZE) {

                if (!pmap_next_page_hi(&phys_page))
                        panic("pmap_steal_memory");

                /*
                 *      XXX Logically, these mappings should be wired,
                 *      but some pmap modules barf if they are.
                 */
#if defined(__LP64__)
                pmap_pre_expand(kernel_pmap, vaddr);
#endif

                pmap_enter(kernel_pmap, vaddr, phys_page,
                           VM_PROT_READ|VM_PROT_WRITE, 
                                VM_WIMG_USE_DEFAULT, FALSE);
                /*
                 * Account for newly stolen memory
                 */
                vm_page_wire_count++;

        }

        return (void *) addr;
}

void
pmap_startup(
        vm_offset_t *startp,
        vm_offset_t *endp)
{
        unsigned int i, npages, pages_initialized, fill, fillval;
        ppnum_t         phys_page;
        addr64_t        tmpaddr;

        /*
         *      We calculate how many page frames we will have
         *      and then allocate the page structures in one chunk.
         */

        tmpaddr = (addr64_t)pmap_free_pages() * (addr64_t)PAGE_SIZE;    /* Get the amount of memory left */
        tmpaddr = tmpaddr + (addr64_t)(round_page(virtual_space_start) - virtual_space_start);  /* Account for any slop */
        npages = (unsigned int)(tmpaddr / (addr64_t)(PAGE_SIZE + sizeof(*vm_pages)));   /* Figure size of all vm_page_ts, including enough to hold the vm_page_ts */

        vm_pages = (vm_page_t) pmap_steal_memory(npages * sizeof *vm_pages);

        /*
         *      Initialize the page frames.
         */
        for (i = 0, pages_initialized = 0; i < npages; i++) {
                if (!pmap_next_page(&phys_page))
                        break;
                if (pages_initialized == 0 || phys_page < vm_page_lowest)
                        vm_page_lowest = phys_page;

                vm_page_init(&vm_pages[i], phys_page, FALSE);
                vm_page_pages++;
                pages_initialized++;
        }
        vm_pages_count = pages_initialized;

        /*
         * Check if we want to initialize pages to a known value
         */
        fill = 0;                                                               /* Assume no fill */
        if (PE_parse_boot_argn("fill", &fillval, sizeof (fillval))) fill = 1;                   /* Set fill */
        
        // -debug code remove
        if (2 == vm_himemory_mode) {
                // free low -> high so high is preferred
                for (i = 1; i <= pages_initialized; i++) {
                        if(fill) fillPage(vm_pages[i - 1].phys_page, fillval);          /* Fill the page with a know value if requested at boot */                      
                        vm_page_release(&vm_pages[i - 1]);
                }
        }
        else
        // debug code remove-

        /*
         * Release pages in reverse order so that physical pages
         * initially get allocated in ascending addresses. This keeps
         * the devices (which must address physical memory) happy if
         * they require several consecutive pages.
         */
        for (i = pages_initialized; i > 0; i--) {
                if(fill) fillPage(vm_pages[i - 1].phys_page, fillval);          /* Fill the page with a know value if requested at boot */                      
                vm_page_release(&vm_pages[i - 1]);
        }

#if 0
        {
                vm_page_t xx, xxo, xxl;
                int i, j, k, l;
        
                j = 0;                                                                                                  /* (BRINGUP) */
                xxl = 0;
                
                for( i = 0; i < vm_colors; i++ ) {
                        queue_iterate(&vm_page_queue_free[i],
                                      xx,
                                      vm_page_t,
                                      pageq) {  /* BRINGUP */
                                j++;                                                                                            /* (BRINGUP) */
                                if(j > vm_page_free_count) {                                            /* (BRINGUP) */
                                        panic("pmap_startup: too many pages, xx = %08X, xxl = %08X\n", xx, xxl);
                                }
                                
                                l = vm_page_free_count - j;                                                     /* (BRINGUP) */
                                k = 0;                                                                                          /* (BRINGUP) */
                                
                                if(((j - 1) & 0xFFFF) == 0) kprintf("checking number %d of %d\n", j, vm_page_free_count);

                                for(xxo = xx->pageq.next; xxo != &vm_page_queue_free[i]; xxo = xxo->pageq.next) {       /* (BRINGUP) */
                                        k++;
                                        if(k > l) panic("pmap_startup: too many in secondary check %d %d\n", k, l);
                                        if((xx->phys_page & 0xFFFFFFFF) == (xxo->phys_page & 0xFFFFFFFF)) {     /* (BRINGUP) */
                                                panic("pmap_startup: duplicate physaddr, xx = %08X, xxo = %08X\n", xx, xxo);
                                        }
                                }

                                xxl = xx;
                        }
                }
                
                if(j != vm_page_free_count) {                                           /* (BRINGUP) */
                        panic("pmap_startup: vm_page_free_count does not match, calc =  %d, vm_page_free_count = %08X\n", j, vm_page_free_count);
                }
        }
#endif


        /*
         *      We have to re-align virtual_space_start,
         *      because pmap_steal_memory has been using it.
         */

        virtual_space_start = round_page(virtual_space_start);

        *startp = virtual_space_start;
        *endp = virtual_space_end;
}
#endif  /* MACHINE_PAGES */

/*
 *      Routine:        vm_page_module_init
 *      Purpose:
 *              Second initialization pass, to be done after
 *              the basic VM system is ready.
 */
void
vm_page_module_init(void)
{
        vm_page_zone = zinit((vm_size_t) sizeof(struct vm_page),
                             0, PAGE_SIZE, "vm pages");

#if     ZONE_DEBUG
        zone_debug_disable(vm_page_zone);
#endif  /* ZONE_DEBUG */

        zone_change(vm_page_zone, Z_CALLERACCT, FALSE);
        zone_change(vm_page_zone, Z_EXPAND, FALSE);
        zone_change(vm_page_zone, Z_EXHAUST, TRUE);
        zone_change(vm_page_zone, Z_FOREIGN, TRUE);

        /*
         * Adjust zone statistics to account for the real pages allocated
         * in vm_page_create(). [Q: is this really what we want?]
         */
        vm_page_zone->count += vm_page_pages;
        vm_page_zone->sum_count += vm_page_pages;
        vm_page_zone->cur_size += vm_page_pages * vm_page_zone->elem_size;

        lck_mtx_init(&vm_page_alloc_lock, &vm_page_lck_grp_alloc, &vm_page_lck_attr);
}

/*
 *      Routine:        vm_page_create
 *      Purpose:
 *              After the VM system is up, machine-dependent code
 *              may stumble across more physical memory.  For example,
 *              memory that it was reserving for a frame buffer.
 *              vm_page_create turns this memory into available pages.
 */

void
vm_page_create(
        ppnum_t start,
        ppnum_t end)
{
        ppnum_t         phys_page;
        vm_page_t       m;

        for (phys_page = start;
             phys_page < end;
             phys_page++) {
                while ((m = (vm_page_t) vm_page_grab_fictitious_common(phys_page))
                        == VM_PAGE_NULL)
                        vm_page_more_fictitious();

                m->fictitious = FALSE;
                pmap_clear_noencrypt(phys_page);

                vm_page_pages++;
                vm_page_release(m);
        }
}

/*
 *      vm_page_hash:
 *
 *      Distributes the object/offset key pair among hash buckets.
 *
 *      NOTE:   The bucket count must be a power of 2
 */
#define vm_page_hash(object, offset) (\
        ( (natural_t)((uintptr_t)object * vm_page_bucket_hash) + ((uint32_t)atop_64(offset) ^ vm_page_bucket_hash))\
         & vm_page_hash_mask)


/*
 *      vm_page_insert:         [ internal use only ]
 *
 *      Inserts the given mem entry into the object/object-page
 *      table and object list.
 *
 *      The object must be locked.
 */
void
vm_page_insert(
        vm_page_t               mem,
        vm_object_t             object,
        vm_object_offset_t      offset)
{
        vm_page_insert_internal(mem, object, offset, FALSE, TRUE);
}

void
vm_page_insert_internal(
        vm_page_t               mem,
        vm_object_t             object,
        vm_object_offset_t      offset,
        boolean_t               queues_lock_held,
        boolean_t               insert_in_hash)
{
        vm_page_bucket_t *bucket;
        lck_spin_t      *bucket_lock;
        int     hash_id;

        XPR(XPR_VM_PAGE,
                "vm_page_insert, object 0x%X offset 0x%X page 0x%X\n",
                object, offset, mem, 0,0);

        VM_PAGE_CHECK(mem);

        if (object == vm_submap_object) {
                /* the vm_submap_object is only a placeholder for submaps */
                panic("vm_page_insert(vm_submap_object,0x%llx)\n", offset);
        }

        vm_object_lock_assert_exclusive(object);
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock,
                       queues_lock_held ? LCK_MTX_ASSERT_OWNED
                                        : LCK_MTX_ASSERT_NOTOWNED);
#endif  /* DEBUG */
        
        if (insert_in_hash == TRUE) {
#if DEBUG
                if (mem->tabled || mem->object != VM_OBJECT_NULL)
                        panic("vm_page_insert: page %p for (obj=%p,off=0x%llx) "
                              "already in (obj=%p,off=0x%llx)",
                              mem, object, offset, mem->object, mem->offset);
#endif
                assert(!object->internal || offset < object->vo_size);

                /* only insert "pageout" pages into "pageout" objects,
                 * and normal pages into normal objects */
                assert(object->pageout == mem->pageout);

                assert(vm_page_lookup(object, offset) == VM_PAGE_NULL);
                
                /*
                 *      Record the object/offset pair in this page
                 */

                mem->object = object;
                mem->offset = offset;

                /*
                 *      Insert it into the object_object/offset hash table
                 */
                hash_id = vm_page_hash(object, offset);
                bucket = &vm_page_buckets[hash_id];
                bucket_lock = &vm_page_bucket_locks[hash_id / BUCKETS_PER_LOCK];
        
                lck_spin_lock(bucket_lock);

                mem->next = bucket->pages;
                bucket->pages = mem;
#if     MACH_PAGE_HASH_STATS
                if (++bucket->cur_count > bucket->hi_count)
                        bucket->hi_count = bucket->cur_count;
#endif /* MACH_PAGE_HASH_STATS */

                lck_spin_unlock(bucket_lock);
        }

        {       unsigned int    cache_attr;

                cache_attr = object->wimg_bits & VM_WIMG_MASK;

                if (cache_attr != VM_WIMG_USE_DEFAULT) {
                        pmap_set_cache_attributes(mem->phys_page, cache_attr);
                        object->set_cache_attr = TRUE;
                }
        }
        /*
         *      Now link into the object's list of backed pages.
         */

        VM_PAGE_INSERT(mem, object);
        mem->tabled = TRUE;

        /*
         *      Show that the object has one more resident page.
         */

        object->resident_page_count++;
        if (VM_PAGE_WIRED(mem)) {
                object->wired_page_count++;
        }
        assert(object->resident_page_count >= object->wired_page_count);

        assert(!mem->reusable);

        if (object->purgable == VM_PURGABLE_VOLATILE) {
                if (VM_PAGE_WIRED(mem)) {
                        OSAddAtomic(1, &vm_page_purgeable_wired_count);
                } else {
                        OSAddAtomic(1, &vm_page_purgeable_count);
                }
        } else if (object->purgable == VM_PURGABLE_EMPTY &&
                   mem->throttled) {
                /*
                 * This page belongs to a purged VM object but hasn't
                 * been purged (because it was "busy").
                 * It's in the "throttled" queue and hence not
                 * visible to vm_pageout_scan().  Move it to a pageable
                 * queue, so that it can eventually be reclaimed, instead
                 * of lingering in the "empty" object.
                 */
                if (queues_lock_held == FALSE)
                        vm_page_lockspin_queues();
                vm_page_deactivate(mem);
                if (queues_lock_held == FALSE)
                        vm_page_unlock_queues();
        }
}

/*
 *      vm_page_replace:
 *
 *      Exactly like vm_page_insert, except that we first
 *      remove any existing page at the given offset in object.
 *
 *      The object must be locked.
 */
void
vm_page_replace(
        register vm_page_t              mem,
        register vm_object_t            object,
        register vm_object_offset_t     offset)
{
        vm_page_bucket_t *bucket;
        vm_page_t        found_m = VM_PAGE_NULL;
        lck_spin_t      *bucket_lock;
        int             hash_id;

        VM_PAGE_CHECK(mem);
        vm_object_lock_assert_exclusive(object);
#if DEBUG
        if (mem->tabled || mem->object != VM_OBJECT_NULL)
                panic("vm_page_replace: page %p for (obj=%p,off=0x%llx) "
                      "already in (obj=%p,off=0x%llx)",
                      mem, object, offset, mem->object, mem->offset);
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_NOTOWNED);
#endif
        /*
         *      Record the object/offset pair in this page
         */

        mem->object = object;
        mem->offset = offset;

        /*
         *      Insert it into the object_object/offset hash table,
         *      replacing any page that might have been there.
         */

        hash_id = vm_page_hash(object, offset);
        bucket = &vm_page_buckets[hash_id];
        bucket_lock = &vm_page_bucket_locks[hash_id / BUCKETS_PER_LOCK];

        lck_spin_lock(bucket_lock);

        if (bucket->pages) {
                vm_page_t *mp = &bucket->pages;
                vm_page_t m = *mp;

                do {
                        if (m->object == object && m->offset == offset) {
                                /*
                                 * Remove old page from hash list
                                 */
                                *mp = m->next;

                                found_m = m;
                                break;
                        }
                        mp = &m->next;
                } while ((m = *mp));

                mem->next = bucket->pages;
        } else {
                mem->next = VM_PAGE_NULL;
        }
        /*
         * insert new page at head of hash list
         */
        bucket->pages = mem;

        lck_spin_unlock(bucket_lock);

        if (found_m) {
                /*
                 * there was already a page at the specified
                 * offset for this object... remove it from
                 * the object and free it back to the free list
                 */
                vm_page_free_unlocked(found_m, FALSE);
        }
        vm_page_insert_internal(mem, object, offset, FALSE, FALSE);
}

/*
 *      vm_page_remove:         [ internal use only ]
 *
 *      Removes the given mem entry from the object/offset-page
 *      table and the object page list.
 *
 *      The object must be locked.
 */

void
vm_page_remove(
        vm_page_t       mem,
        boolean_t       remove_from_hash)
{
        vm_page_bucket_t *bucket;
        vm_page_t       this;
        lck_spin_t      *bucket_lock;
        int             hash_id;

        XPR(XPR_VM_PAGE,
                "vm_page_remove, object 0x%X offset 0x%X page 0x%X\n",
                mem->object, mem->offset, 
                mem, 0,0);

        vm_object_lock_assert_exclusive(mem->object);
        assert(mem->tabled);
        assert(!mem->cleaning);
        VM_PAGE_CHECK(mem);

        if (remove_from_hash == TRUE) {
                /*
                 *      Remove from the object_object/offset hash table
                 */
                hash_id = vm_page_hash(mem->object, mem->offset);
                bucket = &vm_page_buckets[hash_id];
                bucket_lock = &vm_page_bucket_locks[hash_id / BUCKETS_PER_LOCK];

                lck_spin_lock(bucket_lock);

                if ((this = bucket->pages) == mem) {
                        /* optimize for common case */

                        bucket->pages = mem->next;
                } else {
                        vm_page_t       *prev;

                        for (prev = &this->next;
                             (this = *prev) != mem;
                             prev = &this->next)
                                continue;
                        *prev = this->next;
                }
#if     MACH_PAGE_HASH_STATS
                bucket->cur_count--;
#endif /* MACH_PAGE_HASH_STATS */

                lck_spin_unlock(bucket_lock);
        }
        /*
         *      Now remove from the object's list of backed pages.
         */

        VM_PAGE_REMOVE(mem);

        /*
         *      And show that the object has one fewer resident
         *      page.
         */

        assert(mem->object->resident_page_count > 0);
        mem->object->resident_page_count--;

        if (!mem->object->internal && (mem->object->objq.next || mem->object->objq.prev)) {
                if (mem->object->resident_page_count == 0)
                        vm_object_cache_remove(mem->object);
        }

        if (VM_PAGE_WIRED(mem)) {
                assert(mem->object->wired_page_count > 0);
                mem->object->wired_page_count--;
        }
        assert(mem->object->resident_page_count >=
               mem->object->wired_page_count);
        if (mem->reusable) {
                assert(mem->object->reusable_page_count > 0);
                mem->object->reusable_page_count--;
                assert(mem->object->reusable_page_count <=
                       mem->object->resident_page_count);
                mem->reusable = FALSE;
                OSAddAtomic(-1, &vm_page_stats_reusable.reusable_count);
                vm_page_stats_reusable.reused_remove++;
        } else if (mem->object->all_reusable) {
                OSAddAtomic(-1, &vm_page_stats_reusable.reusable_count);
                vm_page_stats_reusable.reused_remove++;
        }

        if (mem->object->purgable == VM_PURGABLE_VOLATILE) {
                if (VM_PAGE_WIRED(mem)) {
                        assert(vm_page_purgeable_wired_count > 0);
                        OSAddAtomic(-1, &vm_page_purgeable_wired_count);
                } else {
                        assert(vm_page_purgeable_count > 0);
                        OSAddAtomic(-1, &vm_page_purgeable_count);
                }
        }
        if (mem->object->set_cache_attr == TRUE)
                pmap_set_cache_attributes(mem->phys_page, 0);

        mem->tabled = FALSE;
        mem->object = VM_OBJECT_NULL;
        mem->offset = (vm_object_offset_t) -1;
}


/*
 *      vm_page_lookup:
 *
 *      Returns the page associated with the object/offset
 *      pair specified; if none is found, VM_PAGE_NULL is returned.
 *
 *      The object must be locked.  No side effects.
 */

unsigned long vm_page_lookup_hint = 0;
unsigned long vm_page_lookup_hint_next = 0;
unsigned long vm_page_lookup_hint_prev = 0;
unsigned long vm_page_lookup_hint_miss = 0;
unsigned long vm_page_lookup_bucket_NULL = 0;
unsigned long vm_page_lookup_miss = 0;


vm_page_t
vm_page_lookup(
        vm_object_t             object,
        vm_object_offset_t      offset)
{
        vm_page_t       mem;
        vm_page_bucket_t *bucket;
        queue_entry_t   qe;
        lck_spin_t      *bucket_lock;
        int             hash_id;

        vm_object_lock_assert_held(object);
        mem = object->memq_hint;

        if (mem != VM_PAGE_NULL) {
                assert(mem->object == object);

                if (mem->offset == offset) {
                        vm_page_lookup_hint++;
                        return mem;
                }
                qe = queue_next(&mem->listq);

                if (! queue_end(&object->memq, qe)) {
                        vm_page_t       next_page;

                        next_page = (vm_page_t) qe;
                        assert(next_page->object == object);

                        if (next_page->offset == offset) {
                                vm_page_lookup_hint_next++;
                                object->memq_hint = next_page; /* new hint */
                                return next_page;
                        }
                }
                qe = queue_prev(&mem->listq);

                if (! queue_end(&object->memq, qe)) {
                        vm_page_t prev_page;

                        prev_page = (vm_page_t) qe;
                        assert(prev_page->object == object);

                        if (prev_page->offset == offset) {
                                vm_page_lookup_hint_prev++;
                                object->memq_hint = prev_page; /* new hint */
                                return prev_page;
                        }
                }
        }
        /*
         * Search the hash table for this object/offset pair
         */
        hash_id = vm_page_hash(object, offset);
        bucket = &vm_page_buckets[hash_id];

        /*
         * since we hold the object lock, we are guaranteed that no
         * new pages can be inserted into this object... this in turn
         * guarantess that the page we're looking for can't exist
         * if the bucket it hashes to is currently NULL even when looked
         * at outside the scope of the hash bucket lock... this is a 
         * really cheap optimiztion to avoid taking the lock
         */
        if (bucket->pages == VM_PAGE_NULL) {
                vm_page_lookup_bucket_NULL++;

                return (VM_PAGE_NULL);
        }
        bucket_lock = &vm_page_bucket_locks[hash_id / BUCKETS_PER_LOCK];

        lck_spin_lock(bucket_lock);

        for (mem = bucket->pages; mem != VM_PAGE_NULL; mem = mem->next) {
                VM_PAGE_CHECK(mem);
                if ((mem->object == object) && (mem->offset == offset))
                        break;
        }
        lck_spin_unlock(bucket_lock);

        if (mem != VM_PAGE_NULL) {
                if (object->memq_hint != VM_PAGE_NULL) {
                        vm_page_lookup_hint_miss++;
                }
                assert(mem->object == object);
                object->memq_hint = mem;
        } else
                vm_page_lookup_miss++;

        return(mem);
}


/*
 *      vm_page_rename:
 *
 *      Move the given memory entry from its
 *      current object to the specified target object/offset.
 *
 *      The object must be locked.
 */
void
vm_page_rename(
        register vm_page_t              mem,
        register vm_object_t            new_object,
        vm_object_offset_t              new_offset,
        boolean_t                       encrypted_ok)
{
        assert(mem->object != new_object);

        /*
         * ENCRYPTED SWAP:
         * The encryption key is based on the page's memory object
         * (aka "pager") and paging offset.  Moving the page to
         * another VM object changes its "pager" and "paging_offset"
         * so it has to be decrypted first, or we would lose the key.
         *
         * One exception is VM object collapsing, where we transfer pages
         * from one backing object to its parent object.  This operation also
         * transfers the paging information, so the <pager,paging_offset> info
         * should remain consistent.  The caller (vm_object_do_collapse())
         * sets "encrypted_ok" in this case.
         */
        if (!encrypted_ok && mem->encrypted) {
                panic("vm_page_rename: page %p is encrypted\n", mem);
        }

        XPR(XPR_VM_PAGE,
                "vm_page_rename, new object 0x%X, offset 0x%X page 0x%X\n",
                new_object, new_offset, 
                mem, 0,0);

        /*
         *      Changes to mem->object require the page lock because
         *      the pageout daemon uses that lock to get the object.
         */
        vm_page_lockspin_queues();

        vm_page_remove(mem, TRUE);
        vm_page_insert_internal(mem, new_object, new_offset, TRUE, TRUE);

        vm_page_unlock_queues();
}

/*
 *      vm_page_init:
 *
 *      Initialize the fields in a new page.
 *      This takes a structure with random values and initializes it
 *      so that it can be given to vm_page_release or vm_page_insert.
 */
void
vm_page_init(
        vm_page_t       mem,
        ppnum_t         phys_page,
        boolean_t       lopage)
{
        assert(phys_page);

#if     DEBUG
        if ((phys_page != vm_page_fictitious_addr) && (phys_page != vm_page_guard_addr)) {
                if (!(pmap_valid_page(phys_page))) {
                        panic("vm_page_init: non-DRAM phys_page 0x%x\n", phys_page);
                }
        }
#endif
        *mem = vm_page_template;
        mem->phys_page = phys_page;
#if 0
        /*
         * we're leaving this turned off for now... currently pages
         * come off the free list and are either immediately dirtied/referenced
         * due to zero-fill or COW faults, or are used to read or write files...
         * in the file I/O case, the UPL mechanism takes care of clearing
         * the state of the HW ref/mod bits in a somewhat fragile way.
         * Since we may change the way this works in the future (to toughen it up),
         * I'm leaving this as a reminder of where these bits could get cleared
         */

        /*
         * make sure both the h/w referenced and modified bits are
         * clear at this point... we are especially dependent on 
         * not finding a 'stale' h/w modified in a number of spots
         * once this page goes back into use
         */
        pmap_clear_refmod(phys_page, VM_MEM_MODIFIED | VM_MEM_REFERENCED);
#endif
        mem->lopage = lopage;
}

/*
 *      vm_page_grab_fictitious:
 *
 *      Remove a fictitious page from the free list.
 *      Returns VM_PAGE_NULL if there are no free pages.
 */
int     c_vm_page_grab_fictitious = 0;
int     c_vm_page_grab_fictitious_failed = 0;
int     c_vm_page_release_fictitious = 0;
int     c_vm_page_more_fictitious = 0;

vm_page_t
vm_page_grab_fictitious_common(
        ppnum_t phys_addr)
{
        vm_page_t       m;

        if ((m = (vm_page_t)zget(vm_page_zone))) {

                vm_page_init(m, phys_addr, FALSE);
                m->fictitious = TRUE;

                c_vm_page_grab_fictitious++;
        } else
                c_vm_page_grab_fictitious_failed++;

        return m;
}

vm_page_t
vm_page_grab_fictitious(void)
{
        return vm_page_grab_fictitious_common(vm_page_fictitious_addr);
}

vm_page_t
vm_page_grab_guard(void)
{
        return vm_page_grab_fictitious_common(vm_page_guard_addr);
}


/*
 *      vm_page_release_fictitious:
 *
 *      Release a fictitious page to the zone pool
 */
void
vm_page_release_fictitious(
        vm_page_t m)
{
        assert(!m->free);
        assert(m->fictitious);
        assert(m->phys_page == vm_page_fictitious_addr ||
               m->phys_page == vm_page_guard_addr);

        c_vm_page_release_fictitious++;

        zfree(vm_page_zone, m);
}

/*
 *      vm_page_more_fictitious:
 *
 *      Add more fictitious pages to the zone.
 *      Allowed to block. This routine is way intimate
 *      with the zones code, for several reasons:
 *      1. we need to carve some page structures out of physical
 *         memory before zones work, so they _cannot_ come from
 *         the zone_map.
 *      2. the zone needs to be collectable in order to prevent
 *         growth without bound. These structures are used by
 *         the device pager (by the hundreds and thousands), as
 *         private pages for pageout, and as blocking pages for
 *         pagein. Temporary bursts in demand should not result in
 *         permanent allocation of a resource.
 *      3. To smooth allocation humps, we allocate single pages
 *         with kernel_memory_allocate(), and cram them into the
 *         zone.
 */

void vm_page_more_fictitious(void)
{
        vm_offset_t     addr;
        kern_return_t   retval;

        c_vm_page_more_fictitious++;

        /*
         * Allocate a single page from the zone_map. Do not wait if no physical
         * pages are immediately available, and do not zero the space. We need
         * our own blocking lock here to prevent having multiple,
         * simultaneous requests from piling up on the zone_map lock. Exactly
         * one (of our) threads should be potentially waiting on the map lock.
         * If winner is not vm-privileged, then the page allocation will fail,
         * and it will temporarily block here in the vm_page_wait().
         */
        lck_mtx_lock(&vm_page_alloc_lock);
        /*
         * If another thread allocated space, just bail out now.
         */
        if (zone_free_count(vm_page_zone) > 5) {
                /*
                 * The number "5" is a small number that is larger than the
                 * number of fictitious pages that any single caller will
                 * attempt to allocate. Otherwise, a thread will attempt to
                 * acquire a fictitious page (vm_page_grab_fictitious), fail,
                 * release all of the resources and locks already acquired,
                 * and then call this routine. This routine finds the pages
                 * that the caller released, so fails to allocate new space.
                 * The process repeats infinitely. The largest known number
                 * of fictitious pages required in this manner is 2. 5 is
                 * simply a somewhat larger number.
                 */
                lck_mtx_unlock(&vm_page_alloc_lock);
                return;
        }

        retval = kernel_memory_allocate(zone_map,
                                        &addr, PAGE_SIZE, VM_PROT_ALL,
                                        KMA_KOBJECT|KMA_NOPAGEWAIT);
        if (retval != KERN_SUCCESS) { 
                /*
                 * No page was available. Drop the
                 * lock to give another thread a chance at it, and
                 * wait for the pageout daemon to make progress.
                 */
                lck_mtx_unlock(&vm_page_alloc_lock);
                vm_page_wait(THREAD_UNINT);
                return;
        }
        zcram(vm_page_zone, addr, PAGE_SIZE);

        lck_mtx_unlock(&vm_page_alloc_lock);
}


/*
 *      vm_pool_low():
 *
 *      Return true if it is not likely that a non-vm_privileged thread
 *      can get memory without blocking.  Advisory only, since the
 *      situation may change under us.
 */
int
vm_pool_low(void)
{
        /* No locking, at worst we will fib. */
        return( vm_page_free_count <= vm_page_free_reserved );
}



/*
 * this is an interface to support bring-up of drivers
 * on platforms with physical memory > 4G...
 */
int             vm_himemory_mode = 0;


/*
 * this interface exists to support hardware controllers
 * incapable of generating DMAs with more than 32 bits
 * of address on platforms with physical memory > 4G...
 */
unsigned int    vm_lopages_allocated_q = 0;
unsigned int    vm_lopages_allocated_cpm_success = 0;
unsigned int    vm_lopages_allocated_cpm_failed = 0;
queue_head_t    vm_lopage_queue_free;

vm_page_t
vm_page_grablo(void)
{
        vm_page_t       mem;

        if (vm_lopage_needed == FALSE)
                return (vm_page_grab());

        lck_mtx_lock_spin(&vm_page_queue_free_lock);

        if ( !queue_empty(&vm_lopage_queue_free)) {
                queue_remove_first(&vm_lopage_queue_free,
                                   mem,
                                   vm_page_t,
                                   pageq);
                assert(vm_lopage_free_count);

                vm_lopage_free_count--;
                vm_lopages_allocated_q++;

                if (vm_lopage_free_count < vm_lopage_lowater)
                        vm_lopage_refill = TRUE;

                lck_mtx_unlock(&vm_page_queue_free_lock);
        } else {
                lck_mtx_unlock(&vm_page_queue_free_lock);

                if (cpm_allocate(PAGE_SIZE, &mem, atop(0xffffffff), 0, FALSE, KMA_LOMEM) != KERN_SUCCESS) {

                        lck_mtx_lock_spin(&vm_page_queue_free_lock);
                        vm_lopages_allocated_cpm_failed++;
                        lck_mtx_unlock(&vm_page_queue_free_lock);

                        return (VM_PAGE_NULL);
                }
                mem->busy = TRUE;

                vm_page_lockspin_queues();
                
                mem->gobbled = FALSE;
                vm_page_gobble_count--;
                vm_page_wire_count--;

                vm_lopages_allocated_cpm_success++;
                vm_page_unlock_queues();
        }
        assert(mem->busy);
        assert(!mem->free);
        assert(!mem->pmapped);
        assert(!mem->wpmapped);
        assert(!pmap_is_noencrypt(mem->phys_page));

        mem->pageq.next = NULL;
        mem->pageq.prev = NULL;

        return (mem);
}


/*
 *      vm_page_grab:
 *
 *      first try to grab a page from the per-cpu free list...
 *      this must be done while pre-emption is disabled... if
 *      a page is available, we're done... 
 *      if no page is available, grab the vm_page_queue_free_lock
 *      and see if current number of free pages would allow us
 *      to grab at least 1... if not, return VM_PAGE_NULL as before... 
 *      if there are pages available, disable preemption and
 *      recheck the state of the per-cpu free list... we could
 *      have been preempted and moved to a different cpu, or
 *      some other thread could have re-filled it... if still
 *      empty, figure out how many pages we can steal from the
 *      global free queue and move to the per-cpu queue...
 *      return 1 of these pages when done... only wakeup the
 *      pageout_scan thread if we moved pages from the global
 *      list... no need for the wakeup if we've satisfied the
 *      request from the per-cpu queue.
 */

#define COLOR_GROUPS_TO_STEAL   4


vm_page_t
vm_page_grab( void )
{
        vm_page_t       mem;


        disable_preemption();

        if ((mem = PROCESSOR_DATA(current_processor(), free_pages))) {
return_page_from_cpu_list:
                PROCESSOR_DATA(current_processor(), page_grab_count) += 1;
                PROCESSOR_DATA(current_processor(), free_pages) = mem->pageq.next;
                mem->pageq.next = NULL;

                enable_preemption();

                assert(mem->listq.next == NULL && mem->listq.prev == NULL);
                assert(mem->tabled == FALSE);
                assert(mem->object == VM_OBJECT_NULL);
                assert(!mem->laundry);
                assert(!mem->free);
                assert(pmap_verify_free(mem->phys_page));
                assert(mem->busy);
                assert(!mem->encrypted);
                assert(!mem->pmapped);
                assert(!mem->wpmapped);
                assert(!mem->active);
                assert(!mem->inactive);
                assert(!mem->throttled);
                assert(!mem->speculative);
                assert(!pmap_is_noencrypt(mem->phys_page));

                return mem;
        }
        enable_preemption();


        /*
         *      Optionally produce warnings if the wire or gobble
         *      counts exceed some threshold.
         */
        if (vm_page_wire_count_warning > 0
            && vm_page_wire_count >= vm_page_wire_count_warning) {
                printf("mk: vm_page_grab(): high wired page count of %d\n",
                        vm_page_wire_count);
                assert(vm_page_wire_count < vm_page_wire_count_warning);
        }
        if (vm_page_gobble_count_warning > 0
            && vm_page_gobble_count >= vm_page_gobble_count_warning) {
                printf("mk: vm_page_grab(): high gobbled page count of %d\n",
                        vm_page_gobble_count);
                assert(vm_page_gobble_count < vm_page_gobble_count_warning);
        }

        lck_mtx_lock_spin(&vm_page_queue_free_lock);

        /*
         *      Only let privileged threads (involved in pageout)
         *      dip into the reserved pool.
         */
        if ((vm_page_free_count < vm_page_free_reserved) &&
            !(current_thread()->options & TH_OPT_VMPRIV)) {
                lck_mtx_unlock(&vm_page_queue_free_lock);
                mem = VM_PAGE_NULL;
        }
        else {
               vm_page_t        head;
               vm_page_t        tail;
               unsigned int     pages_to_steal;
               unsigned int     color;

               while ( vm_page_free_count == 0 ) {

                        lck_mtx_unlock(&vm_page_queue_free_lock);
                        /*
                         * must be a privileged thread to be
                         * in this state since a non-privileged 
                         * thread would have bailed if we were
                         * under the vm_page_free_reserved mark
                         */
                        VM_PAGE_WAIT();
                        lck_mtx_lock_spin(&vm_page_queue_free_lock);
                }

                disable_preemption();

                if ((mem = PROCESSOR_DATA(current_processor(), free_pages))) {
                        lck_mtx_unlock(&vm_page_queue_free_lock);

                        /*
                         * we got preempted and moved to another processor
                         * or we got preempted and someone else ran and filled the cache
                         */
                        goto return_page_from_cpu_list;
                }
                if (vm_page_free_count <= vm_page_free_reserved)
                        pages_to_steal = 1;
                else {
                        pages_to_steal = COLOR_GROUPS_TO_STEAL * vm_colors;
                
                        if (pages_to_steal > (vm_page_free_count - vm_page_free_reserved))
                                pages_to_steal = (vm_page_free_count - vm_page_free_reserved);
                }
                color = PROCESSOR_DATA(current_processor(), start_color);
                head = tail = NULL;

                while (pages_to_steal--) {
                        if (--vm_page_free_count < vm_page_free_count_minimum)
                                vm_page_free_count_minimum = vm_page_free_count;

                        while (queue_empty(&vm_page_queue_free[color]))
                                color = (color + 1) & vm_color_mask;
                
                        queue_remove_first(&vm_page_queue_free[color],
                                           mem,
                                           vm_page_t,
                                           pageq);
                        mem->pageq.next = NULL;
                        mem->pageq.prev = NULL;

                        assert(!mem->active);
                        assert(!mem->inactive);
                        assert(!mem->throttled);
                        assert(!mem->speculative);                      

                        color = (color + 1) & vm_color_mask;

                        if (head == NULL)
                                head = mem;
                        else
                                tail->pageq.next = (queue_t)mem;
                        tail = mem;

                        mem->pageq.prev = NULL;
                        assert(mem->listq.next == NULL && mem->listq.prev == NULL);
                        assert(mem->tabled == FALSE);
                        assert(mem->object == VM_OBJECT_NULL);
                        assert(!mem->laundry);
                        assert(mem->free);
                        mem->free = FALSE;

                        assert(pmap_verify_free(mem->phys_page));
                        assert(mem->busy);
                        assert(!mem->free);
                        assert(!mem->encrypted);
                        assert(!mem->pmapped);
                        assert(!mem->wpmapped);
                        assert(!pmap_is_noencrypt(mem->phys_page));
                }
                PROCESSOR_DATA(current_processor(), free_pages) = head->pageq.next;
                PROCESSOR_DATA(current_processor(), start_color) = color;

                /*
                 * satisfy this request
                 */
                PROCESSOR_DATA(current_processor(), page_grab_count) += 1;
                mem = head;
                mem->pageq.next = NULL;

                lck_mtx_unlock(&vm_page_queue_free_lock);

                enable_preemption();
        }
        /*
         *      Decide if we should poke the pageout daemon.
         *      We do this if the free count is less than the low
         *      water mark, or if the free count is less than the high
         *      water mark (but above the low water mark) and the inactive
         *      count is less than its target.
         *
         *      We don't have the counts locked ... if they change a little,
         *      it doesn't really matter.
         */
        if ((vm_page_free_count < vm_page_free_min) ||
            ((vm_page_free_count < vm_page_free_target) &&
             ((vm_page_inactive_count + vm_page_speculative_count) < vm_page_inactive_min)))
                thread_wakeup((event_t) &vm_page_free_wanted);

        VM_CHECK_MEMORYSTATUS;
        
//      dbgLog(mem->phys_page, vm_page_free_count, vm_page_wire_count, 4);      /* (TEST/DEBUG) */

        return mem;
}

/*
 *      vm_page_release:
 *
 *      Return a page to the free list.
 */

void
vm_page_release(
        register vm_page_t      mem)
{
        unsigned int    color;
        int     need_wakeup = 0;
        int     need_priv_wakeup = 0;


        assert(!mem->private && !mem->fictitious);
        if (vm_page_free_verify) {
                assert(pmap_verify_free(mem->phys_page));
        }
//      dbgLog(mem->phys_page, vm_page_free_count, vm_page_wire_count, 5);      /* (TEST/DEBUG) */


        pmap_clear_noencrypt(mem->phys_page);

        lck_mtx_lock_spin(&vm_page_queue_free_lock);
#if DEBUG
        if (mem->free)
                panic("vm_page_release");
#endif

        assert(mem->busy);
        assert(!mem->laundry);
        assert(mem->object == VM_OBJECT_NULL);
        assert(mem->pageq.next == NULL &&
               mem->pageq.prev == NULL);
        assert(mem->listq.next == NULL &&
               mem->listq.prev == NULL);
        
        if ((mem->lopage == TRUE || vm_lopage_refill == TRUE) &&
            vm_lopage_free_count < vm_lopage_free_limit &&
            mem->phys_page < max_valid_low_ppnum) {
                /*
                 * this exists to support hardware controllers
                 * incapable of generating DMAs with more than 32 bits
                 * of address on platforms with physical memory > 4G...
                 */
                queue_enter_first(&vm_lopage_queue_free,
                                  mem,
                                  vm_page_t,
                                  pageq);
                vm_lopage_free_count++;

                if (vm_lopage_free_count >= vm_lopage_free_limit)
                        vm_lopage_refill = FALSE;

                mem->lopage = TRUE;
        } else {          
                mem->lopage = FALSE;
                mem->free = TRUE;

                color = mem->phys_page & vm_color_mask;
                queue_enter_first(&vm_page_queue_free[color],
                                  mem,
                                  vm_page_t,
                                  pageq);
                vm_page_free_count++;
                /*
                 *      Check if we should wake up someone waiting for page.
                 *      But don't bother waking them unless they can allocate.
                 *
                 *      We wakeup only one thread, to prevent starvation.
                 *      Because the scheduling system handles wait queues FIFO,
                 *      if we wakeup all waiting threads, one greedy thread
                 *      can starve multiple niceguy threads.  When the threads
                 *      all wakeup, the greedy threads runs first, grabs the page,
                 *      and waits for another page.  It will be the first to run
                 *      when the next page is freed.
                 *
                 *      However, there is a slight danger here.
                 *      The thread we wake might not use the free page.
                 *      Then the other threads could wait indefinitely
                 *      while the page goes unused.  To forestall this,
                 *      the pageout daemon will keep making free pages
                 *      as long as vm_page_free_wanted is non-zero.
                 */

                assert(vm_page_free_count > 0);
                if (vm_page_free_wanted_privileged > 0) {
                        vm_page_free_wanted_privileged--;
                        need_priv_wakeup = 1;
                } else if (vm_page_free_wanted > 0 &&
                           vm_page_free_count > vm_page_free_reserved) {
                        vm_page_free_wanted--;
                        need_wakeup = 1;
                }
        }
        lck_mtx_unlock(&vm_page_queue_free_lock);

        if (need_priv_wakeup)
                thread_wakeup_one((event_t) &vm_page_free_wanted_privileged);
        else if (need_wakeup)
                thread_wakeup_one((event_t) &vm_page_free_count);

        VM_CHECK_MEMORYSTATUS;
}

/*
 *      vm_page_wait:
 *
 *      Wait for a page to become available.
 *      If there are plenty of free pages, then we don't sleep.
 *
 *      Returns:
 *              TRUE:  There may be another page, try again
 *              FALSE: We were interrupted out of our wait, don't try again
 */

boolean_t
vm_page_wait(
        int     interruptible )
{
        /*
         *      We can't use vm_page_free_reserved to make this
         *      determination.  Consider: some thread might
         *      need to allocate two pages.  The first allocation
         *      succeeds, the second fails.  After the first page is freed,
         *      a call to vm_page_wait must really block.
         */
        kern_return_t   wait_result;
        int             need_wakeup = 0;
        int             is_privileged = current_thread()->options & TH_OPT_VMPRIV;

        lck_mtx_lock_spin(&vm_page_queue_free_lock);

        if (is_privileged && vm_page_free_count) {
                lck_mtx_unlock(&vm_page_queue_free_lock);
                return TRUE;
        }
        if (vm_page_free_count < vm_page_free_target) {

                if (is_privileged) {
                        if (vm_page_free_wanted_privileged++ == 0)
                                need_wakeup = 1;
                        wait_result = assert_wait((event_t)&vm_page_free_wanted_privileged, interruptible);
                } else {
                        if (vm_page_free_wanted++ == 0)
                                need_wakeup = 1;
                        wait_result = assert_wait((event_t)&vm_page_free_count, interruptible);
                }
                lck_mtx_unlock(&vm_page_queue_free_lock);
                counter(c_vm_page_wait_block++);

                if (need_wakeup)
                        thread_wakeup((event_t)&vm_page_free_wanted);

                if (wait_result == THREAD_WAITING)
                        wait_result = thread_block(THREAD_CONTINUE_NULL);

                return(wait_result == THREAD_AWAKENED);
        } else {
                lck_mtx_unlock(&vm_page_queue_free_lock);
                return TRUE;
        }
}

/*
 *      vm_page_alloc:
 *
 *      Allocate and return a memory cell associated
 *      with this VM object/offset pair.
 *
 *      Object must be locked.
 */

vm_page_t
vm_page_alloc(
        vm_object_t             object,
        vm_object_offset_t      offset)
{
        register vm_page_t      mem;

        vm_object_lock_assert_exclusive(object);
        mem = vm_page_grab();
        if (mem == VM_PAGE_NULL)
                return VM_PAGE_NULL;

        vm_page_insert(mem, object, offset);

        return(mem);
}

vm_page_t
vm_page_alloclo(
        vm_object_t             object,
        vm_object_offset_t      offset)
{
        register vm_page_t      mem;

        vm_object_lock_assert_exclusive(object);
        mem = vm_page_grablo();
        if (mem == VM_PAGE_NULL)
                return VM_PAGE_NULL;

        vm_page_insert(mem, object, offset);

        return(mem);
}


/*
 *      vm_page_alloc_guard:
 *      
 *      Allocate a fictitious page which will be used
 *      as a guard page.  The page will be inserted into
 *      the object and returned to the caller.
 */

vm_page_t
vm_page_alloc_guard(
        vm_object_t             object,
        vm_object_offset_t      offset)
{
        register vm_page_t      mem;

        vm_object_lock_assert_exclusive(object);
        mem = vm_page_grab_guard();
        if (mem == VM_PAGE_NULL)
                return VM_PAGE_NULL;

        vm_page_insert(mem, object, offset);

        return(mem);
}


counter(unsigned int c_laundry_pages_freed = 0;)

/*
 *      vm_page_free_prepare:
 *
 *      Removes page from any queue it may be on
 *      and disassociates it from its VM object.
 *
 *      Object and page queues must be locked prior to entry.
 */
static void
vm_page_free_prepare(
        vm_page_t       mem)
{
        vm_page_free_prepare_queues(mem);
        vm_page_free_prepare_object(mem, TRUE);
}


void
vm_page_free_prepare_queues(
        vm_page_t       mem)
{
        VM_PAGE_CHECK(mem);
        assert(!mem->free);
        assert(!mem->cleaning);
        assert(!mem->pageout);
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
        if (mem->free)
                panic("vm_page_free: freeing page on free list\n");
#endif
        if (mem->object) {
                vm_object_lock_assert_exclusive(mem->object);
        }

        if (mem->laundry) {
                /*
                 * We may have to free a page while it's being laundered
                 * if we lost its pager (due to a forced unmount, for example).
                 * We need to call vm_pageout_throttle_up() before removing
                 * the page from its VM object, so that we can find out on
                 * which pageout queue the page is on.
                 */
                vm_pageout_throttle_up(mem);
                counter(++c_laundry_pages_freed);
        }
        VM_PAGE_QUEUES_REMOVE(mem);     /* clears local/active/inactive/throttled/speculative */

        if (VM_PAGE_WIRED(mem)) {
                if (mem->object) {
                        assert(mem->object->wired_page_count > 0);
                        mem->object->wired_page_count--;
                        assert(mem->object->resident_page_count >=
                               mem->object->wired_page_count);

                        if (mem->object->purgable == VM_PURGABLE_VOLATILE) {
                                OSAddAtomic(+1, &vm_page_purgeable_count);
                                assert(vm_page_purgeable_wired_count > 0);
                                OSAddAtomic(-1, &vm_page_purgeable_wired_count);
                        }
                }
                if (!mem->private && !mem->fictitious)
                        vm_page_wire_count--;
                mem->wire_count = 0;
                assert(!mem->gobbled);
        } else if (mem->gobbled) {
                if (!mem->private && !mem->fictitious)
                        vm_page_wire_count--;
                vm_page_gobble_count--;
        }
}


void
vm_page_free_prepare_object(
        vm_page_t       mem,
        boolean_t       remove_from_hash)
{
        if (mem->tabled)
                vm_page_remove(mem, remove_from_hash);  /* clears tabled, object, offset */

        PAGE_WAKEUP(mem);               /* clears wanted */

        if (mem->private) {
                mem->private = FALSE;
                mem->fictitious = TRUE;
                mem->phys_page = vm_page_fictitious_addr;
        }
        if ( !mem->fictitious) {
                if (mem->zero_fill == TRUE)
                        VM_ZF_COUNT_DECR();
                vm_page_init(mem, mem->phys_page, mem->lopage);
        }
}


/*
 *      vm_page_free:
 *
 *      Returns the given page to the free list,
 *      disassociating it with any VM object.
 *
 *      Object and page queues must be locked prior to entry.
 */
void
vm_page_free(
        vm_page_t       mem)
{
        vm_page_free_prepare(mem);

        if (mem->fictitious) {
                vm_page_release_fictitious(mem);
        } else {
                vm_page_release(mem);
        }
}


void
vm_page_free_unlocked(
        vm_page_t       mem,
        boolean_t       remove_from_hash)
{
        vm_page_lockspin_queues();
        vm_page_free_prepare_queues(mem);
        vm_page_unlock_queues();

        vm_page_free_prepare_object(mem, remove_from_hash);

        if (mem->fictitious) {
                vm_page_release_fictitious(mem);
        } else {
                vm_page_release(mem);
        }
}

/*
 * Free a list of pages.  The list can be up to several hundred pages,
 * as blocked up by vm_pageout_scan().
 * The big win is not having to take the free list lock once
 * per page.  We sort the incoming pages into n lists, one for
 * each color.
 */
void
vm_page_free_list(
        vm_page_t       mem,
        boolean_t       prepare_object)
{
        vm_page_t       nxt;
        int             pg_count = 0;
        int             color;
        int             inuse_list_head = -1;

        queue_head_t    free_list[MAX_COLORS];
        int             inuse[MAX_COLORS];

        for (color = 0; color < (signed) vm_colors; color++) {
                queue_init(&free_list[color]);
        }
        
        while (mem) {
                assert(!mem->inactive);
                assert(!mem->active);
                assert(!mem->throttled);
                assert(!mem->free);
                assert(!mem->speculative);
                assert(!VM_PAGE_WIRED(mem));
                assert(mem->pageq.prev == NULL);

                nxt = (vm_page_t)(mem->pageq.next);
                
                if (prepare_object == TRUE)
                        vm_page_free_prepare_object(mem, TRUE);

                if (vm_page_free_verify && !mem->fictitious && !mem->private) {
                        assert(pmap_verify_free(mem->phys_page));
                }

                if (!mem->fictitious) {
                        assert(mem->busy);
                        if ((mem->lopage == TRUE || vm_lopage_refill == TRUE) &&
                            vm_lopage_free_count < vm_lopage_free_limit &&
                            mem->phys_page < max_valid_low_ppnum) {
                                mem->pageq.next = NULL;
                                vm_page_release(mem);
                        } else {

                        /*
                         * IMPORTANT: we can't set the page "free" here
                         * because that would make the page eligible for
                         * a physically-contiguous allocation (see
                         * vm_page_find_contiguous()) right away (we don't
                         * hold the vm_page_queue_free lock).  That would
                         * cause trouble because the page is not actually
                         * in the free queue yet...
                         */
                                color = mem->phys_page & vm_color_mask;
                                if (queue_empty(&free_list[color])) {
                                        inuse[color] = inuse_list_head;
                                        inuse_list_head = color;
                                }
                                queue_enter_first(&free_list[color],
                                                  mem,
                                                  vm_page_t,
                                                  pageq);
                                pg_count++;

                                pmap_clear_noencrypt(mem->phys_page);
                        }
                } else {
                        assert(mem->phys_page == vm_page_fictitious_addr ||
                               mem->phys_page == vm_page_guard_addr);
                        vm_page_release_fictitious(mem);
                }
                mem = nxt;
        }
        if (pg_count) {
                unsigned int    avail_free_count;
                unsigned int    need_wakeup = 0;
                unsigned int    need_priv_wakeup = 0;
          
                lck_mtx_lock_spin(&vm_page_queue_free_lock);

                color = inuse_list_head;
                
                while( color != -1 ) {
                        vm_page_t first, last;
                        vm_page_t first_free;

                        /*
                         * Now that we hold the vm_page_queue_free lock,
                         * it's safe to mark all pages in our local queue
                         * as "free"...
                         */
                        queue_iterate(&free_list[color],
                                      mem,
                                      vm_page_t,
                                      pageq) {
                                assert(!mem->free);
                                assert(mem->busy);
                                mem->free = TRUE;
                        }

                        /*
                         * ... and insert our local queue at the head of
                         * the global free queue.
                         */
                        first = (vm_page_t) queue_first(&free_list[color]);
                        last = (vm_page_t) queue_last(&free_list[color]);
                        first_free = (vm_page_t) queue_first(&vm_page_queue_free[color]);
                        if (queue_empty(&vm_page_queue_free[color])) {
                                queue_last(&vm_page_queue_free[color]) =
                                        (queue_entry_t) last;
                        } else {
                                queue_prev(&first_free->pageq) =
                                        (queue_entry_t) last;
                        }
                        queue_first(&vm_page_queue_free[color]) =
                                (queue_entry_t) first;
                        queue_prev(&first->pageq) =
                                (queue_entry_t) &vm_page_queue_free[color];
                        queue_next(&last->pageq) =
                                (queue_entry_t) first_free;

                        /* next color */
                        color = inuse[color];
                }
                
                vm_page_free_count += pg_count;
                avail_free_count = vm_page_free_count;

                if (vm_page_free_wanted_privileged > 0 &&
                    avail_free_count > 0) {
                        if (avail_free_count < vm_page_free_wanted_privileged) {
                                need_priv_wakeup = avail_free_count;
                                vm_page_free_wanted_privileged -=
                                        avail_free_count;
                                avail_free_count = 0;
                        } else {
                                need_priv_wakeup = vm_page_free_wanted_privileged;
                                vm_page_free_wanted_privileged = 0;
                                avail_free_count -=
                                        vm_page_free_wanted_privileged;
                        }
                }

                if (vm_page_free_wanted > 0 &&
                    avail_free_count > vm_page_free_reserved) {
                        unsigned int  available_pages;

                        available_pages = (avail_free_count -
                                           vm_page_free_reserved);

                        if (available_pages >= vm_page_free_wanted) {
                                need_wakeup = vm_page_free_wanted;
                                vm_page_free_wanted = 0;
                        } else {
                                need_wakeup = available_pages;
                                vm_page_free_wanted -= available_pages;
                        }
                }
                lck_mtx_unlock(&vm_page_queue_free_lock);

                if (need_priv_wakeup != 0) {
                        /*
                         * There shouldn't be that many VM-privileged threads,
                         * so let's wake them all up, even if we don't quite
                         * have enough pages to satisfy them all.
                         */
                        thread_wakeup((event_t)&vm_page_free_wanted_privileged);
                }
                if (need_wakeup != 0 && vm_page_free_wanted == 0) {
                        /*
                         * We don't expect to have any more waiters
                         * after this, so let's wake them all up at
                         * once.
                         */
                        thread_wakeup((event_t) &vm_page_free_count);
                } else for (; need_wakeup != 0; need_wakeup--) {
                        /*
                         * Wake up one waiter per page we just released.
                         */
                        thread_wakeup_one((event_t) &vm_page_free_count);
                }

                VM_CHECK_MEMORYSTATUS;
        }
}


/*
 *      vm_page_wire:
 *
 *      Mark this page as wired down by yet
 *      another map, removing it from paging queues
 *      as necessary.
 *
 *      The page's object and the page queues must be locked.
 */
void
vm_page_wire(
        register vm_page_t      mem)
{

//      dbgLog(current_thread(), mem->offset, mem->object, 1);  /* (TEST/DEBUG) */

        VM_PAGE_CHECK(mem);
        if (mem->object) {
                vm_object_lock_assert_exclusive(mem->object);
        } else {
                /*
                 * In theory, the page should be in an object before it
                 * gets wired, since we need to hold the object lock
                 * to update some fields in the page structure.
                 * However, some code (i386 pmap, for example) might want
                 * to wire a page before it gets inserted into an object.
                 * That's somewhat OK, as long as nobody else can get to
                 * that page and update it at the same time.
                 */
        }
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        if ( !VM_PAGE_WIRED(mem)) {
                VM_PAGE_QUEUES_REMOVE(mem);

                if (mem->object) {
                        mem->object->wired_page_count++;
                        assert(mem->object->resident_page_count >=
                               mem->object->wired_page_count);
                        if (mem->object->purgable == VM_PURGABLE_VOLATILE) {
                                assert(vm_page_purgeable_count > 0);
                                OSAddAtomic(-1, &vm_page_purgeable_count);
                                OSAddAtomic(1, &vm_page_purgeable_wired_count);
                        }
                        if (mem->object->all_reusable) {
                                /*
                                 * Wired pages are not counted as "re-usable"
                                 * in "all_reusable" VM objects, so nothing
                                 * to do here.
                                 */
                        } else if (mem->reusable) {
                                /*
                                 * This page is not "re-usable" when it's
                                 * wired, so adjust its state and the
                                 * accounting.
                                 */
                                vm_object_reuse_pages(mem->object,
                                                      mem->offset,
                                                      mem->offset+PAGE_SIZE_64,
                                                      FALSE);
                        }
                }
                assert(!mem->reusable);

                if (!mem->private && !mem->fictitious && !mem->gobbled)
                        vm_page_wire_count++;
                if (mem->gobbled)
                        vm_page_gobble_count--;
                mem->gobbled = FALSE;
                if (mem->zero_fill == TRUE) {
                        mem->zero_fill = FALSE;
                        VM_ZF_COUNT_DECR();
                }

                VM_CHECK_MEMORYSTATUS;
                
                /* 
                 * ENCRYPTED SWAP:
                 * The page could be encrypted, but
                 * We don't have to decrypt it here
                 * because we don't guarantee that the
                 * data is actually valid at this point.
                 * The page will get decrypted in
                 * vm_fault_wire() if needed.
                 */
        }
        assert(!mem->gobbled);
        mem->wire_count++;
        VM_PAGE_CHECK(mem);
}

/*
 *      vm_page_gobble:
 *
 *      Mark this page as consumed by the vm/ipc/xmm subsystems.
 *
 *      Called only for freshly vm_page_grab()ed pages - w/ nothing locked.
 */
void
vm_page_gobble(
        register vm_page_t      mem)
{
        vm_page_lockspin_queues();
        VM_PAGE_CHECK(mem);

        assert(!mem->gobbled);
        assert( !VM_PAGE_WIRED(mem));

        if (!mem->gobbled && !VM_PAGE_WIRED(mem)) {
                if (!mem->private && !mem->fictitious)
                        vm_page_wire_count++;
        }
        vm_page_gobble_count++;
        mem->gobbled = TRUE;
        vm_page_unlock_queues();
}

/*
 *      vm_page_unwire:
 *
 *      Release one wiring of this page, potentially
 *      enabling it to be paged again.
 *
 *      The page's object and the page queues must be locked.
 */
void
vm_page_unwire(
        vm_page_t       mem,
        boolean_t       queueit)
{

//      dbgLog(current_thread(), mem->offset, mem->object, 0);  /* (TEST/DEBUG) */

        VM_PAGE_CHECK(mem);
        assert(VM_PAGE_WIRED(mem));
        assert(mem->object != VM_OBJECT_NULL);
#if DEBUG
        vm_object_lock_assert_exclusive(mem->object);
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        if (--mem->wire_count == 0) {
                assert(!mem->private && !mem->fictitious);
                vm_page_wire_count--;
                assert(mem->object->wired_page_count > 0);
                mem->object->wired_page_count--;
                assert(mem->object->resident_page_count >=
                       mem->object->wired_page_count);
                if (mem->object->purgable == VM_PURGABLE_VOLATILE) {
                        OSAddAtomic(+1, &vm_page_purgeable_count);
                        assert(vm_page_purgeable_wired_count > 0);
                        OSAddAtomic(-1, &vm_page_purgeable_wired_count);
                }
                assert(!mem->laundry);
                assert(mem->object != kernel_object);
                assert(mem->pageq.next == NULL && mem->pageq.prev == NULL);

                if (queueit == TRUE) {
                        if (mem->object->purgable == VM_PURGABLE_EMPTY) {
                                vm_page_deactivate(mem);
                        } else {
                                vm_page_activate(mem);
                        }
                }

                VM_CHECK_MEMORYSTATUS;
                
        }
        VM_PAGE_CHECK(mem);
}

/*
 *      vm_page_deactivate:
 *
 *      Returns the given page to the inactive list,
 *      indicating that no physical maps have access
 *      to this page.  [Used by the physical mapping system.]
 *
 *      The page queues must be locked.
 */
void
vm_page_deactivate(
        vm_page_t       m)
{
        vm_page_deactivate_internal(m, TRUE);
}


void
vm_page_deactivate_internal(
        vm_page_t       m,
        boolean_t       clear_hw_reference)
{

        VM_PAGE_CHECK(m);
        assert(m->object != kernel_object);
        assert(m->phys_page != vm_page_guard_addr);

//      dbgLog(m->phys_page, vm_page_free_count, vm_page_wire_count, 6);        /* (TEST/DEBUG) */
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        /*
         *      This page is no longer very interesting.  If it was
         *      interesting (active or inactive/referenced), then we
         *      clear the reference bit and (re)enter it in the
         *      inactive queue.  Note wired pages should not have
         *      their reference bit cleared.
         */
        assert ( !(m->absent && !m->unusual));

        if (m->gobbled) {               /* can this happen? */
                assert( !VM_PAGE_WIRED(m));

                if (!m->private && !m->fictitious)
                        vm_page_wire_count--;
                vm_page_gobble_count--;
                m->gobbled = FALSE;
        }
        if (m->private || m->fictitious || (VM_PAGE_WIRED(m)))
                return;

        if (!m->absent && clear_hw_reference == TRUE)
                pmap_clear_reference(m->phys_page);

        m->reference = FALSE;
        m->no_cache = FALSE;

        if (!m->inactive) {
                VM_PAGE_QUEUES_REMOVE(m);

                assert(!m->laundry);
                assert(m->pageq.next == NULL && m->pageq.prev == NULL);

                if (!VM_DYNAMIC_PAGING_ENABLED(memory_manager_default) &&
                    m->dirty && m->object->internal &&
                    (m->object->purgable == VM_PURGABLE_DENY ||
                     m->object->purgable == VM_PURGABLE_NONVOLATILE ||
                     m->object->purgable == VM_PURGABLE_VOLATILE)) {
                        queue_enter(&vm_page_queue_throttled, m, vm_page_t, pageq);
                        m->throttled = TRUE;
                        vm_page_throttled_count++;
                } else {
                        if (m->object->named && m->object->ref_count == 1) {
                                vm_page_speculate(m, FALSE);
#if DEVELOPMENT || DEBUG
                                vm_page_speculative_recreated++;
#endif
                        } else {
                                VM_PAGE_ENQUEUE_INACTIVE(m, FALSE);
                        }
                }
        }
}

/*
 *      vm_page_activate:
 *
 *      Put the specified page on the active list (if appropriate).
 *
 *      The page queues must be locked.
 */

void
vm_page_activate(
        register vm_page_t      m)
{
        VM_PAGE_CHECK(m);
#ifdef  FIXME_4778297
        assert(m->object != kernel_object);
#endif
        assert(m->phys_page != vm_page_guard_addr);
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        assert( !(m->absent && !m->unusual));

        if (m->gobbled) {
                assert( !VM_PAGE_WIRED(m));
                if (!m->private && !m->fictitious)
                        vm_page_wire_count--;
                vm_page_gobble_count--;
                m->gobbled = FALSE;
        }
        if (m->private || m->fictitious)
                return;

#if DEBUG
        if (m->active)
                panic("vm_page_activate: already active");
#endif

        if (m->speculative) {
                DTRACE_VM2(pgrec, int, 1, (uint64_t *), NULL);
                DTRACE_VM2(pgfrec, int, 1, (uint64_t *), NULL);
        }

        VM_PAGE_QUEUES_REMOVE(m);

        if ( !VM_PAGE_WIRED(m)) {
                assert(!m->laundry);
                assert(m->pageq.next == NULL && m->pageq.prev == NULL);
                if (!VM_DYNAMIC_PAGING_ENABLED(memory_manager_default) && 
                    m->dirty && m->object->internal && 
                    (m->object->purgable == VM_PURGABLE_DENY ||
                     m->object->purgable == VM_PURGABLE_NONVOLATILE ||
                     m->object->purgable == VM_PURGABLE_VOLATILE)) {
                        queue_enter(&vm_page_queue_throttled, m, vm_page_t, pageq);
                        m->throttled = TRUE;
                        vm_page_throttled_count++;
                } else {
                        queue_enter(&vm_page_queue_active, m, vm_page_t, pageq);
                        m->active = TRUE;
                        vm_page_active_count++;
                }
                m->reference = TRUE;
                m->no_cache = FALSE;
        }
        VM_PAGE_CHECK(m);
}


/*
 *      vm_page_speculate:
 *
 *      Put the specified page on the speculative list (if appropriate).
 *
 *      The page queues must be locked.
 */
void
vm_page_speculate(
        vm_page_t       m,
        boolean_t       new)
{
        struct vm_speculative_age_q     *aq;

        VM_PAGE_CHECK(m);
        assert(m->object != kernel_object);
        assert(m->phys_page != vm_page_guard_addr);
#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        assert( !(m->absent && !m->unusual));

        if (m->private || m->fictitious)
                return;

        VM_PAGE_QUEUES_REMOVE(m);               

        if ( !VM_PAGE_WIRED(m)) {
                mach_timespec_t         ts;
                clock_sec_t sec;
                clock_nsec_t nsec;

                clock_get_system_nanotime(&sec, &nsec);
                ts.tv_sec = (unsigned int) sec;
                ts.tv_nsec = nsec;

                if (vm_page_speculative_count == 0) {

                        speculative_age_index = VM_PAGE_MIN_SPECULATIVE_AGE_Q;
                        speculative_steal_index = VM_PAGE_MIN_SPECULATIVE_AGE_Q;

                        aq = &vm_page_queue_speculative[speculative_age_index];

                        /*
                         * set the timer to begin a new group
                         */
                        aq->age_ts.tv_sec = vm_page_speculative_q_age_ms / 1000;
                        aq->age_ts.tv_nsec = (vm_page_speculative_q_age_ms % 1000) * 1000 * NSEC_PER_USEC;

                        ADD_MACH_TIMESPEC(&aq->age_ts, &ts);
                } else {
                        aq = &vm_page_queue_speculative[speculative_age_index];

                        if (CMP_MACH_TIMESPEC(&ts, &aq->age_ts) >= 0) {

                                speculative_age_index++;

                                if (speculative_age_index > VM_PAGE_MAX_SPECULATIVE_AGE_Q)
                                        speculative_age_index = VM_PAGE_MIN_SPECULATIVE_AGE_Q;
                                if (speculative_age_index == speculative_steal_index) {
                                        speculative_steal_index = speculative_age_index + 1;

                                        if (speculative_steal_index > VM_PAGE_MAX_SPECULATIVE_AGE_Q)
                                                speculative_steal_index = VM_PAGE_MIN_SPECULATIVE_AGE_Q;
                                }
                                aq = &vm_page_queue_speculative[speculative_age_index];

                                if (!queue_empty(&aq->age_q))
                                        vm_page_speculate_ageit(aq);

                                aq->age_ts.tv_sec = vm_page_speculative_q_age_ms / 1000;
                                aq->age_ts.tv_nsec = (vm_page_speculative_q_age_ms % 1000) * 1000 * NSEC_PER_USEC;

                                ADD_MACH_TIMESPEC(&aq->age_ts, &ts);
                        }
                }
                enqueue_tail(&aq->age_q, &m->pageq);
                m->speculative = TRUE;
                vm_page_speculative_count++;

                if (new == TRUE) {
                        vm_object_lock_assert_exclusive(m->object);

                        m->object->pages_created++;
#if DEVELOPMENT || DEBUG
                        vm_page_speculative_created++;
#endif
                }
        }
        VM_PAGE_CHECK(m);
}


/*
 * move pages from the specified aging bin to
 * the speculative bin that pageout_scan claims from
 *
 *      The page queues must be locked.
 */
void
vm_page_speculate_ageit(struct vm_speculative_age_q *aq)
{
        struct vm_speculative_age_q     *sq;
        vm_page_t       t;

        sq = &vm_page_queue_speculative[VM_PAGE_SPECULATIVE_AGED_Q];

        if (queue_empty(&sq->age_q)) {
                sq->age_q.next = aq->age_q.next;
                sq->age_q.prev = aq->age_q.prev;
                
                t = (vm_page_t)sq->age_q.next;
                t->pageq.prev = &sq->age_q;

                t = (vm_page_t)sq->age_q.prev;
                t->pageq.next = &sq->age_q;
        } else {
                t = (vm_page_t)sq->age_q.prev;
                t->pageq.next = aq->age_q.next;
                                                
                t = (vm_page_t)aq->age_q.next;
                t->pageq.prev = sq->age_q.prev;

                t = (vm_page_t)aq->age_q.prev;
                t->pageq.next = &sq->age_q;

                sq->age_q.prev = aq->age_q.prev;
        }
        queue_init(&aq->age_q);
}


void
vm_page_lru(
        vm_page_t       m)
{
        VM_PAGE_CHECK(m);
        assert(m->object != kernel_object);
        assert(m->phys_page != vm_page_guard_addr);

#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        if (m->active || m->reference)
                return;

        if (m->private || (VM_PAGE_WIRED(m)))
                return;

        m->no_cache = FALSE;

        VM_PAGE_QUEUES_REMOVE(m);

        assert(!m->laundry);
        assert(m->pageq.next == NULL && m->pageq.prev == NULL);

        VM_PAGE_ENQUEUE_INACTIVE(m, FALSE);
}


void
vm_page_reactivate_all_throttled(void)
{
        vm_page_t       first_throttled, last_throttled;
        vm_page_t       first_active;
        vm_page_t       m;
        int             extra_active_count;

        if (!VM_DYNAMIC_PAGING_ENABLED(memory_manager_default))
                return;

        extra_active_count = 0;
        vm_page_lock_queues();
        if (! queue_empty(&vm_page_queue_throttled)) {
                /*
                 * Switch "throttled" pages to "active".
                 */
                queue_iterate(&vm_page_queue_throttled, m, vm_page_t, pageq) {
                        VM_PAGE_CHECK(m);
                        assert(m->throttled);
                        assert(!m->active);
                        assert(!m->inactive);
                        assert(!m->speculative);
                        assert(!VM_PAGE_WIRED(m));

                        extra_active_count++;

                        m->throttled = FALSE;
                        m->active = TRUE;
                        VM_PAGE_CHECK(m);
                }

                /*
                 * Transfer the entire throttled queue to a regular LRU page queues.
                 * We insert it at the head of the active queue, so that these pages
                 * get re-evaluated by the LRU algorithm first, since they've been
                 * completely out of it until now.
                 */
                first_throttled = (vm_page_t) queue_first(&vm_page_queue_throttled);
                last_throttled = (vm_page_t) queue_last(&vm_page_queue_throttled);
                first_active = (vm_page_t) queue_first(&vm_page_queue_active);
                if (queue_empty(&vm_page_queue_active)) {
                        queue_last(&vm_page_queue_active) = (queue_entry_t) last_throttled;
                } else {
                        queue_prev(&first_active->pageq) = (queue_entry_t) last_throttled;
                }
                queue_first(&vm_page_queue_active) = (queue_entry_t) first_throttled;
                queue_prev(&first_throttled->pageq) = (queue_entry_t) &vm_page_queue_active;
                queue_next(&last_throttled->pageq) = (queue_entry_t) first_active;

#if DEBUG
                printf("reactivated %d throttled pages\n", vm_page_throttled_count);
#endif
                queue_init(&vm_page_queue_throttled);
                /*
                 * Adjust the global page counts.
                 */
                vm_page_active_count += extra_active_count;
                vm_page_throttled_count = 0;
        }
        assert(vm_page_throttled_count == 0);
        assert(queue_empty(&vm_page_queue_throttled));
        vm_page_unlock_queues();
}


/*
 * move pages from the indicated local queue to the global active queue
 * its ok to fail if we're below the hard limit and force == FALSE
 * the nolocks == TRUE case is to allow this function to be run on
 * the hibernate path
 */

void
vm_page_reactivate_local(uint32_t lid, boolean_t force, boolean_t nolocks)
{
        struct vpl      *lq;
        vm_page_t       first_local, last_local;
        vm_page_t       first_active;
        vm_page_t       m;
        uint32_t        count = 0;

        if (vm_page_local_q == NULL)
                return;

        lq = &vm_page_local_q[lid].vpl_un.vpl;

        if (nolocks == FALSE) {
                if (lq->vpl_count < vm_page_local_q_hard_limit && force == FALSE) {
                        if ( !vm_page_trylockspin_queues())
                                return;
                } else
                        vm_page_lockspin_queues();

                VPL_LOCK(&lq->vpl_lock);
        }
        if (lq->vpl_count) {
                /*
                 * Switch "local" pages to "active".
                 */
                assert(!queue_empty(&lq->vpl_queue));

                queue_iterate(&lq->vpl_queue, m, vm_page_t, pageq) {
                        VM_PAGE_CHECK(m);
                        assert(m->local);
                        assert(!m->active);
                        assert(!m->inactive);
                        assert(!m->speculative);
                        assert(!VM_PAGE_WIRED(m));
                        assert(!m->throttled);
                        assert(!m->fictitious);

                        if (m->local_id != lid)
                                panic("vm_page_reactivate_local: found vm_page_t(%p) with wrong cpuid", m);
                        
                        m->local_id = 0;
                        m->local = FALSE;
                        m->active = TRUE;
                        VM_PAGE_CHECK(m);

                        count++;
                }
                if (count != lq->vpl_count)
                        panic("vm_page_reactivate_local: count = %d, vm_page_local_count = %d\n", count, lq->vpl_count);

                /*
                 * Transfer the entire local queue to a regular LRU page queues.
                 */
                first_local = (vm_page_t) queue_first(&lq->vpl_queue);
                last_local = (vm_page_t) queue_last(&lq->vpl_queue);
                first_active = (vm_page_t) queue_first(&vm_page_queue_active);

                if (queue_empty(&vm_page_queue_active)) {
                        queue_last(&vm_page_queue_active) = (queue_entry_t) last_local;
                } else {
                        queue_prev(&first_active->pageq) = (queue_entry_t) last_local;
                }
                queue_first(&vm_page_queue_active) = (queue_entry_t) first_local;
                queue_prev(&first_local->pageq) = (queue_entry_t) &vm_page_queue_active;
                queue_next(&last_local->pageq) = (queue_entry_t) first_active;

                queue_init(&lq->vpl_queue);
                /*
                 * Adjust the global page counts.
                 */
                vm_page_active_count += lq->vpl_count;
                lq->vpl_count = 0;
        }
        assert(queue_empty(&lq->vpl_queue));

        if (nolocks == FALSE) {
                VPL_UNLOCK(&lq->vpl_lock);
                vm_page_unlock_queues();
        }
}

/*
 *      vm_page_part_zero_fill:
 *
 *      Zero-fill a part of the page.
 */
void
vm_page_part_zero_fill(
        vm_page_t       m,
        vm_offset_t     m_pa,
        vm_size_t       len)
{
        vm_page_t       tmp;

        VM_PAGE_CHECK(m);
#ifdef PMAP_ZERO_PART_PAGE_IMPLEMENTED
        pmap_zero_part_page(m->phys_page, m_pa, len);
#else
        while (1) {
                tmp = vm_page_grab();
                if (tmp == VM_PAGE_NULL) {
                        vm_page_wait(THREAD_UNINT);
                        continue;
                }
                break;  
        }
        vm_page_zero_fill(tmp);
        if(m_pa != 0) {
                vm_page_part_copy(m, 0, tmp, 0, m_pa);
        }
        if((m_pa + len) <  PAGE_SIZE) {
                vm_page_part_copy(m, m_pa + len, tmp, 
                                m_pa + len, PAGE_SIZE - (m_pa + len));
        }
        vm_page_copy(tmp,m);
        VM_PAGE_FREE(tmp); 
#endif

}

/*
 *      vm_page_zero_fill:
 *
 *      Zero-fill the specified page.
 */
void
vm_page_zero_fill(
        vm_page_t       m)
{
        XPR(XPR_VM_PAGE,
                "vm_page_zero_fill, object 0x%X offset 0x%X page 0x%X\n",
                m->object, m->offset, m, 0,0);

        VM_PAGE_CHECK(m);

//      dbgTrace(0xAEAEAEAE, m->phys_page, 0);          /* (BRINGUP) */
        pmap_zero_page(m->phys_page);
}

/*
 *      vm_page_part_copy:
 *
 *      copy part of one page to another
 */

void
vm_page_part_copy(
        vm_page_t       src_m,
        vm_offset_t     src_pa,
        vm_page_t       dst_m,
        vm_offset_t     dst_pa,
        vm_size_t       len)
{
        VM_PAGE_CHECK(src_m);
        VM_PAGE_CHECK(dst_m);

        pmap_copy_part_page(src_m->phys_page, src_pa,
                        dst_m->phys_page, dst_pa, len);
}

/*
 *      vm_page_copy:
 *
 *      Copy one page to another
 *
 * ENCRYPTED SWAP:
 * The source page should not be encrypted.  The caller should
 * make sure the page is decrypted first, if necessary.
 */

int vm_page_copy_cs_validations = 0;
int vm_page_copy_cs_tainted = 0;

void
vm_page_copy(
        vm_page_t       src_m,
        vm_page_t       dest_m)
{
        XPR(XPR_VM_PAGE,
        "vm_page_copy, object 0x%X offset 0x%X to object 0x%X offset 0x%X\n",
        src_m->object, src_m->offset, 
        dest_m->object, dest_m->offset,
        0);

        VM_PAGE_CHECK(src_m);
        VM_PAGE_CHECK(dest_m);

        /*
         * ENCRYPTED SWAP:
         * The source page should not be encrypted at this point.
         * The destination page will therefore not contain encrypted
         * data after the copy.
         */
        if (src_m->encrypted) {
                panic("vm_page_copy: source page %p is encrypted\n", src_m);
        }
        dest_m->encrypted = FALSE;

        if (src_m->object != VM_OBJECT_NULL &&
            src_m->object->code_signed) {
                /*
                 * We're copying a page from a code-signed object.
                 * Whoever ends up mapping the copy page might care about
                 * the original page's integrity, so let's validate the
                 * source page now.
                 */
                vm_page_copy_cs_validations++;
                vm_page_validate_cs(src_m);
        }

        if (vm_page_is_slideable(src_m)) {
                boolean_t was_busy = src_m->busy;
                src_m->busy = TRUE;
                (void) vm_page_slide(src_m, 0);
                assert(src_m->busy);
                if(!was_busy) {
                        PAGE_WAKEUP_DONE(src_m);
                }
        }

        /*
         * Propagate the cs_tainted bit to the copy page. Do not propagate
         * the cs_validated bit.
         */
        dest_m->cs_tainted = src_m->cs_tainted;
        if (dest_m->cs_tainted) {
                vm_page_copy_cs_tainted++;
        }
        dest_m->slid = src_m->slid;
        dest_m->error = src_m->error; /* sliding src_m might have failed... */
        pmap_copy_page(src_m->phys_page, dest_m->phys_page);
}

#if MACH_ASSERT
static void
_vm_page_print(
        vm_page_t       p)
{
        printf("vm_page %p: \n", p);
        printf("  pageq: next=%p prev=%p\n", p->pageq.next, p->pageq.prev);
        printf("  listq: next=%p prev=%p\n", p->listq.next, p->listq.prev);
        printf("  next=%p\n", p->next);
        printf("  object=%p offset=0x%llx\n", p->object, p->offset);
        printf("  wire_count=%u\n", p->wire_count);

        printf("  %slocal, %sinactive, %sactive, %spageout_queue, %sspeculative, %slaundry\n",
               (p->local ? "" : "!"),
               (p->inactive ? "" : "!"),
               (p->active ? "" : "!"),
               (p->pageout_queue ? "" : "!"),
               (p->speculative ? "" : "!"),
               (p->laundry ? "" : "!"));
        printf("  %sfree, %sref, %sgobbled, %sprivate, %sthrottled\n",
               (p->free ? "" : "!"),
               (p->reference ? "" : "!"),
               (p->gobbled ? "" : "!"),
               (p->private ? "" : "!"),
               (p->throttled ? "" : "!"));
        printf("  %sbusy, %swanted, %stabled, %sfictitious, %spmapped, %swpmapped\n",
                (p->busy ? "" : "!"),
                (p->wanted ? "" : "!"),
                (p->tabled ? "" : "!"),
                (p->fictitious ? "" : "!"),
                (p->pmapped ? "" : "!"),
                (p->wpmapped ? "" : "!"));
        printf("  %spageout, %sabsent, %serror, %sdirty, %scleaning, %sprecious, %sclustered\n",
               (p->pageout ? "" : "!"),
               (p->absent ? "" : "!"),
               (p->error ? "" : "!"),
               (p->dirty ? "" : "!"),
               (p->cleaning ? "" : "!"),
               (p->precious ? "" : "!"),
               (p->clustered ? "" : "!"));
        printf("  %soverwriting, %srestart, %sunusual, %sencrypted, %sencrypted_cleaning\n",
               (p->overwriting ? "" : "!"),
               (p->restart ? "" : "!"),
               (p->unusual ? "" : "!"),
               (p->encrypted ? "" : "!"),
               (p->encrypted_cleaning ? "" : "!"));
        printf("  %slist_req_pending, %sdump_cleaning, %scs_validated, %scs_tainted, %sno_cache\n",
               (p->list_req_pending ? "" : "!"),
               (p->dump_cleaning ? "" : "!"),
               (p->cs_validated ? "" : "!"),
               (p->cs_tainted ? "" : "!"),
               (p->no_cache ? "" : "!"));
        printf("  %szero_fill\n",
               (p->zero_fill ? "" : "!"));

        printf("phys_page=0x%x\n", p->phys_page);
}

/*
 *      Check that the list of pages is ordered by
 *      ascending physical address and has no holes.
 */
static int
vm_page_verify_contiguous(
        vm_page_t       pages,
        unsigned int    npages)
{
        register vm_page_t      m;
        unsigned int            page_count;
        vm_offset_t             prev_addr;

        prev_addr = pages->phys_page;
        page_count = 1;
        for (m = NEXT_PAGE(pages); m != VM_PAGE_NULL; m = NEXT_PAGE(m)) {
                if (m->phys_page != prev_addr + 1) {
                        printf("m %p prev_addr 0x%lx, current addr 0x%x\n",
                               m, (long)prev_addr, m->phys_page);
                        printf("pages %p page_count %d npages %d\n", pages, page_count, npages);
                        panic("vm_page_verify_contiguous:  not contiguous!");
                }
                prev_addr = m->phys_page;
                ++page_count;
        }
        if (page_count != npages) {
                printf("pages %p actual count 0x%x but requested 0x%x\n",
                       pages, page_count, npages);
                panic("vm_page_verify_contiguous:  count error");
        }
        return 1;
}


/*
 *      Check the free lists for proper length etc.
 */
static unsigned int
vm_page_verify_free_list(
        queue_head_t    *vm_page_queue,
        unsigned int    color,
        vm_page_t       look_for_page,
        boolean_t       expect_page)
{
        unsigned int    npages;
        vm_page_t       m;
        vm_page_t       prev_m;
        boolean_t       found_page;

        found_page = FALSE;
        npages = 0;
        prev_m = (vm_page_t) vm_page_queue;
        queue_iterate(vm_page_queue,
                      m,
                      vm_page_t,
                      pageq) {

                if (m == look_for_page) {
                        found_page = TRUE;
                }
                if ((vm_page_t) m->pageq.prev != prev_m)
                        panic("vm_page_verify_free_list(color=%u, npages=%u): page %p corrupted prev ptr %p instead of %p\n",
                              color, npages, m, m->pageq.prev, prev_m);
                if ( ! m->busy )
                        panic("vm_page_verify_free_list(color=%u, npages=%u): page %p not busy\n",
                              color, npages, m);
                if (color != (unsigned int) -1) {
                        if ((m->phys_page & vm_color_mask) != color)
                                panic("vm_page_verify_free_list(color=%u, npages=%u): page %p wrong color %u instead of %u\n",
                                      color, npages, m, m->phys_page & vm_color_mask, color);
                        if ( ! m->free )
                                panic("vm_page_verify_free_list(color=%u, npages=%u): page %p not free\n",
                                      color, npages, m);
                }
                ++npages;
                prev_m = m;
        }
        if (look_for_page != VM_PAGE_NULL) {
                unsigned int other_color;

                if (expect_page && !found_page) {
                        printf("vm_page_verify_free_list(color=%u, npages=%u): page %p not found phys=%u\n",
                               color, npages, look_for_page, look_for_page->phys_page);
                        _vm_page_print(look_for_page);
                        for (other_color = 0;
                             other_color < vm_colors;
                             other_color++) {
                                if (other_color == color)
                                        continue;
                                vm_page_verify_free_list(&vm_page_queue_free[other_color],
                                                         other_color, look_for_page, FALSE);
                        }
                        if (color == (unsigned int) -1) {
                                vm_page_verify_free_list(&vm_lopage_queue_free,
                                                         (unsigned int) -1, look_for_page, FALSE);
                        }
                        panic("vm_page_verify_free_list(color=%u)\n", color);
                }
                if (!expect_page && found_page) {
                        printf("vm_page_verify_free_list(color=%u, npages=%u): page %p found phys=%u\n",
                               color, npages, look_for_page, look_for_page->phys_page);
                }
        }
        return npages;
}

static boolean_t vm_page_verify_free_lists_enabled = FALSE;
static void
vm_page_verify_free_lists( void )
{
        unsigned int    color, npages, nlopages;

        if (! vm_page_verify_free_lists_enabled)
                return;

        npages = 0;

        lck_mtx_lock(&vm_page_queue_free_lock);

        for( color = 0; color < vm_colors; color++ ) {
                npages += vm_page_verify_free_list(&vm_page_queue_free[color],
                                                   color, VM_PAGE_NULL, FALSE);
        }
        nlopages = vm_page_verify_free_list(&vm_lopage_queue_free,
                                            (unsigned int) -1,
                                            VM_PAGE_NULL, FALSE);
        if (npages != vm_page_free_count || nlopages != vm_lopage_free_count)
                panic("vm_page_verify_free_lists:  "
                      "npages %u free_count %d nlopages %u lo_free_count %u",
                      npages, vm_page_free_count, nlopages, vm_lopage_free_count);

        lck_mtx_unlock(&vm_page_queue_free_lock);
}

void
vm_page_queues_assert(
        vm_page_t       mem,
        int             val)
{
        if (mem->free + mem->active + mem->inactive + mem->speculative +
            mem->throttled + mem->pageout_queue > (val)) {
                _vm_page_print(mem);
                panic("vm_page_queues_assert(%p, %d)\n", mem, val);
        }
        if (VM_PAGE_WIRED(mem)) {
                assert(!mem->active);
                assert(!mem->inactive);
                assert(!mem->speculative);
                assert(!mem->throttled);
        }
}
#endif  /* MACH_ASSERT */


/*
 *      CONTIGUOUS PAGE ALLOCATION
 *
 *      Find a region large enough to contain at least n pages
 *      of contiguous physical memory.
 *
 *      This is done by traversing the vm_page_t array in a linear fashion
 *      we assume that the vm_page_t array has the avaiable physical pages in an
 *      ordered, ascending list... this is currently true of all our implementations
 *      and must remain so... there can be 'holes' in the array...  we also can
 *      no longer tolerate the vm_page_t's in the list being 'freed' and reclaimed
 *      which use to happen via 'vm_page_convert'... that function was no longer
 *      being called and was removed...
 *      
 *      The basic flow consists of stabilizing some of the interesting state of 
 *      a vm_page_t behind the vm_page_queue and vm_page_free locks... we start our
 *      sweep at the beginning of the array looking for pages that meet our criterea
 *      for a 'stealable' page... currently we are pretty conservative... if the page
 *      meets this criterea and is physically contiguous to the previous page in the 'run'
 *      we keep developing it.  If we hit a page that doesn't fit, we reset our state
 *      and start to develop a new run... if at this point we've already considered
 *      at least MAX_CONSIDERED_BEFORE_YIELD pages, we'll drop the 2 locks we hold,
 *      and mutex_pause (which will yield the processor), to keep the latency low w/r 
 *      to other threads trying to acquire free pages (or move pages from q to q),
 *      and then continue from the spot we left off... we only make 1 pass through the
 *      array.  Once we have a 'run' that is long enough, we'll go into the loop which
 *      which steals the pages from the queues they're currently on... pages on the free
 *      queue can be stolen directly... pages that are on any of the other queues
 *      must be removed from the object they are tabled on... this requires taking the
 *      object lock... we do this as a 'try' to prevent deadlocks... if the 'try' fails
 *      or if the state of the page behind the vm_object lock is no longer viable, we'll
 *      dump the pages we've currently stolen back to the free list, and pick up our
 *      scan from the point where we aborted the 'current' run.
 *
 *
 *      Requirements:
 *              - neither vm_page_queue nor vm_free_list lock can be held on entry
 *
 *      Returns a pointer to a list of gobbled/wired pages or VM_PAGE_NULL.
 *
 * Algorithm:
 */

#define MAX_CONSIDERED_BEFORE_YIELD     1000


#define RESET_STATE_OF_RUN()    \
        MACRO_BEGIN             \
        prevcontaddr = -2;      \
        start_pnum = -1;        \
        free_considered = 0;    \
        substitute_needed = 0;  \
        npages = 0;             \
        MACRO_END                       

/*
 * Can we steal in-use (i.e. not free) pages when searching for
 * physically-contiguous pages ?
 */
#define VM_PAGE_FIND_CONTIGUOUS_CAN_STEAL 1

static unsigned int vm_page_find_contiguous_last_idx = 0,  vm_page_lomem_find_contiguous_last_idx = 0;
#if DEBUG
int vm_page_find_contig_debug = 0;
#endif

static vm_page_t
vm_page_find_contiguous(
        unsigned int    contig_pages,
        ppnum_t         max_pnum,
        ppnum_t     pnum_mask,
        boolean_t       wire,
        int             flags)
{
        vm_page_t       m = NULL;
        ppnum_t         prevcontaddr;
        ppnum_t         start_pnum;
        unsigned int    npages, considered, scanned;
        unsigned int    page_idx, start_idx, last_idx, orig_last_idx;
        unsigned int    idx_last_contig_page_found = 0;
        int             free_considered, free_available;
        int             substitute_needed;
        boolean_t       wrapped;
#if DEBUG
        clock_sec_t     tv_start_sec, tv_end_sec;
        clock_usec_t    tv_start_usec, tv_end_usec;
#endif
#if MACH_ASSERT
        int             yielded = 0;
        int             dumped_run = 0;
        int             stolen_pages = 0;
#endif

        if (contig_pages == 0)
                return VM_PAGE_NULL;

#if MACH_ASSERT
        vm_page_verify_free_lists();
#endif
#if DEBUG
        clock_get_system_microtime(&tv_start_sec, &tv_start_usec);
#endif
        vm_page_lock_queues();
        lck_mtx_lock(&vm_page_queue_free_lock);

        RESET_STATE_OF_RUN();

        scanned = 0;
        considered = 0;
        free_available = vm_page_free_count - vm_page_free_reserved;

        wrapped = FALSE;
        
        if(flags & KMA_LOMEM) 
                idx_last_contig_page_found = vm_page_lomem_find_contiguous_last_idx;
        else
                idx_last_contig_page_found =  vm_page_find_contiguous_last_idx;

        orig_last_idx = idx_last_contig_page_found;
        last_idx = orig_last_idx;

        for (page_idx = last_idx, start_idx = last_idx;
             npages < contig_pages && page_idx < vm_pages_count;
             page_idx++) {
retry:
                if (wrapped &&
                    npages == 0 &&
                    page_idx >= orig_last_idx) {
                        /*
                         * We're back where we started and we haven't
                         * found any suitable contiguous range.  Let's
                         * give up.
                         */
                        break;
                }
                scanned++;
                m = &vm_pages[page_idx];

                assert(!m->fictitious);
                assert(!m->private);

                if (max_pnum && m->phys_page > max_pnum) {
                        /* no more low pages... */
                        break;
                }
                if (!npages & ((m->phys_page & pnum_mask) != 0)) {
                        /*
                         * not aligned
                         */
                        RESET_STATE_OF_RUN();

                } else if (VM_PAGE_WIRED(m) || m->gobbled ||
                           m->encrypted || m->encrypted_cleaning || m->cs_validated || m->cs_tainted ||
                           m->error || m->absent || m->pageout_queue || m->laundry || m->wanted || m->precious ||
                           m->cleaning || m->overwriting || m->restart || m->unusual || m->list_req_pending ||
                           m->pageout) {
                        /*
                         * page is in a transient state
                         * or a state we don't want to deal
                         * with, so don't consider it which
                         * means starting a new run
                         */
                        RESET_STATE_OF_RUN();

                } else if (!m->free && !m->active && !m->inactive && !m->speculative && !m->throttled) {
                        /*
                         * page needs to be on one of our queues
                         * in order for it to be stable behind the
                         * locks we hold at this point...
                         * if not, don't consider it which
                         * means starting a new run
                         */
                        RESET_STATE_OF_RUN();

                } else if (!m->free && (!m->tabled || m->busy)) {
                        /*
                         * pages on the free list are always 'busy'
                         * so we couldn't test for 'busy' in the check
                         * for the transient states... pages that are
                         * 'free' are never 'tabled', so we also couldn't
                         * test for 'tabled'.  So we check here to make
                         * sure that a non-free page is not busy and is
                         * tabled on an object... 
                         * if not, don't consider it which
                         * means starting a new run
                         */
                        RESET_STATE_OF_RUN();

                } else {
                        if (m->phys_page != prevcontaddr + 1) {
                                if ((m->phys_page & pnum_mask) != 0) {
                                        RESET_STATE_OF_RUN();
                                        goto did_consider;
                                } else {
                                        npages = 1;
                                        start_idx = page_idx;
                                        start_pnum = m->phys_page;
                                }
                        } else {
                                npages++;
                        }
                        prevcontaddr = m->phys_page;
                        
                        VM_PAGE_CHECK(m);
                        if (m->free) {
                                free_considered++;
                        } else {
                                /*
                                 * This page is not free.
                                 * If we can't steal used pages,
                                 * we have to give up this run
                                 * and keep looking.
                                 * Otherwise, we might need to
                                 * move the contents of this page
                                 * into a substitute page.
                                 */
#if VM_PAGE_FIND_CONTIGUOUS_CAN_STEAL
                                if (m->pmapped || m->dirty) {
                                        substitute_needed++;
                                }
#else
                                RESET_STATE_OF_RUN();
#endif
                        }

                        if ((free_considered + substitute_needed) > free_available) {   
                                /*
                                 * if we let this run continue
                                 * we will end up dropping the vm_page_free_count
                                 * below the reserve limit... we need to abort
                                 * this run, but we can at least re-consider this
                                 * page... thus the jump back to 'retry'
                                 */
                                RESET_STATE_OF_RUN();

                                if (free_available && considered <= MAX_CONSIDERED_BEFORE_YIELD) {
                                        considered++;
                                        goto retry;
                                }
                                /*
                                 * free_available == 0
                                 * so can't consider any free pages... if
                                 * we went to retry in this case, we'd
                                 * get stuck looking at the same page
                                 * w/o making any forward progress
                                 * we also want to take this path if we've already
                                 * reached our limit that controls the lock latency
                                 */
                        }
                }
did_consider:
                if (considered > MAX_CONSIDERED_BEFORE_YIELD && npages <= 1) {
                        
                        lck_mtx_unlock(&vm_page_queue_free_lock);
                        vm_page_unlock_queues();

                        mutex_pause(0);

                        vm_page_lock_queues();
                        lck_mtx_lock(&vm_page_queue_free_lock);

                        RESET_STATE_OF_RUN();
                        /*
                         * reset our free page limit since we
                         * dropped the lock protecting the vm_page_free_queue
                         */
                        free_available = vm_page_free_count - vm_page_free_reserved;
                        considered = 0;
#if MACH_ASSERT
                        yielded++;
#endif
                        goto retry;
                }
                considered++;
        }
        m = VM_PAGE_NULL;

        if (npages != contig_pages) {
                if (!wrapped) {
                        /*
                         * We didn't find a contiguous range but we didn't
                         * start from the very first page.
                         * Start again from the very first page.
                         */
                        RESET_STATE_OF_RUN();
                        if( flags & KMA_LOMEM)
                                idx_last_contig_page_found  = vm_page_lomem_find_contiguous_last_idx = 0;
                        else
                                idx_last_contig_page_found = vm_page_find_contiguous_last_idx = 0;
                        last_idx = 0;
                        page_idx = last_idx;
                        wrapped = TRUE;
                        goto retry;
                }
                lck_mtx_unlock(&vm_page_queue_free_lock);
        } else {
                vm_page_t       m1;
                vm_page_t       m2;
                unsigned int    cur_idx;
                unsigned int    tmp_start_idx;
                vm_object_t     locked_object = VM_OBJECT_NULL;
                boolean_t       abort_run = FALSE;
                
                assert(page_idx - start_idx == contig_pages);

                tmp_start_idx = start_idx;

                /*
                 * first pass through to pull the free pages
                 * off of the free queue so that in case we
                 * need substitute pages, we won't grab any 
                 * of the free pages in the run... we'll clear
                 * the 'free' bit in the 2nd pass, and even in
                 * an abort_run case, we'll collect all of the
                 * free pages in this run and return them to the free list
                 */
                while (start_idx < page_idx) {

                        m1 = &vm_pages[start_idx++];

#if !VM_PAGE_FIND_CONTIGUOUS_CAN_STEAL
                        assert(m1->free);
#endif

                        if (m1->free) {
                                unsigned int color;

                                color = m1->phys_page & vm_color_mask;
#if MACH_ASSERT
                                vm_page_verify_free_list(&vm_page_queue_free[color], color, m1, TRUE);
#endif
                                queue_remove(&vm_page_queue_free[color],
                                             m1,
                                             vm_page_t,
                                             pageq);
                                m1->pageq.next = NULL;
                                m1->pageq.prev = NULL;
#if MACH_ASSERT
                                vm_page_verify_free_list(&vm_page_queue_free[color], color, VM_PAGE_NULL, FALSE);
#endif
                                /*
                                 * Clear the "free" bit so that this page
                                 * does not get considered for another
                                 * concurrent physically-contiguous allocation.
                                 */
                                m1->free = FALSE; 
                                assert(m1->busy);

                                vm_page_free_count--;
                        }
                }
                /*
                 * adjust global freelist counts
                 */
                if (vm_page_free_count < vm_page_free_count_minimum)
                        vm_page_free_count_minimum = vm_page_free_count;

                if( flags & KMA_LOMEM)
                        vm_page_lomem_find_contiguous_last_idx = page_idx;
                else 
                        vm_page_find_contiguous_last_idx = page_idx;
                
                /*
                 * we can drop the free queue lock at this point since
                 * we've pulled any 'free' candidates off of the list
                 * we need it dropped so that we can do a vm_page_grab
                 * when substituing for pmapped/dirty pages
                 */
                lck_mtx_unlock(&vm_page_queue_free_lock);

                start_idx = tmp_start_idx;
                cur_idx = page_idx - 1;

                while (start_idx++ < page_idx) {
                        /*
                         * must go through the list from back to front
                         * so that the page list is created in the
                         * correct order - low -> high phys addresses
                         */
                        m1 = &vm_pages[cur_idx--];

                        assert(!m1->free);
                        if (m1->object == VM_OBJECT_NULL) {
                                /*
                                 * page has already been removed from
                                 * the free list in the 1st pass
                                 */
                                assert(m1->offset == (vm_object_offset_t) -1);
                                assert(m1->busy);
                                assert(!m1->wanted);
                                assert(!m1->laundry);
                        } else {
                                vm_object_t object;

                                if (abort_run == TRUE)
                                        continue;

                                object = m1->object;

                                if (object != locked_object) {
                                        if (locked_object) {
                                                vm_object_unlock(locked_object);
                                                locked_object = VM_OBJECT_NULL;
                                        }
                                        if (vm_object_lock_try(object))
                                                locked_object = object;
                                }
                                if (locked_object == VM_OBJECT_NULL || 
                                    (VM_PAGE_WIRED(m1) || m1->gobbled ||
                                     m1->encrypted || m1->encrypted_cleaning || m1->cs_validated || m1->cs_tainted ||
                                     m1->error || m1->absent || m1->pageout_queue || m1->laundry || m1->wanted || m1->precious ||
                                     m1->cleaning || m1->overwriting || m1->restart || m1->unusual || m1->list_req_pending || m1->busy)) {

                                        if (locked_object) {
                                                vm_object_unlock(locked_object);
                                                locked_object = VM_OBJECT_NULL;
                                        }
                                        tmp_start_idx = cur_idx;
                                        abort_run = TRUE;
                                        continue;
                                }
                                if (m1->pmapped || m1->dirty) {
                                        int refmod;
                                        vm_object_offset_t offset;

                                        m2 = vm_page_grab();

                                        if (m2 == VM_PAGE_NULL) {
                                                if (locked_object) {
                                                        vm_object_unlock(locked_object);
                                                        locked_object = VM_OBJECT_NULL;
                                                }
                                                tmp_start_idx = cur_idx;
                                                abort_run = TRUE;
                                                continue;
                                        }
                                        if (m1->pmapped)
                                                refmod = pmap_disconnect(m1->phys_page);
                                        else
                                                refmod = 0;
                                        vm_page_copy(m1, m2);
                  
                                        m2->reference = m1->reference;
                                        m2->dirty     = m1->dirty;

                                        if (refmod & VM_MEM_REFERENCED)
                                                m2->reference = TRUE;
                                        if (refmod & VM_MEM_MODIFIED)
                                                m2->dirty = TRUE;
                                        offset = m1->offset;

                                        /*
                                         * completely cleans up the state
                                         * of the page so that it is ready
                                         * to be put onto the free list, or
                                         * for this purpose it looks like it
                                         * just came off of the free list
                                         */
                                        vm_page_free_prepare(m1);

                                        /*
                                         * make sure we clear the ref/mod state
                                         * from the pmap layer... else we risk
                                         * inheriting state from the last time
                                         * this page was used...
                                         */
                                        pmap_clear_refmod(m2->phys_page, VM_MEM_MODIFIED | VM_MEM_REFERENCED);
                                        /*
                                         * now put the substitute page on the object
                                         */
                                        vm_page_insert_internal(m2, locked_object, offset, TRUE, TRUE);

                                        if (m2->reference)
                                                vm_page_activate(m2);
                                        else
                                                vm_page_deactivate(m2);

                                        PAGE_WAKEUP_DONE(m2);

                                } else {
                                        /*
                                         * completely cleans up the state
                                         * of the page so that it is ready
                                         * to be put onto the free list, or
                                         * for this purpose it looks like it
                                         * just came off of the free list
                                         */
                                        vm_page_free_prepare(m1);
                                }
#if MACH_ASSERT
                                stolen_pages++;
#endif
                        }
                        m1->pageq.next = (queue_entry_t) m;
                        m1->pageq.prev = NULL;
                        m = m1;
                }
                if (locked_object) {
                        vm_object_unlock(locked_object);
                        locked_object = VM_OBJECT_NULL;
                }

                if (abort_run == TRUE) {
                        if (m != VM_PAGE_NULL) {
                                vm_page_free_list(m, FALSE);
                        }
#if MACH_ASSERT
                        dumped_run++;
#endif
                        /*
                         * want the index of the last
                         * page in this run that was
                         * successfully 'stolen', so back
                         * it up 1 for the auto-decrement on use
                         * and 1 more to bump back over this page
                         */
                        page_idx = tmp_start_idx + 2;
                        if (page_idx >= vm_pages_count) {
                                if (wrapped)
                                        goto done_scanning;
                                page_idx = last_idx = 0;
                                wrapped = TRUE;
                        }
                        abort_run = FALSE;
                
                        /*
                         * We didn't find a contiguous range but we didn't
                         * start from the very first page.
                         * Start again from the very first page.
                         */
                        RESET_STATE_OF_RUN();
                        
                        if( flags & KMA_LOMEM)
                                idx_last_contig_page_found  = vm_page_lomem_find_contiguous_last_idx = page_idx;
                        else
                                idx_last_contig_page_found = vm_page_find_contiguous_last_idx = page_idx;
                        
                        last_idx = page_idx;
                        
                        lck_mtx_lock(&vm_page_queue_free_lock);
                        /*
                        * reset our free page limit since we
                        * dropped the lock protecting the vm_page_free_queue
                        */
                        free_available = vm_page_free_count - vm_page_free_reserved;
                        goto retry;
                }

                for (m1 = m; m1 != VM_PAGE_NULL; m1 = NEXT_PAGE(m1)) {

                        if (wire == TRUE)
                                m1->wire_count++;
                        else
                                m1->gobbled = TRUE;
                }
                if (wire == FALSE)
                        vm_page_gobble_count += npages;

                /*
                 * gobbled pages are also counted as wired pages
                 */
                vm_page_wire_count += npages;

                assert(vm_page_verify_contiguous(m, npages));
        }
done_scanning:
        vm_page_unlock_queues();

#if DEBUG
        clock_get_system_microtime(&tv_end_sec, &tv_end_usec);

        tv_end_sec -= tv_start_sec;
        if (tv_end_usec < tv_start_usec) {
                tv_end_sec--;
                tv_end_usec += 1000000;
        }
        tv_end_usec -= tv_start_usec;
        if (tv_end_usec >= 1000000) {
                tv_end_sec++;
                tv_end_sec -= 1000000;
        }
        if (vm_page_find_contig_debug) {
                printf("%s(num=%d,low=%d): found %d pages at 0x%llx in %ld.%06ds...  started at %d... scanned %d pages...  yielded %d times...  dumped run %d times... stole %d pages\n",
               __func__, contig_pages, max_pnum, npages, (vm_object_offset_t)start_pnum << PAGE_SHIFT,
               (long)tv_end_sec, tv_end_usec, orig_last_idx,
               scanned, yielded, dumped_run, stolen_pages);
        }

#endif
#if MACH_ASSERT
        vm_page_verify_free_lists();
#endif
        return m;
}

/*
 *      Allocate a list of contiguous, wired pages.
 */
kern_return_t
cpm_allocate(
        vm_size_t       size,
        vm_page_t       *list,
        ppnum_t         max_pnum,
        ppnum_t         pnum_mask,
        boolean_t       wire,
        int             flags)
{
        vm_page_t               pages;
        unsigned int            npages;

        if (size % PAGE_SIZE != 0)
                return KERN_INVALID_ARGUMENT;

        npages = (unsigned int) (size / PAGE_SIZE);
        if (npages != size / PAGE_SIZE) {
                /* 32-bit overflow */
                return KERN_INVALID_ARGUMENT;
        }

        /*
         *      Obtain a pointer to a subset of the free
         *      list large enough to satisfy the request;
         *      the region will be physically contiguous.
         */
        pages = vm_page_find_contiguous(npages, max_pnum, pnum_mask, wire, flags);

        if (pages == VM_PAGE_NULL)
                return KERN_NO_SPACE;
        /*
         * determine need for wakeups
         */
        if ((vm_page_free_count < vm_page_free_min) ||
            ((vm_page_free_count < vm_page_free_target) &&
             ((vm_page_inactive_count + vm_page_speculative_count) < vm_page_inactive_min)))
                thread_wakeup((event_t) &vm_page_free_wanted);
                
        VM_CHECK_MEMORYSTATUS;
        
        /*
         *      The CPM pages should now be available and
         *      ordered by ascending physical address.
         */
        assert(vm_page_verify_contiguous(pages, npages));

        *list = pages;
        return KERN_SUCCESS;
}


unsigned int vm_max_delayed_work_limit = DEFAULT_DELAYED_WORK_LIMIT;

/*
 * when working on a 'run' of pages, it is necessary to hold 
 * the vm_page_queue_lock (a hot global lock) for certain operations
 * on the page... however, the majority of the work can be done
 * while merely holding the object lock... in fact there are certain
 * collections of pages that don't require any work brokered by the
 * vm_page_queue_lock... to mitigate the time spent behind the global
 * lock, go to a 2 pass algorithm... collect pages up to DELAYED_WORK_LIMIT
 * while doing all of the work that doesn't require the vm_page_queue_lock...
 * then call vm_page_do_delayed_work to acquire the vm_page_queue_lock and do the
 * necessary work for each page... we will grab the busy bit on the page
 * if it's not already held so that vm_page_do_delayed_work can drop the object lock
 * if it can't immediately take the vm_page_queue_lock in order to compete
 * for the locks in the same order that vm_pageout_scan takes them.
 * the operation names are modeled after the names of the routines that
 * need to be called in order to make the changes very obvious in the
 * original loop
 */

void
vm_page_do_delayed_work(
        vm_object_t     object,
        struct vm_page_delayed_work *dwp,
        int             dw_count)
{
        int             j;
        vm_page_t       m;
        vm_page_t       local_free_q = VM_PAGE_NULL;
        boolean_t       dropped_obj_lock = FALSE;

        /*
         * pageout_scan takes the vm_page_lock_queues first
         * then tries for the object lock... to avoid what
         * is effectively a lock inversion, we'll go to the
         * trouble of taking them in that same order... otherwise
         * if this object contains the majority of the pages resident
         * in the UBC (or a small set of large objects actively being
         * worked on contain the majority of the pages), we could
         * cause the pageout_scan thread to 'starve' in its attempt
         * to find pages to move to the free queue, since it has to
         * successfully acquire the object lock of any candidate page
         * before it can steal/clean it.
         */
        if (!vm_page_trylockspin_queues()) {
                vm_object_unlock(object);

                vm_page_lockspin_queues();

                for (j = 0; ; j++) {
                        if (!vm_object_lock_avoid(object) &&
                            _vm_object_lock_try(object))
                                break;
                        vm_page_unlock_queues();
                        mutex_pause(j);
                        vm_page_lockspin_queues();
                }
                dropped_obj_lock = TRUE;
        }
        for (j = 0; j < dw_count; j++, dwp++) {

                m = dwp->dw_m;

                if (dwp->dw_mask & DW_set_list_req_pending) {
                        m->list_req_pending = TRUE;

                        if (dropped_obj_lock == TRUE) {
                                /*
                                 * need to make sure anyone that might have
                                 * blocked on busy == TRUE when we dropped
                                 * the object lock gets a chance to re-evaluate
                                 * its state since we have several places
                                 * where we avoid potential deadlocks with
                                 * the fileysystem by stealing pages with
                                 * list_req_pending == TRUE and busy == TRUE
                                 */
                                dwp->dw_mask |= DW_PAGE_WAKEUP;
                        }
                }
                if (dwp->dw_mask & DW_vm_pageout_throttle_up)
                        vm_pageout_throttle_up(m);

                if (dwp->dw_mask & DW_vm_page_wire)
                        vm_page_wire(m);
                else if (dwp->dw_mask & DW_vm_page_unwire) {
                        boolean_t       queueit;

                        queueit = (dwp->dw_mask & DW_vm_page_free) ? FALSE : TRUE;

                        vm_page_unwire(m, queueit);
                }
                if (dwp->dw_mask & DW_vm_page_free) {
                        vm_page_free_prepare_queues(m);

                        assert(m->pageq.next == NULL && m->pageq.prev == NULL);
                        /*
                         * Add this page to our list of reclaimed pages,
                         * to be freed later.
                         */
                        m->pageq.next = (queue_entry_t) local_free_q;
                        local_free_q = m;
                } else {
                        if (dwp->dw_mask & DW_vm_page_deactivate_internal)
                                vm_page_deactivate_internal(m, FALSE);
                        else if (dwp->dw_mask & DW_vm_page_activate) {
                                if (m->active == FALSE) {
                                        vm_page_activate(m);
                                }
                        }
                        else if (dwp->dw_mask & DW_vm_page_speculate)
                                vm_page_speculate(m, TRUE);
                        else if (dwp->dw_mask & DW_vm_page_lru)
                                vm_page_lru(m);
                        else if (dwp->dw_mask & DW_VM_PAGE_QUEUES_REMOVE)
                                VM_PAGE_QUEUES_REMOVE(m);
                        
                        if (dwp->dw_mask & DW_set_reference)
                                m->reference = TRUE;
                        else if (dwp->dw_mask & DW_clear_reference)
                                m->reference = FALSE;

                        if (dwp->dw_mask & DW_move_page) {
                                VM_PAGE_QUEUES_REMOVE(m);

                                assert(!m->laundry);
                                assert(m->object != kernel_object);
                                assert(m->pageq.next == NULL &&
                                       m->pageq.prev == NULL);

                                VM_PAGE_ENQUEUE_INACTIVE(m, FALSE);
                        }
                        if (dwp->dw_mask & DW_clear_busy)
                                m->busy = FALSE;

                        if (dwp->dw_mask & DW_PAGE_WAKEUP)
                                PAGE_WAKEUP(m);
                }
        }
        vm_page_unlock_queues();

        if (local_free_q)
                vm_page_free_list(local_free_q, TRUE);
        
        VM_CHECK_MEMORYSTATUS;

}


        

void vm_check_memorystatus()
{
#if CONFIG_EMBEDDED
        static boolean_t in_critical = FALSE;
        static unsigned int last_memorystatus = 0;
        unsigned int pages_avail;
        
        if (!kern_memorystatus_delta) {
            return;
        }
        
        pages_avail = (vm_page_active_count + 
                      vm_page_inactive_count + 
                      vm_page_speculative_count + 
                      vm_page_free_count +
                      (VM_DYNAMIC_PAGING_ENABLED(memory_manager_default) ? 0 : vm_page_purgeable_count));
        if ( (!in_critical && (pages_avail < kern_memorystatus_delta)) ||
             (pages_avail >= (last_memorystatus + kern_memorystatus_delta)) ||
             (last_memorystatus >= (pages_avail + kern_memorystatus_delta)) ) {
            kern_memorystatus_level = pages_avail * 100 / atop_64(max_mem);
            last_memorystatus = pages_avail;
                
            thread_wakeup((event_t)&kern_memorystatus_wakeup);
                
            in_critical = (pages_avail < kern_memorystatus_delta) ? TRUE : FALSE;
        }
#endif
}

kern_return_t
vm_page_alloc_list(
        int     page_count,
        int     flags,
        vm_page_t *list)
{
        vm_page_t       lo_page_list = VM_PAGE_NULL;
        vm_page_t       mem;
        int             i;

        if ( !(flags & KMA_LOMEM))
                panic("vm_page_alloc_list: called w/o KMA_LOMEM");

        for (i = 0; i < page_count; i++) {

                mem = vm_page_grablo();

                if (mem == VM_PAGE_NULL) {
                        if (lo_page_list)
                                vm_page_free_list(lo_page_list, FALSE);

                        *list = VM_PAGE_NULL;

                        return (KERN_RESOURCE_SHORTAGE);
                }
                mem->pageq.next = (queue_entry_t) lo_page_list;
                lo_page_list = mem;
        }
        *list = lo_page_list;

        return (KERN_SUCCESS);
}

void
vm_page_set_offset(vm_page_t page, vm_object_offset_t offset)
{
        page->offset = offset;
}

vm_page_t
vm_page_get_next(vm_page_t page)
{
        return ((vm_page_t) page->pageq.next);
}

vm_object_offset_t
vm_page_get_offset(vm_page_t page)
{
        return (page->offset);
}

ppnum_t
vm_page_get_phys_page(vm_page_t page)
{
        return (page->phys_page);
}
        
        
/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#if HIBERNATION

static vm_page_t hibernate_gobble_queue;

extern boolean_t (* volatile consider_buffer_cache_collect)(int);

static int  hibernate_drain_pageout_queue(struct vm_pageout_queue *);
static int  hibernate_flush_dirty_pages(void);
static int  hibernate_flush_queue(queue_head_t *, int);
static void hibernate_dirty_page(vm_page_t);

void hibernate_flush_wait(void);
void hibernate_mark_in_progress(void);
void hibernate_clear_in_progress(void);


struct hibernate_statistics {
        int hibernate_considered;
        int hibernate_reentered_on_q;
        int hibernate_found_dirty;
        int hibernate_skipped_cleaning;
        int hibernate_skipped_transient;
        int hibernate_skipped_precious;
        int hibernate_queue_nolock;
        int hibernate_queue_paused;
        int hibernate_throttled;
        int hibernate_throttle_timeout;
        int hibernate_drained;
        int hibernate_drain_timeout;
        int cd_lock_failed;
        int cd_found_precious;
        int cd_found_wired;
        int cd_found_busy;
        int cd_found_unusual;
        int cd_found_cleaning;
        int cd_found_laundry;
        int cd_found_dirty;
        int cd_local_free;
        int cd_total_free;
        int cd_vm_page_wire_count;
        int cd_pages;
        int cd_discarded;
        int cd_count_wire;
} hibernate_stats;



static int
hibernate_drain_pageout_queue(struct vm_pageout_queue *q)
{
        wait_result_t   wait_result;

        vm_page_lock_queues();

        while (q->pgo_laundry) {

                q->pgo_draining = TRUE;

                assert_wait_timeout((event_t) (&q->pgo_laundry+1), THREAD_INTERRUPTIBLE, 5000, 1000*NSEC_PER_USEC);

                vm_page_unlock_queues();

                wait_result = thread_block(THREAD_CONTINUE_NULL);

                if (wait_result == THREAD_TIMED_OUT) {
                        hibernate_stats.hibernate_drain_timeout++;
                        return (1);
                }
                vm_page_lock_queues();

                hibernate_stats.hibernate_drained++;
        }
        vm_page_unlock_queues();

        return (0);
}

static void
hibernate_dirty_page(vm_page_t m)
{
        vm_object_t     object = m->object;
        struct          vm_pageout_queue *q;

#if DEBUG
        lck_mtx_assert(&vm_page_queue_lock, LCK_MTX_ASSERT_OWNED);
#endif
        vm_object_lock_assert_exclusive(object);

        /*
         * protect the object from collapse - 
         * locking in the object's paging_offset.
         */
        vm_object_paging_begin(object);

        m->list_req_pending = TRUE;
        m->cleaning = TRUE;
        m->busy = TRUE;

        if (object->internal == TRUE)
                q = &vm_pageout_queue_internal;
        else
                q = &vm_pageout_queue_external;

        /* 
         * pgo_laundry count is tied to the laundry bit
         */
        m->laundry = TRUE;
        q->pgo_laundry++;

        m->pageout_queue = TRUE;
        queue_enter(&q->pgo_pending, m, vm_page_t, pageq);
        
        if (q->pgo_idle == TRUE) {
                q->pgo_idle = FALSE;
                thread_wakeup((event_t) &q->pgo_pending);
        }
}

static int
hibernate_flush_queue(queue_head_t *q, int qcount)
{
        vm_page_t       m;
        vm_object_t     l_object = NULL;
        vm_object_t     m_object = NULL;
        int             refmod_state = 0;
        int             try_failed_count = 0;
        int             retval = 0;
        int             current_run = 0;
        struct  vm_pageout_queue *iq;
        struct  vm_pageout_queue *eq;
        struct  vm_pageout_queue *tq;


        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 4) | DBG_FUNC_START, q, qcount, 0, 0, 0);
        
        iq = &vm_pageout_queue_internal;
        eq = &vm_pageout_queue_external;

        vm_page_lock_queues();

        while (qcount && !queue_empty(q)) {

                if (current_run++ == 1000) {
                        if (hibernate_should_abort()) {
                                retval = 1;
                                break;
                        }
                        current_run = 0;
                }

                m = (vm_page_t) queue_first(q);
                m_object = m->object;

                /*
                 * check to see if we currently are working
                 * with the same object... if so, we've
                 * already got the lock
                 */
                if (m_object != l_object) {
                        /*
                         * the object associated with candidate page is 
                         * different from the one we were just working
                         * with... dump the lock if we still own it
                         */
                        if (l_object != NULL) {
                                vm_object_unlock(l_object);
                                l_object = NULL;
                        }
                        /*
                         * Try to lock object; since we've alread got the
                         * page queues lock, we can only 'try' for this one.
                         * if the 'try' fails, we need to do a mutex_pause
                         * to allow the owner of the object lock a chance to
                         * run... 
                         */
                        if ( !vm_object_lock_try_scan(m_object)) {

                                if (try_failed_count > 20) {
                                        hibernate_stats.hibernate_queue_nolock++;

                                        goto reenter_pg_on_q;
                                }
                                vm_pageout_scan_wants_object = m_object;

                                vm_page_unlock_queues();
                                mutex_pause(try_failed_count++);
                                vm_page_lock_queues();

                                hibernate_stats.hibernate_queue_paused++;
                                continue;
                        } else {
                                l_object = m_object;
                                vm_pageout_scan_wants_object = VM_OBJECT_NULL;
                        }
                }
                if ( !m_object->alive || m->encrypted_cleaning || m->cleaning || m->busy || m->absent || m->error) {
                        /*
                         * page is not to be cleaned
                         * put it back on the head of its queue
                         */
                        if (m->cleaning)
                                hibernate_stats.hibernate_skipped_cleaning++;
                        else
                                hibernate_stats.hibernate_skipped_transient++;

                        goto reenter_pg_on_q;
                }
                if ( !m_object->pager_initialized && m_object->pager_created)
                        goto reenter_pg_on_q;
                        
                if (m_object->copy == VM_OBJECT_NULL) {
                        if (m_object->purgable == VM_PURGABLE_VOLATILE || m_object->purgable == VM_PURGABLE_EMPTY) {
                                /*
                                 * let the normal hibernate image path
                                 * deal with these
                                 */
                                goto reenter_pg_on_q;
                        }
                }
                if ( !m->dirty && m->pmapped) {
                        refmod_state = pmap_get_refmod(m->phys_page);

                        if ((refmod_state & VM_MEM_MODIFIED))
                                m->dirty = TRUE;
                } else
                        refmod_state = 0;

                if ( !m->dirty) {
                        /*
                         * page is not to be cleaned
                         * put it back on the head of its queue
                         */
                        if (m->precious)
                                hibernate_stats.hibernate_skipped_precious++;

                        goto reenter_pg_on_q;
                }
                tq = NULL;

                if (m_object->internal) {
                        if (VM_PAGE_Q_THROTTLED(iq))
                                tq = iq;
                } else if (VM_PAGE_Q_THROTTLED(eq))
                        tq = eq;

                if (tq != NULL) {
                        wait_result_t   wait_result;
                        int             wait_count = 5;

                        if (l_object != NULL) {
                                vm_object_unlock(l_object);
                                l_object = NULL;
                        }
                        vm_pageout_scan_wants_object = VM_OBJECT_NULL;

                        tq->pgo_throttled = TRUE;

                        while (retval == 0) {

                                assert_wait_timeout((event_t) &tq->pgo_laundry, THREAD_INTERRUPTIBLE, 1000, 1000*NSEC_PER_USEC);

                        vm_page_unlock_queues();

                        wait_result = thread_block(THREAD_CONTINUE_NULL);

                                vm_page_lock_queues();

                                if (hibernate_should_abort())
                                        retval = 1;

                                if (wait_result != THREAD_TIMED_OUT)
                                        break;
                                
                                if (--wait_count == 0) {
                                hibernate_stats.hibernate_throttle_timeout++;
                                retval = 1;
                        }
                        }
                        if (retval)
                                break;

                        hibernate_stats.hibernate_throttled++;

                        continue;
                }
                VM_PAGE_QUEUES_REMOVE(m);

                hibernate_dirty_page(m);

                hibernate_stats.hibernate_found_dirty++;

                goto next_pg;

reenter_pg_on_q:
                queue_remove(q, m, vm_page_t, pageq);
                queue_enter(q, m, vm_page_t, pageq);

                hibernate_stats.hibernate_reentered_on_q++;
next_pg:
                hibernate_stats.hibernate_considered++;

                qcount--;
                try_failed_count = 0;
        }
        if (l_object != NULL) {
                vm_object_unlock(l_object);
                l_object = NULL;
        }
    vm_pageout_scan_wants_object = VM_OBJECT_NULL;

        vm_page_unlock_queues();

        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 4) | DBG_FUNC_END, hibernate_stats.hibernate_found_dirty, retval, 0, 0, 0);

        return (retval);
}


static int
hibernate_flush_dirty_pages()
{
        struct vm_speculative_age_q     *aq;
        uint32_t        i;

        bzero(&hibernate_stats, sizeof(struct hibernate_statistics));

        if (vm_page_local_q) {
                for (i = 0; i < vm_page_local_q_count; i++)
                        vm_page_reactivate_local(i, TRUE, FALSE);
        }

        for (i = 0; i <= VM_PAGE_MAX_SPECULATIVE_AGE_Q; i++) {
                int             qcount;
                vm_page_t       m;

                aq = &vm_page_queue_speculative[i];

                if (queue_empty(&aq->age_q))
                        continue;
                qcount = 0;

                vm_page_lockspin_queues();

                queue_iterate(&aq->age_q,
                              m,
                              vm_page_t,
                              pageq)
                {
                        qcount++;
                }
                vm_page_unlock_queues();

                if (qcount) {
                        if (hibernate_flush_queue(&aq->age_q, qcount))
                                return (1);
                }
        }
        if (hibernate_flush_queue(&vm_page_queue_active, vm_page_active_count))
                return (1);
        if (hibernate_flush_queue(&vm_page_queue_inactive, vm_page_inactive_count - vm_zf_queue_count))
                return (1);
        if (hibernate_flush_queue(&vm_page_queue_zf, vm_zf_queue_count))
                return (1);

        if (hibernate_drain_pageout_queue(&vm_pageout_queue_internal))
                return (1);
        return (hibernate_drain_pageout_queue(&vm_pageout_queue_external));
}


extern void IOSleep(unsigned int);
extern int sync_internal(void);

int
hibernate_flush_memory()
{
        int     retval;

        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 3) | DBG_FUNC_START, vm_page_free_count, 0, 0, 0, 0);

        IOSleep(2 * 1000);

        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 3) | DBG_FUNC_NONE, vm_page_free_count, 0, 0, 0, 0);

        if ((retval = hibernate_flush_dirty_pages()) == 0) {
                if (consider_buffer_cache_collect != NULL) {

                        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 7) | DBG_FUNC_START, vm_page_wire_count, 0, 0, 0, 0);
                        
                        sync_internal();
                        (void)(*consider_buffer_cache_collect)(1);
                        consider_zone_gc(TRUE);

                        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 7) | DBG_FUNC_END, vm_page_wire_count, 0, 0, 0, 0);
                }
        }
        KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 3) | DBG_FUNC_END, vm_page_free_count, hibernate_stats.hibernate_found_dirty, retval, 0, 0);

    HIBPRINT("hibernate_flush_memory() considered(%d) reentered_on_q(%d) found_dirty(%d)\n",
                hibernate_stats.hibernate_considered,
                hibernate_stats.hibernate_reentered_on_q,
                hibernate_stats.hibernate_found_dirty);
    HIBPRINT("   skipped_cleaning(%d) skipped_transient(%d) skipped_precious(%d) queue_nolock(%d)\n",
                hibernate_stats.hibernate_skipped_cleaning,
                hibernate_stats.hibernate_skipped_transient,
                hibernate_stats.hibernate_skipped_precious,
                hibernate_stats.hibernate_queue_nolock);
    HIBPRINT("   queue_paused(%d) throttled(%d) throttle_timeout(%d) drained(%d) drain_timeout(%d)\n",
                hibernate_stats.hibernate_queue_paused,
                hibernate_stats.hibernate_throttled,
                hibernate_stats.hibernate_throttle_timeout,
                hibernate_stats.hibernate_drained,
                hibernate_stats.hibernate_drain_timeout);

        return (retval);
}


static void
hibernate_page_list_zero(hibernate_page_list_t *list)
{
    uint32_t             bank;
    hibernate_bitmap_t * bitmap;

    bitmap = &list->bank_bitmap[0];
    for (bank = 0; bank < list->bank_count; bank++)
    {
        uint32_t last_bit;

        bzero((void *) &bitmap->bitmap[0], bitmap->bitmapwords << 2); 
        // set out-of-bound bits at end of bitmap.
        last_bit = ((bitmap->last_page - bitmap->first_page + 1) & 31);
        if (last_bit)
            bitmap->bitmap[bitmap->bitmapwords - 1] = (0xFFFFFFFF >> last_bit);

        bitmap = (hibernate_bitmap_t *) &bitmap->bitmap[bitmap->bitmapwords];
    }
}

void
hibernate_gobble_pages(uint32_t gobble_count, uint32_t free_page_time)
{
    uint32_t i;
    vm_page_t m;
    uint64_t start, end, timeout, nsec;
    clock_interval_to_deadline(free_page_time, 1000 * 1000 /*ms*/, &timeout);
    clock_get_uptime(&start);

    for (i = 0; i < gobble_count; i++)
    {
        while (VM_PAGE_NULL == (m = vm_page_grab()))
        {
            clock_get_uptime(&end);
            if (end >= timeout)
                break;
            VM_PAGE_WAIT();
        }
        if (!m)
            break;
        m->busy = FALSE;
        vm_page_gobble(m);

        m->pageq.next = (queue_entry_t) hibernate_gobble_queue;
        hibernate_gobble_queue = m;
    }

    clock_get_uptime(&end);
    absolutetime_to_nanoseconds(end - start, &nsec);
    HIBLOG("Gobbled %d pages, time: %qd ms\n", i, nsec / 1000000ULL);
}

void
hibernate_free_gobble_pages(void)
{
    vm_page_t m, next;
    uint32_t  count = 0;

    m = (vm_page_t) hibernate_gobble_queue;
    while(m)
    {
        next = (vm_page_t) m->pageq.next;
        vm_page_free(m);
        count++;
        m = next;
    }
    hibernate_gobble_queue = VM_PAGE_NULL;
    
    if (count)
        HIBLOG("Freed %d pages\n", count);
}

static boolean_t 
hibernate_consider_discard(vm_page_t m)
{
    vm_object_t object = NULL;
    int                  refmod_state;
    boolean_t            discard = FALSE;

    do
    {
        if (m->private)
            panic("hibernate_consider_discard: private");

        if (!vm_object_lock_try(m->object)) {
            hibernate_stats.cd_lock_failed++;
            break;
        }
        object = m->object;

        if (VM_PAGE_WIRED(m)) {
            hibernate_stats.cd_found_wired++;
            break;
        }
        if (m->precious) {
            hibernate_stats.cd_found_precious++;
            break;
        }
        if (m->busy || !object->alive) {
           /*
            *   Somebody is playing with this page.
            */
            hibernate_stats.cd_found_busy++;
            break;
        }
        if (m->absent || m->unusual || m->error) {
           /*
            * If it's unusual in anyway, ignore it
            */
            hibernate_stats.cd_found_unusual++;
            break;
        }
        if (m->cleaning) {
            hibernate_stats.cd_found_cleaning++;
            break;
        }
        if (m->laundry || m->list_req_pending) {
            hibernate_stats.cd_found_laundry++;
            break;
        }
        if (!m->dirty)
        {
            refmod_state = pmap_get_refmod(m->phys_page);
        
            if (refmod_state & VM_MEM_REFERENCED)
                m->reference = TRUE;
            if (refmod_state & VM_MEM_MODIFIED)
                m->dirty = TRUE;
        }
   
        /*
         * If it's clean or purgeable we can discard the page on wakeup.
         */
        discard = (!m->dirty) 
                    || (VM_PURGABLE_VOLATILE == object->purgable)
                    || (VM_PURGABLE_EMPTY    == object->purgable);

        if (discard == FALSE)
            hibernate_stats.cd_found_dirty++;
    }
    while (FALSE);

    if (object)
        vm_object_unlock(object);

    return (discard);
}


static void
hibernate_discard_page(vm_page_t m)
{
    if (m->absent || m->unusual || m->error)
       /*
        * If it's unusual in anyway, ignore
        */
        return;

    if (m->pmapped == TRUE) 
    {
        __unused int refmod_state = pmap_disconnect(m->phys_page);
    }

    if (m->laundry)
        panic("hibernate_discard_page(%p) laundry", m);
    if (m->private)
        panic("hibernate_discard_page(%p) private", m);
    if (m->fictitious)
        panic("hibernate_discard_page(%p) fictitious", m);

    if (VM_PURGABLE_VOLATILE == m->object->purgable)
    {
        /* object should be on a queue */
        assert((m->object->objq.next != NULL) && (m->object->objq.prev != NULL));
        purgeable_q_t old_queue = vm_purgeable_object_remove(m->object);
        assert(old_queue);
        /* No need to lock page queue for token delete, hibernate_vm_unlock() 
           makes sure these locks are uncontended before sleep */
        vm_purgeable_token_delete_first(old_queue);
        m->object->purgable = VM_PURGABLE_EMPTY;
    }
        
    vm_page_free(m);
}

/*
 Bits zero in the bitmaps => page needs to be saved. All pages default to be saved,
 pages known to VM to not need saving are subtracted.
 Wired pages to be saved are present in page_list_wired, pageable in page_list.
*/

void
hibernate_page_list_setall(hibernate_page_list_t * page_list,
                           hibernate_page_list_t * page_list_wired,
                           hibernate_page_list_t * page_list_pal,
                           uint32_t * pagesOut)
{
    uint64_t start, end, nsec;
    vm_page_t m;
    uint32_t pages = page_list->page_count;
    uint32_t count_zf = 0, count_throttled = 0;
    uint32_t count_inactive = 0, count_active = 0, count_speculative = 0;
    uint32_t count_wire = pages;
    uint32_t count_discard_active    = 0;
    uint32_t count_discard_inactive  = 0;
    uint32_t count_discard_purgeable = 0;
    uint32_t count_discard_speculative = 0;
    uint32_t i;
    uint32_t             bank;
    hibernate_bitmap_t * bitmap;
    hibernate_bitmap_t * bitmap_wired;


    HIBLOG("hibernate_page_list_setall start %p, %p\n", page_list, page_list_wired);

    KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 8) | DBG_FUNC_START, count_wire, 0, 0, 0, 0);

    clock_get_uptime(&start);

    hibernate_page_list_zero(page_list);
    hibernate_page_list_zero(page_list_wired);
    hibernate_page_list_zero(page_list_pal);

    hibernate_stats.cd_vm_page_wire_count = vm_page_wire_count;
    hibernate_stats.cd_pages = pages;

    if (vm_page_local_q) {
            for (i = 0; i < vm_page_local_q_count; i++)
                    vm_page_reactivate_local(i, TRUE, TRUE);
    }

    m = (vm_page_t) hibernate_gobble_queue;
    while(m)
    {
        pages--;
        count_wire--;
        hibernate_page_bitset(page_list,       TRUE, m->phys_page);
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
        m = (vm_page_t) m->pageq.next;
    }

    for( i = 0; i < real_ncpus; i++ )
    {
        if (cpu_data_ptr[i] && cpu_data_ptr[i]->cpu_processor)
        {
            for (m = PROCESSOR_DATA(cpu_data_ptr[i]->cpu_processor, free_pages); m; m = (vm_page_t)m->pageq.next)
            {
                pages--;
                count_wire--;
                hibernate_page_bitset(page_list,       TRUE, m->phys_page);
                hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);

                hibernate_stats.cd_local_free++;
                hibernate_stats.cd_total_free++;
            }
        }
    }

    for( i = 0; i < vm_colors; i++ )
    {
        queue_iterate(&vm_page_queue_free[i],
                      m,
                      vm_page_t,
                      pageq)
        {
            pages--;
            count_wire--;
            hibernate_page_bitset(page_list,       TRUE, m->phys_page);
            hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);

            hibernate_stats.cd_total_free++;
        }
    }

    queue_iterate(&vm_lopage_queue_free,
                  m,
                  vm_page_t,
                  pageq)
    {
        pages--;
        count_wire--;
        hibernate_page_bitset(page_list,       TRUE, m->phys_page);
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);

        hibernate_stats.cd_total_free++;
    }

    queue_iterate( &vm_page_queue_throttled,
                    m,
                    vm_page_t,
                    pageq )
    {
        if ((kIOHibernateModeDiscardCleanInactive & gIOHibernateMode) 
         && hibernate_consider_discard(m))
        {
            hibernate_page_bitset(page_list, TRUE, m->phys_page);
            count_discard_inactive++;
        }
        else
            count_throttled++;
        count_wire--;
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
    }

    queue_iterate( &vm_page_queue_zf,
                    m,
                    vm_page_t,
                   pageq )
    {
        if ((kIOHibernateModeDiscardCleanInactive & gIOHibernateMode) 
         && hibernate_consider_discard(m))
        {
            hibernate_page_bitset(page_list, TRUE, m->phys_page);
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_inactive++;
        }
        else
            count_zf++;
        count_wire--;
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
    }

    queue_iterate( &vm_page_queue_inactive,
                    m,
                    vm_page_t,
                    pageq )
    {
        if ((kIOHibernateModeDiscardCleanInactive & gIOHibernateMode) 
         && hibernate_consider_discard(m))
        {
            hibernate_page_bitset(page_list, TRUE, m->phys_page);
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_inactive++;
        }
        else
            count_inactive++;
        count_wire--;
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
    }

    for( i = 0; i <= VM_PAGE_MAX_SPECULATIVE_AGE_Q; i++ )
    {
       queue_iterate(&vm_page_queue_speculative[i].age_q,
                     m,
                     vm_page_t,
                     pageq)
       {
           if ((kIOHibernateModeDiscardCleanInactive & gIOHibernateMode) 
            && hibernate_consider_discard(m))
           {
               hibernate_page_bitset(page_list, TRUE, m->phys_page);
               count_discard_speculative++;
           }
           else
               count_speculative++;
           count_wire--;
           hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
       }
    }

    queue_iterate( &vm_page_queue_active,
                    m,
                    vm_page_t,
                    pageq )
    {
        if ((kIOHibernateModeDiscardCleanActive & gIOHibernateMode) 
         && hibernate_consider_discard(m))
        {
            hibernate_page_bitset(page_list, TRUE, m->phys_page);
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_active++;
        }
        else
            count_active++;
        count_wire--;
        hibernate_page_bitset(page_list_wired, TRUE, m->phys_page);
    }

    // pull wired from hibernate_bitmap

    bitmap = &page_list->bank_bitmap[0];
    bitmap_wired = &page_list_wired->bank_bitmap[0];
    for (bank = 0; bank < page_list->bank_count; bank++)
    {
        for (i = 0; i < bitmap->bitmapwords; i++)
            bitmap->bitmap[i] = bitmap->bitmap[i] | ~bitmap_wired->bitmap[i];
        bitmap       = (hibernate_bitmap_t *) &bitmap->bitmap      [bitmap->bitmapwords];
        bitmap_wired = (hibernate_bitmap_t *) &bitmap_wired->bitmap[bitmap_wired->bitmapwords];
    }

    // machine dependent adjustments
    hibernate_page_list_setall_machine(page_list, page_list_wired, &pages);

    hibernate_stats.cd_count_wire = count_wire;
    hibernate_stats.cd_discarded = count_discard_active + count_discard_inactive + count_discard_purgeable + count_discard_speculative;

    clock_get_uptime(&end);
    absolutetime_to_nanoseconds(end - start, &nsec);
    HIBLOG("hibernate_page_list_setall time: %qd ms\n", nsec / 1000000ULL);

    HIBLOG("pages %d, wire %d, act %d, inact %d, spec %d, zf %d, throt %d, could discard act %d inact %d purgeable %d spec %d\n", 
                pages, count_wire, count_active, count_inactive, count_speculative, count_zf, count_throttled,
                count_discard_active, count_discard_inactive, count_discard_purgeable, count_discard_speculative);

    *pagesOut = pages - count_discard_active - count_discard_inactive - count_discard_purgeable - count_discard_speculative;

    KERNEL_DEBUG_CONSTANT(IOKDBG_CODE(DBG_HIBERNATE, 8) | DBG_FUNC_END, count_wire, *pagesOut, 0, 0, 0);
}

void
hibernate_page_list_discard(hibernate_page_list_t * page_list)
{
    uint64_t  start, end, nsec;
    vm_page_t m;
    vm_page_t next;
    uint32_t  i;
    uint32_t  count_discard_active    = 0;
    uint32_t  count_discard_inactive  = 0;
    uint32_t  count_discard_purgeable = 0;
    uint32_t  count_discard_speculative = 0;

    clock_get_uptime(&start);

    m = (vm_page_t) queue_first(&vm_page_queue_zf);
    while (m && !queue_end(&vm_page_queue_zf, (queue_entry_t)m))
    {
        next = (vm_page_t) m->pageq.next;
        if (hibernate_page_bittst(page_list, m->phys_page))
        {
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_inactive++;
            hibernate_discard_page(m);
        }
        m = next;
    }

    for( i = 0; i <= VM_PAGE_MAX_SPECULATIVE_AGE_Q; i++ )
    {
       m = (vm_page_t) queue_first(&vm_page_queue_speculative[i].age_q);
       while (m && !queue_end(&vm_page_queue_speculative[i].age_q, (queue_entry_t)m))
       {
           next = (vm_page_t) m->pageq.next;
           if (hibernate_page_bittst(page_list, m->phys_page))
           {
               count_discard_speculative++;
               hibernate_discard_page(m);
           }
           m = next;
       }
    }

    m = (vm_page_t) queue_first(&vm_page_queue_inactive);
    while (m && !queue_end(&vm_page_queue_inactive, (queue_entry_t)m))
    {
        next = (vm_page_t) m->pageq.next;
        if (hibernate_page_bittst(page_list, m->phys_page))
        {
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_inactive++;
            hibernate_discard_page(m);
        }
        m = next;
    }

    m = (vm_page_t) queue_first(&vm_page_queue_active);
    while (m && !queue_end(&vm_page_queue_active, (queue_entry_t)m))
    {
        next = (vm_page_t) m->pageq.next;
        if (hibernate_page_bittst(page_list, m->phys_page))
        {
            if (m->dirty)
                count_discard_purgeable++;
            else
                count_discard_active++;
            hibernate_discard_page(m);
        }
        m = next;
    }

    clock_get_uptime(&end);
    absolutetime_to_nanoseconds(end - start, &nsec);
    HIBLOG("hibernate_page_list_discard time: %qd ms, discarded act %d inact %d purgeable %d spec %d\n",
                nsec / 1000000ULL,
                count_discard_active, count_discard_inactive, count_discard_purgeable, count_discard_speculative);
}

#endif /* HIBERNATION */

/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */

#include <mach_vm_debug.h>
#if     MACH_VM_DEBUG

#include <mach_debug/hash_info.h>
#include <vm/vm_debug.h>

/*
 *      Routine:        vm_page_info
 *      Purpose:
 *              Return information about the global VP table.
 *              Fills the buffer with as much information as possible
 *              and returns the desired size of the buffer.
 *      Conditions:
 *              Nothing locked.  The caller should provide
 *              possibly-pageable memory.
 */

unsigned int
vm_page_info(
        hash_info_bucket_t *info,
        unsigned int count)
{
        unsigned int i;
        lck_spin_t      *bucket_lock;

        if (vm_page_bucket_count < count)
                count = vm_page_bucket_count;

        for (i = 0; i < count; i++) {
                vm_page_bucket_t *bucket = &vm_page_buckets[i];
                unsigned int bucket_count = 0;
                vm_page_t m;

                bucket_lock = &vm_page_bucket_locks[i / BUCKETS_PER_LOCK];
                lck_spin_lock(bucket_lock);

                for (m = bucket->pages; m != VM_PAGE_NULL; m = m->next)
                        bucket_count++;

                lck_spin_unlock(bucket_lock);

                /* don't touch pageable memory while holding locks */
                info[i].hib_count = bucket_count;
        }

        return vm_page_bucket_count;
}
#endif  /* MACH_VM_DEBUG */

#include <mach_kdb.h>
#if     MACH_KDB

#include <ddb/db_output.h>
#include <vm/vm_print.h>
#define printf  kdbprintf

/*
 *      Routine:        vm_page_print [exported]
 */
void
vm_page_print(
        db_addr_t       db_addr)
{
        vm_page_t       p;

        p = (vm_page_t) (long) db_addr;

        iprintf("page 0x%x\n", p);

        db_indent += 2;

        iprintf("object=0x%x", p->object);
        printf(", offset=0x%x", p->offset);
        printf(", wire_count=%d", p->wire_count);

        iprintf("%slocal, %sinactive, %sactive, %sthrottled, %sgobbled, %slaundry, %sfree, %sref, %sencrypted\n",
                (p->local ? "" : "!"),
                (p->inactive ? "" : "!"),
                (p->active ? "" : "!"),
                (p->throttled ? "" : "!"),
                (p->gobbled ? "" : "!"),
                (p->laundry ? "" : "!"),
                (p->free ? "" : "!"),
                (p->reference ? "" : "!"),
                (p->encrypted ? "" : "!"));
        iprintf("%sbusy, %swanted, %stabled, %sfictitious, %sprivate, %sprecious\n",
                (p->busy ? "" : "!"),
                (p->wanted ? "" : "!"),
                (p->tabled ? "" : "!"),
                (p->fictitious ? "" : "!"),
                (p->private ? "" : "!"),
                (p->precious ? "" : "!"));
        iprintf("%sabsent, %serror, %sdirty, %scleaning, %spageout, %sclustered\n",
                (p->absent ? "" : "!"),
                (p->error ? "" : "!"),
                (p->dirty ? "" : "!"),
                (p->cleaning ? "" : "!"),
                (p->pageout ? "" : "!"),
                (p->clustered ? "" : "!"));
        iprintf("%soverwriting, %srestart, %sunusual\n",
                (p->overwriting ? "" : "!"),
                (p->restart ? "" : "!"),
                (p->unusual ? "" : "!"));

        iprintf("phys_page=0x%x", p->phys_page);

        db_indent -= 2;
}
#endif  /* MACH_KDB */