Changeset 7b5b09 in git for kernel/GBEngine/kInline.h

Timestamp:

Feb 15, 2021, 6:05:19 PM (3 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', '8e0ad00ce244dfd0756200662572aef8402f13d5')

Children:

036a5e8306f215e00ce97716eea046b0e6d7cdc1

Parents:

02d0097719c7fc27a723a27a4d763bdaa9c76b95

Message:

add. TObject::pContent

File:

• kernel/GBEngine/kInline.h (modified) (1 diff)

kernel/GBEngine/kInline.h

@@ -505 +505 @@
 }
 
+KINLINE void  sTObject::pContent()
+{
+  assume(p != NULL);
+  if (t_p != NULL)
+  {
+    p_SimpleContent(t_p, 1, tailRing);
+    if (!n_GreaterZero(pGetCoeff(t_p),tailRing->cf))
+    {
+      t_p=p_Neg (t_p,tailRing);
+    }
+    pSetCoeff0(p, pGetCoeff(t_p));
+  }
+  else
+  {
+    p_SimpleContent(p, 1, currRing);
+    if (!n_GreaterZero(pGetCoeff(p),currRing->cf))
+    {
+      p=p_Neg (p,currRing);
+    }
+  }
+}
+
 KINLINE void sTObject::pNorm() // pNorm seems to be a _bad_ method name...
 {