OpenXM_contrib2/asir2000/builtin/math.c - diff

Return to math.c CVS log

Up to [local] / OpenXM_contrib2 / asir2000 / builtin

version 1.5, 2003/11/08 01:12:02

version 1.6, 2003/12/11 00:19:24

Line 45

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

* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.

* $OpenXM: OpenXM_contrib2/asir2000/builtin/math.c,v 1.4 2000/12/07 07:06:41 noro Exp $

* $OpenXM: OpenXM_contrib2/asir2000/builtin/math.c,v 1.5 2003/11/08 01:12:02 noro Exp $

#include "ca.h"

#include <math.h>

Line 301 Q *rp;

if ( au ) {

NEWQ(q); SGN(q) = sgn; NM(q)=NALLOC(2); DN(q)=0;

PL(NM(q))=2; BD(NM(q))[0]=al; BD(NM(q))[1] = au;

} else {

} else if ( al ) {

UTOQ(al,q); SGN(q) = sgn;

}

} else

q = 0;

*rp = q;

}