Merge 6bb47c1

src/GToolkit4Git/IceGitCliRepository.class.st

@@ -84,6 +84,7 @@ IceGitCliRepository >> allCommits [
 	commitLines := lines splitOn: [ :each | each = '@@@' ].
 	commitLines removeLast.
 	commits := commitLines collect: [ :each | self iceGitCommitFromLines: each ].
+	commits do: [:each | commitMap at: each id put: each].
 	^ commits asSortedCollection: [:a :b | a datetime > b datetime]
 ]
 
@@ -160,6 +161,12 @@ IceGitCliRepository >> clearCaches [
 	head := nil.
 ]
 
+{ #category : #accessing }
+IceGitCliRepository >> clearCommitMap [
+	"Mainly for profiling. Should not normally need to be cleared"
+	commitMap := Dictionary new.
+]
+
 { #category : #actions }
 IceGitCliRepository >> clone: aString [
 	self runGitWithArgs: {