--- a/Win32OperatingSystem.st Fri Oct 26 16:07:46 2007 +0200
+++ b/Win32OperatingSystem.st Mon Oct 29 12:40:37 2007 +0100
@@ -10562,16 +10562,19 @@
!Win32OperatingSystem::PerformanceData class methodsFor:'queries - memory'!
getFreePageFileSizeInKB
+ |ret|
%{
- MEMORYSTATUS mState;
- GlobalMemoryStatus (&mState);
-
- return __mkSmallInteger(mState.dwAvailPageFile / 1024);
+ MEMORYSTATUS mState;
+ GlobalMemoryStatus (&mState);
+
+ ret = __mkSmallInteger(mState.dwAvailPageFile / 1024);
%}.
- "
- self getFreePageFileSizeInKB
+ ^ ret
+
+ "
+ self getFreePageFileSizeInKB
"
!
@@ -10584,16 +10587,19 @@
!
getFreePhysicalMemoryInKB
+ |ret|
%{
- MEMORYSTATUS mState;
- GlobalMemoryStatus (&mState);
-
- return __mkSmallInteger(mState.dwAvailPhys / 1024);
+ MEMORYSTATUS mState;
+ GlobalMemoryStatus (&mState);
+
+ ret = __mkSmallInteger(mState.dwAvailPhys / 1024);
%}.
- "
- self getFreePhysicalMemoryInKB
+ ^ ret
+
+ "
+ self getFreePhysicalMemoryInKB
"
!
@@ -10614,30 +10620,36 @@
!
getPageFileSizeInMB
+ |ret|
%{
- SYSTEM_INFO sInfo;
- GetSystemInfo(&sInfo);
-
- return __mkSmallInteger(sInfo.dwPageSize);
+ SYSTEM_INFO sInfo;
+ GetSystemInfo(&sInfo);
+
+ ret = __mkSmallInteger(sInfo.dwPageSize);
%}.
- "
- self getPageFileSizeInMB
+ ^ ret
+
+ "
+ self getPageFileSizeInMB
"
!
getPhysicalMemoryInKB
+ |ret|
%{
- MEMORYSTATUS mState;
- GlobalMemoryStatus (&mState);
-
- return __mkSmallInteger(mState.dwTotalPhys / 1024);
+ MEMORYSTATUS mState;
+ GlobalMemoryStatus (&mState);
+
+ ret = __mkSmallInteger(mState.dwTotalPhys / 1024);
%}.
- "
- self getPhysicalMemoryInKB
+ ^ ret
+
+ "
+ self getPhysicalMemoryInKB
"
!
@@ -10650,30 +10662,36 @@
!
getUsedMemoryInPercentage
+ |ret|
%{
- MEMORYSTATUS mState;
- GlobalMemoryStatus (&mState);
-
- return __mkSmallInteger(mState.dwMemoryLoad);
+ MEMORYSTATUS mState;
+ GlobalMemoryStatus (&mState);
+
+ ret = __mkSmallInteger(mState.dwMemoryLoad);
%}.
- "
- self getUsedMemoryInPercentage
+ ^ ret
+
+ "
+ self getUsedMemoryInPercentage
"
!
getVirtualMemoryInKB
+ |ret|
%{
- MEMORYSTATUS mState;
- GlobalMemoryStatus (&mState);
-
- return __mkSmallInteger(mState.dwTotalVirtual / 1024);
+ MEMORYSTATUS mState;
+ GlobalMemoryStatus (&mState);
+
+ ret = __mkSmallInteger(mState.dwTotalVirtual / 1024);
%}.
- "
- self getVirtualMemoryInKB
+ ^ ret
+
+ "
+ self getVirtualMemoryInKB
"
!
@@ -14862,7 +14880,7 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.320 2007-10-24 13:52:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.321 2007-10-29 11:40:37 sr Exp $'
! !
Win32OperatingSystem initialize!