[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.17 and 1.20

version 1.17, 2015/08/08 14:19:42 version 1.20, 2017/08/31 02:36:21
Line 1 
Line 1 
 /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.16 2015/08/06 10:01:52 fujimoto Exp $ */  /* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.19 2016/06/29 08:16:11 ohara Exp $ */
   
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))  #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
   
Line 15  void PRINTIMAT(); /* IMAT */
Line 15  void PRINTIMAT(); /* IMAT */
 void PRINTSTR();  void PRINTSTR();
 void PRINTCOMP();  void PRINTCOMP();
 void PRINTDP();  void PRINTDP();
   void PRINTDPM();
 void PRINTUI();  void PRINTUI();
 void PRINTGF2MAT();  void PRINTGF2MAT();
 void PRINTGFMMAT();  void PRINTGFMMAT();
Line 72  Obj p;
Line 73  Obj p;
                                 PRINTCOMP(vl,(COMP)p); break;                                  PRINTCOMP(vl,(COMP)p); break;
                         case O_DP:                          case O_DP:
                                 PRINTDP(vl,(DP)p); break;                                  PRINTDP(vl,(DP)p); break;
                           case O_DPM:
                                   PRINTDPM(vl,(DPM)p); break;
                         case O_USINT:                          case O_USINT:
                                 PRINTUI(vl,(USINT)p); break;                                  PRINTUI(vl,(USINT)p); break;
                         case O_GF2MAT:                          case O_GF2MAT:
Line 125  void printbin(double z)
Line 128  void printbin(double z)
                 }                  }
         }          }
         fprintf(stderr,"\n");          fprintf(stderr,"\n");
 #if defined(__MINGW32__) || defined(__MINGW64__)  
         fflush(stderr);  
 #endif  
 }  }
 #endif  #endif
 #endif  #endif
Line 692  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(__MINGW32__) || defined(__MINGW64__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)  #if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64) || defined(__ARM_ARCH) || defined(ANDROID)
                                                 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 1012  DP d;
Line 1012  DP d;
                         TAIL PRINTF(OUT,"%d,",dl->d[i]);                          TAIL PRINTF(OUT,"%d,",dl->d[i]);
                 }                  }
                 TAIL PRINTF(OUT,"%d",dl->d[i]);                  TAIL PRINTF(OUT,"%d",dl->d[i]);
                   PUTS(">>");
                   if ( NEXT(m) )
                           PUTS("+");
           }
   }
   
   void PRINTDPM(vl,d)
   VL vl;
   DPM d;
   {
           int n,i;
           DMM m;
           DL dl;
   
           for ( n = d->nv, m = BDY(d); m; m = NEXT(m) ) {
                   PUTS("("); PRINTEXPR(vl,(pointer)m->c); PUTS(")*<<");
                   for ( i = 0, dl = m->dl; i < n-1; i++ ) {
                           TAIL PRINTF(OUT,"%d,",dl->d[i]);
                   }
                   TAIL PRINTF(OUT,"%d:%d",dl->d[i],m->pos);
                 PUTS(">>");                  PUTS(">>");
                 if ( NEXT(m) )                  if ( NEXT(m) )
                         PUTS("+");                          PUTS("+");
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>