Commitd2f12e4

committed

fix for private val set

1 parent481890d commitd2f12e4Copy full SHA for d2f12e4

File tree

-0

lines changed

-0

lines changed

Lines changed: 3 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -8146,6 +8146,9 @@ and TcItemThen cenv overallTy env tpenv (item,mItem,rest,afterOverloadResolution`
`8146`	`8146`	`\| DelayedSet(e2,mStmt) :: otherDelayed ->`
`8147`	`8147`	`if nonNil otherDelayed then error(Error(FSComp.SR.tcInvalidAssignment(),mStmt))`
`8148`	`8148`	`UnifyTypes cenv env mStmt overallTy cenv.g.unit_ty`
	`8149`	`+ vref.Deref.SetHasBeenReferenced()`
	`8150`	`+ CheckValAccessible m env.eAccessRights vref`
	`8151`	`+ CheckValAttributes cenv.g vref m \|> CommitOperationResult`
`8149`	`8152`	`let vty = vref.Type`
`8150`	`8153`	`let vty2 =`
`8151`	`8154`	`if isByrefTy cenv.g vty then`

Comments

(0)