pike.git/ src/ svalue.h

2001-08-15

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

• 2ac950604de4b1e73f2d5aab3f996922048219c8 (33 lines) (+28/-5) ^{[ 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:   \*/      /* -  * $Id: svalue.h,v 1.94 2001/08/13 22:41:17 mast Exp $ +  * $Id: svalue.h,v 1.95 2001/08/15 03:31:56 hubbe Exp $    */   #ifndef SVALUE_H   #define SVALUE_H
430:      extern struct svalue dest_ob_zero;    + #define free_mixed_svalues(X,Y) do { \ +  struct svalue *s_=(X); \ +  ptrdiff_t num_=(Y); \ +  while(num_--) \ +  { \ +  dmalloc_touch_svalue(s_); \ +  free_svalue(s_++); \ +  } \ + }while(0); +    #ifdef DEBUG_MALLOC - #define free_svalues(X,Y,Z) debug_free_svalues((X),(Y),(Z), DMALLOC_LOCATION()) + #define free_svalues(X,Y,Z) debug_free_svalues((X),(Y),(Z), DMALLOC_LOCATION());   #else - #define free_svalues(X,Y,Z) debug_free_svalues((X),(Y),(Z)) + #define free_svalues(X,Y,Z) debug_free_svalues((X),(Y),(Z));   #endif    -  + #define low_clear_svalues(X,Y,N) do { \ +  struct svalue *s_=(X); \ +  ptrdiff_t num_=(Y); \ +  for(;num_-- > 0;s_++) \ +  { \ +  s_->type=PIKE_T_INT; \ +  s_->subtype=(N); \ +  s_->u.integer=0; \ +  } \ + }while(0) +  + #define clear_svalues(X,Y) low_clear_svalues((X),(Y),NUMBER_NUMBER) + #define clear_svalues_undefined(X,Y) low_clear_svalues((X),(Y),NUMBER_UNDEFINED) +    /* Prototypes begin here */   PMOD_EXPORT void really_free_short_svalue(union anything *s, TYPE_T type);   PMOD_EXPORT void really_free_svalue(struct svalue *s);
479:   PMOD_EXPORT int is_lt(const struct svalue *a, const struct svalue *b);   PMOD_EXPORT void describe_svalue(const struct svalue *s,int indent,struct processing *p);   PMOD_EXPORT void print_svalue (FILE *out, const struct svalue *s); - PMOD_EXPORT void clear_svalues(struct svalue *s, ptrdiff_t num); - PMOD_EXPORT void clear_svalues_undefined(struct svalue *s, ptrdiff_t num); +    PMOD_EXPORT void copy_svalues_recursively_no_free(struct svalue *to,    const struct svalue *from,    size_t num,