Branch: Tag:

1999-11-05

1999-11-05 01:31:44 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

some major optimizations for simple operations

Rev: src/operators.c:1.68
Rev: src/stralloc.c:1.76

6:   /**/   #include "global.h"   #include <math.h> - RCSID("$Id: operators.c,v 1.67 1999/11/04 20:05:22 hubbe Exp $"); + RCSID("$Id: operators.c,v 1.68 1999/11/05 01:31:41 hubbe Exp $");   #include "interpret.h"   #include "svalue.h"   #include "multiset.h"
175:    max_shift=sp[e].u.string->size_shift;    }    +  if(size == sp[-args].u.string->len) +  { +  pop_n_elems(args-1); +  return; +  } +     tmp=sp[-args].u.string->len;    r=new_realloc_shared_string(sp[-args].u.string,size,max_shift);    sp[-args].type=T_INT;