version 1.1, 2018/09/19 05:45:08 |
version 1.2, 2018/09/28 08:20:29 |
|
|
* 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/parse/comp.c,v 1.1 2018/09/19 05:45:08 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
return -1; |
return -1; |
else { |
else { |
call_usrf(LSS->sa[a->type].arf.comp,2,a,b,&c); |
call_usrf(LSS->sa[a->type].arf.comp,2,a,b,&c); |
s = QTOS(c); |
s = ZTOS(c); |
if ( s > 0 ) |
if ( s > 0 ) |
return 1; |
return 1; |
else if ( s < 0 ) |
else if ( s < 0 ) |