version 1.15, 2001/09/07 08:54:57 |
version 1.16, 2001/09/10 02:45:25 |
|
|
* 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/array.c,v 1.14 2001/09/04 05:14:03 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/builtin/array.c,v 1.15 2001/09/07 08:54:57 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "base.h" |
#include "base.h" |
|
|
ONE_STEP1 ONE_STEP1 ONE_STEP1 ONE_STEP1 |
ONE_STEP1 ONE_STEP1 ONE_STEP1 ONE_STEP1 |
ONE_STEP1 ONE_STEP1 ONE_STEP1 ONE_STEP1 |
ONE_STEP1 ONE_STEP1 ONE_STEP1 ONE_STEP1 |
} |
} |
for ( ; k >= 0; k-- ) { |
for ( ; k > 0; k-- ) { |
if ( zzz = *s ) { DMAR(zzz,hc,*tj,md,*tj) } tj++; s++; |
if ( zzz = *s ) { DMAR(zzz,hc,*tj,md,*tj) } tj++; s++; |
} |
} |
} |
} |
|
|
hc = md-hc; |
hc = md-hc; |
s = redmat[i]+j; |
s = redmat[i]+j; |
tj = sp+j; |
tj = sp+j; |
for ( k = col-j; k >= 0; k-- ) { |
for ( k = col-j; k > 0; k-- ) { |
if ( zzz = *s ) { DMAR(zzz,hc,*tj,md,*tj) } tj++; s++; |
if ( zzz = *s ) { DMAR(zzz,hc,*tj,md,*tj) } tj++; s++; |
} |
} |
} |
} |
|
|
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
} |
} |
for ( ; k >= 0; k -- ) { |
for ( ; k > 0; k -- ) { |
if ( zzz = *pk ) { DMAR(zzz,a,*tk,md,*tk) } pk++; tk++; |
if ( zzz = *pk ) { DMAR(zzz,a,*tk,md,*tk) } pk++; tk++; |
} |
} |
} |
} |
|
|
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
ONE_STEP2 ONE_STEP2 ONE_STEP2 ONE_STEP2 |
} |
} |
for ( ; k >= 0; k -- ) { |
for ( ; k > 0; k -- ) { |
if ( zzz = *pk ) { DMAR(zzz,a,*tk,md,*tk) } pk++; tk++; |
if ( zzz = *pk ) { DMAR(zzz,a,*tk,md,*tk) } pk++; tk++; |
} |
} |
} |
} |