[Win32forth-cvs] win32forth-stc/src primutil.f,1.21,1.22

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

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

Modified Files:
	primutil.f 
Log Message:
arm: corrected winver-init

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -d -r1.21 -r1.22
*** primutil.f	1 Feb 2007 23:01:39 -0000	1.21
--- primutil.f	12 Mar 2007 21:34:57 -0000	1.22
***************
*** 194,197 ****
--- 194,198 ----
  7 constant winxp
  8 constant win2003
+ 9 constant winvista
  
  \ To check for a version, say Win2K or greater, try WINVER WIN2K >=
***************
*** 199,203 ****
  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
--- 200,204 ----
  0 value winver
  
! : winver-init ( -- )                \ get windows version
              148 dup _localalloc dup>r !   \ set length of structure
              r@ call GetVersionEx \ call os for version
***************
*** 214,218 ****
                endof
  
!               2 of                  \ nt, 2k, xp
                  r@ cell+ @          \ majorversion
                  case
--- 215,219 ----
                endof
  
!               2 of                  \ nt, 2k, xp, vista
                  r@ cell+ @          \ majorversion
                  case
***************
*** 227,230 ****
--- 228,233 ----
                       endcase
                    endof
+                   6  of winvista endof
+                 drop -1 dup   \ unknown windows version
                  endcase
                endof