From 1712d22c045ae2f002cc6e70fe113d7ac094de30 Mon Sep 17 00:00:00 2001 From: "eric.lepors" Date: Fri, 6 Sep 2024 08:32:05 +0100 Subject: [PATCH] Performance issue with FLLarge FLLargeIdentityDictionary and FLLargeIdentitySet --- .../FLEncoder.class/instance/objectCount..st | 5 +++-- .../instance/newAnalyzingCollection.st | 5 +++-- .../FLIteratingCluster.class/instance/references.st | 3 ++- .../instance/variableReferences.st | 3 ++- 4 files changed, 10 insertions(+), 6 deletions(-) diff --git a/repository/Fuel-Core.package/FLEncoder.class/instance/objectCount..st b/repository/Fuel-Core.package/FLEncoder.class/instance/objectCount..st index 53164103..42b03051 100644 --- a/repository/Fuel-Core.package/FLEncoder.class/instance/objectCount..st +++ b/repository/Fuel-Core.package/FLEncoder.class/instance/objectCount..st @@ -1,6 +1,7 @@ accessing objectCount: aNumber +"FLLargeIdentityDictionary -> IdentityDictionary" objectCount := aNumber. - objectsIndexes := FLLargeIdentityDictionary new. - substitutionIndexes := FLLargeIdentityDictionary new. + objectsIndexes := IdentityDictionary new. + substitutionIndexes := IdentityDictionary new. indexStream := FLIndexStream on: stream digits: aNumber bytesCount \ No newline at end of file diff --git a/repository/Fuel-Core.package/FLIteratingCluster.class/instance/newAnalyzingCollection.st b/repository/Fuel-Core.package/FLIteratingCluster.class/instance/newAnalyzingCollection.st index 769efa3e..f898036d 100644 --- a/repository/Fuel-Core.package/FLIteratingCluster.class/instance/newAnalyzingCollection.st +++ b/repository/Fuel-Core.package/FLIteratingCluster.class/instance/newAnalyzingCollection.st @@ -1,5 +1,6 @@ analyzing newAnalyzingCollection "Answer a collection for the objects that correspond to this cluster." - - ^ FLLargeIdentitySet new \ No newline at end of file + + "FLLargeIdentitySet -> IdentitySet" + ^ IdentitySet new \ No newline at end of file diff --git a/repository/Fuel-Core.package/FLIteratingCluster.class/instance/references.st b/repository/Fuel-Core.package/FLIteratingCluster.class/instance/references.st index d03acefb..a135ffd3 100644 --- a/repository/Fuel-Core.package/FLIteratingCluster.class/instance/references.st +++ b/repository/Fuel-Core.package/FLIteratingCluster.class/instance/references.st @@ -1,3 +1,4 @@ accessing references - ^ references ifNil: [ references := FLLargeIdentityDictionary new ] \ No newline at end of file +"FLLargeIdentityDictionary -> IdentityDictionary" + ^ references ifNil: [ references := IdentityDictionary new ] \ No newline at end of file diff --git a/repository/Fuel-Core.package/FLVariableObjectCluster.class/instance/variableReferences.st b/repository/Fuel-Core.package/FLVariableObjectCluster.class/instance/variableReferences.st index c5e2f023..532bc16e 100644 --- a/repository/Fuel-Core.package/FLVariableObjectCluster.class/instance/variableReferences.st +++ b/repository/Fuel-Core.package/FLVariableObjectCluster.class/instance/variableReferences.st @@ -1,3 +1,4 @@ accessing variableReferences - ^ variableReferences ifNil: [ variableReferences := FLLargeIdentityDictionary new ] \ No newline at end of file +"FLLargeIdentityDictionary -> IdentityDictionary" + ^ variableReferences ifNil: [ variableReferences := IdentityDictionary new ] \ No newline at end of file