| version 1.1, 2018/09/19 05:45:07 | version 1.2, 2018/09/28 08:20: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: OpenXM_contrib2/asir2018/engine/up_gf2n.c,v 1.1 2018/09/19 05:45:07 noro Exp $ | 
| */ | */ | 
| #include "ca.h" | #include "ca.h" | 
| #include <math.h> | #include <math.h> | 
| 
| Line 153  void tracemodup_gf2n(UP g,UP f,Z d,UP *xp) |  | 
| Line 153  void tracemodup_gf2n(UP g,UP f,Z d,UP *xp) |  | 
| UP x,t,s,u,invf; | UP x,t,s,u,invf; | 
| int en,i; | int en,i; | 
|  |  | 
| en = QTOS(d)*degup2(current_mod_gf2n->dense); | en = ZTOS(d)*degup2(current_mod_gf2n->dense); | 
| remup(g,f,&x); | remup(g,f,&x); | 
| if ( !x ) { | if ( !x ) { | 
| *xp = 0; | *xp = 0; | 
| 
| Line 174  void tracemodup_gf2n_slow(UP g,UP f,Z d,UP *xp) |  | 
| Line 174  void tracemodup_gf2n_slow(UP g,UP f,Z d,UP *xp) |  | 
| UP x,t,s,u; | UP x,t,s,u; | 
| int en,i; | int en,i; | 
|  |  | 
| en = QTOS(d)*degup2(current_mod_gf2n->dense); | en = ZTOS(d)*degup2(current_mod_gf2n->dense); | 
| remup(g,f,&x); | remup(g,f,&x); | 
| if ( !x ) { | if ( !x ) { | 
| *xp = 0; | *xp = 0; | 
| 
| Line 195  void tracemodup_gf2n_tab(UP g,UP f,Z d,UP *xp) |  | 
| Line 195  void tracemodup_gf2n_tab(UP g,UP f,Z d,UP *xp) |  | 
| UP *tab; | UP *tab; | 
| GF2N one; | GF2N one; | 
|  |  | 
| en = QTOS(d)*degup2(current_mod_gf2n->dense); | en = ZTOS(d)*degup2(current_mod_gf2n->dense); | 
| remup(g,f,&t); g = t; | remup(g,f,&t); g = t; | 
| if ( !g ) { | if ( !g ) { | 
| *xp = 0; | *xp = 0; |