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
;
|
