[BACK]Return to pexpr_body.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / io

Diff for /OpenXM_contrib2/asir2000/io/pexpr_body.c between version 1.13 and 1.17

version 1.13, 2006/08/27 22:17:28 version 1.17, 2015/08/08 14:19:42
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.12 2006/04/16 00:51:14 noro Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.16 2015/08/06 10:01:52 fujimoto Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 125  void printbin(double z)
Line 125  void printbin(double z)
                 }                  }
         }          }
         fprintf(stderr,"\n");          fprintf(stderr,"\n");
   #if defined(__MINGW32__) || defined(__MINGW64__)
           fflush(stderr);
   #endif
 }  }
 #endif  #endif
 #endif  #endif
Line 689  Num q;
Line 692  Num q;
                                                 int i,expo;                                                  int i,expo;
   
                                                 m = (unsigned int *)&BDY((Real)q);                                                  m = (unsigned int *)&BDY((Real)q);
 #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)  #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)
                                                 u = m[1]; l = m[0];                                                  u = m[1]; l = m[0];
 #else  #else
                                                 u = m[0]; l = m[1];                                                  u = m[0]; l = m[1];
Line 765  Num q;
Line 768  Num q;
                 case N_A:                  case N_A:
                         PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");                          PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");
                         break;                          break;
 #if defined(PARI)  
                 case N_B:                  case N_B:
                         PRINTBF((BF)q); break;                          PRINTBF((BF)q); break;
 #endif  
 #if defined(INTERVAL)  #if defined(INTERVAL)
                 case N_IP:                  case N_IP:
                 case N_IntervalBigFloat:                  case N_IntervalBigFloat:
Line 889  Num q;
Line 890  Num q;
                                 PUTS("/");                                  PUTS("/");
                                 PRINTN(NM(dn));                                  PRINTN(NM(dn));
                         }                          }
                           break;
                   case N_GZ:
                           mpz_out_str(OUT,10,BDY((GZ)q));
                           break;
                   case N_GQ:
                           mpq_out_str(OUT,10,BDY((GQ)q));
                         break;                          break;
         }          }
 }  }
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.17
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>