parse.c
static void ParseLoop(ParseContext *c)
{
    switch (c->bptr->type) {
    case BLOCK_DO:
        PopBlock(c);
        break;
    default:
        ParseError(c, "LOOP without a matching DO");
        break;
    }
    FRequire(c, T_EOL);
}
/* ParseLoop - parse the 'LOOP' statement */
parse the 'LOOP' statement
parse the ' LOOP ' statement
static void ParseLoop(ParseContext *c)
{
    switch (c->bptr->type) {
    case BLOCK_DO:
        PopBlock(c);
        break;
    default:
        ParseError(c, "LOOP without a matching DO");
        break;
    }
    FRequire(c, T_EOL);
}
static void ParseLoop ( ParseContext * c ) { switch ( c -> bptr -> type ) { case BLOCK_DO : PopBlock ( c ) ; break ; default : ParseError ( c , " " ) ; break ; } FRequire ( c , T_EOL ) ; }
ParseLoop - parse the 'LOOP' statement
ParseLoop - parse the ' LOOP ' statement