Changeset 16910e in git for Singular/fglm.cc

Timestamp:

Mar 29, 1997, 10:49:21 AM (27 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

b7808e0d5a520a6f1142871d7b0706aa1ac05721

Parents:

286bd57f141192952ea97529da8fec2abe3e1d61

Message:

* wichmann: minor bugfix in fglmProc (qring-case/update of ideal resp. result)


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

File:

• Singular/fglm.cc (modified) (3 diffs)

Singular/fglm.cc

@@ -1 +1 @@
 // emacs edit mode for this file is -*- C++ -*-
-// $Id: fglm.cc,v 1.7 1997-03-27 20:23:36 obachman Exp $ 
+// $Id: fglm.cc,v 1.8 1997-03-29 09:49:21 Singular Exp $ 
 
 /****************************************
@@ -59 +59 @@
     offset= IDELEMS( sourceIdeal );
     for ( l= IDELEMS( currQuotient )-1; l >= 0; l-- ) {
-        found= FALSE;
-        for ( k= IDELEMS( sourceIdeal )-1; (k >= 0) && (found == FALSE); k-- )
-            if ( pDivisibleBy( (sourceIdeal->m)[k], (currQuotient->m)[l] ) )
-                found= TRUE;
-        if ( ! found ) {
-            (newSource->m)[offset]= pCopy( (currQuotient->m)[l] );
-            offset++;
+        if ( (currQuotient->m)[l] != NULL ) {
+            found= FALSE;
+            for ( k= IDELEMS( sourceIdeal )-1; (k >= 0) && (found == FALSE); k-- )
+                if ( pDivisibleBy( (sourceIdeal->m)[k], (currQuotient->m)[l] ) )
+                    found= TRUE;
+            if ( ! found ) {
+                (newSource->m)[offset]= pCopy( (currQuotient->m)[l] );
+                offset++;
+            }
         }
     }
@@ -82 +84 @@
     BOOLEAN found;
     for ( k= IDELEMS( result )-1; k >=0; k-- ) {
-        found= FALSE;
-        for ( l= IDELEMS( currQuotient )-1; (l >= 0) && ( found == FALSE ); l-- )
-            if ( pDivisibleBy( (currQuotient->m)[l], (result->m)[k] ) )
-                found= TRUE;
-        if ( found ) pDelete( &(currQuotient->m)[l] );
+        if ( (result->m)[k] != NULL ) {
+            found= FALSE;
+            for ( l= IDELEMS( currQuotient )-1; (l >= 0) && ( found == FALSE ); l-- ) 
+                if ( pDivisibleBy( (currQuotient->m)[l], (result->m)[k] ) )
+                    found= TRUE;
+            if ( found ) pDelete( & ((result->m)[k]) );
+        }
     }
     idSkipZeroes( result );