Diff for /gforth/backtrac.fs between versions 1.16 and 1.19

version 1.16, 2007/12/31 18:40:23 version 1.19, 2012/12/31 15:25:17
Line 1 Line 1
 \ backtrace handling  \ backtrace handling
   
 \ Copyright (C) 1999,2000,2003,2004,2006 Free Software Foundation, Inc.  \ Copyright (C) 1999,2000,2003,2004,2006,2007,2012 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 96  IS store-backtrace Line 96  IS store-backtrace
   
 : print-backtrace ( addr1 addr2 -- )  : print-backtrace ( addr1 addr2 -- )
     \G print a backtrace for the return stack addr1..addr2      \G print a backtrace for the return stack addr1..addr2
     cr ." Backtrace:"      2dup u< IF  cr ." Backtrace:"  THEN
     swap u+do      swap u+do
         cr          cr
         i @ dup hex. ( return-addr? )          i @ dup hex. ( return-addr? )

Removed from v.1.16  
changed lines
  Added in v.1.19


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>