1 more call

SVN revision: 9485
This commit is contained in:
Carsten Haitzler 2004-03-26 06:23:13 +00:00
parent 9c7d952185
commit 8e4af28c5b
2 changed files with 7 additions and 1 deletions

View File

@ -80,6 +80,7 @@ extern "C" {
Embryo_Cell *embryo_data_address_get(Embryo_Program *ep, Embryo_Cell addr);
Embryo_Cell embryo_data_heap_push(Embryo_Program *ep, int cells);
void embryo_data_heap_pop(Embryo_Program *ep, Embryo_Cell down_to);
int embryo_program_recursion_get(Embryo_Program *ep);
int embryo_program_run(Embryo_Program *ep, Embryo_Function func);
Embryo_Cell embryo_program_return_value_get(Embryo_Program *ep);
int embryo_parameter_cell_push(Embryo_Program *ep, Embryo_Cell cell);

View File

@ -625,6 +625,12 @@ embryo_data_heap_pop(Embryo_Program *ep, Embryo_Cell down_to)
if (ep->hea > down_to) ep->hea = down_to;
}
int
embryo_program_recursion_get(Embryo_Program *ep)
{
return ep->run_count;
}
int
embryo_program_run(Embryo_Program *ep, Embryo_Function fn)
{
@ -1511,7 +1517,6 @@ embryo_program_run(Embryo_Program *ep, Embryo_Function fn)
}
ep->run_count--;
//
ep->hea = hea_start;
return EMBRYO_PROGRAM_OK;