Utility methods for the vm parameters report

Author: chisandrei

src/GToolkit-Utility-SpaceTally/GtVmAllParametersDiffReport.class.st

@@ -135,6 +135,11 @@ GtVmAllParametersDiffReport >> printOn: aStream [
 		<< ' changed parameters'
 ]
 
+{ #category : #accessing }
+GtVmAllParametersDiffReport >> reducedOldSpaceSize [
+	^ self sourceReport usedOldSpaceSize - self targetReport usedOldSpaceSize
+]
+
 { #category : #accessing }
 GtVmAllParametersDiffReport >> reportSummaryValues [ 
 	^ self parameterDiffs

src/GToolkit-Utility-SpaceTally/GtVmAllParametersReport.class.st

@@ -42,6 +42,11 @@ GtVmAllParametersReport >> extraParameters: aDictionary [
 	extraParameters := aDictionary
 ]
 
+{ #category : #'accessing - parameters' }
+GtVmAllParametersReport >> freeOldSpaceSizeParameter [
+	^ self parameterWithIndex: 54
+]
+
 { #category : #accessing }
 GtVmAllParametersReport >> gtViewVmParametersFor: aView [ 
 	<gtView>
@@ -73,6 +78,17 @@ GtVmAllParametersReport >> gtViewVmParametersFullFor: aView [
 		column: 'Description' text: [ :aVmParameter | aVmParameter description ]
 ]
 
+{ #category : #'accessing - parameters' }
+GtVmAllParametersReport >> oldSpaceSizeParameter [
+	^ self parameterWithIndex: 1
+]
+
+{ #category : #accessing }
+GtVmAllParametersReport >> parameterWithIndex: anIndex [
+	^ self vmParameters detect: [ :each |
+		each index = anIndex ].
+]
+
 { #category : #accessing }
 GtVmAllParametersReport >> parametersWithIndexes: aCollection [
 	^ self vmParameters select: [ :each |
@@ -102,6 +118,12 @@ GtVmAllParametersReport >> timestamp [
 	^ timestamp
 ]
 
+{ #category : #'accessing - parameters' }
+GtVmAllParametersReport >> usedOldSpaceSize [
+	^ self oldSpaceSizeParameter parameterValue 
+		- self freeOldSpaceSizeParameter  parameterValue 
+]
+
 { #category : #accessing }
 GtVmAllParametersReport >> vmParameters [
 	^ vmParameters