system-info.windows.nt: lingering string C type
parent
9887e9c9d7
commit
6fb91a042e
|
@ -11,7 +11,7 @@ M: winnt cpus ( -- n )
|
||||||
system-info dwNumberOfProcessors>> ;
|
system-info dwNumberOfProcessors>> ;
|
||||||
|
|
||||||
: memory-status ( -- MEMORYSTATUSEX )
|
: memory-status ( -- MEMORYSTATUSEX )
|
||||||
"MEMORYSTATUSEX" <struct>
|
MEMORYSTATUSEX <struct>
|
||||||
dup class heap-size >>dwLength
|
dup class heap-size >>dwLength
|
||||||
dup GlobalMemoryStatusEx win32-error=0/f ;
|
dup GlobalMemoryStatusEx win32-error=0/f ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue