[Win32forth-cvs] win32forth/src/tools xref.f,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/src/tools
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26953/win32forth/src/tools

Modified Files:
	xref.f 
Log Message:
gah: modified xref.f to search better. Improved formatting of listing 

Index: xref.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/tools/xref.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** xref.f	5 Jul 2005 07:44:11 -0000	1.2
--- xref.f	6 Jul 2005 08:45:44 -0000	1.3
***************
*** 88,100 ****
      \ start address specified.  Start address can be any
      \ executable text or number
!     cr ." ------------------------------------------------ "
!     defined 0= abort" Can't find name"
!     cr
!     ( FindAddr )
!     \ init LatestCfa to [unknown] and clear ValidFlag
      0 ( StartAddr )
!     0 ( EndAddr )
!     { FindAddr StartAddr EndAddr -- }
!     here aligned 4 - to EndAddr
      ?in-empty
      if
--- 88,96 ----
      \ start address specified.  Start address can be any
      \ executable text or number
!     ' cr ." ------------------------------------------------ " cr
!          ."         Application Space                        " cr
!          ." ------------------------------------------------ " cr
      0 ( StartAddr )
!     { FindAddr StartAddr -- }
      ?in-empty
      if
***************
*** 105,118 ****
      depth 1 <> abort" Param Stack Error!"
  
!     ['] loadfile umax
      to StartAddr
!     StartAddr EndAddr u>
      if
!         ['] loadfile to StartAddr
      then
!     EndAddr StartAddr FindAddr
      xref_FindLoop
      0= if ." No Cross References found in Application Space" then cr
      ." ------------------------------------------------ " cr
  
      sys-here sys-origin FindAddr
--- 101,116 ----
      depth 1 <> abort" Param Stack Error!"
  
!     app-origin umax
      to StartAddr
!     StartAddr App-here u>
      if
!         App-origin to StartAddr
      then
!     App-here StartAddr FindAddr
      xref_FindLoop
      0= if ." No Cross References found in Application Space" then cr
      ." ------------------------------------------------ " cr
+     ."              System Space                        " cr
+     ." ------------------------------------------------ " cr
  
      sys-here sys-origin FindAddr