Branch: Tag:

1998-02-11

1998-02-11 00:05:03 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

lots of minor fixes

Rev: src/Makefile.in:1.57
Rev: src/configure.in:1.158
Rev: src/dmalloc.h:1.4
Rev: src/fd_control.c:1.13
Rev: src/fd_control.h:1.2
Rev: src/fdlib.c:1.12
Rev: src/fdlib.h:1.9
Rev: src/main.c:1.41
Rev: src/mapping.c:1.28
Rev: src/pike_memory.c:1.13
Rev: src/stralloc.c:1.27
Rev: src/time_stuff.h:1.7

4:   ||| See the files COPYING and DISCLAIMER for more information.   \*/   #include "global.h" - RCSID("$Id: mapping.c,v 1.27 1998/01/25 08:25:10 hubbe Exp $"); + RCSID("$Id: mapping.c,v 1.28 1998/02/11 00:05:01 hubbe Exp $");   #include "main.h"   #include "object.h"   #include "mapping.h"
565:    return a;   }    + struct array *mapping_to_array(struct mapping *m) + { +  INT32 e; +  struct keypair *k; +  struct array *a; +  struct svalue *s; +  a=allocate_array(m->size); +  s=ITEM(a); +  LOOP(m) +  { +  struct array *b=allocate_array(2); +  assign_svalue(b->item+0, & k->ind); +  assign_svalue(b->item+1, & k->val); +  s->u.array=b; +  s->type=T_ARRAY; +  } +  a->type_field = BIT_ARRAY; +  +  return a; + } +    void mapping_replace(struct mapping *m,struct svalue *from, struct svalue *to)   {    INT32 e;