fixed a bug in (not) handling variable-size frames in ikarus-exec.
This commit is contained in:
parent
943a72f01f
commit
1f2b250ed9
|
@ -1 +1 @@
|
||||||
1868
|
1869
|
||||||
|
|
|
@ -40,6 +40,9 @@ ikptr ik_exec_code(ikpcb* pcb, ikptr code_ptr, ikptr argcount, ikptr cp){
|
||||||
fprintf(stderr, "exec framesize=0x%016lx ksize=%ld rp=0x%016lx\n",
|
fprintf(stderr, "exec framesize=0x%016lx ksize=%ld rp=0x%016lx\n",
|
||||||
framesize, k->size, rp);
|
framesize, k->size, rp);
|
||||||
#endif
|
#endif
|
||||||
|
if(framesize == 0){
|
||||||
|
framesize = ref(top, wordsize);
|
||||||
|
}
|
||||||
if(framesize <= 0){
|
if(framesize <= 0){
|
||||||
fprintf(stderr, "invalid framesize %ld\n", framesize);
|
fprintf(stderr, "invalid framesize %ld\n", framesize);
|
||||||
exit(-10);
|
exit(-10);
|
||||||
|
|
Loading…
Reference in New Issue