[BACK]Return to cplxnum.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2018 / builtin

Diff for /OpenXM_contrib2/asir2018/builtin/cplxnum.c between version 1.1 and 1.2

version 1.1, 2018/09/19 05:45:05 version 1.2, 2019/06/04 07:11:23
Line 45 
Line 45 
  * 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/builtin/cplxnum.c,v 1.1 2018/09/19 05:45:05 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 97  Obj *r;
Line 97  Obj *r;
   else    else
     switch ( OID(p) ) {      switch ( OID(p) ) {
       case O_N:        case O_N:
         if ( NID((Num)p) <= N_B )          if ( NID((Num)p) < N_C ) // Y.Kondoh  ( NID((Num)p) <= N_B )
           *r = p;            *r = p;
         else {          else {
           NEWC(c); c->r = ((C)p)->r; chsgnnum(((C)p)->i,&c->i);            NEWC(c); c->r = ((C)p)->r; chsgnnum(((C)p)->i,&c->i);
Line 128  Obj *r;
Line 128  Obj *r;
   else    else
     switch ( OID(p) ) {      switch ( OID(p) ) {
       case O_N:        case O_N:
         if ( NID((Num)p) <= N_B )          if ( NID((Num)p) < N_C ) // Y.Kondoh ( NID((Num)p) <= N_B )
           *r = p;            *r = p;
         else          else
           *r = (Obj)((C)p)->r;            *r = (Obj)((C)p)->r;
Line 163  Obj *r;
Line 163  Obj *r;
   else    else
     switch ( OID(p) ) {      switch ( OID(p) ) {
       case O_N:        case O_N:
         if ( NID((Num)p) <= N_B )          if ( NID((Num)p) < N_C ) // Y.Kondoh ( NID((Num)p) <= N_B )
           *r = 0;            *r = 0;
         else          else
           *r = (Obj)((C)p)->i;            *r = (Obj)((C)p)->i;
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>