Branch: Tag:

2000-07-28

2000-07-28 17:16:56 by Fredrik Hübinette (Hubbe) <hubbe@hubbe.net>

JUMBOPATCH: dynamic loading now works on Win* !!!! (somewhat experimental :)

Rev: src/.cvsignore:1.24
Rev: src/Makefile.in:1.198
Rev: src/aclocal.m4:1.17
Rev: src/array.c:1.79
Rev: src/array.h:1.22
Rev: src/backend.c:1.53
Rev: src/backend.h:1.9
Rev: src/bignum.c:1.17
Rev: src/bignum.h:1.14
Rev: src/builtin_functions.c:1.293
Rev: src/builtin_functions.h:1.14
Rev: src/callback.c:1.20
Rev: src/configure.in:1.387
Rev: src/constants.c:1.22
Rev: src/dynamic_buffer.c:1.10
Rev: src/dynamic_load.c:1.41
Rev: src/error.c:1.56
Rev: src/error.h:1.46
Rev: src/fd_control.c:1.32
Rev: src/fdlib.c:1.37
Rev: src/fdlib.h:1.34
Rev: src/fsort.c:1.13
Rev: src/fsort_template.h:1.7
Rev: src/gc.c:1.110
Rev: src/gc.h:1.57
Rev: src/global.h:1.44
Rev: src/interpret.c:1.158
Rev: src/interpret.h:1.52
Rev: src/main.c:1.94
Rev: src/mapping.c:1.94
Rev: src/mapping.h:1.28
Rev: src/module_magic.h:1.1
Rev: src/module_support.c:1.34
Rev: src/module_support.h:1.7
Rev: src/multiset.c:1.26
Rev: src/object.c:1.137
Rev: src/object.h:1.50
Rev: src/opcodes.c:1.78
Rev: src/operators.c:1.93
Rev: src/operators.h:1.8
Rev: src/pike_macros.h:1.17
Rev: src/pike_memory.c:1.71
Rev: src/pike_memory.h:1.14
Rev: src/pike_types.c:1.132
Rev: src/port.c:1.28
Rev: src/precompile.sh.in:1.2
Rev: src/program.c:1.252
Rev: src/program.h:1.97
Rev: src/signal_handler.c:1.173
Rev: src/stralloc.c:1.85
Rev: src/stralloc.h:1.42
Rev: src/stuff.c:1.11
Rev: src/svalue.c:1.85
Rev: src/svalue.h:1.62
Rev: src/testsuite.in:1.316
Rev: src/threads.c:1.133
Rev: src/threads.h:1.99

16:   #include "gc.h"   #include "security.h"    - RCSID("$Id: multiset.c,v 1.25 2000/07/18 05:48:20 mast Exp $"); + RCSID("$Id: multiset.c,v 1.26 2000/07/28 17:16:55 hubbe Exp $");      struct multiset *first_multiset;      struct multiset *gc_internal_multiset = 0;   static struct multiset *gc_mark_multiset_pos = 0;    - int multiset_member(struct multiset *l, struct svalue *ind) + PMOD_EXPORT int multiset_member(struct multiset *l, struct svalue *ind)   {    return set_lookup(l->ind, ind) >= 0;   }
31:   /*    * allocate and init a new multiset    */ - struct multiset *allocate_multiset(struct array *ind) + PMOD_EXPORT struct multiset *allocate_multiset(struct array *ind)   {    struct multiset *l;    l=ALLOC_STRUCT(multiset);
48:   /*    * free a multiset    */ - void really_free_multiset(struct multiset *l) + PMOD_EXPORT void really_free_multiset(struct multiset *l)   {   #ifdef PIKE_DEBUG    if(l->refs)
70:    GC_FREE();   }    - void do_free_multiset(struct multiset *l) + PMOD_EXPORT void do_free_multiset(struct multiset *l)   {    if (l)    free_multiset(l);   }       - void order_multiset(struct multiset *l) + PMOD_EXPORT void order_multiset(struct multiset *l)   {    INT32 *order;    int flags;
89:    free((char *)order);   }    - struct multiset *mkmultiset(struct array *ind) + PMOD_EXPORT struct multiset *mkmultiset(struct array *ind)   {    struct multiset *l;    l=allocate_multiset(copy_array(ind));
97:    return l;   }    - void multiset_insert(struct multiset *l, + PMOD_EXPORT void multiset_insert(struct multiset *l,    struct svalue *ind)   {    INT32 i;
117:   }   #endif    - void multiset_delete(struct multiset *l,struct svalue *ind) + PMOD_EXPORT void multiset_delete(struct multiset *l,struct svalue *ind)   {    INT32 i;    i=set_lookup(l->ind, ind);
130:    }   }    - void check_multiset_for_destruct(struct multiset *l) + PMOD_EXPORT void check_multiset_for_destruct(struct multiset *l)   {   /* Horrifying worst case!!!!! */    INT32 i;
140:    l->ind->flags = flags;   }    - struct multiset *copy_multiset(struct multiset *tmp) + PMOD_EXPORT struct multiset *copy_multiset(struct multiset *tmp)   {    check_multiset_for_destruct(tmp);    return allocate_multiset(copy_array(tmp->ind));   }    - struct multiset *merge_multisets(struct multiset *a, + PMOD_EXPORT struct multiset *merge_multisets(struct multiset *a,    struct multiset *b,    INT32 operator)   {
162:    return ret;   }    - struct multiset *add_multisets(struct svalue *argp,INT32 args) + PMOD_EXPORT struct multiset *add_multisets(struct svalue *argp,INT32 args)   {    struct multiset *ret,*a,*b;    switch(args)
252:    }   }    - void f_aggregate_multiset(INT32 args) + PMOD_EXPORT void f_aggregate_multiset(INT32 args)   {    struct multiset *l;    f_aggregate(args);