pike.git/ src/ docode.c

2000-04-25

2000-04-25 09:32:46 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 6fd51783c0fa1643f7694f28e660683b11187b18 (47 lines) (+33/-14) ^{[ Show | Annotate ]}
  Branch: 7.9

some optimizations... (inline now speeds up recursive functions a lot)

Rev: src/docode.c:1.69
Rev: src/interpret.c:1.148
Rev: src/interpret_functions.h:1.16
Rev: src/language.yacc:1.181
Rev: src/las.h:1.35
Rev: src/lex.c:1.78
Rev: src/peep.in:1.29
Rev: src/program.c:1.233

5:   \*/   /**/   #include "global.h" - RCSID("$Id: docode.c,v 1.68 2000/04/20 02:41:44 hubbe Exp $"); + RCSID("$Id: docode.c,v 1.69 2000/04/25 09:32:45 hubbe Exp $");   #include "las.h"   #include "program.h"   #include "language.h"
200:    return f;   }    + int do_lfun_call(int id,node *args) + { + #if 1 +  if(id == compiler_frame->current_function_number) +  { +  if(new_program->identifier_references[id].id_flags & ID_INLINE) +  { +  int n=count_args(args); +  if(n == count_arguments(ID_FROM_INT(new_program, id) -> type)) +  { +  emit0(F_MARK); +  do_docode(args,0); +  emit1(F_RECUR,0); /* 0 is label at beginning of function */ +  return 1; +  } +  } +  } + #endif +  emit0(F_MARK); +  do_docode(args,0); +  emit1(F_CALL_LFUN, id); +  return 1; + } +    static int do_docode2(node *n,int flags)   {    INT32 tmp1,tmp2,tmp3;
743:    return 1;    }else{    if(CAR(n)->u.sval.u.object == fake_object) -  { -  emit0(F_MARK); -  do_docode(CDR(n),0); -  emit1(F_CALL_LFUN, CAR(n)->u.sval.subtype); -  return 1; +  return do_lfun_call(CAR(n)->u.sval.subtype,CDR(n));    }    } -  } +        emit0(F_MARK);    do_docode(CDR(n),0);
762:    return 1;    }    else if(CAR(n)->token == F_IDENTIFIER && -  IDENTIFIER_IS_FUNCTION(ID_FROM_INT(new_program, CAR(n)->u.id.number)->identifier_flags)) +  IDENTIFIER_IS_FUNCTION(ID_FROM_INT(new_program, +  CAR(n)->u.id.number)->identifier_flags))    { -  emit0(F_MARK); -  do_docode(CDR(n),0); -  emit1(F_CALL_LFUN, CAR(n)->u.id.number); -  return 1; +  return do_lfun_call(CAR(n)->u.id.number,CDR(n));    }    else    {
1277:   void do_code_block(node *n)   {    init_bytecode(); -  label_no=0; +  label_no=1; +  emit1(F_LABEL,0);    DO_CODE_BLOCK(n);    assemble();   }
1289:    dynamic_buffer instrbuf_save = instrbuf;       instrbuf.s.str=0; -  label_no=0; +  label_no=1;    init_bytecode();       tmp=do_docode(n,0);