[Win32forth-cvs] win32forth/src Primutil.f,1.48.2.1,1.48.2.2

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

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

Modified Files:
      Tag: V614XX
	Primutil.f 
Log Message:
Fixed winver-init to work in w98FE (and possibly w95)

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.48.2.1
retrieving revision 1.48.2.2
diff -C2 -d -r1.48.2.1 -r1.48.2.2
*** Primutil.f	31 Mar 2011 11:34:48 -0000	1.48.2.1
--- Primutil.f	24 Jun 2011 17:34:56 -0000	1.48.2.2
***************
*** 714,717 ****
--- 714,718 ----
              156 dup _localalloc dup>r ! \ set length of OSVERSIONINFOEX structure
              r@ call GetVersionEx \ call os for version
+             dup 0= if drop 148 r@ ! r@ call GetVersionEx then  \ try lower size for win98FE (and possibly win95)
              0= abort" call failed"
              r@ 4 cells+ @        \ get osplatformid