OpenXM_contrib2/asir2000/engine/_distm.c - diff

Return to _distm.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / engine

version 1.9, 2001/09/11 03:13:43

version 1.10, 2001/09/17 01:18:35

Line 45

* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/engine/_distm.c,v 1.8 2001/03/19 04:02:03 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/engine/_distm.c,v 1.9 2001/09/11 03:13:43 noro Exp $

#include "ca.h"

#include "inline.h"

Line 263 DP *pr;

{

MP m,mr,mr0;

DL d,dt,dm;

int c,n,r,i;

int c,n,r,i,c1,c2;

int *pt,*p1,*p2;

if ( !p )

Line 272 DP *pr;

for ( mr0 = 0, m = BDY(p), c = ITOS(C(m0)), d = m0->dl, n = NV(p);

m; m = NEXT(m) ) {

_NEXTMP(mr0,mr);

C(mr) = STOI(dmar(ITOS(C(m)),c,0,mod));

c1 = ITOS(C(m));

DMAR(c1,c,0,mod,c2);

C(mr) = (P)STOI(c2);

_NEWDL_NOINIT(dt,n); mr->dl = dt;

dm = m->dl;

dt->td = d->td + dm->td;