Changeset befecbc in git for kernel/rintegers.cc

Timestamp:

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

Author:

Oliver Wienand <wienand@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

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

File:

• kernel/rintegers.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;
 }