From: Christian Bauer <Christian.Bauer@uni-mainz.de>
Date: Thu, 27 Feb 2003 21:08:19 +0000 (+0000)
Subject: unit_matrix() uses a heap-allocated matrix
X-Git-Tag: release_1-0-14~1
X-Git-Url: https://www.ginac.de/ginac.git//ginac.git?a=commitdiff_plain;h=afb2ad021243dc915f8400b9053c78a03d1538d7;p=ginac.git

unit_matrix() uses a heap-allocated matrix
---

diff --git a/ginac/matrix.cpp b/ginac/matrix.cpp
index 146127fa..d82abab7 100644
--- a/ginac/matrix.cpp
+++ b/ginac/matrix.cpp
@@ -1481,9 +1481,11 @@ ex diag_matrix(const lst & l)
 
 ex unit_matrix(unsigned r, unsigned c)
 {
-	matrix Id(r,c);
-	for (unsigned i=0; i<r && i<c; ++i)
+	matrix &Id = *new matrix(r, c);
+	Id.setflag(status_flags::dynallocated);
+	for (unsigned i=0; i<r && i<c; i++)
 		Id(i,i) = _ex1;
+
 	return Id;
 }