[gforth] / gforth / Attic / backtrace.fs  

gforth: gforth/Attic/backtrace.fs

Diff for /gforth/Attic/backtrace.fs between version 1.2 and 1.3

version 1.2, Sun Feb 21 14:55:43 1999 UTC version 1.3, Mon Mar 8 21:36:07 1999 UTC
Line 65 
Line 65 
     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
     rp0 @ over - [ 10 cells ]L - 0 max ; \ the bottom 10 cells (and often      backtrace-rp0 @ [ 2 cells ]L - over - 0 max ;
                                          \ more) are uninteresting  
   
 :noname ( -- )  :noname ( -- )
     backtrace-empty @      backtrace-empty @

Generate output suitable for use with a patch program
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help