===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/dp.c,v
retrieving revision 1.105
retrieving revision 1.107
diff -u -p -r1.105 -r1.107
--- OpenXM_contrib2/asir2000/builtin/dp.c	2017/08/31 02:36:20	1.105
+++ OpenXM_contrib2/asir2000/builtin/dp.c	2017/09/14 01:34:53	1.107
@@ -6,7 +6,8 @@
  * non-exclusive and royalty-free license to use, copy, modify and
  * redistribute, solely for non-commercial and non-profit purposes, the
  * computer program, "Risa/Asir" ("SOFTWARE"), subject to the terms and
- * conditions of this Agreement. For the avoidance of doubt, you acquire * only a limited right to use the SOFTWARE hereunder, and FLL or any
+ * conditions of this Agreement. For the avoidance of doubt, you acquire 
+ * only a limited right to use the SOFTWARE hereunder, and FLL or any
  * third party developer retains all rights, including but not limited to
  * copyrights, in and to the SOFTWARE.
  * 
@@ -44,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.104 2017/03/27 09:35:13 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.106 2017/09/06 06:25:26 noro Exp $ 
 */
 #include "ca.h"
 #include "base.h"
@@ -2320,7 +2321,7 @@ void Pnd_f4(NODE arg,LIST *rp)
 		  *rp = f; return;
 	  }
       mq = (Q)ARG2(arg);
-      if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<30)) ) {
+      if ( mq && (PL(NM(mq)) > 1 || BD(NM(mq))[0] >= (1<<31)) ) {
         node = mknode(1,mq);
         Psetmod_ff(node,&val);
         m = -2;