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