From 3ee2ea3d1b1b8fc36a594a772c358d3d19443384 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Henrik=20Grubbstr=C3=B6m=20=28Grubba=29?=
<grubba@grubba.org>
Date: Sun, 15 Oct 2000 14:24:14 +0200
Subject: [PATCH] Oops, forgot to fix the type_field in array * float.
Rev: src/operators.c:1.110
---
src/operators.c | 4 +++-
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git a/src/operators.c b/src/operators.c
index 5125e87ca1..d893c6016f 100644
--- a/src/operators.c
+++ b/src/operators.c
@@ -6,7 +6,7 @@
/**/
#include "global.h"
#include <math.h>
-RCSID("$Id: operators.c,v 1.109 2000/10/14 22:17:58 grubba Exp $");
+RCSID("$Id: operators.c,v 1.110 2000/10/15 12:24:14 grubba Exp $");
#include "interpret.h"
#include "svalue.h"
#include "multiset.h"
@@ -1661,6 +1661,7 @@ PMOD_EXPORT void o_multiply(void)
ret = allocate_array(asize);
pos = ret->item;
if (asize >= delta) {
+ ret->type_field = src->type_field;
assign_svalues_no_free(pos,
src->item,
delta,
@@ -1681,6 +1682,7 @@ PMOD_EXPORT void o_multiply(void)
src->item,
asize,
src->type_field);
+ array_fix_type_field(ret);
}
pop_n_elems(2);
push_array(ret);
--
GitLab