[BACK]Return to dist.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2018 / engine

Diff for /OpenXM_contrib2/asir2018/engine/dist.c between version 1.6 and 1.7

version 1.6, 2019/09/05 08:49:43 version 1.7, 2019/09/06 00:11:59
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2018/engine/dist.c,v 1.5 2019/09/04 05:32:10 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2018/engine/dist.c,v 1.6 2019/09/05 08:49:43 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
   
Line 2635  NBP harmonic_mul_nbm(NBM a,NBM b)
Line 2635  NBP harmonic_mul_nbm(NBM a,NBM b)
 /* DPM functions */  /* DPM functions */
   
 DMMstack dmm_stack;  DMMstack dmm_stack;
   extern LIST schreyer_obj;
   
 void push_schreyer_order(LIST data)  void push_schreyer_order(LIST data)
 {  {
   DMMstack t;    DMMstack t;
   int len,i;    int len,i;
   NODE in;    NODE in,t1;
   
   /* data = [DPM,...,DPM] */    /* data = [DPM,...,DPM] */
   in = BDY(data);    in = BDY(data);
Line 2655  void push_schreyer_order(LIST data)
Line 2656  void push_schreyer_order(LIST data)
   t->next = dmm_stack;    t->next = dmm_stack;
   dmm_stack = t;    dmm_stack = t;
   dpm_ordtype = 2;    dpm_ordtype = 2;
     MKNODE(t1,data,schreyer_obj?BDY(schreyer_obj):0);
     MKLIST(schreyer_obj,t1);
 }  }
   
   
 // data=[Ink,...,In0]  // data=[Ink,...,In0]
 // Ini = a list of module monomials  // Ini = a list of module monomials

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>