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
+ |
