[Win32forth-cvs] win32forth/apps/Win32ForthInstaller Mkdir.f, 1.1, 1.2

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthInstaller
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv6238

Modified Files:
	Mkdir.f 
Log Message:
Jos: F ascii-z  made it running out of memory

Index: Mkdir.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthInstaller/Mkdir.f,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** Mkdir.f	9 Jan 2016 14:51:18 -0000	1.1
--- Mkdir.f	11 Jan 2016 20:02:19 -0000	1.2
***************
*** 3,7 ****
  : GetFileAttributes ( addr u -- FileAttributes )
  \ *G Returns the file system attributes for a specified file or directory.
!    temp$ ascii-z Call GetFileAttributesA ;
  
  : dir-exist? ( addr u -- flag )
--- 3,8 ----
  : GetFileAttributes ( addr u -- FileAttributes )
  \ *G Returns the file system attributes for a specified file or directory.
!    MAX_PATH 1+ LocalAlloc dup>r place
!    r@ +null r> 1+ Call GetFileAttributesA ;
  
  : dir-exist? ( addr u -- flag )
***************
*** 18,22 ****
     r> ;
  
! : find-missing { adr cnt --  adr-top n }
  \ *G Finds the first missing directory.
    adr cnt 3 /string
--- 19,23 ----
     r> ;
  
! : find-missing { adr cnt --  adr n-first-dir }
  \ *G Finds the first missing directory.
    adr cnt 3 /string
***************
*** 26,30 ****
               then
      while  1+ adr cnt rot /string
!     repeat temp$ swap
   ;
  
--- 27,31 ----
               then
      while  1+ adr cnt rot /string
!     repeat adr swap
   ;
  
***************
*** 32,40 ****
  \ *G Create the specified directory including the needed directory tree
  \ ** when needed.
       begin  2dup find-missing dup
!      while   0 -rot drop 1+ call CreateDirectory 0=
               abort" Failed to create the install directory"
       repeat
!    4drop
  ;
  
--- 33,42 ----
  \ *G Create the specified directory including the needed directory tree
  \ ** when needed.
+    MAX_PATH 1+ LocalAlloc >r
       begin  2dup find-missing dup
!      while   0 -rot  r@ place r@ dup +null 1+ call CreateDirectory 0=
               abort" Failed to create the install directory"
       repeat
!    4drop r> drop
  ;