Changeset aab245 in git

Timestamp:

Jan 22, 2002, 10:13:16 AM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', 'd1b01e9d51ade4b46b745d3bada5c5f3696be3a8')

Children:

dd27145c324e95eee21217b04952de3a5e1813de

Parents:

a1c65f38993a2f0fea6a4d16929756bd068f10c7

Message:

*hannes: 2-0 changes


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

File:

• Singular/kInline.cc (modified) (2 diffs)

Singular/kInline.cc

@@ -7 +7 @@
  *  Author:  obachman (Olaf Bachmann)
  *  Created: 8/00
- *  Version: $Id: kInline.cc,v 1.25 2001-08-27 14:47:04 Singular Exp $
+ *  Version: $Id: kInline.cc,v 1.26 2002-01-22 09:13:16 Singular Exp $
  *******************************************************************/
 #ifndef KINLINE_CC
@@ -607 +607 @@
   kTest_L(this);
   if (p == NULL)
+  {
     p = k_LmInit_tailRing_2_currRing(t_p, tailRing,
                                      (lmBin!=NULL?lmBin:currRing->PolyBin));
+    FDeg = pFDeg();
+  }
   else if (lmBin != NULL && lmBin != currRing->PolyBin)
+  {
     p = p_LmShallowCopyDelete(p, currRing, lmBin);
+    FDeg = pFDeg();
+  }
 
   if (bucket != NULL)