[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.7 and 1.8

version 1.7, 2001/03/14 06:04:52 version 1.8, 2001/03/29 09:49:56
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.6 2001/03/13 01:10:24 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/poly.c,v 1.7 2001/03/14 06:04:52 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 886  Obj *rp;
Line 886  Obj *rp;
                                 ntogfpn((Obj)p,&rpn); simpgfpn((GFPN)rpn,&spn); *rp = (Obj)spn;                                  ntogfpn((Obj)p,&rpn); simpgfpn((GFPN)rpn,&spn); *rp = (Obj)spn;
                                 break;                                  break;
                         case FF_GFS:                          case FF_GFS:
                                 ptomp(current_gfs_q,(P)p,&t); mqtogfs(t,&rs);                                  if ( NID((Num)p) == N_GFS )
                                 *rp = (Obj)rs;                                          *rp = p;
                                   else {
                                           ptomp(current_gfs_p,(P)p,&t); mqtogfs(t,&rs);
                                           *rp = (Obj)rs;
                                   }
                                 break;                                  break;
                         default:                          default:
                                 *rp = (Obj)p;                                  *rp = (Obj)p;
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>