Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15839/win32forth/src
Modified Files:
DBGSRC2.F
Log Message:
gah: Tidied up search order so added vocabularies are removed.
Index: DBGSRC2.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/DBGSRC2.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** DBGSRC2.F 17 May 2005 22:25:25 -0000 1.3
--- DBGSRC2.F 12 Jun 2006 12:25:11 -0000 1.4
***************
*** 3,8 ****
\ DBGSRC2.F Add Source Level Debugging to Win32Forth by Tom Zimmer
- only forth also definitions
-
INTERNAL
--- 3,6 ----
***************
*** 16,21 ****
app-size SizeOf!> SrcInfoPtr \ set the new size
1 SrcInfoPtr ! \ mark as not loadable initiallly
- \ cr ." Loading Source Information File: "
- \ SrcInfoName count type
SrcInfoName count r/w open-file dup
if 2drop
--- 14,17 ----
***************
*** 44,52 ****
: SaveInfo ( -<name>- ) \ save the debugger information to disk
- \ cr ." Saving Source Pointer Information for: " SrcInfoCnt .
- \ ." locations."
- \ cr ." To: "
/parse-word count SrcInfoName place
- \ SrcInfoName count type
SrcInfoName count r/w create-file abort" Failed to create Info File"
>r
--- 40,44 ----
***************
*** 59,62 ****
--- 51,56 ----
: buf-emit ( c1 -- ) ed-dbgline c+place ;
+ also bug
+
: _word-watch { ip@ -- } \ ip@ is address we want shown in source
with-source? \ if we want to show source
***************
*** 80,84 ****
defer@ emit >r ['] buf-emit is emit
ed-dbgline off
- [ also bug also hidden ]
.smax @ >r 3 .smax ! \ limit stack display to 3 items
debug-.s \ display stack
--- 74,77 ----
***************
*** 97,101 ****
ip@ @ execute?
if ." [ " stack-top .name ." ]"
! [ previous ] then
r> is emit
r> is type
--- 90,94 ----
ip@ @ execute?
if ." [ " stack-top .name ." ]"
! then
r> is emit
r> is type
***************
*** 124,128 ****
defer@ emit >r ['] rst-emit is emit
ed-return off
- [ also bug also hidden ]
return-top \ if returnstack is set
if return-top 1 cells +
--- 117,120 ----
***************
*** 130,134 ****
#dbg-rstack
return-top to prev-return
! [ previous ] then
r> is emit
r> is type
--- 122,126 ----
#dbg-rstack
return-top to prev-return
! then
r> is emit
r> is type
***************
*** 136,141 ****
0 ED_STACK editor-message ;
' _stack-watch is stack-watch
MODULE
-
--- 128,134 ----
0 ED_STACK editor-message ;
+ previous
+
' _stack-watch is stack-watch
MODULE
|
