Changeset d30f87 in git

Timestamp:

Sep 15, 2017, 11:26:30 AM (7 years ago)

Author:

Hans Schoenemann <hannes@…>

Branches:

(u'spielwiese', 'fe61d9c35bf7c61f2b6cbf1b56e25e2f08d536cc')

Children:

d820f7809092a82de8ef0306bb92c2b5e52fca3a

Parents:

39cd99cc35c2b20b1e36d0feb5c009315e968d24

Message:

opt: janet: NULL-coeffs

File:

• kernel/GBEngine/janet.cc (modified) (3 diffs)

kernel/GBEngine/janet.cc

@@ -386 +386 @@
   pDelete(&x->root);
   pLmFree(&x->history);
-  if (x->lead) pDelete(&x->lead);
+  if (x->lead!=NULL) pLmFree(&x->lead);
   GCF(x->mult);
   GCF(x);
@@ -410 +410 @@
 void InitLead(Poly *p)
 {
-  if (p->lead) pLmDelete(&p->lead);
+  if (p->lead!=NULL) pLmFree(&p->lead);
   p->lead=pLmInit(p->root);
   p->prolonged=-1;
@@ -493 +493 @@
     pIncrExp(Pr->lead,i+1);
     pSetm(Pr->lead);
-     InitProl(temp);
+    InitProl(temp);
 
      Pr->changed=0;