Esempio n. 1
0
File: m_break.c Progetto: 5HT/mumps
int m_break(void)
{
	if (window_token != TK_SPACE && window_token != TK_EOL)
		if (!m_xecute())
			return FALSE;
	newtriple(OC_BREAK);
	if (for_stack_ptr == for_stack)
		start_fetches (OC_FETCH);
	else
		start_for_fetches ();
	return TRUE;
}
Esempio n. 2
0
int m_break(void)
{
	DCL_THREADGBL_ACCESS;

	SETUP_THREADGBL_ACCESS;
	if ((TK_SPACE != TREF(window_token)) && (TK_EOL != TREF(window_token)))
		if (!m_xecute())
			return FALSE;
	newtriple(OC_BREAK);
	if (TREF(for_stack_ptr) == TADR(for_stack))
		start_fetches (OC_FETCH);
	else
		start_for_fetches ();
	return TRUE;
}