Branch: Tag:

2000-04-30

2000-04-30 23:15:16 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

some more optimizations..

Rev: src/docode.c:1.70
Rev: src/interpret_functions.h:1.18
Rev: src/mapping.c:1.81
Rev: src/peep.in:1.34

5:   \*/   /**/   #include "global.h" - RCSID("$Id: mapping.c,v 1.80 2000/04/27 02:13:28 hubbe Exp $"); + RCSID("$Id: mapping.c,v 1.81 2000/04/30 23:15:16 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
1363:   #endif       /* FIXME: need locking! */ +  if(argp[0].u.mapping->refs == 1) +  { +  ret=argp[0].u.mapping; +  d=1; +  }else{    ret=allocate_mapping(MAP_SLOTS(e)); -  for(d=0;d<args;d++) +  d=0; +  } +  for(;d<args;d++)    MAPPING_LOOP(argp[d].u.mapping)    mapping_insert(ret, &k->ind, &k->val);    return ret;