Commitccf2cf5

authored and

committed

Map lookup only once (dotnet#2270)

1 parentccdfae0 commitccf2cf5Copy full SHA for ccf2cf5

File tree

-4

lines changed

-4

lines changed

Lines changed: 3 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -5395,10 +5395,9 @@ and TcPat warnOnUpper cenv env topValInfo vFlags (tpenv,names,takenNames) ty pat`
`5395`	`5395`	`let ftys = fields \|> List.map (fun fsp -> actualTyOfRecdField inst fsp,fsp)`
`5396`	`5396`	`let fldsmap',acc =`
`5397`	`5397`	`((tpenv,names,takenNames), ftys) \|\|> List.mapFold (fun s (ty,fsp) ->`
`5398`		`- if Map.containsKey fsp.rfield_id.idText fldsmap then`
`5399`		`- TcPat warnOnUpper cenv env None vFlags s ty (Map.find fsp.rfield_id.idText fldsmap)`
`5400`		`- else`
`5401`		`- (fun _ -> TPat_wild m),s)`
	`5398`	`+ match Map.tryFind fsp.rfield_id.idText fldsmap with`
	`5399`	`+ \| Some v -> TcPat warnOnUpper cenv env None vFlags s ty v`
	`5400`	`+ \| None -> (fun _ -> TPat_wild m),s)`
`5402`	`5401`	`(fun values -> TPat_recd (tcref,tinst,List.map (fun f -> f values) fldsmap',m)),`
`5403`	`5402`	`acc`
`5404`	`5403`

Comments

(0)