Branch: Tag:

2001-04-30

2001-04-30 17:31:29 by Martin Stjernholm <mast@lysator.liu.se>

Export set_svalue_cmpfun since it's used by rbtree.

Rev: src/array.c:1.105
Rev: src/array.h:1.34

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.104 2001/04/15 16:13:17 mast Exp $"); + RCSID("$Id: array.c,v 1.105 2001/04/30 17:31:28 mast Exp $");      PMOD_EXPORT struct array empty_array=   {
646:    return current_order;   }    - static INLINE int set_svalue_cmpfun(struct svalue *a, struct svalue *b) + INLINE int set_svalue_cmpfun(const struct svalue *a, const struct svalue *b)   {    INT32 def,fun;    if(a->type == b->type)
766:    return def;   }    - static int switch_svalue_cmpfun(struct svalue *a, struct svalue *b) + static int switch_svalue_cmpfun(const struct svalue *a, const struct svalue *b)   {    if(a->type == b->type)    {
793:    }   }    - static int alpha_svalue_cmpfun(struct svalue *a, struct svalue *b) + static int alpha_svalue_cmpfun(const struct svalue *a, const struct svalue *b)   {    if(a->type == b->type)    {