pike.git/ src/ interpret.c

2001-08-15

2001-08-15 03:31:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

• 2ac950604de4b1e73f2d5aab3f996922048219c8 (83 lines) (+52/-31) ^{[ Show | Annotate ]}
  Branch: 7.9

optimized function calls a few percent (especially recursive function calls)

Rev: src/docode.c:1.129
Rev: src/interpret.c:1.240
Rev: src/interpret.h:1.96
Rev: src/object.c:1.180
Rev: src/object.h:1.64
Rev: src/svalue.c:1.116
Rev: src/svalue.h:1.95

5:   \*/   /**/   #include "global.h" - RCSID("$Id: interpret.c,v 1.239 2001/08/03 17:45:10 grubba Exp $"); + RCSID("$Id: interpret.c,v 1.240 2001/08/15 03:31:55 hubbe Exp $");   #include "interpret.h"   #include "object.h"   #include "program.h"
618:    ));   }    -  +    #ifdef PIKE_DEBUG   void print_return_value(void)   {
1035:    }) \    if(X->flags & PIKE_FRAME_MALLOCED_LOCALS) \    { \ -  free_svalues(X->locals,X->num_locals,BIT_MIXED); \ +  free_mixed_svalues(X->locals,X->num_locals); \    free((char *)(X->locals)); \    } \    DO_IF_DMALLOC( \
1053:      BLOCK_ALLOC(pike_frame,128)    -  +    int low_mega_apply(enum apply_type type, INT32 args, void *arg1, void *arg2)   {    struct object *o;
1528:    assign_svalue(save_sp,Pike_sp-1);    pop_n_elems(Pike_sp-save_sp-1);    -  destruct_objects_to_destruct(); /* consider using a flag for immediate destruct instead... */ +  low_destruct_objects_to_destruct(); /* consider using a flag for immediate destruct instead... */    }       if(save_sp+1 > Pike_sp)
1542:   }       - void low_return(void) - { -  struct svalue *save_sp=Pike_fp->save_sp; - #ifdef PIKE_DEBUG -  if(Pike_mark_sp < Pike_fp->save_mark_sp) -  fatal("Popped below save_mark_sp!\n"); -  if(Pike_sp<Pike_interpreter.evaluator_stack) -  fatal("Stack error (also simple).\n"); - #endif -  Pike_mark_sp=Pike_fp->save_mark_sp; +     -  + #define low_return_profiling() +    #ifdef PROFILING   #ifdef HAVE_GETHRTIME -  { -  struct identifier *function; -  long long time_passed, time_in_children, self_time; -  time_in_children= Pike_interpreter.accounted_time - Pike_fp->children_base; -  time_passed = gethrtime() - Pike_interpreter.time_base - Pike_fp->start_time; -  self_time=time_passed - time_in_children; -  Pike_interpreter.accounted_time+=self_time; -  function = Pike_fp->context.prog->identifiers + Pike_fp->ident; -  function->total_time=Pike_fp->self_time_base + (INT32)(time_passed /1000); -  function->self_time+=(INT32)( self_time /1000); -  } + #undef low_return_profiling + #define low_return_profiling() do { \ +  struct identifier *function; \ +  long long time_passed, time_in_children, self_time; \ +  time_in_children=Pike_interpreter.accounted_time-Pike_fp->children_base; \ +  time_passed = gethrtime()-Pike_interpreter.time_base - Pike_fp->start_time; \ +  self_time=time_passed - time_in_children; \ +  Pike_interpreter.accounted_time+=self_time; \ +  function = Pike_fp->context.prog->identifiers + Pike_fp->ident; \ +  function->total_time=Pike_fp->self_time_base + (INT32)(time_passed /1000); \ +  function->self_time+=(INT32)( self_time /1000); \ + }while(0)   #endif   #endif    -  POP_PIKE_FRAME(); +     -  + #define basic_low_return() \ +  struct svalue *save_sp=Pike_fp->save_sp; \ +  DO_IF_DEBUG( \ +  if(Pike_mark_sp < Pike_fp->save_mark_sp) \ +  fatal("Popped below save_mark_sp!\n"); \ +  if(Pike_sp<Pike_interpreter.evaluator_stack) \ +  fatal("Stack error (also simple).\n"); \ +  ) \ +  \ +  Pike_mark_sp=Pike_fp->save_mark_sp; \ +  \ +  POP_PIKE_FRAME() +  +  + void low_return(void) + { +  basic_low_return();    if(save_sp+1 < Pike_sp)    {    assign_svalue(save_sp,Pike_sp-1);    pop_n_elems(Pike_sp-save_sp-1);    -  destruct_objects_to_destruct(); /* consider using a flag for immediate destruct instead... */ +  /* consider using a flag for immediate destruct instead... */ +  destruct_objects_to_destruct();    } -  -  if(save_sp+1 > Pike_sp) +  else if(save_sp+1 > Pike_sp)    {    push_int(0);    }else{
1587:    }   }    + void low_return_pop(void) + { +  basic_low_return(); +  +  if(save_sp < Pike_sp) +  { +  pop_n_elems(Pike_sp-save_sp); +  /* consider using a flag for immediate destruct instead... */ +  destruct_objects_to_destruct(); +  } + } +  +    void unlink_previous_frame(void)   {    struct pike_frame *current, *prev;
1681:    UNSETJMP(tmp);    Pike_fp->expendible=expendible;    Pike_fp->flags=flags; -  destruct_objects_to_destruct(); +  low_destruct_objects_to_destruct();    return 0;    }else{    struct svalue **save_mark_sp=Pike_mark_sp;