From: Christian Bauer <Christian.Bauer@uni-mainz.de>
Date: Fri, 23 Mar 2001 18:36:41 +0000 (+0000)
Subject: fixed memory leaks in lst_to_matrix() and diag_matrix()
X-Git-Tag: release_0-8-0~3
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?p=ginac.git;a=commitdiff_plain;h=35c9f72b4dca9487728170f89cd431751b17c2df;ds=sidebyside

fixed memory leaks in lst_to_matrix() and diag_matrix()
---

diff --git a/ginac/matrix.cpp b/ginac/matrix.cpp
index 650799e5..cc80f7ca 100644
--- a/ginac/matrix.cpp
+++ b/ginac/matrix.cpp
@@ -1447,9 +1447,10 @@ ex lst_to_matrix(const lst & l)
 	for (i=0; i<rows; i++)
 		if (l.op(i).nops() > cols)
 			cols = l.op(i).nops();
-	
+
 	// Allocate and fill matrix
 	matrix &m = *new matrix(rows, cols);
+	m.setflag(status_flags::dynallocated);
 	for (i=0; i<rows; i++)
 		for (j=0; j<cols; j++)
 			if (l.op(i).nops() > j)
@@ -1464,6 +1465,7 @@ ex diag_matrix(const lst & l)
 	unsigned dim = l.nops();
 
 	matrix &m = *new matrix(dim, dim);
+	m.setflag(status_flags::dynallocated);
 	for (unsigned i=0; i<dim; i++)
 		m.set(i, i, l.op(i));