version 1.5, 2001/02/27 21:17:10
|
version 1.8, 2003/03/09 15:16:46
|
Line 1
|
Line 1
|
\ backtrace handling |
\ backtrace handling |
|
|
\ Copyright (C) 1999,2000 Free Software Foundation, Inc. |
\ Copyright (C) 1999,2000,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 80 IS store-backtrace
|
Line 80 IS store-backtrace
|
: print-bt-entry ( return-stack-item -- ) |
: print-bt-entry ( return-stack-item -- ) |
cell - dup in-dictionary? over dup aligned = and |
cell - dup in-dictionary? over dup aligned = and |
if |
if |
@ dup look |
@ dup threaded>name dup if |
if |
|
.name drop |
.name drop |
else |
else |
drop body> look \ !! check for "call" in cell before? |
drop dup look if |
if |
.name drop |
.name |
|
else |
else |
drop |
drop body> look \ !! check for "call" in cell before? |
|
if |
|
.name |
|
else |
|
drop |
|
then |
then |
then |
then |
then |
else |
else |