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
|
