git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/simgrid/simgrid/trunk@7355
48e7efb5-ca39-0410-a469-
dd3cf9ba447f
m_task_t tk = NULL;
const char *mailbox = luaL_checkstring(L,1);
int res = MSG_task_receive(&tk,mailbox);
m_task_t tk = NULL;
const char *mailbox = luaL_checkstring(L,1);
int res = MSG_task_receive(&tk,mailbox);
+ MSG_task_ref(tk); //FIXME: kill it once a ctask cannot be in more than one luatask anymore
res++;//FIXME: check it instead of avoiding the warning
DEBUG1("Task Name : >>>%s",MSG_task_get_name(tk));
pushTask(L,tk);
res++;//FIXME: check it instead of avoiding the warning
DEBUG1("Task Name : >>>%s",MSG_task_get_name(tk));
pushTask(L,tk);
// cleanups
luaL_unref(simgrid_lua_state,LUA_REGISTRYINDEX,ref );
// cleanups
luaL_unref(simgrid_lua_state,LUA_REGISTRYINDEX,ref );
- fprintf(stderr,"Execution of lua code %s is over\n", (argv ? argv[0] : "(null)"));
+ DEBUG1("Execution of lua code %s is over", (argv ? argv[0] : "(null)"));
return res;
}
static int launch_application(lua_State *L) {
return res;
}
static int launch_application(lua_State *L) {