From 4ca43ea5f9c24f4e9370c43d970b067e52378085 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sun, 17 Sep 2000 21:53:52 +0200
Subject: [PATCH] copy_value() should now propagate the weak flag properly.
Rev: src/array.c:1.88
---
src/array.c | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/array.c b/src/array.c
index 733e183a8f..31035469da 100644
--- a/src/array.c
+++ b/src/array.c
@@ -23,7 +23,7 @@
#include "stuff.h"
#include "bignum.h"
-RCSID("$Id: array.c,v 1.87 2000/09/14 19:58:43 mast Exp $");
+RCSID("$Id: array.c,v 1.88 2000/09/17 19:53:52 grubba Exp $");
PMOD_EXPORT struct array empty_array=
{
@@ -1698,6 +1698,8 @@ PMOD_EXPORT struct array *copy_array_recursively(struct array *a,struct processi
ret=allocate_array_no_init(a->size,0);
doing.pointer_b=(void *)ret;
+ ret->flags = a->flags & ~ARRAY_LVALUE;
+
copy_svalues_recursively_no_free(ITEM(ret),ITEM(a),a->size,&doing);
ret->type_field=a->type_field;
--
GitLab