2002-03-06
2002-03-06 11:01:59 by Henrik Grubbström (Grubba) <grubba@grubba.org>
-
01edaeae37981c7ccdcd25529674ccaf829e79b2
(13 lines)
(+10/-3)
[
Show
| Annotate
]
Branch: 7.9
Fixed [bug 2762 (#2762)].
Rev: src/array.c:1.124
23:
#include "stuff.h"
#include "bignum.h"
- RCSID("$Id: array.c,v 1.123 2002/01/16 02:54:07 nilsson Exp $");
+ RCSID("$Id: array.c,v 1.124 2002/03/06 11:01:59 grubba Exp $");
PMOD_EXPORT struct array empty_array=
{
2378:
PMOD_EXPORT struct array *implode_array(struct array *a, struct array *b)
{
- INT32 e,size;
+ INT32 e, size;
struct array *ret;
-
+
+ if (!a->size) {
+ add_ref(a);
+ return a;
+ }
+
size=0;
for(e=0;e<a->size;e++)
{
2411: Inside #if defined(PIKE_DEBUG)
}
#ifdef PIKE_DEBUG
if(size != ret->size)
- fatal("Implode_array failed miserably\n");
+ fatal("Implode_array failed miserably (%d != %d)\n", size, ret->size);
#endif
return ret;
}