[Win32forth-cvs] win32forth/src Extend.f, 1.28, 1.29 imageman.f, 1.25, 1.26

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

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv24136

Modified Files:
	Extend.f imageman.f 
Log Message:
Added checksum to files

Index: Extend.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Extend.f	25 May 2011 20:48:54 -0000	1.28
--- Extend.f	17 Jan 2012 19:32:54 -0000	1.29
***************
*** 125,131 ****
          false EndUpdate
  
! [else]
          s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
! [then]
  
  1 pause-seconds
--- 125,133 ----
          false EndUpdate
  
!  [else]
          s" src\res\Win32For.ico" s" Win32for.exe" AddAppIcon
!  [then]
!         Require Checksum.f
!         s" Win32for.exe" prepend<home>\ (AddCheckSum)
  
  1 pause-seconds

Index: imageman.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** imageman.f	10 Aug 2011 16:55:58 -0000	1.25
--- imageman.f	17 Jan 2012 19:32:54 -0000	1.26
***************
*** 138,143 ****
  IN-APPLICATION
  
! \ WINLIBRARY IMAGEHLP.DLL
! \ 3 PROC MapFileAndCheckSum             \ helper; checksum for PE
  2 PROC SystemTimeToFileTime
  1 PROC GetSystemTimeAsFileTime
--- 138,143 ----
  IN-APPLICATION
  
! WINLIBRARY IMAGEHLP.DLL
! 3 PROC MapFileAndCheckSum             \ helper; checksum for PE
  2 PROC SystemTimeToFileTime
  1 PROC GetSystemTimeAsFileTime
***************
*** 163,166 ****
--- 163,167 ----
  
  CREATE PEIMG-NAME MAXSTRING ALLOT
+ 
  -1 VALUE PEIMG-HNDL
  
***************
*** 535,539 ****
               ;
  
- ((
  : CHECKSUM   ( -- n )
               0 SP@ >R                       \ pass two dwords
--- 536,539 ----
***************
*** 542,546 ****
               CALL MapFileAndCheckSum 0<> ABORT" Failed to checksum file"
               nip ;
- ))
  
  ((
--- 542,545 ----
***************
*** 653,657 ****
               PEIMG-FCLOSE
  
- ((
               cr ." Generating checksum "
               CHECKSUM DUP h.
--- 652,655 ----
***************
*** 661,665 ****
               SP@ 4 PEIMG-FWRITE DROP                  \ write out changed checksum
               PEIMG-FCLOSE
- ))
  
               R> cr ." Built length " dup . ." (" 1 H.R ." h) bytes"
--- 659,662 ----