hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2005-09-12 15:55:13 +00:00
parent 6fc4765357
commit be1c701207
1 changed files with 15 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ase/stx/interp.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: interp.c,v 1.11 2005-09-12 11:33:11 bacon Exp $ * $Id: interp.c,v 1.12 2005-09-12 15:55:13 bacon Exp $
*/ */
#include <xp/stx/interp.h> #include <xp/stx/interp.h>
@ -66,6 +66,20 @@ xp_word_t xp_stx_new_context (xp_stx_t* stx, xp_word_t receiver, xp_word_t metho
return context; return context;
} }
static int __activate_method (
xp_stx_t* stx, vmcontext_t* vmc, xp_word_t argcount)
{
/* TODO check stack overflow...
if (vmc->stack_top >= vmc->stack_size) PANIC
*/
//tmpcount = ...
vmc->stack_top += argcount;
while (tmpcount-- > 0) {
vmc->stack[vmc->stack_top++] = stx->nil;
}
}
int xp_stx_interp (xp_stx_t* stx, xp_word_t context) int xp_stx_interp (xp_stx_t* stx, xp_word_t context)
{ {
xp_stx_context_t* ctxobj; xp_stx_context_t* ctxobj;