version 1.14, 2003/03/07 06:39:59 |
version 1.15, 2003/05/14 07:08:48 |
|
|
* 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.13 2003/03/07 03:12:31 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.14 2003/03/07 06:39:59 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 355 void setf(int ac,char **av) |
|
Line 355 void setf(int ac,char **av) |
|
|
|
if ( !ac ) |
if ( !ac ) |
return; |
return; |
searchf(usrf,av[0],&r); |
searchuf(av[0],&r); |
if ( r ) { |
if ( r ) { |
targetf = r; |
targetf = r; |
curline = targetf->f.usrf->startl; |
curline = targetf->f.usrf->startl; |
Line 381 void setbp(char *p) |
|
Line 381 void setbp(char *p) |
|
char *buf,*savp; |
char *buf,*savp; |
char *fname; |
char *fname; |
FUNC r; |
FUNC r; |
USRF t; |
USRF uf,t; |
SNODE *snp = 0; |
SNODE *snp = 0; |
FNODE cond; |
FNODE cond; |
NODE tn; |
NODE tn; |
Line 393 void setbp(char *p) |
|
Line 393 void setbp(char *p) |
|
if ( !strcmp(av[0],"at") ) { |
if ( !strcmp(av[0],"at") ) { |
if ( !targetf ) |
if ( !targetf ) |
return; |
return; |
n = atoi(av[1]); fname = targetf->f.usrf->fname; |
n = atoi(av[1]); |
for ( tn = usrf; tn; tn = NEXT(tn) ) { |
uf = targetf->f.usrf; |
|
fname = uf->fname; |
|
tn = uf->module?uf->module->usrf_list:usrf; |
|
for ( ; tn; tn = NEXT(tn) ) { |
r = (FUNC)BDY(tn); t = r->f.usrf; |
r = (FUNC)BDY(tn); t = r->f.usrf; |
if ( t && t->fname && !strcmp(t->fname,fname) |
if ( t && t->fname && !strcmp(t->fname,fname) |
&& ( t->startl <= n ) && ( n <= t->endl ) ) |
&& ( t->startl <= n ) && ( n <= t->endl ) ) |
Line 408 void setbp(char *p) |
|
Line 411 void setbp(char *p) |
|
} |
} |
at = 1; searchsn(&BDY(t),n,&snp); |
at = 1; searchsn(&BDY(t),n,&snp); |
} else if ( !strcmp(av[0],"in") ) { |
} else if ( !strcmp(av[0],"in") ) { |
searchf(usrf,av[1],&r); |
searchuf(av[1],&r); |
if ( !r ) { |
if ( !r ) { |
fprintf(stderr,"%s() : no such function\n",av[1]); |
fprintf(stderr,"%s() : no such function\n",av[1]); |
return; |
return; |
Line 494 void settp(char *p) |
|
Line 497 void settp(char *p) |
|
} |
} |
at = 1; searchsn(&BDY(t),n,&snp); |
at = 1; searchsn(&BDY(t),n,&snp); |
} else if ( !strcmp(av[0],"in") ) { |
} else if ( !strcmp(av[0],"in") ) { |
searchf(usrf,av[1],&r); |
searchuf(av[1],&r); |
if ( !r ) { |
if ( !r ) { |
fprintf(stderr,"%s() : no such function\n",av[1]); |
fprintf(stderr,"%s() : no such function\n",av[1]); |
return; |
return; |
Line 719 void println(int ac,char **av,int l) |
|
Line 722 void println(int ac,char **av,int l) |
|
else if ( isdigit(av[0][0]) ) |
else if ( isdigit(av[0][0]) ) |
ln = atoi(av[0]); |
ln = atoi(av[0]); |
else { |
else { |
searchf(usrf,av[0],&r); |
searchuf(av[0],&r); |
if ( r && r->id != A_UNDEF ) { |
if ( r && r->id != A_UNDEF ) { |
targetf = r; |
targetf = r; |
ln = r->f.usrf->startl; |
ln = r->f.usrf->startl; |