| version 1.25, 2016/03/31 05:30:32 |
version 1.26, 2017/02/28 07:06:28 |
|
|
| * 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/poly.c,v 1.24 2011/07/21 04:43:26 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.25 2016/03/31 05:30:32 noro Exp $ |
| */ |
*/ |
| #include "ca.h" |
#include "ca.h" |
| #include "parse.h" |
#include "parse.h" |
| Line 826 void Psetmod_ff(NODE arg,Obj *rp) |
|
| Line 826 void Psetmod_ff(NODE arg,Obj *rp) |
|
| if ( ac == 1 ) { |
if ( ac == 1 ) { |
| mod = (Obj)ARG0(arg); |
mod = (Obj)ARG0(arg); |
| if ( !mod ) |
if ( !mod ) |
| error("setmod_ff : invalid argument"); |
current_ff = FF_NOT_SET; |
| switch ( OID(mod) ) { |
else { |
| |
switch ( OID(mod) ) { |
| case O_N: |
case O_N: |
| current_ff = FF_GFP; |
current_ff = FF_GFP; |
| setmod_lm(NM((Q)mod)); |
setmod_lm(NM((Q)mod)); |
| Line 837 void Psetmod_ff(NODE arg,Obj *rp) |
|
| Line 838 void Psetmod_ff(NODE arg,Obj *rp) |
|
| setmod_gf2n((P)mod); break; |
setmod_gf2n((P)mod); break; |
| default: |
default: |
| error("setmod_ff : invalid argument"); |
error("setmod_ff : invalid argument"); |
| } |
} |
| |
} |
| } else if ( ac == 2 ) { |
} else if ( ac == 2 ) { |
| if ( OID(ARG0(arg)) == O_N ) { |
if ( OID(ARG0(arg)) == O_N ) { |
| /* small finite field; primitive root representation */ |
/* small finite field; primitive root representation */ |
![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to poly.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / builtin