Diff for /gforth/backtrac.fs between versions 1.11 and 1.15

version 1.11, 2004/12/01 10:02:59 version 1.15, 2006/12/31 13:39:11
Line 1 Line 1
 \ backtrace handling  \ backtrace handling
   
 \ Copyright (C) 1999,2000,2003 Free Software Foundation, Inc.  \ Copyright (C) 1999,2000,2003,2004,2006 Free Software Foundation, Inc.
   
 \ This file is part of Gforth.  \ This file is part of Gforth.
   
Line 66  IS 'cold Line 66  IS 'cold
     else \ throw by signal handler with insufficient information      else \ throw by signal handler with insufficient information
         handler @ cell - \ beyond that we know nothing          handler @ cell - \ beyond that we know nothing
     then      then
     backtrace-rp0 @ [ 2 cells ]L - over - 0 max ;      backtrace-rp0 @ [ 1 cells ]L - over - 0 max ;
   
 :noname ( -- )  :noname ( -- )
     backtrace-empty @      backtrace-return-stack
     if      dup backtrace-rs-buffer adjust-buffer
         backtrace-return-stack      backtrace-rs-buffer buffer-address @ swap move ;
         dup backtrace-rs-buffer adjust-buffer  
         backtrace-rs-buffer buffer-address @ swap move  
         backtrace-empty off  
     then ;  
 IS store-backtrace  IS store-backtrace
   
 : print-bt-entry ( return-stack-item -- )  : print-bt-entry ( return-stack-item -- )

Removed from v.1.11  
changed lines
  Added in v.1.15


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