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