--- a/Win32OperatingSystem.st Fri Sep 07 11:49:45 2007 +0200
+++ b/Win32OperatingSystem.st Fri Sep 07 12:55:22 2007 +0200
@@ -10362,7 +10362,7 @@
self global data.
self processor data.
self processor processorTimeFraction.
- self byIndexNumber indexNumber:238; data
+ self byIndexNumber indexNumber:230; data
"
! !
@@ -10576,6 +10576,7 @@
__AT_PUT_(st_instanceArray, __mkSmallInteger(instanceIterator+1), st_perInstance);
//get the instance data
+ __AT_PUT_(st_perInstance, @symbol(Name), __MKBYTEARRAY((wchar_t *)((BYTE *)perfInstancePtr + perfInstancePtr->NameOffset),perfInstancePtr->NameLength));
__AT_PUT_(st_perInstance, @symbol(ParentObjectTitleIndex), __mkSmallInteger(perfInstancePtr->ParentObjectTitleIndex));
__AT_PUT_(st_perInstance, @symbol(ParentObjectInstance), __mkSmallInteger(perfInstancePtr->ParentObjectInstance));
__AT_PUT_(st_perInstance, @symbol(NameOffset), __mkSmallInteger(perfInstancePtr->NameOffset));
@@ -10599,7 +10600,6 @@
perfObjectPtr = (PERF_OBJECT_TYPE *)((char *)perfObjectPtr + perfObjectPtr->TotalByteLength);
}
%}.
-
objectArray := st_objectArray.
perfTime := st_perfTime.
perfFreq := st_perfFreq.
@@ -10654,6 +10654,8 @@
rawData := anInstance at:#RawData.
+ anInstance at:#Name put:((Unicode16String fromBytes:(anInstance at:#Name) copy swapBytes) copyWithoutLast:1).
+
(anObject at:#Counters) do:[:aCounter|
(aCounter at:#CounterValueArray) add:(getCounterValueBlock value:aCounter value:rawData).
].
@@ -10758,7 +10760,7 @@
interruptsPerSecond
"
- self interruptsPerSecond
+ self interruptsPerSecond
"
|p1 p2 index counter1 counter2 resultArray deltaTInNs deltaTInS cValueArray1 cValueArray2|
@@ -13682,7 +13684,7 @@
!Win32OperatingSystem class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.295 2007-09-07 09:49:45 sr Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.296 2007-09-07 10:55:22 sr Exp $'
! !
Win32OperatingSystem initialize!