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

Fixed a small bug in ikarus-fasl.c that caused linux and cygwin 

builds to segfault.
This commit is contained in:
Abdulaziz Ghuloum 2008-01-02 18:41:25 -05:00
parent d9475009fd
commit e5fd23f50f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ikarus-fasl.c
View File

@ -432,7 +432,7 @@ static ikptr do_read(ikpcb* pcb, fasl_port* p){
ref(rtd, off_rtd_printer) = false_object;
ref(rtd, off_rtd_symbol) = symb;
ref(symb, off_symbol_record_value) = rtd;
((unsigned char*)(long)pcb->dirty_vector)[page_index(symb+off_symbol_record_value)] = -1;
((unsigned int*)(long)pcb->dirty_vector)[page_index(symb+off_symbol_record_value)] = -1;
} else {
rtd = gensym_val;
}