[Win32forth-cvs] win32forth/src CLASSDBG.F,1.1,1.2 CONTROL.F,1.2,1.3 EXCEPTIO.F,1.2,1.3 FLOAT.F,1.3,1.4 MAPFILE.F,1.4,1.5 POINTER.F,1.1,1.2 Primutil.f,1.4,1.5 Utils.f,1.5,1.6 Winlib.f,1.1,1.2 imageman.f,1.5,1.6 paths.f,1.2,1.3

[Dirk B. <db...@us...>]

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

Modified Files:
	CLASSDBG.F CONTROL.F EXCEPTIO.F FLOAT.F MAPFILE.F POINTER.F 
	Primutil.f Utils.f Winlib.f imageman.f paths.f 
Log Message:
Removed usage of REL>ABS and ABS>REL from Win32For.exe and marked both words as deprecated.

Index: MAPFILE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/MAPFILE.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** MAPFILE.F	28 Apr 2005 16:01:25 -0000	1.4
--- MAPFILE.F	1 May 2005 06:27:41 -0000	1.5
***************
*** 62,66 ****
                  IF      Call GetLastError
                          cr ." Map-View Error: " . abort
!                 ELSE    abs>rel r@ >hfileAddress !
                  THEN    r>drop ;
  
--- 62,66 ----
                  IF      Call GetLastError
                          cr ." Map-View Error: " . abort
!                 ELSE    r@ >hfileAddress !
                  THEN    r>drop ;
  

Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** paths.f	18 Apr 2005 17:39:42 -0000	1.2
--- paths.f	1 May 2005 06:27:41 -0000	1.3
***************
*** 112,120 ****
  
                          0  \ file component
!                         path-file$ rel>abs \ found file name buffer
                          max-path  \ size of buffer
!                         defextz$ rel>abs \ file extension
!                         filename$ rel>abs \ file name
!                         searchpath$ char+ rel>abs \ search path
                          call SearchPath
                          0<> if
--- 112,120 ----
  
                          0  \ file component
!                         path-file$ \ found file name buffer
                          max-path  \ size of buffer
!                         defextz$ \ file extension
!                         filename$ \ file name
!                         searchpath$ char+ \ search path
                          call SearchPath
                          0<> if

Index: Utils.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Utils.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Utils.f	28 Apr 2005 16:01:25 -0000	1.5
--- Utils.f	1 May 2005 06:27:41 -0000	1.6
***************
*** 322,326 ****
  \ bit of code! The bit that does it is:
  \
! \       r@ abs>rel 2 cells - @ .proc-name
  \
  \ Fetches the current IP, then goes 2 cells back (the pointer is always a
--- 322,326 ----
  \ bit of code! The bit that does it is:
  \
! \       r@ 2 cells - @ .proc-name
  \
  \ Fetches the current IP, then goes 2 cells back (the pointer is always a
***************
*** 340,344 ****
                            cr ." On Function: "
  
!                           r@ abs>rel 2 cells - @ .proc-name \ Horrible...
  
                            ."  Windows Returned Error: "
--- 340,344 ----
                            cr ." On Function: "
  
!                           r@ 2 cells - @ .proc-name \ Horrible...
  
                            ."  Windows Returned Error: "

Index: Winlib.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Winlib.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Winlib.f	21 Dec 2004 00:19:09 -0000	1.1
--- Winlib.f	1 May 2005 06:27:41 -0000	1.2
***************
*** 42,46 ****
                    if ." -" drop else 0x0F and . then 45 col \ mask out high order bits
                    dup proc>ep @
!                   over proc>ep @ DOCALL-MULTI rel>abs =
                    if drop tab
                    else h.8
--- 42,46 ----
                    if ." -" drop else 0x0F and . then 45 col \ mask out high order bits
                    dup proc>ep @
!                   over proc>ep @ DOCALL-MULTI =
                    if drop tab
                    else h.8
***************
*** 112,116 ****
  
  : (.mallocs)    ( link-addr -- )                \ display one line
!                 dup rel>abs h.8 ."   " dup link>mem h.8
                  dup mHeapSize malloc-adjlen - 13 space u,.r
                  ."   " link>haddr @ h.8 cr ;
--- 112,116 ----
  
  : (.mallocs)    ( link-addr -- )                \ display one line
!                 dup h.8 ."   " dup link>mem h.8
                  dup mHeapSize malloc-adjlen - 13 space u,.r
                  ."   " link>haddr @ h.8 cr ;
***************
*** 180,181 ****
--- 180,182 ----
  MODULE          \ finishup the module
  
+