72 lines
2.0 KiB
C
72 lines
2.0 KiB
C
/*
|
|
* Ikarus Scheme -- A compiler for R6RS Scheme.
|
|
* Copyright (C) 2006,2007 Abdulaziz Ghuloum
|
|
*
|
|
* This program is free software: you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License version 3 as
|
|
* published by the Free Software Foundation.
|
|
*
|
|
* This program is distributed in the hope that it will be useful, but
|
|
* WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
*/
|
|
|
|
|
|
#include "ikarus-data.h"
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include <string.h>
|
|
|
|
typedef struct {
|
|
ikp tag;
|
|
ikp top;
|
|
int size;
|
|
ikp next;
|
|
} cont;
|
|
|
|
|
|
ikp ik_exec_code(ikpcb* pcb, ikp code_ptr){
|
|
ikp argc = ik_asm_enter(pcb, code_ptr+off_code_data,0);
|
|
ikp next_k = pcb->next_k;
|
|
while(next_k){
|
|
cont* k = (cont*)(next_k - vector_tag);
|
|
ikp top = k->top;
|
|
ikp rp = ref(top, 0);
|
|
int framesize = (int) ref(rp, disp_frame_size);
|
|
if(framesize <= 0){
|
|
fprintf(stderr, "invalid framesize %d\n", framesize);
|
|
exit(-1);
|
|
}
|
|
if(framesize < k->size){
|
|
cont* nk = (cont*) ik_alloc(pcb, sizeof(cont));
|
|
nk->tag = k->tag;
|
|
nk->next = k->next;
|
|
nk->top = top + framesize;
|
|
nk->size = k->size - framesize;
|
|
k->size = framesize;
|
|
k->next = vector_tag + (ikp)nk;
|
|
/* record side effect */
|
|
unsigned int idx = ((unsigned int)(&k->next)) >> pageshift;
|
|
pcb->dirty_vector[idx] = -1;
|
|
}
|
|
pcb->next_k = k->next;
|
|
ikp fbase = pcb->frame_base - wordsize;
|
|
ikp new_fbase = fbase - framesize;
|
|
memmove(new_fbase + (int)argc,
|
|
fbase + (int)argc,
|
|
-(int)argc);
|
|
memcpy(new_fbase, top, framesize);
|
|
argc = ik_asm_reenter(pcb, new_fbase, argc);
|
|
next_k = pcb->next_k;
|
|
}
|
|
return ref(pcb->frame_base, -2*wordsize);
|
|
return argc;
|
|
}
|
|
|
|
|