Added predictor [experimental]

src/IllimaniProfiler/IllPredictator.class.st

@@ -0,0 +1,36 @@
+Class {
+	#name : 'IllPredictator',
+	#superclass : 'Object',
+	#instVars : [
+		'objectAllocations',
+		'predictors'
+	],
+	#category : 'IllimaniProfiler-Analyzer',
+	#package : 'IllimaniProfiler',
+	#tag : 'Analyzer'
+}
+
+{ #category : 'as yet unclassified' }
+IllPredictator >> computePredictors [
+
+	predictors := Dictionary new.
+
+	objectAllocations do: [ :illEphe |
+		predictors
+			at: illEphe allocationSite
+			ifPresent: [ :predictor |
+				predictor
+					addLifetime: illEphe lifetime;
+					addType: illEphe allocatedObjectClass ]
+			ifAbsentPut: [
+				IllPredictor new
+					allocationSite: illEphe allocationSite;
+					addLifetime: illEphe lifetime;
+					addType: illEphe allocatedObjectClass ] ]
+]
+
+{ #category : 'accessing' }
+IllPredictator >> objectAllocations: aCollection [
+
+	objectAllocations := aCollection
+]

src/IllimaniProfiler/IllPredictor.class.st

@@ -0,0 +1,40 @@
+Class {
+	#name : 'IllPredictor',
+	#superclass : 'Object',
+	#instVars : [
+		'allocationSite',
+		'lifetimes',
+		'types'
+	],
+	#category : 'IllimaniProfiler-Analyzer',
+	#package : 'IllimaniProfiler',
+	#tag : 'Analyzer'
+}
+
+{ #category : 'adding' }
+IllPredictor >> addLifetime: anInteger [
+
+	| normalizedNumber |
+	normalizedNumber := (anInteger log: 2) > 20 "because 2 ^ 20 is 1 MB"
+		                    ifTrue: [ (anInteger log: 2) floor ]
+		                    ifFalse: [ 0 ].
+	lifetimes add: normalizedNumber
+]
+
+{ #category : 'adding' }
+IllPredictor >> addType: aClass [
+	types add: aClass
+]
+
+{ #category : 'accessing' }
+IllPredictor >> allocationSite: anIllAllocationSite [ 
+	allocationSite := anIllAllocationSite
+]
+
+{ #category : 'initialization' }
+IllPredictor >> initialize [
+
+	super initialize.
+	lifetimes := Bag new.
+	types := Bag new
+]