Commit7eeb470

committed

do not try to resolve ctors for non-ctor Item

1 parentf6d4a7d commit7eeb470Copy full SHA for 7eeb470

File tree

-4

lines changed

-4

lines changed

Lines changed: 9 additions & 4 deletions

Original file line number	Diff line number	Diff line change
`@@ -1730,8 +1730,8 @@ let private ResolveObjectConstructorPrim (ncenv:NameResolver) edenv resInfo m ad`
`1730`	`1730`	`if isDelegateTy g typthen`
`1731`	`1731`	`success(resInfo,Item.DelegateCtor typ)`
`1732`	`1732`	`else`
`1733`		`-letctorInfos=GetIntrinsicConstructorInfosOfType ncenv.InfoReader m typ`
`1734`		`-ifisInterfaceTy g typ&&isNil ctorInfosthen`
	`1733`	`+letctorInfos= GetIntrinsicConstructorInfosOfType ncenv.InfoReader m typ`
	`1734`	`+ifisNil ctorInfos&&isInterfaceTy g typthen`
`1735`	`1735`	`success(resInfo, Item.FakeInterfaceCtor typ)`
`1736`	`1736`	`else`
`1737`	`1737`	`letdefaultStructCtorInfo=`
`@@ -4272,11 +4272,16 @@ let rec private GetCompletionForItem (ncenv: NameResolver) (nenv: NameResolution`
`4272`	`4272`	`\|> NameMap.range`
`4273`	`4273`	`\|> List.filter(function Item.ActivePatternCase_v->true\|_->false)`
`4274`	`4274`
`4275`		`-\|_->`
	`4275`	`+\| Item.DelegateCtor_`
	`4276`	`+\| Item.FakeInterfaceCtor_`
	`4277`	`+\| Item.CtorGroup_`
	`4278`	`+\| Item.UnqualifiedType_->`
`4276`	`4279`	`for tcrefin nenv.TyconsByDemangledNameAndArity(OpenQualified).Valuesdo`
`4277`	`4280`	`ifnot(IsTyconUnseen ad g ncenv.amap m tcref)`
`4278`	`4281`	`thenyield! InfosForTyconConstructors ncenv m ad tcref`
`4279`		`-`
	`4282`	`+`
	`4283`	`+\|_->()`
	`4284`	`+`
`4280`	`4285`	`\| id:: rest->`
`4281`	`4286`
`4282`	`4287`	`// Look in the namespaces 'id'`

Comments

(0)