pike.git / src / docode.c

version» Context lines:

pike.git/src/docode.c:1:   /*\   ||| This file a part of Pike, and is copyright by Fredrik Hubinette   ||| Pike is distributed as GPL (General Public License)   ||| See the files COPYING and DISCLAIMER for more information.   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.94 2001/01/14 20:52:46 grubba Exp $"); + RCSID("$Id: docode.c,v 1.95 2001/01/14 21:05:38 grubba Exp $");   #include "las.h"   #include "program.h"   #include "pike_types.h"   #include "stralloc.h"   #include "interpret.h"   #include "constants.h"   #include "array.h"   #include "pike_macros.h"   #include "pike_error.h"   #include "pike_memory.h"
pike.git/src/docode.c:893:    case F_LOOP:    {    /* FIXME: No support for break or continue. */    PUSH_STATEMENT_LABEL;    tmp1 = do_code(CAR(n));    if (tmp1 > 0) {    do_pop(tmp1-1);    tmp2 = do_branch(-1);    tmp3 = ins_label(-1);    PUSH_STATEMENT_LABEL; -  do_code(CDR(n)); +  do_pop(do_code(CDR(n)));    POP_STATEMENT_LABEL;    ins_label(tmp2);    emit1(F_LOOP, tmp3);    }    POP_STATEMENT_LABEL;    return 0;    }       case F_DO:    {