pike.git/ src/ docode.c

1998-01-30

1998-01-30 20:04:32 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• d103cbe5f71372116bb096d9cd544d323884a8c2 (16 lines) (+12/-4) ^{[ Show | Annotate ]}
  Branch: 7.9

tailrecurse-fix

Rev: src/docode.c:1.29
Rev: src/interpret.c:1.64
Rev: src/peep.in:1.10

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: docode.c,v 1.28 1998/01/29 02:47:43 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.29 1998/01/30 20:04:31 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "language.h"
481:    case F_NOT:    case F_COMPL:    case F_NEGATE: -  fatal("Optimizer errror.\n"); +  fatal("Optimizer error.\n");       case F_RANGE:    tmp1=do_docode(CAR(n),DO_NOT_COPY);
712:    {    yyerror("No call_function efun.");    }else{ +  if(foo->u.sval.type == T_FUNCTION && +  foo->u.sval.subtype == FUNCTION_BUILTIN && +  foo->u.sval.u.efun->function == f_call_function) +  { +  emit2(F_CALL_FUNCTION); +  }else{    tmp1=store_constant(& foo->u.sval, 1);    emit(F_APPLY, tmp1);    } -  +  }    free_node(foo);    return 1;    }