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

Diff for /OpenXM_contrib2/asir2000/engine/distm.c between version 1.17 and 1.18

version 1.17, 2003/07/23 01:22:50 version 1.18, 2003/12/26 02:38:10
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/engine/distm.c,v 1.16 2003/07/22 10:11:43 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/engine/distm.c,v 1.17 2003/07/23 01:22:50 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "inline.h"  #include "inline.h"
Line 99  void mptomd(VL vl,int mod,VL dvl,P p,DP *pr)
Line 99  void mptomd(VL vl,int mod,VL dvl,P p,DP *pr)
                                 *pr = s;                                  *pr = s;
                         }                          }
                 }                  }
           }
   }
   
   void mdtodp(DP p,DP *pr)
   {
           MP m,mr0,mr;
   
           if ( !p )
                   *pr = 0;
           else {
                   for ( m = BDY(p), mr0 = 0; m; m = NEXT(m) ) {
                           NEXTMP(mr0,mr); mr->dl = m->dl;
                           mptop(C(m),&C(mr));
                   }
                   NEXT(mr) = 0;
                   MKDP(NV(p),mr0,*pr);
                   (*pr)->sugar = p->sugar;
           }
   }
   
   void _mdtodp(DP p,DP *pr)
   {
           MP m,mr0,mr;
           int i;
           Q q;
   
           if ( !p )
                   *pr = 0;
           else {
                   for ( m = BDY(p), mr0 = 0; m; m = NEXT(m) ) {
                           NEXTMP(mr0,mr); mr->dl = m->dl;
                           i = ITOS(m->c); STOQ(i,q); C(mr) = (P)q;
                   }
                   NEXT(mr) = 0;
                   MKDP(NV(p),mr0,*pr);
                   (*pr)->sugar = p->sugar;
         }          }
 }  }
   
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>