[Win32forth-cvs] win32forth/src Winversion.f,1.2,1.3

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

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv12999

Modified Files:
	Winversion.f 
Log Message:
Jos: GetVersionEx is not supported by windows 8.1

Index: Winversion.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Winversion.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** Winversion.f	19 Aug 2015 10:53:22 -0000	1.2
--- Winversion.f	2 Sep 2015 12:30:11 -0000	1.3
***************
*** 67,71 ****
  : GetVersionWin8+ ( -- winver )
       s" CurrentMajorVersionNumber" WNT\Version
!      GetRegistryEntry 0>  if  @ 4 +  else  drop -2  then  ;
  
  external
--- 67,71 ----
  : GetVersionWin8+ ( -- winver )
       s" CurrentMajorVersionNumber" WNT\Version
!      GetRegistryEntry 0>  if  @ 4 +  else  drop WIN8  then  ;
  
  external