* eval line number weirdness @ 2008-08-31 23:46 Rocky Bernstein 2008-09-02 17:28 ` Peter Stephenson 0 siblings, 1 reply; 3+ messages in thread From: Rocky Bernstein @ 2008-08-31 23:46 UTC (permalink / raw) To: Zsh hackers list I think that the line numbers reported in eval statements are bit hard to explain. Consider this program debug_hook() { print $funcfiletrace[1] $functrace[1]; } set -o DEBUG_BEFORE_CMD trap "debug_hook" DEBUG fn() { a=1 eval "b=2" c=3 } fn w=5 eval "x=6 y=7" z=8 which reports: linebug3.sh:4 linebug3.sh:4 linebug3.sh:9 linebug3.sh:9 linebug3.sh:5 fn:1 linebug3.sh:6 fn:2 linebug3.sh:5 fn:1 # Should be linebug3.sh:6 eval:1 ? linebug3.sh:7 fn:3 linebug3.sh:10 linebug3.sh:10 linebug3.sh:11 linebug3.sh:11 linebug3.sh:1 linebug3.sh:1 # Should be linebug3.sh:11 eval:1 ? linebug3.sh:2 linebug3.sh:2 # Should be linebug3.sh:12 eval:2 ? linebug3.sh:13 linebug3.sh:13 The problem is in describing exactly what is reported when eval gets run and having that mean something meaningful. With funcfiletrace, an absolute line number in a file name is I think supposed to be reported. So the 1 and 2 listed above (which is relative to the line number eval sees) doesn't seem right. And while for functrace it is okay to report line 1 and 2, the function name isn't right -- it should be eval than either fn or linebug3.sh. If functrace is supposed to report the line offset of the thing it is in (which seems dubious to me), then the above information isn't right. Instead of fn:1 we would get instead fn:2 since the eval is on the second line of fn; And presumably instead of linebug:1 one would see linebug:11. ^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: eval line number weirdness 2008-08-31 23:46 eval line number weirdness Rocky Bernstein @ 2008-09-02 17:28 ` Peter Stephenson 2008-09-03 3:37 ` Rocky Bernstein 0 siblings, 1 reply; 3+ messages in thread From: Peter Stephenson @ 2008-09-02 17:28 UTC (permalink / raw) To: Zsh hackers list On Sun, 31 Aug 2008 19:46:14 -0400 "Rocky Bernstein" <rocky.bernstein@gmail.com> wrote: > I think that the line numbers reported in eval statements are bit hard > to explain. I think they're plain wrong. The problem is (in the native zsh case where the option EVAL_LINENO is set) we reset the line number on an eval, and that's all we do. We really ought to fix up the stack trace so that when the line number is reset we generate a new context indicating the surrounding line information. I think this does it. An "eval" is pretty much like an inline function for tracing, with the difference that the line numbering starts from 1 rather than 0 so needs offsetting when added to the file line number. I think I've also sorted out a consistency problem with tracing information nested inside sourced files. Note this changes the way $funcsourcetrace reports sourced files---they work like autoloaded functions, i.e. the line number is 0 because the entire body of the file contains the code. I ought to write a test that checks this. Index: Doc/Zsh/mod_parameter.yo =================================================================== RCS file: /cvsroot/zsh/zsh/Doc/Zsh/mod_parameter.yo,v retrieving revision 1.11 diff -u -r1.11 mod_parameter.yo --- Doc/Zsh/mod_parameter.yo 13 Aug 2008 21:02:02 -0000 1.11 +++ Doc/Zsh/mod_parameter.yo 2 Sep 2008 17:15:52 -0000 @@ -167,7 +167,8 @@ vindex(funcfiletrace) item(tt(funcfiletrace))( This array contains the absolute line numbers and corresponding file -names for the point where the current function or sourced file was +names for the point where the current function, sourced file, or (if +tt(EVAL_LINENO) is set) tt(eval) command was called. The array is of the same length as tt(funcsourcetrace) and tt(functrace), but differs from tt(funcsourcetrace) in that the line and file are the point of call, not the point of definition, and differs @@ -176,23 +177,25 @@ ) vindex(funcsourcetrace) item(tt(funcsourcetrace))( -This array contains the file names and line numbers of the -points where the functions currently being executed were +This array contains the file names and line numbers of the +points where the functions, sourced files, and (if tt(EVAL_LINENO) is set) +tt(eval) commands currently being executed were defined. The line number is the line where the `tt(function) var(name)' or `var(name) tt(LPAR()RPAR())' started. In the case of an autoloaded -function in native zsh format where only the body of the function occurs -in the file the line number is reported as zero. +function the line number is reported as zero. The format of each element is var(filename)tt(:)var(lineno). -For files that have been executed by the tt(source) or tt(.) builtins -(in which case there is no separate definition) the trace information is -shown as tt(source:0). +For functions autoloaded from a file in native zsh format, where only the +body of the function occurs in the file, or for files that have been +executed by the tt(source) or tt(.) builtins, the trace information is +shown as var(filename)tt(:)var(0), since the entire file is the definition. Most users will be interested in the information in the tt(funcfiletrace) array instead. ) vindex(funcstack) item(tt(funcstack))( -This array contains the names of the functions currently being +This array contains the names of the functions, sourced files, +and (if tt(EVAL_LINENO) is set) tt(eval) commands. currently being executed. The first element is the name of the function using the parameter. ) Index: Src/builtin.c =================================================================== RCS file: /cvsroot/zsh/zsh/Src/builtin.c,v retrieving revision 1.203 diff -u -r1.203 builtin.c --- Src/builtin.c 31 Aug 2008 13:35:28 -0000 1.203 +++ Src/builtin.c 2 Sep 2008 17:15:53 -0000 @@ -4712,15 +4712,53 @@ { Eprog prog; char *oscriptname = scriptname; - int oineval = ineval; + int oineval = ineval, fpushed; + struct funcstack fstack; + /* * If EVALLINENO is not set, we use the line number of the * environment and must flag this up to exec.c. Otherwise, * we use a special script name to indicate the special line number. */ ineval = !isset(EVALLINENO); - if (!ineval) + if (!ineval) { scriptname = "(eval)"; + fstack.prev = funcstack; + fstack.name = scriptname; + fstack.caller = funcstack ? funcstack->name : dupstring(argzero); + fstack.lineno = lineno; + fstack.tp = FS_EVAL; + + /* + * To get file line numbers, we need to know if parent is + * the original script/shell or a sourced file, in which + * case we use the line number raw, or a function or eval, + * in which case we need to deduce where that came from. + * + * This replicates the logic for working out the information + * for $funcfiletrace---eval is similar to an inlined function + * call from a tracing perspective. + */ + if (!funcstack || funcstack->tp == FS_SOURCE) { + fstack.flineno = fstack.lineno; + fstack.filename = fstack.caller; + } else { + fstack.flineno = funcstack->flineno + lineno; + /* + * Line numbers in eval start from 1, not zero, + * so offset by one to get line in file. + */ + if (funcstack->tp == FS_EVAL) + fstack.flineno--; + fstack.filename = funcstack->filename; + if (!fstack.filename) + fstack.filename = ""; + } + funcstack = &fstack; + + fpushed = 1; + } else + fpushed = 0; prog = parse_string(zjoin(argv, ' ', 1)); if (prog) { @@ -4737,6 +4775,9 @@ lastval = 1; } + if (fpushed) + funcstack = funcstack->prev; + errflag = 0; scriptname = oscriptname; ineval = oineval; Index: Src/exec.c =================================================================== RCS file: /cvsroot/zsh/zsh/Src/exec.c,v retrieving revision 1.145 diff -u -r1.145 exec.c --- Src/exec.c 1 Sep 2008 20:18:47 -0000 1.145 +++ Src/exec.c 2 Sep 2008 17:15:53 -0000 @@ -4264,10 +4264,16 @@ } #endif fstack.name = dupstring(name); - fstack.caller = dupstring(oargv0 ? oargv0 : argzero); + /* + * The caller is whatever is immediately before on the stack, + * unless we're at the top, in which case it's the script + * or interactive shell name. + */ + fstack.caller = funcstack ? funcstack->name : + dupstring(oargv0 ? oargv0 : argzero); fstack.lineno = lineno; fstack.prev = funcstack; - fstack.sourced = 0; + fstack.tp = FS_FUNC; funcstack = &fstack; if ((shf = (Shfunc) shfunctab->getnode(shfunctab, name))) { @@ -4277,8 +4283,7 @@ fstack.flineno = 0; fstack.filename = dupstring(fstack.caller); } - - + if (prog->flags & EF_RUN) { Shfunc shf; Index: Src/init.c =================================================================== RCS file: /cvsroot/zsh/zsh/Src/init.c,v retrieving revision 1.94 diff -u -r1.94 init.c --- Src/init.c 13 Aug 2008 21:02:03 -0000 1.94 +++ Src/init.c 2 Sep 2008 17:15:53 -0000 @@ -1061,6 +1061,7 @@ unsigned char *ocs; int ocsp; int otrap_return = trap_return, otrap_state = trap_state; + struct funcstack fstack; if (!s || (!(prog = try_source_file((us = unmeta(s)))) && @@ -1100,19 +1101,17 @@ trap_state = TRAP_STATE_INACTIVE; sourcelevel++; - { - struct funcstack fstack; - fstack.name = dupstring("source"); - fstack.caller = dupstring(old_scriptfilename ? old_scriptfilename : - "zsh"); - fstack.flineno = 0; - fstack.lineno = oldlineno; - fstack.filename = fstack.name; - fstack.prev = funcstack; - fstack.sourced = 1; - funcstack = &fstack; - } - + + fstack.name = scriptfilename; + fstack.caller = funcstack ? funcstack->name : + dupstring(old_scriptfilename ? old_scriptfilename : "zsh"); + fstack.flineno = 0; + fstack.lineno = oldlineno; + fstack.filename = scriptfilename; + fstack.prev = funcstack; + fstack.tp = FS_SOURCE; + funcstack = &fstack; + if (prog) { pushheap(); errflag = 0; Index: Src/zsh.h =================================================================== RCS file: /cvsroot/zsh/zsh/Src/zsh.h,v retrieving revision 1.144 diff -u -r1.144 zsh.h --- Src/zsh.h 31 Aug 2008 16:01:12 -0000 1.144 +++ Src/zsh.h 2 Sep 2008 17:15:53 -0000 @@ -1077,6 +1077,14 @@ #define SFC_COMPLETE 5 /* called from completion code */ #define SFC_CWIDGET 6 /* new style completion widget */ +/* tp in funcstack */ + +enum { + FS_SOURCE, + FS_FUNC, + FS_EVAL +}; + /* node in function stack */ struct funcstack { @@ -1086,7 +1094,7 @@ char *caller; /* name of caller */ zlong flineno; /* line number in file */ zlong lineno; /* line offset from beginning of function */ - int sourced; /* type of entry is a sourced file */ + int tp; /* type of entry: sourced file, func, eval */ }; /* node in list of function call wrappers */ Index: Src/Modules/parameter.c =================================================================== RCS file: /cvsroot/zsh/zsh/Src/Modules/parameter.c,v retrieving revision 1.47 diff -u -r1.47 parameter.c --- Src/Modules/parameter.c 13 Aug 2008 21:02:04 -0000 1.47 +++ Src/Modules/parameter.c 2 Sep 2008 17:15:54 -0000 @@ -583,7 +583,7 @@ for (f = funcstack, p = ret; f; f = f->prev, p++) { char *colonpair, *fname; - if (!f->prev || f->prev->sourced) { + if (!f->prev || f->prev->tp == FS_SOURCE) { /* * Calling context is a file---either the parent * script or interactive shell, or a sourced @@ -595,13 +595,20 @@ sprintf(colonpair, "%s:%ld", f->caller, (long)f->lineno); } else { /* - * Calling context is a function; we need to find the line number - * in the file where that function was defined. For this we need - * the $funcsourcetrace information for the context above, + * Calling context is a function or eval; we need to find + * the line number in the file where that function was + * defined or the eval was called. For this we need the + * $funcsourcetrace information for the context above, * together with the $functrace line number for the current * context. */ long flineno = (long)(f->prev->flineno + f->lineno); + /* + * Line numbers in eval start from 1, not zero, + * so offset by one to get line in file. + */ + if (f->prev->tp == FS_EVAL) + flineno--; fname = f->prev->filename ? f->prev->filename : ""; colonpair = zhalloc(strlen(fname) + (flineno > 9999 ? 24 : 6)); Index: Test/V06parameter.ztst =================================================================== RCS file: /cvsroot/zsh/zsh/Test/V06parameter.ztst,v retrieving revision 1.3 diff -u -r1.3 V06parameter.ztst --- Test/V06parameter.ztst 12 Aug 2008 20:25:14 -0000 1.3 +++ Test/V06parameter.ztst 2 Sep 2008 17:15:54 -0000 @@ -36,4 +36,33 @@ >Inside autofn >2 + ./functrace.zsh:21 + ./autofn:0 >In sourced file ->2 + ./functrace.zsh:22 + source:0 +>2 + ./functrace.zsh:22 + ./sourcedfile:0 + + print -r -- 'module_path=(./Modules) + debug_hook() { print $funcfiletrace[1] $functrace[1]; } + set -o DEBUG_BEFORE_CMD + trap "debug_hook" DEBUG + fn() { + a=1 + eval "b=2" + c=3 + } + fn + w=5 + eval "x=6 + y=7" + z=8' >rocky3.zsh + $ZTST_testdir/../Src/zsh +Z -f ./rocky3.zsh +0:Eval tracing +>./rocky3.zsh:5 ./rocky3.zsh:5 +>./rocky3.zsh:10 ./rocky3.zsh:10 +>./rocky3.zsh:6 fn:1 +>./rocky3.zsh:7 fn:2 +>./rocky3.zsh:7 (eval):1 +>./rocky3.zsh:8 fn:3 +>./rocky3.zsh:11 ./rocky3.zsh:11 +>./rocky3.zsh:12 ./rocky3.zsh:12 +>./rocky3.zsh:12 (eval):1 +>./rocky3.zsh:13 (eval):2 +>./rocky3.zsh:14 ./rocky3.zsh:14 + -- Peter Stephenson <pws@csr.com> Software Engineer CSR PLC, Churchill House, Cambridge Business Park, Cowley Road Cambridge, CB4 0WZ, UK Tel: +44 (0)1223 692070 ^ permalink raw reply [flat|nested] 3+ messages in thread
* Re: eval line number weirdness 2008-09-02 17:28 ` Peter Stephenson @ 2008-09-03 3:37 ` Rocky Bernstein 0 siblings, 0 replies; 3+ messages in thread From: Rocky Bernstein @ 2008-09-03 3:37 UTC (permalink / raw) To: Peter Stephenson; +Cc: Zsh hackers list I applied the patch and it works great. Thanks. I've fixed and committed my zshdb bugs in this area. Now that the line numbers are pretty accurate, I guess it's time to start adding debugger breakpoints by file and line number. (Started tonight; The corresponding bashdb code is is ugly and can be simplified and made more reliable using associative arrays.) Onward and upward. Thanks again. On Tue, Sep 2, 2008 at 1:28 PM, Peter Stephenson <pws@csr.com> wrote: > On Sun, 31 Aug 2008 19:46:14 -0400 > "Rocky Bernstein" <rocky.bernstein@gmail.com> wrote: >> I think that the line numbers reported in eval statements are bit hard >> to explain. > > I think they're plain wrong. The problem is (in the native zsh case where > the option EVAL_LINENO is set) we reset the line number on an eval, and > that's all we do. We really ought to fix up the stack trace so that when > the line number is reset we generate a new context indicating the surrounding > line information. > > I think this does it. An "eval" is pretty much like an inline function > for tracing, with the difference that the line numbering starts from 1 > rather than 0 so needs offsetting when added to the file line number. > > I think I've also sorted out a consistency problem with tracing information > nested inside sourced files. Note this changes the way $funcsourcetrace > reports sourced files---they work like autoloaded functions, i.e. the line > number is 0 because the entire body of the file contains the code. I ought > to write a test that checks this. > > Index: Doc/Zsh/mod_parameter.yo > =================================================================== > RCS file: /cvsroot/zsh/zsh/Doc/Zsh/mod_parameter.yo,v > retrieving revision 1.11 > diff -u -r1.11 mod_parameter.yo > --- Doc/Zsh/mod_parameter.yo 13 Aug 2008 21:02:02 -0000 1.11 > +++ Doc/Zsh/mod_parameter.yo 2 Sep 2008 17:15:52 -0000 > @@ -167,7 +167,8 @@ > vindex(funcfiletrace) > item(tt(funcfiletrace))( > This array contains the absolute line numbers and corresponding file > -names for the point where the current function or sourced file was > +names for the point where the current function, sourced file, or (if > +tt(EVAL_LINENO) is set) tt(eval) command was > called. The array is of the same length as tt(funcsourcetrace) and > tt(functrace), but differs from tt(funcsourcetrace) in that the line and > file are the point of call, not the point of definition, and differs > @@ -176,23 +177,25 @@ > ) > vindex(funcsourcetrace) > item(tt(funcsourcetrace))( > -This array contains the file names and line numbers of the > -points where the functions currently being executed were > +This array contains the file names and line numbers of the > +points where the functions, sourced files, and (if tt(EVAL_LINENO) is set) > +tt(eval) commands currently being executed were > defined. The line number is the line where the `tt(function) var(name)' > or `var(name) tt(LPAR()RPAR())' started. In the case of an autoloaded > -function in native zsh format where only the body of the function occurs > -in the file the line number is reported as zero. > +function the line number is reported as zero. > The format of each element is var(filename)tt(:)var(lineno). > -For files that have been executed by the tt(source) or tt(.) builtins > -(in which case there is no separate definition) the trace information is > -shown as tt(source:0). > +For functions autoloaded from a file in native zsh format, where only the > +body of the function occurs in the file, or for files that have been > +executed by the tt(source) or tt(.) builtins, the trace information is > +shown as var(filename)tt(:)var(0), since the entire file is the definition. > > Most users will be interested in the information in the > tt(funcfiletrace) array instead. > ) > vindex(funcstack) > item(tt(funcstack))( > -This array contains the names of the functions currently being > +This array contains the names of the functions, sourced files, > +and (if tt(EVAL_LINENO) is set) tt(eval) commands. currently being > executed. The first element is the name of the function using the > parameter. > ) > Index: Src/builtin.c > =================================================================== > RCS file: /cvsroot/zsh/zsh/Src/builtin.c,v > retrieving revision 1.203 > diff -u -r1.203 builtin.c > --- Src/builtin.c 31 Aug 2008 13:35:28 -0000 1.203 > +++ Src/builtin.c 2 Sep 2008 17:15:53 -0000 > @@ -4712,15 +4712,53 @@ > { > Eprog prog; > char *oscriptname = scriptname; > - int oineval = ineval; > + int oineval = ineval, fpushed; > + struct funcstack fstack; > + > /* > * If EVALLINENO is not set, we use the line number of the > * environment and must flag this up to exec.c. Otherwise, > * we use a special script name to indicate the special line number. > */ > ineval = !isset(EVALLINENO); > - if (!ineval) > + if (!ineval) { > scriptname = "(eval)"; > + fstack.prev = funcstack; > + fstack.name = scriptname; > + fstack.caller = funcstack ? funcstack->name : dupstring(argzero); > + fstack.lineno = lineno; > + fstack.tp = FS_EVAL; > + > + /* > + * To get file line numbers, we need to know if parent is > + * the original script/shell or a sourced file, in which > + * case we use the line number raw, or a function or eval, > + * in which case we need to deduce where that came from. > + * > + * This replicates the logic for working out the information > + * for $funcfiletrace---eval is similar to an inlined function > + * call from a tracing perspective. > + */ > + if (!funcstack || funcstack->tp == FS_SOURCE) { > + fstack.flineno = fstack.lineno; > + fstack.filename = fstack.caller; > + } else { > + fstack.flineno = funcstack->flineno + lineno; > + /* > + * Line numbers in eval start from 1, not zero, > + * so offset by one to get line in file. > + */ > + if (funcstack->tp == FS_EVAL) > + fstack.flineno--; > + fstack.filename = funcstack->filename; > + if (!fstack.filename) > + fstack.filename = ""; > + } > + funcstack = &fstack; > + > + fpushed = 1; > + } else > + fpushed = 0; > > prog = parse_string(zjoin(argv, ' ', 1)); > if (prog) { > @@ -4737,6 +4775,9 @@ > lastval = 1; > } > > + if (fpushed) > + funcstack = funcstack->prev; > + > errflag = 0; > scriptname = oscriptname; > ineval = oineval; > Index: Src/exec.c > =================================================================== > RCS file: /cvsroot/zsh/zsh/Src/exec.c,v > retrieving revision 1.145 > diff -u -r1.145 exec.c > --- Src/exec.c 1 Sep 2008 20:18:47 -0000 1.145 > +++ Src/exec.c 2 Sep 2008 17:15:53 -0000 > @@ -4264,10 +4264,16 @@ > } > #endif > fstack.name = dupstring(name); > - fstack.caller = dupstring(oargv0 ? oargv0 : argzero); > + /* > + * The caller is whatever is immediately before on the stack, > + * unless we're at the top, in which case it's the script > + * or interactive shell name. > + */ > + fstack.caller = funcstack ? funcstack->name : > + dupstring(oargv0 ? oargv0 : argzero); > fstack.lineno = lineno; > fstack.prev = funcstack; > - fstack.sourced = 0; > + fstack.tp = FS_FUNC; > funcstack = &fstack; > > if ((shf = (Shfunc) shfunctab->getnode(shfunctab, name))) { > @@ -4277,8 +4283,7 @@ > fstack.flineno = 0; > fstack.filename = dupstring(fstack.caller); > } > - > - > + > if (prog->flags & EF_RUN) { > Shfunc shf; > > Index: Src/init.c > =================================================================== > RCS file: /cvsroot/zsh/zsh/Src/init.c,v > retrieving revision 1.94 > diff -u -r1.94 init.c > --- Src/init.c 13 Aug 2008 21:02:03 -0000 1.94 > +++ Src/init.c 2 Sep 2008 17:15:53 -0000 > @@ -1061,6 +1061,7 @@ > unsigned char *ocs; > int ocsp; > int otrap_return = trap_return, otrap_state = trap_state; > + struct funcstack fstack; > > if (!s || > (!(prog = try_source_file((us = unmeta(s)))) && > @@ -1100,19 +1101,17 @@ > trap_state = TRAP_STATE_INACTIVE; > > sourcelevel++; > - { > - struct funcstack fstack; > - fstack.name = dupstring("source"); > - fstack.caller = dupstring(old_scriptfilename ? old_scriptfilename : > - "zsh"); > - fstack.flineno = 0; > - fstack.lineno = oldlineno; > - fstack.filename = fstack.name; > - fstack.prev = funcstack; > - fstack.sourced = 1; > - funcstack = &fstack; > - } > - > + > + fstack.name = scriptfilename; > + fstack.caller = funcstack ? funcstack->name : > + dupstring(old_scriptfilename ? old_scriptfilename : "zsh"); > + fstack.flineno = 0; > + fstack.lineno = oldlineno; > + fstack.filename = scriptfilename; > + fstack.prev = funcstack; > + fstack.tp = FS_SOURCE; > + funcstack = &fstack; > + > if (prog) { > pushheap(); > errflag = 0; > Index: Src/zsh.h > =================================================================== > RCS file: /cvsroot/zsh/zsh/Src/zsh.h,v > retrieving revision 1.144 > diff -u -r1.144 zsh.h > --- Src/zsh.h 31 Aug 2008 16:01:12 -0000 1.144 > +++ Src/zsh.h 2 Sep 2008 17:15:53 -0000 > @@ -1077,6 +1077,14 @@ > #define SFC_COMPLETE 5 /* called from completion code */ > #define SFC_CWIDGET 6 /* new style completion widget */ > > +/* tp in funcstack */ > + > +enum { > + FS_SOURCE, > + FS_FUNC, > + FS_EVAL > +}; > + > /* node in function stack */ > > struct funcstack { > @@ -1086,7 +1094,7 @@ > char *caller; /* name of caller */ > zlong flineno; /* line number in file */ > zlong lineno; /* line offset from beginning of function */ > - int sourced; /* type of entry is a sourced file */ > + int tp; /* type of entry: sourced file, func, eval */ > }; > > /* node in list of function call wrappers */ > Index: Src/Modules/parameter.c > =================================================================== > RCS file: /cvsroot/zsh/zsh/Src/Modules/parameter.c,v > retrieving revision 1.47 > diff -u -r1.47 parameter.c > --- Src/Modules/parameter.c 13 Aug 2008 21:02:04 -0000 1.47 > +++ Src/Modules/parameter.c 2 Sep 2008 17:15:54 -0000 > @@ -583,7 +583,7 @@ > for (f = funcstack, p = ret; f; f = f->prev, p++) { > char *colonpair, *fname; > > - if (!f->prev || f->prev->sourced) { > + if (!f->prev || f->prev->tp == FS_SOURCE) { > /* > * Calling context is a file---either the parent > * script or interactive shell, or a sourced > @@ -595,13 +595,20 @@ > sprintf(colonpair, "%s:%ld", f->caller, (long)f->lineno); > } else { > /* > - * Calling context is a function; we need to find the line number > - * in the file where that function was defined. For this we need > - * the $funcsourcetrace information for the context above, > + * Calling context is a function or eval; we need to find > + * the line number in the file where that function was > + * defined or the eval was called. For this we need the > + * $funcsourcetrace information for the context above, > * together with the $functrace line number for the current > * context. > */ > long flineno = (long)(f->prev->flineno + f->lineno); > + /* > + * Line numbers in eval start from 1, not zero, > + * so offset by one to get line in file. > + */ > + if (f->prev->tp == FS_EVAL) > + flineno--; > fname = f->prev->filename ? f->prev->filename : ""; > > colonpair = zhalloc(strlen(fname) + (flineno > 9999 ? 24 : 6)); > Index: Test/V06parameter.ztst > =================================================================== > RCS file: /cvsroot/zsh/zsh/Test/V06parameter.ztst,v > retrieving revision 1.3 > diff -u -r1.3 V06parameter.ztst > --- Test/V06parameter.ztst 12 Aug 2008 20:25:14 -0000 1.3 > +++ Test/V06parameter.ztst 2 Sep 2008 17:15:54 -0000 > @@ -36,4 +36,33 @@ > >Inside autofn > >2 + ./functrace.zsh:21 + ./autofn:0 > >In sourced file > ->2 + ./functrace.zsh:22 + source:0 > +>2 + ./functrace.zsh:22 + ./sourcedfile:0 > + > + print -r -- 'module_path=(./Modules) > + debug_hook() { print $funcfiletrace[1] $functrace[1]; } > + set -o DEBUG_BEFORE_CMD > + trap "debug_hook" DEBUG > + fn() { > + a=1 > + eval "b=2" > + c=3 > + } > + fn > + w=5 > + eval "x=6 > + y=7" > + z=8' >rocky3.zsh > + $ZTST_testdir/../Src/zsh +Z -f ./rocky3.zsh > +0:Eval tracing > +>./rocky3.zsh:5 ./rocky3.zsh:5 > +>./rocky3.zsh:10 ./rocky3.zsh:10 > +>./rocky3.zsh:6 fn:1 > +>./rocky3.zsh:7 fn:2 > +>./rocky3.zsh:7 (eval):1 > +>./rocky3.zsh:8 fn:3 > +>./rocky3.zsh:11 ./rocky3.zsh:11 > +>./rocky3.zsh:12 ./rocky3.zsh:12 > +>./rocky3.zsh:12 (eval):1 > +>./rocky3.zsh:13 (eval):2 > +>./rocky3.zsh:14 ./rocky3.zsh:14 > + > > -- > Peter Stephenson <pws@csr.com> Software Engineer > CSR PLC, Churchill House, Cambridge Business Park, Cowley Road > Cambridge, CB4 0WZ, UK Tel: +44 (0)1223 692070 > ^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2008-09-03 3:37 UTC | newest] Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed) -- links below jump to the message on this page -- 2008-08-31 23:46 eval line number weirdness Rocky Bernstein 2008-09-02 17:28 ` Peter Stephenson 2008-09-03 3:37 ` Rocky Bernstein
Code repositories for project(s) associated with this public inbox https://git.vuxu.org/mirror/zsh/ This is a public inbox, see mirroring instructions for how to clone and mirror all data and code used for this inbox; as well as URLs for NNTP newsgroup(s).