Changeset 562c83 in git for kernel/numbers.cc

Timestamp:

Jul 20, 2011, 8:04:37 PM (13 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

22071069039f22a2772d1e4d329f934d243f95da

Parents:

7470197793b46728da3cfe2fda8909564f9eaa3b

Message:

removed tgb_obsolete.cc

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

File:

• kernel/numbers.cc (modified) (3 diffs)

kernel/numbers.cc

@@ -258 +258 @@
 {
   int c=rInternalChar(r);
-  n_coeffType t=rFieldType(r);
 
   if (rField_is_Extension(r))
@@ -271 +270 @@
     }
   }
+
+  n_coeffType t=rFieldType(r);
+  if ((r->cf!=NULL) && (r->cf->nChar==c) && (r->cf->type==t))
+  { r->cf->ref++; return; }
 
   n_Procs_s *n=cf_root;
@@ -763 +766 @@
         }
       }
+      r->cf=NULL;
     }
     if (r->algring!=NULL)