Changeset 9959


Ignore:
Timestamp:
Jul 10, 2008, 9:15:35 AM (11 years ago)
Author:
gb
Message:

Changes from trunk: more prototypes, paging_info stuff (for GC-VERBOSE.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lisp-kernel/gc.h

    r7644 r9959  
    112112#endif
    113113
     114#ifdef DARWIN
     115#include <mach/task_info.h>
     116typedef struct task_events_info paging_info;
     117#else
     118#ifndef WINDOWS
     119#include <sys/resource.h>
     120typedef struct rusage paging_info;
     121#else
     122typedef natural paging_info;
     123#endif
     124#endif
     125
     126#include <stdio.h>
     127
     128void sample_paging_info(paging_info *);
     129void report_paging_info_delta(FILE*, paging_info *, paging_info *);
     130
    114131
    115132#define GC_TRAP_FUNCTION_IMMEDIATE_GC (-1)
     
    132149LispObj GCarealow, GCareadynamiclow;
    133150natural GCndnodes_in_area, GCndynamic_dnodes_in_area;
    134 LispObj GCweakvll;
     151LispObj GCweakvll,GCdwsweakvll;
    135152LispObj GCephemeral_low;
    136153natural GCn_ephemeral_dnodes;
     
    150167Boolean mark_weak_hash_vector(hash_table_vector_header *hashp, natural elements);
    151168Boolean mark_weak_alist(LispObj weak_alist, int weak_type);
    152 void markhtabvs(void);
    153169void mark_tcr_tlb(TCR *);
    154170void mark_tcr_xframes(TCR *);
     
    170186/* backend-interface */
    171187
     188typedef void (*weak_mark_fun) (LispObj);
     189weak_mark_fun mark_weak_htabv, dws_mark_weak_htabv;
     190
     191typedef void (*weak_process_fun)(void);
     192
     193weak_process_fun markhtabvs;
     194
     195
     196#define hash_table_vector_header_count (sizeof(hash_table_vector_header)/sizeof(LispObj))
     197
    172198void mark_root(LispObj);
     199void rmark(LispObj);
    173200void mark_xp(ExceptionInformation *);
    174201LispObj dnode_forwarding_address(natural, int);
     
    187214void forward_cstack_area(area *);
    188215LispObj compact_dynamic_heap(void);
    189 LispObj * skip_over_ivector(natural, LispObj);
    190216int purify(TCR *, signed_natural);
    191217int impurify(TCR *, signed_natural);
Note: See TracChangeset for help on using the changeset viewer.