version 1.6, 2000/09/23 15:46:52
|
version 1.9, 2003/08/25 14:17:44
|
Line 1
|
Line 1
|
\ Simple debugging aids |
\ Simple debugging aids |
|
|
\ Copyright (C) 1995,1997,1999 Free Software Foundation, Inc. |
\ Copyright (C) 1995,1997,1999,2002,2003 Free Software Foundation, Inc. |
|
|
\ This file is part of Gforth. |
\ This file is part of Gforth. |
|
|
Line 38 require source.fs
|
Line 38 require source.fs
|
|
|
defer printdebugdata ( -- ) \ gforth print-debug-data |
defer printdebugdata ( -- ) \ gforth print-debug-data |
' .s IS printdebugdata |
' .s IS printdebugdata |
defer printdebugline ( addr -- ) \ gforth print-debug-line |
defer .debugline ( nfile nline -- ) \ gforth print-debug-line |
|
|
: (printdebugline) ( addr -- ) |
: (.debugline) ( nfile nline -- ) |
cr print-sourcepos ." :" |
cr .sourcepos ." :" |
\ it would be nice to print the name of the following word, |
\ it would be nice to print the name of the following word, |
\ but that's not easily possible for primitives |
\ but that's not easily possible for primitives |
printdebugdata |
printdebugdata |
cr ; |
cr ; |
|
|
' (printdebugline) IS printdebugline |
' (.debugline) IS .debugline |
|
|
: (~~) ( -- ) |
|
r@ printdebugline |
|
r> sourcepos %size + >r ; |
|
|
|
: ~~ ( compilation -- ; run-time -- ) \ gforth tilde-tilde |
: ~~ ( compilation -- ; run-time -- ) \ gforth tilde-tilde |
POSTPONE (~~) sourcepos, ; immediate |
compile-sourcepos POSTPONE .debugline ; immediate |
|
|