version 1.106, 2017/09/06 06:25:26 |
version 1.107, 2017/09/14 01:34:53 |
|
|
* 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.105 2017/08/31 02:36:20 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/dp.c,v 1.106 2017/09/06 06:25:26 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 2321 void Pnd_f4(NODE arg,LIST *rp) |
|
Line 2321 void Pnd_f4(NODE arg,LIST *rp) |
|
*rp = f; return; |
*rp = f; return; |
} |
} |
mq = (Q)ARG2(arg); |
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); |
node = mknode(1,mq); |
Psetmod_ff(node,&val); |
Psetmod_ff(node,&val); |
m = -2; |
m = -2; |