version 1.1, 2018/09/19 05:45:07 |
version 1.2, 2020/10/06 06:31:19 |
|
|
* 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: OpenXM_contrib2/asir2018/engine/vect.c,v 1.1 2018/09/19 05:45:07 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
|
|
|
|
return a->len>b->len ? 1 : -1; |
return a->len>b->len ? 1 : -1; |
else { |
else { |
for ( i = 0, len = a->len; i < len; i++ ) |
for ( i = 0, len = a->len; i < len; i++ ) |
if ( t = arf_comp(vl,(Obj)BDY(a)[i],(Obj)BDY(b)[i]) ) |
if ( ( t = arf_comp(vl,(Obj)BDY(a)[i],(Obj)BDY(b)[i]) ) != 0 ) |
return t; |
return t; |
return 0; |
return 0; |
} |
} |