2006-11-23 19:38:26 -05:00
|
|
|
|
|
|
|
#ifndef IKARUS_H
|
|
|
|
#define IKARUS_H
|
|
|
|
|
|
|
|
#include <stdio.h>
|
2006-11-23 19:44:29 -05:00
|
|
|
#include <sys/resource.h>
|
2006-11-23 19:38:26 -05:00
|
|
|
|
|
|
|
extern int total_allocated_pages;
|
|
|
|
extern int total_malloced;
|
|
|
|
extern int hash_table_count;
|
|
|
|
|
2006-11-23 19:42:39 -05:00
|
|
|
#define cardsize 512
|
|
|
|
#define cards_per_page 8
|
|
|
|
|
2006-12-29 05:45:30 -05:00
|
|
|
#define most_bytes_in_minor 0x10000000
|
|
|
|
|
2007-08-30 12:01:54 -04:00
|
|
|
#define old_gen_mask 0x00000007
|
|
|
|
#define new_gen_mask 0x00000008
|
|
|
|
#define gen_mask 0x0000000F
|
|
|
|
#define new_gen_tag 0x00000008
|
|
|
|
#define meta_dirty_mask 0x000000F0
|
|
|
|
#define type_mask 0x00000F00
|
|
|
|
#define scannable_mask 0x0000F000
|
|
|
|
#define dealloc_mask 0x000F0000
|
|
|
|
#define large_object_mask 0x00100000
|
2006-11-23 19:42:39 -05:00
|
|
|
#define meta_dirty_shift 4
|
|
|
|
|
|
|
|
#define hole_type 0x00000000
|
|
|
|
#define mainheap_type 0x00000100
|
|
|
|
#define mainstack_type 0x00000200
|
|
|
|
#define pointers_type 0x00000300
|
2007-08-30 12:01:54 -04:00
|
|
|
#define dat_type 0x00000400
|
2006-11-23 19:42:39 -05:00
|
|
|
#define code_type 0x00000500
|
|
|
|
#define weak_pairs_type 0x00000600
|
2007-02-25 21:29:28 -05:00
|
|
|
#define symbols_type 0x00000700
|
2006-11-23 19:42:39 -05:00
|
|
|
|
|
|
|
#define scannable_tag 0x00001000
|
|
|
|
#define unscannable_tag 0x00000000
|
|
|
|
|
|
|
|
#define dealloc_tag 0x00010000
|
|
|
|
#define retain_tag 0x00000000
|
|
|
|
|
2007-08-30 12:01:54 -04:00
|
|
|
#define large_object_tag 0x00100000
|
|
|
|
|
2006-11-23 19:42:39 -05:00
|
|
|
#define hole_mt (hole_type | unscannable_tag | retain_tag)
|
|
|
|
#define mainheap_mt (mainheap_type | unscannable_tag | retain_tag)
|
|
|
|
#define mainstack_mt (mainstack_type | unscannable_tag | retain_tag)
|
|
|
|
#define pointers_mt (pointers_type | scannable_tag | dealloc_tag)
|
2007-02-25 21:29:28 -05:00
|
|
|
#define symbols_mt (symbols_type | scannable_tag | dealloc_tag)
|
2007-05-22 17:56:15 -04:00
|
|
|
#define data_mt (dat_type | unscannable_tag | dealloc_tag)
|
2006-11-23 19:42:39 -05:00
|
|
|
#define code_mt (code_type | scannable_tag | dealloc_tag)
|
|
|
|
#define weak_pairs_mt (weak_pairs_type | scannable_tag | dealloc_tag)
|
|
|
|
|
2006-11-23 19:40:06 -05:00
|
|
|
|
|
|
|
static int
|
|
|
|
inthash(int key) {
|
|
|
|
key += ~(key << 15);
|
|
|
|
key ^= (key >> 10);
|
|
|
|
key += (key << 3);
|
|
|
|
key ^= (key >> 6);
|
|
|
|
key += ~(key << 11);
|
|
|
|
key ^= (key >> 16);
|
|
|
|
return key;
|
|
|
|
return inthash(key);
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
2006-12-18 15:08:33 -05:00
|
|
|
#define wordsize 4
|
|
|
|
#define wordshift 2
|
|
|
|
#define pagesize 4096
|
|
|
|
#define generation_count 5 /* generations 0 (nursery), 1, 2, 3, 4 */
|
|
|
|
|
2006-11-23 19:38:26 -05:00
|
|
|
typedef unsigned char* ikp;
|
|
|
|
void ik_error(ikp args);
|
|
|
|
|
2006-12-06 11:07:27 -05:00
|
|
|
typedef struct ikpage{
|
|
|
|
ikp base;
|
|
|
|
struct ikpage* next;
|
|
|
|
} ikpage;
|
|
|
|
|
2006-11-23 19:38:26 -05:00
|
|
|
typedef struct ikpages{
|
|
|
|
ikp base;
|
|
|
|
int size;
|
|
|
|
struct ikpages* next;
|
|
|
|
} ikpages;
|
|
|
|
|
|
|
|
typedef struct ikdl{ /* double-link */
|
|
|
|
struct ikdl* prev;
|
|
|
|
struct ikdl* next;
|
|
|
|
} ikdl;
|
|
|
|
|
2006-12-18 15:08:33 -05:00
|
|
|
typedef struct ik_guardian_pair{
|
|
|
|
ikp tc;
|
|
|
|
ikp obj;
|
|
|
|
} ik_guardian_pair;
|
|
|
|
|
|
|
|
#define ik_guardian_table_size \
|
|
|
|
((pagesize - sizeof(int) - sizeof(struct ik_guardian_table*))/sizeof(ik_guardian_pair))
|
|
|
|
|
|
|
|
typedef struct ik_guardian_table{
|
|
|
|
int count;
|
|
|
|
struct ik_guardian_table* next;
|
|
|
|
ik_guardian_pair p[ik_guardian_table_size];
|
|
|
|
} ik_guardian_table;
|
|
|
|
|
2006-11-23 19:38:26 -05:00
|
|
|
|
2006-12-19 11:41:13 -05:00
|
|
|
typedef struct ikpcb{
|
2006-11-23 19:38:26 -05:00
|
|
|
/* the first locations may be accessed by some */
|
|
|
|
/* compiled code to perform overflow/underflow ops */
|
|
|
|
ikp allocation_pointer; /* offset = 0 */
|
|
|
|
ikp allocation_redline; /* offset = 4 */
|
|
|
|
ikp frame_pointer; /* offset = 8 */
|
|
|
|
ikp frame_base; /* offset = 12 */
|
|
|
|
ikp frame_redline; /* offset = 16 */
|
|
|
|
ikp next_k; /* offset = 20 */
|
|
|
|
void* system_stack; /* offset = 24 */
|
2006-11-23 19:42:39 -05:00
|
|
|
unsigned int* dirty_vector; /* offset = 28 */
|
2006-12-01 09:52:12 -05:00
|
|
|
ikp arg_list; /* offset = 32 */
|
2006-12-24 01:43:20 -05:00
|
|
|
int engine_counter; /* offset = 36 */
|
|
|
|
int interrupted; /* offset = 40 */
|
2007-05-05 22:42:26 -04:00
|
|
|
ikp base_rtd; /* offset = 44 */
|
2007-08-30 21:58:24 -04:00
|
|
|
ikp collect_key; /* offset = 48 */
|
2006-11-23 19:38:26 -05:00
|
|
|
/* the rest are not used by any scheme code */
|
|
|
|
/* they only support the runtime system (gc, etc.) */
|
2006-11-23 19:42:39 -05:00
|
|
|
unsigned int* segment_vector;
|
|
|
|
ikp weak_pairs_ap;
|
|
|
|
ikp weak_pairs_ep;
|
2006-11-23 19:38:26 -05:00
|
|
|
ikp heap_base;
|
|
|
|
int heap_size;
|
2006-11-23 19:48:14 -05:00
|
|
|
ikpages* heap_pages;
|
2006-12-06 11:07:27 -05:00
|
|
|
ikpage* cached_pages; /* pages cached so that we don't map/unmap */
|
|
|
|
ikpage* uncached_pages; /* ikpages cached so that we don't malloc/free */
|
2006-11-23 19:38:26 -05:00
|
|
|
ikp stack_base;
|
|
|
|
int stack_size;
|
2006-12-25 02:25:40 -05:00
|
|
|
ikp symbol_table;
|
|
|
|
ikp gensym_table;
|
2006-12-18 15:08:33 -05:00
|
|
|
ik_guardian_table* guardians[generation_count];
|
2006-11-23 19:42:39 -05:00
|
|
|
unsigned int* dirty_vector_base;
|
|
|
|
unsigned int* segment_vector_base;
|
|
|
|
unsigned char* memory_base;
|
|
|
|
unsigned char* memory_end;
|
|
|
|
int collection_id;
|
2006-12-29 05:45:30 -05:00
|
|
|
int allocation_count_minor;
|
|
|
|
int allocation_count_major;
|
2006-11-23 19:44:29 -05:00
|
|
|
struct timeval collect_utime;
|
|
|
|
struct timeval collect_stime;
|
2007-08-30 12:54:21 -04:00
|
|
|
struct timeval collect_rtime;
|
2006-11-23 19:38:26 -05:00
|
|
|
} ikpcb;
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void* ik_malloc(int);
|
|
|
|
void ik_free(void*, int);
|
|
|
|
|
|
|
|
void* ik_mmap(int);
|
2006-11-23 19:42:39 -05:00
|
|
|
void* ik_mmap_typed(int size, unsigned int type, ikpcb*);
|
|
|
|
void* ik_mmap_ptr(int size, int gen, ikpcb*);
|
|
|
|
void* ik_mmap_data(int size, int gen, ikpcb*);
|
|
|
|
void* ik_mmap_code(int size, int gen, ikpcb*);
|
|
|
|
void* ik_mmap_mixed(int size, ikpcb*);
|
2006-11-23 19:38:26 -05:00
|
|
|
void ik_munmap(void*, int);
|
2006-11-23 19:42:39 -05:00
|
|
|
void ik_munmap_from_segment(unsigned char*, int, ikpcb*);
|
2006-11-23 19:38:26 -05:00
|
|
|
ikpcb* ik_make_pcb();
|
|
|
|
void ik_delete_pcb(ikpcb*);
|
2006-11-23 19:44:29 -05:00
|
|
|
void ik_free_symbol_table(ikpcb* pcb);
|
2006-11-23 19:38:26 -05:00
|
|
|
|
|
|
|
void ik_fasl_load(ikpcb* pcb, char* filename);
|
2006-11-23 19:44:29 -05:00
|
|
|
void ik_relocate_code(ikp);
|
2006-11-23 19:38:26 -05:00
|
|
|
|
|
|
|
ikp ik_exec_code(ikpcb* pcb, ikp code_ptr);
|
|
|
|
void ik_print(ikp x);
|
|
|
|
void ik_fprint(FILE*, ikp x);
|
|
|
|
|
2006-12-25 02:25:40 -05:00
|
|
|
ikp ikrt_string_to_symbol(ikp, ikpcb*);
|
2006-12-25 02:35:18 -05:00
|
|
|
ikp ikrt_strings_to_gensym(ikp, ikp, ikpcb*);
|
2006-11-23 19:40:06 -05:00
|
|
|
|
|
|
|
ikp ik_cstring_to_symbol(char*, ikpcb*);
|
|
|
|
|
2006-11-23 19:38:26 -05:00
|
|
|
ikp ik_asm_enter(ikpcb*, ikp code_object, ikp arg);
|
|
|
|
ikp ik_asm_reenter(ikpcb*, ikp code_object, ikp val);
|
|
|
|
ikp ik_underflow_handler(ikpcb*);
|
|
|
|
ikp ik_alloc(ikpcb* pcb, int size);
|
|
|
|
#include "ikarus-data.h"
|
|
|
|
#define ik_eof_p(x) ((x) == ik_eof_object)
|
2006-11-23 19:42:39 -05:00
|
|
|
#define page_index(x) (((unsigned int)(x)) >> pageshift)
|
2006-11-23 19:38:26 -05:00
|
|
|
|
|
|
|
#endif
|