gambas-source-code/main/gbx/gbx_eval.c
Benoît Minisini 54e8d1093e [INTERPRETER]
* BUG: Fix an uninitialized flag in streams.
* BUG: Stack overflow raised when entering a function should not mix up 
  the interpreter anymore.

[GB.QTE]
* BUG: Fix compilation.


git-svn-id: svn://localhost/gambas/trunk@1664 867c0c6c-44f3-4631-809d-bfa615b0a4ec
2008-10-30 23:32:38 +00:00

143 lines
2.6 KiB
C
Raw Blame History

/***************************************************************************
eval.c
Expression evaluator
(c) 2000-2007 Benoit Minisini <gambas@users.sourceforge.net>
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 1, or (at your option)
any later version.
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, write to the Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
***************************************************************************/
#define __GBX_EVAL_C
#include "gb_common.h"
#include "gb_array.h"
#include "gbx_string.h"
#include "gbx_class.h"
#include "gbx_exec.h"
#include "gbx_eval.h"
#include "gbx_c_collection.h"
#include "gbx_api.h"
bool EVAL_debug = FALSE;
static EXPRESSION *EVAL;
static void EVAL_enter()
{
STACK_push_frame(&EXEC_current, EVAL->func.stack_usage);
BP = SP;
PP = SP;
FP = &EVAL->func;
PC = EVAL->func.code;
OP = NULL;
CP = &EVAL->exec_class;
//AP = ARCH_from_class(CP);
EP = NULL;
EC = NULL;
RP->type = T_VOID;
}
static void EVAL_exec()
{
// We need to push a void frame, because EXEC_leave looks at *PC to know if a return value is expected
STACK_push_frame(&EXEC_current, 0);
PC = NULL;
TRY
{
EVAL_enter();
}
CATCH
{
STACK_pop_frame(&EXEC_current);
PROPAGATE();
}
END_TRY
EXEC_function_loop();
TEMP = *RP;
UNBORROW(&TEMP);
}
bool EVAL_expression(EXPRESSION *expr, EVAL_FUNCTION func)
{
int i;
EVAL_SYMBOL *sym;
bool debug;
bool error;
/*HASH_TABLE *hash_table;
char *name;
CCOL_ENUM enum_state;*/
EVAL = expr;
#ifdef DEBUG
printf("EVAL: %s\n", EVAL->source);
#endif
STACK_check(EVAL->nvar);
for (i = 0; i < EVAL->nvar; i++)
{
SP->type = T_VARIANT;
SP->_variant.vtype = T_NULL;
sym = (EVAL_SYMBOL *)TABLE_get_symbol(EVAL->table, EVAL->var[EVAL->nvar - i - 1]);
if ((*func)(sym->sym.name, sym->sym.len, (GB_VARIANT *)SP))
{
GB_Error("Unknown symbol");
/* ?? La pile est elle bien lib<69><62> */
return TRUE;
}
/*VALUE_read(SP, &value, T_VARIANT);*/
BORROW(SP);
SP++;
}
debug = EXEC_debug;
EXEC_debug = FALSE;
error = FALSE;
TRY
{
EVAL_exec();
}
CATCH
{
error = TRUE;
}
END_TRY
EXEC_debug = debug;
return error;
}