version 1.5, 2001/10/09 01:36:02 |
version 1.8, 2009/03/02 19:01:43 |
|
|
* 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/asm/ddM.c,v 1.4 2001/06/25 05:30:48 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/asm/ddM.c,v 1.7 2004/06/25 14:09:03 ohara Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
Line 132 void diffum(int mod,UM f,UM fd) |
|
Line 132 void diffum(int mod,UM f,UM fd) |
|
{ |
{ |
int *dp,*sp; |
int *dp,*sp; |
int i; |
int i; |
#if !defined(VISUAL) |
|
UL ltmp; |
|
#endif |
|
|
|
for ( i = DEG(f), dp = COEF(fd)+i-1, sp = COEF(f)+i; |
for ( i = DEG(f), dp = COEF(fd)+i-1, sp = COEF(f)+i; |
i >= 1; i--, dp--, sp-- ) { |
i >= 1; i--, dp--, sp-- ) { |
Line 193 unsigned int rem(N n,int m) |
|
Line 190 unsigned int rem(N n,int m) |
|
if ( !n ) |
if ( !n ) |
return 0; |
return 0; |
for ( i = PL(n)-1, x = BD(n)+i, r = 0; i >= 0; i--, x-- ) { |
for ( i = PL(n)-1, x = BD(n)+i, r = 0; i >= 0; i--, x-- ) { |
#if defined(sparc) |
#if defined(sparc) && !defined(__sparcv9) |
r = dsar(m,r,*x); |
r = dsar(m,r,*x); |
#else |
#else |
DSAB(m,r,*x,t,r) |
DSAB(m,r,*x,t,r) |
Line 202 unsigned int rem(N n,int m) |
|
Line 199 unsigned int rem(N n,int m) |
|
return r; |
return r; |
} |
} |
|
|
#ifndef sparc |
#if !defined(sparc) || defined(__sparcv9) |
void addpadic(int mod,int n,unsigned int *n1,unsigned int *n2) |
void addpadic(int mod,int n,unsigned int *n1,unsigned int *n2) |
{ |
{ |
unsigned int carry,tmp; |
unsigned int carry,tmp; |