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

* Added a T tag in the fasl file format denoting a thunk. 

* T is followed by a code object.
This commit is contained in:
Abdulaziz Ghuloum 2006-12-03 15:13:36 -05:00
parent 6b2e48efb7
commit bdcfd8beb0
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
bin/ikarus-fasl.c
View File

@ -358,6 +358,16 @@ static ikp do_read(ikpcb* pcb, fasl_port* p){
}
return rtd;
}
else if(c == 'T'){ /* thunk */
fprintf(stderr, "THUNK\n");
ikp proc = ik_alloc(pcb, align(disp_closure_data)) + closure_tag;
if(put_mark_index){
p->marks[put_mark_index] = proc;
}
ikp code = do_read(pcb, p);
ref(proc, -closure_tag) = code + off_code_data;
return proc;
}
else if(c == '<'){
int idx;
fasl_read_buf(p, &idx, sizeof(int));