# HG changeset patch
# User sr
# Date 1193658037 -3600
# Node ID f336281a488e69c09612d24f7f91f2b1a9200bbc
# Parent  340038ddf158cfff473695d940bc955d41abc269
*** empty log message ***

diff -r 340038ddf158 -r f336281a488e Win32OperatingSystem.st
--- 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!