Commitd5a2efb

committed

Fix memory leak in CountOccurrences routine

Also updated UMathsCatSnippets unit in Cat-Maths test project withrevised CountOccurrences snippet.Fixes#54

1 parent1f7ecbb commitd5a2efbCopy full SHA for d5a2efb

File tree

+18

-14

lines changed

+18

-14

lines changed

Lines changed: 9 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -7,12 +7,12 @@ var`
`7`	`7`
`8`	`8`	`procedure SortResult(`
`9`	`9`	`var A: array of Generics.Collections.TPair<Integer,Cardinal>);`
`10`		`-begin`
`11`		`- Generics.Collections.TArray.Sort<`
	`10`	`+var`
	`11`	`+Comparer:Generics.Defaults.IComparer<`
`12`	`12`	`Generics.Collections.TPair<Integer,Cardinal>`
`13`		`- >(`
`14`		`- A,`
`15`		`- Generics.Defaults.TDelegatedComparer<`
	`13`	`+ >;`
	`14`	`+begin`
	`15`	`+Comparer := Generics.Defaults.TDelegatedComparer<`
`16`	`16`	`Generics.Collections.TPair<Integer,Cardinal>`
`17`	`17`	`>.Create(`
`18`	`18`	`function (`
`@@ -21,8 +21,10 @@ var`
`21`	`21`	`begin`
`22`	`22`	`Result := Left.Key - Right.Key;`
`23`	`23`	`end`
`24`		`- )`
`25`		`- );`
	`24`	`+ );`
	`25`	`+ Generics.Collections.TArray.Sort<`
	`26`	`+ Generics.Collections.TPair<Integer,Cardinal>`
	`27`	`+ >(A, Comparer);`
`26`	`28`	`end;`
`27`	`29`
`28`	`30`	`begin`

Lines changed: 9 additions & 7 deletions

Original file line number	Diff line number	Diff line change
`@@ -1204,12 +1204,12 @@ function CountOccurrences(const A: array of Integer):`
`1204`	`1204`
`1205`	`1205`	`procedureSortResult(`
`1206`	`1206`	`var A:arrayof Generics.Collections.TPair<Integer,Cardinal>);`
`1207`		`-begin`
`1208`		`- Generics.Collections.TArray.Sort<`
	`1207`	`+var`
	`1208`	`+Comparer:Generics.Defaults.IComparer<`
`1209`	`1209`	`Generics.Collections.TPair<Integer,Cardinal>`
`1210`		`- >(`
`1211`		`- A,`
`1212`		`- Generics.Defaults.TDelegatedComparer<`
	`1210`	`+ >;`
	`1211`	`+begin`
	`1212`	`+Comparer := Generics.Defaults.TDelegatedComparer<`
`1213`	`1213`	`Generics.Collections.TPair<Integer,Cardinal>`
`1214`	`1214`	`>.Create(`
`1215`	`1215`	`function (`
`@@ -1218,8 +1218,10 @@ function CountOccurrences(const A: array of Integer):`
`1218`	`1218`	`begin`
`1219`	`1219`	`Result := Left.Key - Right.Key;`
`1220`	`1220`	`end`
`1221`		`- )`
`1222`		`- );`
	`1221`	`+ );`
	`1222`	`+ Generics.Collections.TArray.Sort<`
	`1223`	`+ Generics.Collections.TPair<Integer,Cardinal>`
	`1224`	`+ >(A, Comparer);`
`1223`	`1225`	`end;`
`1224`	`1226`
`1225`	`1227`	`begin`

Comments

(0)