steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix compile errors in hardware-info.windows

db4
U-SLAVA-DFB8FF805\Slava 2008-11-17 20:40:53 -06:00
parent 369831cd39
commit 116ad2f04b
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
extra/hardware-info/windows/windows.factor
View File

@ -18,7 +18,7 @@ IN: hardware-info.windows
: processor-architecture ( -- n ) : processor-architecture ( -- n )
system-info SYSTEM_INFO-dwOemId HEX: ffff0000 bitand ; system-info SYSTEM_INFO-dwOemId HEX: ffff0000 bitand ;
: os-version : os-version ( -- os-version )
"OSVERSIONINFO" <c-object> "OSVERSIONINFO" <c-object>
"OSVERSIONINFO" heap-size over set-OSVERSIONINFO-dwOSVersionInfoSize "OSVERSIONINFO" heap-size over set-OSVERSIONINFO-dwOSVersionInfoSize
[ GetVersionEx ] keep swap zero? [ win32-error ] when ; [ GetVersionEx ] keep swap zero? [ win32-error ] when ;
@ -67,4 +67,4 @@ IN: hardware-info.windows
{ {
{ [ os wince? ] [ "hardware-info.windows.ce" ] } { [ os wince? ] [ "hardware-info.windows.ce" ] }
{ [ os winnt? ] [ "hardware-info.windows.nt" ] } { [ os winnt? ] [ "hardware-info.windows.nt" ] }
} cond [ require ] when* >> } cond require >>