Don't use printobject() to print a string (filename).
Print ';' instead of ',' between file and line for MPW.
This commit is contained in:
parent
1d2a9ade93
commit
247ff718df
@ -188,13 +188,16 @@ tb_printinternal(tb, fp)
|
|||||||
while (tb != NULL) {
|
while (tb != NULL) {
|
||||||
if (intrcheck())
|
if (intrcheck())
|
||||||
break;
|
break;
|
||||||
fprintf(fp, " File \"");
|
fprintf(fp, " File \"%s\"",
|
||||||
if (printobject(tb->tb_frame->f_code->co_filename,
|
getstringvalue(tb->tb_frame->f_code->co_filename));
|
||||||
fp, PRINT_RAW) != 0) {
|
#ifdef applec /* MPW */
|
||||||
err_clear();
|
/* This is needed by MPW's File and Line commands */
|
||||||
break;
|
fprintf(fp, "; ");
|
||||||
}
|
#else
|
||||||
fprintf(fp, "\", line %d\n", tb->tb_lineno);
|
/* This is needed by Emacs' compile command */
|
||||||
|
fprintf(fp, ", ");
|
||||||
|
#endif
|
||||||
|
fprintf(fp, "line %d\n", tb->tb_lineno);
|
||||||
tb_displayline(fp,
|
tb_displayline(fp,
|
||||||
getstringvalue(tb->tb_frame->f_code->co_filename),
|
getstringvalue(tb->tb_frame->f_code->co_filename),
|
||||||
tb->tb_lineno);
|
tb->tb_lineno);
|
||||||
|
Loading…
x
Reference in New Issue
Block a user