conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Fixes issues/warnings in bug 193327.

This commit is contained in:
Abdulaziz Ghuloum 2008-03-15 21:06:47 -04:00
parent d35566081b
commit 50888bef94
4 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
scheme/last-revision
View File

@ -1 +1 @@
1413 1414

4
src/ikarus-collect.c
View File

@ -1044,7 +1044,7 @@ add_object_proc(gc_t* gc, ikptr x)
/* real vector */ /* real vector */
//fprintf(stderr, "X=0x%08x, FST=0x%08x\n", (int)x, (int)fst); //fprintf(stderr, "X=0x%08x, FST=0x%08x\n", (int)x, (int)fst);
ikptr size = fst; ikptr size = fst;
assert(size >= 0); assert(((long)size) >= 0);
ikptr memreq = align(size + disp_vector_data); ikptr memreq = align(size + disp_vector_data);
if(memreq >= pagesize){ if(memreq >= pagesize){
if((t & large_object_mask) == large_object_tag){ if((t & large_object_mask) == large_object_tag){
@ -1654,7 +1654,7 @@ scan_dirty_code_page(gc_t* gc, long int page_idx, unsigned int mask){
segment_vec = gc->segment_vector; segment_vec = gc->segment_vector;
ikptr rvec = ref(p, disp_code_reloc_vector); ikptr rvec = ref(p, disp_code_reloc_vector);
ikptr len = ref(rvec, off_vector_length); ikptr len = ref(rvec, off_vector_length);
assert(len >= 0); assert(((long)len) >= 0);
long int i; long int i;
unsigned long int code_d = segment_vec[page_index(rvec)]; unsigned long int code_d = segment_vec[page_index(rvec)];
for(i=0; i<len; i+=wordsize){ for(i=0; i<len; i+=wordsize){

2
src/ikarus-fasl.c
View File

@ -289,7 +289,7 @@ static ikptr do_read(ikpcb* pcb, fasl_port* p){
ref(code, disp_code_code_size) = fix(code_size); ref(code, disp_code_code_size) = fix(code_size);
ref(code, disp_code_freevars) = freevars; ref(code, disp_code_freevars) = freevars;
ref(code, disp_code_annotation) = annotation; ref(code, disp_code_annotation) = annotation;
fasl_read_buf(p, (void*)(long)code+disp_code_data, code_size); fasl_read_buf(p, (void*)(disp_code_data+(long)code), code_size);
if(put_mark_index){ if(put_mark_index){
p->marks[put_mark_index] = code+vector_tag; p->marks[put_mark_index] = code+vector_tag;
} }

2
src/ikarus-runtime.c
View File

@ -985,4 +985,4 @@ ikptr
ikrt_debug(ikptr x){ ikrt_debug(ikptr x){
fprintf(stderr, "DEBUG 0x%016lx\n", (long int)x); fprintf(stderr, "DEBUG 0x%016lx\n", (long int)x);
return 0; return 0;
}; }