Changeset 19574f in git

Timestamp:

Nov 17, 2021, 2:51:24 PM (2 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '17f1d200f27c5bd38f5dfc6e8a0879242279d1d8')

Children:

6fb433ea5b668bd9e77e49c4ed858a10152555c1

Parents:

017f019438ee60039731c0f96dc1faeb9a35ea95

Message:

fix: no NULL in n_Delete (ures vandermonde)

Files:

• Singular/ipshell.cc (modified) (1 diff)
• kernel/numeric/mpr_numeric.cc (modified) (3 diffs)

Singular/ipshell.cc

@@ -5069 +5069 @@
   delete ures;
   delete arranger;
-  nDelete( &smv );
+  if (smv!=NULL) nDelete( &smv );
 
   res->data= (void *)listofroots;

kernel/numeric/mpr_numeric.cc

@@ -174 +174 @@
 
     for ( i= 1; i < cn; i++ ) {              // i=2; i <= cn
-      nDelete( &xx );
+      if (xx!=NULL) nDelete( &xx );
       xx= nCopy(x[i]);
       xx= nInpNeg(xx);               // xx= -x[i]
 
       for ( j= (cn-i-1); j <= (cn-2); j++) { // j=(cn+1-i); j <= (cn-1)
-        nDelete( &tmp1 );
+        if (tmp1!=NULL) nDelete( &tmp1 );
         tmp1= nMult( xx, c[j+1] );           // c[j]= c[j] + (xx * c[j+1])
         newnum= nAdd( c[j], tmp1 );
@@ -195 +195 @@
       xx= nCopy(x[i]);                     // xx= x[i]
 
-      nDelete( &t );
-      t= nInit( 1 );                         // t= b= 1
-      nDelete( &b );
+      if (t!=NULL) nDelete( &t );
+      t= nInit( 1 );                        // t= b= 1
+      if (b!=NULL) nDelete( &b );
       b= nInit( 1 );
-      nDelete( &s );                         // s= q[cn-1]
+      if (s!=NULL) nDelete( &s );           // s= q[cn-1]
       s= nCopy( q[cn-1] );
 
@@ -285 +285 @@
   }
 
-  for ( i=0; i <= tdg; i++ ) nDelete( coeffs + i );
+  for ( i=0; i <= tdg; i++ ) 
+    if (coeffs[i]!=NULL) nDelete( coeffs + i );
   omFreeSize( (void *)coeffs, (tdg+1) * sizeof( number ) );