6197 static struct mri_control_info *mri_control_stack;  variable
6249   n->outer = mri_control_stack;  in push_mri_control()
6250   mri_control_stack = n;  in push_mri_control()
6262   n = mri_control_stack;  in pop_mri_control()
6263   mri_control_stack = n->outer;  in pop_mri_control()
6755       && (mri_control_stack == NULL  in s_mri_else()
6756 	  || mri_control_stack->type != mri_if  in s_mri_else()
6757 	  || mri_control_stack->else_seen))  in s_mri_else()
6775   if (mri_control_stack == NULL  in s_mri_else()
6776       || mri_control_stack->type != mri_if  in s_mri_else()
6777       || mri_control_stack->else_seen)  in s_mri_else()
6784   mri_control_stack->else_seen = 1;  in s_mri_else()
6786   buf = XNEWVEC (char, 20 + strlen (mri_control_stack->bottom));  in s_mri_else()
6789   sprintf (buf, "bra%s %s", q, mri_control_stack->bottom);  in s_mri_else()
6793   colon (mri_control_stack->next);  in s_mri_else()
6809   if (mri_control_stack == NULL  in s_mri_endi()
6810       || mri_control_stack->type != mri_if)  in s_mri_endi()
6820   if (! mri_control_stack->else_seen)  in s_mri_endi()
6821     colon (mri_control_stack->next);  in s_mri_endi()
6822   colon (mri_control_stack->bottom);  in s_mri_endi()
6844   n = mri_control_stack;  in s_mri_break()
6882   n = mri_control_stack;  in s_mri_next()
7147   if (mri_control_stack == NULL  in s_mri_endf()
7148       || mri_control_stack->type != mri_for)  in s_mri_endf()
7155   colon (mri_control_stack->next);  in s_mri_endf()
7157   mri_assemble (mri_control_stack->incr);  in s_mri_endf()
7159   sprintf (mri_control_stack->incr, "bra %s", mri_control_stack->top);  in s_mri_endf()
7160   mri_assemble (mri_control_stack->incr);  in s_mri_endf()
7162   free (mri_control_stack->incr);  in s_mri_endf()
7164   colon (mri_control_stack->bottom);  in s_mri_endf()
7201   if (mri_control_stack == NULL  in s_mri_until()
7202       || mri_control_stack->type != mri_repeat)  in s_mri_until()
7209   colon (mri_control_stack->next);  in s_mri_until()
7215 				mri_control_stack->top, '\0');  in s_mri_until()
7217   colon (mri_control_stack->bottom);  in s_mri_until()
7295   if (mri_control_stack == NULL  in s_mri_endw()
7296       || mri_control_stack->type != mri_while)  in s_mri_endw()
7303   buf = XNEWVEC (char, 20 + strlen (mri_control_stack->next));  in s_mri_endw()
7304   sprintf (buf, "bra %s", mri_control_stack->next);  in s_mri_endw()
7308   colon (mri_control_stack->bottom);  in s_mri_endw()