version 1.22, 2015/08/06 10:01:53 |
version 1.23, 2015/08/08 14:19:42 |
|
|
* 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/asir2000/parse/debug.c,v 1.21 2015/08/04 06:20:45 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.22 2015/08/06 10:01:53 fujimoto Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 192 void show_alias(char *alias) |
|
Line 192 void show_alias(char *alias) |
|
if ( !strcmp(alias,BDY(tn)) ) { |
if ( !strcmp(alias,BDY(tn)) ) { |
fprintf(stderr,"%s->%s\n",alias,debcom[i]); return; |
fprintf(stderr,"%s->%s\n",alias,debcom[i]); return; |
} |
} |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
|
|
void debug(SNODE f) |
void debug(SNODE f) |
Line 454 void setbp(char *p) |
|
Line 457 void setbp(char *p) |
|
showbp(bpi); |
showbp(bpi); |
} |
} |
} |
} |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
|
|
void settp(char *p) |
void settp(char *p) |
Line 539 void settp(char *p) |
|
Line 545 void settp(char *p) |
|
showbp(bpi); |
showbp(bpi); |
} |
} |
} |
} |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
|
|
void clearbp(FUNC f) |
void clearbp(FUNC f) |
Line 620 void showbp(int n) |
|
Line 629 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); |
} |
} |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
|
|
void searchsn(SNODE *fp,int n,SNODE **fpp) |
void searchsn(SNODE *fp,int n,SNODE **fpp) |
Line 698 void bp(SNODE f) |
|
Line 710 void bp(SNODE f) |
|
show_debug_window(1); |
show_debug_window(1); |
fprintf(stderr,"stopped in %s at line %d in file \"%s\"\n", |
fprintf(stderr,"stopped in %s at line %d in file \"%s\"\n", |
CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname); |
CPVS->usrf->name,ln,CPVS->usrf->f.usrf->fname); |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
targetf = CPVS->usrf; curline = ln; |
targetf = CPVS->usrf; curline = ln; |
println(0,0,1); |
println(0,0,1); |
#if !defined(MPI) && !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__) |
#if !defined(MPI) && !defined(VISUAL) && !defined(__MINGW32__) && !defined(__MINGW64__) |
Line 745 void println(int ac,char **av,int l) |
|
Line 760 void println(int ac,char **av,int l) |
|
} |
} |
curline = ln + i; |
curline = ln + i; |
fclose(fp); |
fclose(fp); |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
|
|
void printvars(char *s,VS vs) |
void printvars(char *s,VS vs) |
|
|
fprintf(stderr,"#%d %s(), line %d in \"%s\"\n", |
fprintf(stderr,"#%d %s(), line %d in \"%s\"\n", |
level-vs->level,vs->usrf->name,vs->at,vs->usrf->f.usrf->fname); |
level-vs->level,vs->usrf->name,vs->at,vs->usrf->f.usrf->fname); |
} |
} |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |
} |
} |
|
|
Line 890 void show_stack(VS vs) |
|
Line 911 void show_stack(VS vs) |
|
{ |
{ |
fprintf(stderr,"#%d %s(), line %d in \"%s\"\n", |
fprintf(stderr,"#%d %s(), line %d in \"%s\"\n", |
((VS)BDY(PVSS))->level-vs->level,vs->usrf->name,vs->at,vs->usrf->f.usrf->fname); |
((VS)BDY(PVSS))->level-vs->level,vs->usrf->name,vs->at,vs->usrf->f.usrf->fname); |
|
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
} |
} |