From 8edf201b34792ebc3ba18ffbc6e9d1760dadaf5f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Minisini?= Date: Mon, 29 Oct 2012 00:46:53 +0000 Subject: [PATCH] [INTERPRETER] * BUG: Fix profiling of WAIT instruction. git-svn-id: svn://localhost/gambas/trunk@5260 867c0c6c-44f3-4631-809d-bfa615b0a4ec --- main/gbx/gbx_eval.c | 2 +- main/gbx/gbx_subr_misc.c | 2 -- 2 files changed, 1 insertion(+), 3 deletions(-) diff --git a/main/gbx/gbx_eval.c b/main/gbx/gbx_eval.c index 612c5ba8f..feafd5f89 100644 --- a/main/gbx/gbx_eval.c +++ b/main/gbx/gbx_eval.c @@ -63,8 +63,8 @@ static void EVAL_enter() static void error_EVAL_exec(void) { - STACK_pop_frame(&EXEC_current); PROFILE_LEAVE_FUNCTION(); + STACK_pop_frame(&EXEC_current); } static void EVAL_exec() diff --git a/main/gbx/gbx_subr_misc.c b/main/gbx/gbx_subr_misc.c index da9c87dcb..91fe7a4b5 100644 --- a/main/gbx/gbx_subr_misc.c +++ b/main/gbx/gbx_subr_misc.c @@ -73,8 +73,6 @@ void SUBR_wait(ushort code) GB_Wait((int)(SUBR_get_float(PARAM) * 1000 + 0.5)); SUBR_LEAVE_VOID(); - - DEBUG_leave_event_loop(); }