[BACK]Return to dp.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/dp.c between version 1.101 and 1.102

version 1.101, 2017/02/27 05:21:19 version 1.102, 2017/02/28 07:06:28
Line 44 
Line 44 
  * 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/asir2000/builtin/dp.c,v 1.100 2017/02/27 05:14:53 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.101 2017/02/27 05:21:19 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "base.h"  #include "base.h"
Line 2118  void Pnd_f4(NODE arg,LIST *rp)
Line 2118  void Pnd_f4(NODE arg,LIST *rp)
                 *rp = f; return;                  *rp = f; return;
         }          }
     mq = (Q)ARG2(arg);      mq = (Q)ARG2(arg);
     if ( PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30) ) {      if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30)) ) {
       node = mknode(1,mq);        node = mknode(1,mq);
       Psetmod_ff(node,&val);        Psetmod_ff(node,&val);
       m = -2;        m = -2;
Line 2151  void Pnd_gr(NODE arg,LIST *rp)
Line 2151  void Pnd_gr(NODE arg,LIST *rp)
                 *rp = f; return;                  *rp = f; return;
         }          }
     mq = (Q)ARG2(arg);      mq = (Q)ARG2(arg);
     if ( PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30) ) {      if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30)) ) {
       node = mknode(1,mq);        node = mknode(1,mq);
       Psetmod_ff(node,&val);        Psetmod_ff(node,&val);
       m = -2;        m = -2;
Line 2168  void Pnd_gr_postproc(NODE arg,LIST *rp)
Line 2168  void Pnd_gr_postproc(NODE arg,LIST *rp)
 {  {
         LIST f,v;          LIST f,v;
         int m,do_check;          int m,do_check;
       Q mq;
       Obj val;
       NODE node;
         struct order_spec *ord;          struct order_spec *ord;
   
         do_weyl = 0;          do_weyl = 0;
Line 2179  void Pnd_gr_postproc(NODE arg,LIST *rp)
Line 2182  void Pnd_gr_postproc(NODE arg,LIST *rp)
         if ( !BDY(f) ) {          if ( !BDY(f) ) {
                 *rp = f; return;                  *rp = f; return;
         }          }
         m = QTOS((Q)ARG2(arg));      mq = (Q)ARG2(arg);
       if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30)) ) {
         node = mknode(1,mq);
         Psetmod_ff(node,&val);
         m = -2;
       } else
         m = QTOS(mq);
         create_order_spec(0,ARG3(arg),&ord);          create_order_spec(0,ARG3(arg),&ord);
         do_check = ARG4(arg) ? 1 : 0;          do_check = ARG4(arg) ? 1 : 0;
         nd_gr_postproc(f,v,m,ord,do_check,rp);          nd_gr_postproc(f,v,m,ord,do_check,rp);
Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>