version 1.16, 2006/02/08 02:11:19 |
version 1.17, 2006/02/25 06:33:31 |
|
|
* 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.15 2003/05/14 07:08:48 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.16 2006/02/08 02:11:19 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 842 void showpos_to_string(char *buf) |
|
Line 842 void showpos_to_string(char *buf) |
|
|
|
/* [[file,line,name],...] */ |
/* [[file,line,name],...] */ |
|
|
|
extern int at_root; |
|
|
void showpos_to_list(LIST *r) |
void showpos_to_list(LIST *r) |
{ |
{ |
NODE n,u,u1,t; |
NODE n,u,u1,t; |
Line 871 void showpos_to_list(LIST *r) |
|
Line 873 void showpos_to_list(LIST *r) |
|
MKNODE(u1,l,u); u = u1; |
MKNODE(u1,l,u); u = u1; |
} |
} |
} |
} |
|
/* line number at the toplevel */ |
|
MKSTR(fname,"toplevel"); STOQ(at_root,q); |
|
t = mknode(2,fname,q); MKLIST(l,t); MKNODE(u1,l,u); u = u1; |
|
|
MKLIST(*r,u); |
MKLIST(*r,u); |
} |
} |
|
|