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

Diff for /OpenXM_contrib2/asir2018/parse/debug.c between version 1.2 and 1.3

version 1.2, 2019/03/28 05:28:33 version 1.3, 2020/10/06 06:31:20
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_contrib2/asir2018/parse/debug.c,v 1.1 2018/09/19 05:45:08 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2018/parse/debug.c,v 1.2 2019/03/28 05:28:33 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 176  void show_alias(char *alias)
Line 176  void show_alias(char *alias)
   
   if ( !alias )    if ( !alias )
     for ( i = 0; dckwd[i].names; i++ ) {      for ( i = 0; dckwd[i].names; i++ ) {
       if ( tn = NEXT(dckwd[i].names) )        if ( ( tn = NEXT(dckwd[i].names) ) != 0 )
         fprintf(stderr,"%s\t",debcom[i]);          fprintf(stderr,"%s\t",debcom[i]);
       for ( ; tn; tn = NEXT(tn) ) {        for ( ; tn; tn = NEXT(tn) ) {
         fputs(BDY(tn),stderr);          fputs(BDY(tn),stderr);
Line 214  void debug(SNODE f)
Line 214  void debug(SNODE f)
   NODE pvss;    NODE pvss;
   
 #if !defined(MPI) && !defined(VISUAL) && !defined(__MINGW32__)  #if !defined(MPI) && !defined(VISUAL) && !defined(__MINGW32__)
   if ( !isatty(fileno(stdin)) && !do_server_in_X11 )    if ( !isatty(fileno(stdin)) && !do_server_in_X11 ) {
     if ( do_file )      if ( do_file )
       ExitAsir();        ExitAsir();
     else      else
       return;        return;
     }
 #endif  #endif
 #if defined(VISUAL) || defined(__MINGW32__)  #if defined(VISUAL) || defined(__MINGW32__)
   suspend_timer();    suspend_timer();
Line 589  void showbps() {
Line 590  void showbps() {
   
 void showbp(int n)  void showbp(int n)
 {  {
   if ( bpt[n].snp )    if ( bpt[n].snp ) {
     if ( bpt[n].texpr )      if ( bpt[n].texpr ) {
       if ( bpt[n].at ) {        if ( bpt[n].at ) {
         if ( bpt[n].cond )          if ( bpt[n].cond )
           fprintf(stderr,"(%d) trace %s at \"%s\":%d if %s\n",            fprintf(stderr,"(%d) trace %s at \"%s\":%d if %s\n",
Line 605  void showbp(int n)
Line 606  void showbp(int n)
         else          else
           fprintf(stderr,"(%d) trace %s in %s\n",n,bpt[n].texpr,bpt[n].f->name);            fprintf(stderr,"(%d) trace %s in %s\n",n,bpt[n].texpr,bpt[n].f->name);
       }        }
     else      } else {
       if ( bpt[n].at ) {        if ( bpt[n].at ) {
         if ( bpt[n].cond )          if ( bpt[n].cond )
           fprintf(stderr,"(%d) stop at \"%s\":%d if %s\n",            fprintf(stderr,"(%d) stop at \"%s\":%d if %s\n",
Line 620  void showbp(int n)
Line 621  void showbp(int n)
         else          else
           fprintf(stderr,"(%d) stop in %s\n",n,bpt[n].f->name);            fprintf(stderr,"(%d) stop in %s\n",n,bpt[n].f->name);
       }        }
       }
     }
 }  }
   
 void searchsn(SNODE *fp,int n,SNODE **fpp)  void searchsn(SNODE *fp,int n,SNODE **fpp)
Line 632  void searchsn(SNODE *fp,int n,SNODE **fpp)
Line 635  void searchsn(SNODE *fp,int n,SNODE **fpp)
   switch (ID(*fp)) {    switch (ID(*fp)) {
     case S_CPLX:      case S_CPLX:
       for ( tn = (NODE)FA0(*fp); tn; tn = NEXT(tn) )        for ( tn = (NODE)FA0(*fp); tn; tn = NEXT(tn) )
         if ( sn = (SNODE)BDY(tn) ) {          if ( ( sn = (SNODE)BDY(tn) ) != 0 ) {
           snp = (SNODE *)(ID(sn) == S_BP ? &FA0(sn) : &BDY(tn));            snp = (SNODE *)(ID(sn) == S_BP ? &FA0(sn) : &BDY(tn));
           if ( (*snp)->ln >= n ) {            if ( (*snp)->ln >= n ) {
             searchsn(snp,n,fpp); break;              searchsn(snp,n,fpp); break;
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>