DevDiv #995192 - VB: Set DkmClrCompilationResultFlags.ReadOnlyResult...

DevDiv #995192 - VB: Set DkmClrCompilationResultFlags.ReadOnlyResult appropriately in the Watch window

Expose Binder.IsValidAssignmentTarget and Binder.AdjustAssignmentTarget and invoke them as in BindAssignmentStatement.

CR: ChuckS (changeset 1353140)

Src/Compilers/VisualBasic/Portable/Binding/Binder_Expressions.vb

@@ -1254,7 +1254,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic
             Return expression
         End Function
 
-        Private Shared Function IsValidAssignmentTarget(expression As BoundExpression) As Boolean
+        Friend Shared Function IsValidAssignmentTarget(expression As BoundExpression) As Boolean
             Select Case expression.Kind
                 Case BoundKind.PropertyAccess
                     Dim propertyAccess = DirectCast(expression, BoundPropertyAccess)

Src/Compilers/VisualBasic/Portable/Binding/Binder_Statements.vb

@@ -1838,7 +1838,7 @@ Namespace Microsoft.CodeAnalysis.VisualBasic
             result.Free()
         End Sub
 
-        Private Function AdjustAssignmentTarget(node As VBSyntaxNode, op1 As BoundExpression, diagnostics As DiagnosticBag, ByRef isError As Boolean) As BoundExpression
+        Friend Function AdjustAssignmentTarget(node As VBSyntaxNode, op1 As BoundExpression, diagnostics As DiagnosticBag, ByRef isError As Boolean) As BoundExpression
             Select Case op1.Kind
                 Case BoundKind.XmlMemberAccess
                     Dim memberAccess = DirectCast(op1, BoundXmlMemberAccess)