Branch: Tag:

2000-11-29

2000-11-29 21:22:21 by Fredrik H├╝binette (Hubbe) <hubbe@hubbe.net>

minor fix

Rev: src/array.c:1.95

23:   #include "stuff.h"   #include "bignum.h"    - RCSID("$Id: array.c,v 1.94 2000/11/17 10:14:03 per Exp $"); + RCSID("$Id: array.c,v 1.95 2000/11/29 21:22:21 hubbe Exp $");      PMOD_EXPORT struct array empty_array=   {
1265:    INT32 *ordera, *orderb;       ordera=get_set_order(a); -  orderb=get_set_order(b); +  SET_ONERROR(r4,free,ordera);    -  +  orderb=get_set_order(b);    SET_ONERROR(r5,free,orderb); -  SET_ONERROR(r4,free,ordera); +     tmpa=reorder_and_copy_array(a,ordera);    SET_ONERROR(r1,do_free_array,tmpa);   
1286:    UNSET_ONERROR(r3); free((char *)zipper);    UNSET_ONERROR(r2); free_array(tmpb);    UNSET_ONERROR(r1); free_array(tmpa); -  UNSET_ONERROR(r4); free((char *)ordera); +     UNSET_ONERROR(r5); free((char *)orderb); -  +  UNSET_ONERROR(r4); free((char *)ordera);    return ret;   }