| version 1.66, 2010/01/31 03:25:54 |
version 1.67, 2011/06/16 08:17:14 |
|
|
| * 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/gr.c,v 1.65 2009/02/09 10:21:29 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/gr.c,v 1.66 2010/01/31 03:25:54 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 1656 void reducebase_dehomo(NODE f,NODE *g) |
|
| Line 1656 void reducebase_dehomo(NODE f,NODE *g) |
|
| NODE node; |
NODE node; |
| |
|
| STOQ(r[i],q); |
STOQ(r[i],q); |
| node = mknode(4,0,q,0,0); |
node = mknode(4,NULLP,q,NULLP,NULLP); |
| MKLIST(hist,node); |
MKLIST(hist,node); |
| MKNODE(TraceList,hist,0); |
MKNODE(TraceList,hist,0); |
| } |
} |
| Line 2570 void _dp_nf_z(NODE b,DP g,DP *ps,int full,int multiple |
|
| Line 2570 void _dp_nf_z(NODE b,DP g,DP *ps,int full,int multiple |
|
| if ( GenTrace ) { |
if ( GenTrace ) { |
| /* u = cr*rp + (-cred)*shift*red */ |
/* u = cr*rp + (-cred)*shift*red */ |
| STOQ((int)BDY(l),cq); |
STOQ((int)BDY(l),cq); |
| node = mknode(4,cr,cq,0,0); |
node = mknode(4,cr,cq,NULLP,NULLP); |
| mulq(cred,rc,&rcred); |
mulq(cred,rc,&rcred); |
| chsgnnum((Num)rcred,(Num *)&mrcred); |
chsgnnum((Num)rcred,(Num *)&mrcred); |
| muldc(CO,shift,(P)mrcred,(DP *)&ARG2(node)); |
muldc(CO,shift,(P)mrcred,(DP *)&ARG2(node)); |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to gr.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin