[Win32forth-cvs] win32forth/src Primutil.f,1.19,1.20

[Alex M. <ale...@us...>]

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

Modified Files:
	Primutil.f 
Log Message:
arm: correct error in winver for Vista

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** Primutil.f	28 Sep 2006 10:16:48 -0000	1.19
--- Primutil.f	4 Mar 2007 21:55:12 -0000	1.20
***************
*** 667,670 ****
--- 667,671 ----
  7 constant winxp
  8 constant win2003
+ 9 constant winvista
  
  \ To check for a version, say Win2K or greater, try WINVER WIN2K >=
***************
*** 672,676 ****
  0 value winver
  
! : winver-init ( -- n )                \ get windows version
              148 dup _localalloc dup>r !   \ set length of structure
              r@ call GetVersionEx \ call os for version
--- 673,677 ----
  0 value winver
  
! : winver-init ( -- )                \ get windows version
              148 dup _localalloc dup>r !   \ set length of structure
              r@ call GetVersionEx \ call os for version
***************
*** 700,706 ****
--- 701,709 ----
                       endcase
                    endof
+                   6  of winvista endof
                  endcase
                endof
              endcase to winver
+             drop -1 dup   \ unknown windows version
              r>drop _localfree
              ;