Changeset befecbc in git

Timestamp:

Feb 1, 2008, 4:16:15 PM (15 years ago)

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '91fdef05f09f54b8d58d92a472e9c4a43aa4656f')

Children:

564adad1fa2b95bf39e65f4b8bf3a42adadc1742

Parents:

bac8611899a1be9cec75c5869634cba746703b16

Message:

r*.cc: delete nur wenn nicht NULL


git-svn-id: file:///usr/local/Singular/svn/trunk@10551 2c84dea3-7e68-4137-9b89-c4e89433aadc

Location:

kernel

Files:

• rintegers.cc (modified) (2 diffs)
• rmodulon.cc (modified) (2 diffs)

kernel/rintegers.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rintegers.cc,v 1.7 2008-02-01 15:11:34 wienand Exp $ */
+/* $Id: rintegers.cc,v 1.8 2008-02-01 15:16:14 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -98 +98 @@
 void nrzDelete(number *a, const ring r)
 {
+  if (*a == NULL) return;
   mpz_clear((int_number) *a);
   omFreeBin((ADDRESS) *a, gmp_nrz_bin);
+  *a = NULL;
 }
 

kernel/rmodulon.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: rmodulon.cc,v 1.15 2008-02-01 15:11:34 wienand Exp $ */
+/* $Id: rmodulon.cc,v 1.16 2008-02-01 15:16:15 wienand Exp $ */
 /*
 * ABSTRACT: numbers modulo n
@@ -43 +43 @@
 void nrnDelete(number *a, const ring r)
 {
+  if (*a == NULL) return;
   mpz_clear((int_number) *a);
   omFreeBin((ADDRESS) *a, gmp_nrn_bin);