Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv12123/src
Modified Files:
paths.f
Log Message:
Changed MakeAbsolutePath to add a termination 0 byte to the path string.
Index: paths.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** paths.f 1 Nov 2005 12:21:40 -0000 1.6
--- paths.f 24 Dec 2005 11:52:08 -0000 1.7
***************
*** 195,199 ****
THEN
else DROP <AbsRelPath$> PLACE
! then <AbsRelPath$> ;
: IsPathRelativeTo? { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
--- 195,199 ----
THEN
else DROP <AbsRelPath$> PLACE
! then <AbsRelPath$> dup +null ;
: IsPathRelativeTo? { a1 n1 a2 n2 -- f } \ return true if path a1 n1 is relative to path a2 n2
|
