[Win32forth-cvs] win32forth/src DBGSRC2.F,1.3,1.4

[George H. <geo...@us...>]

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