[BACK]Return to poly.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/poly.c between version 1.13 and 1.14

version 1.13, 2001/07/13 08:25:21 version 1.14, 2001/09/03 01:04:25
Line 45 
Line 45 
  * 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.12 2001/06/29 09:08:52 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.13 2001/07/13 08:25:21 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 751  Obj *rp;
Line 751  Obj *rp;
         N n;          N n;
         UP up;          UP up;
         UP2 up2;          UP2 up2;
           UM dp;
         Q q,r;          Q q,r;
         P p;          P p;
         NODE n0,n1;          NODE n0,n1;
Line 786  Obj *rp;
Line 787  Obj *rp;
                         setmod_lm(NM((Q)mod));                          setmod_lm(NM((Q)mod));
                         setmod_gfpn((P)defpoly);                          setmod_gfpn((P)defpoly);
                 }                  }
           } else if ( ac == 3 ) {
                   /* finite extension of a small finite field */
                   current_ff = FF_GFS;
                   setmod_sf(QTOS((Q)ARG0(arg)),QTOS((Q)ARG1(arg)));
                   d = QTOS((Q)ARG2(arg));
                   generate_defpoly_sfum(d,&dp);
                   setmod_gfspn(dp);
                   current_ff = FF_GFSPN;
         }          }
         switch ( current_ff ) {          switch ( current_ff ) {
                 case FF_GFP:                  case FF_GFP:
Line 948  Obj *rp;
Line 957  Obj *rp;
         GF2N rg,sg;          GF2N rg,sg;
         GFPN rpn,spn;          GFPN rpn,spn;
         GFS rs;          GFS rs;
           GFSPN rspn,sspn;
         P t;          P t;
         Obj obj;          Obj obj;
   
Line 972  Obj *rp;
Line 982  Obj *rp;
                                         ptomp(current_gfs_p,(P)p,&t); mqtogfs(t,&rs);                                          ptomp(current_gfs_p,(P)p,&t); mqtogfs(t,&rs);
                                         *rp = (Obj)rs;                                          *rp = (Obj)rs;
                                 }                                  }
                                   break;
                           case FF_GFSPN:
                                   ntogfspn((Obj)p,&rspn); simpgfspn((GFSPN)rspn,&sspn);
                                   *rp = (Obj)sspn;
                                 break;                                  break;
                         default:                          default:
                                 *rp = (Obj)p;                                  *rp = (Obj)p;
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>