| File: BoundTree\BoundCaseClause.vb | Web Access |
| Project: src\roslyn\src\Compilers\VisualBasic\Portable\Microsoft.CodeAnalysis.VisualBasic.vbproj (Microsoft.CodeAnalysis.VisualBasic) |
' Licensed to the .NET Foundation under one or more agreements. ' The .NET Foundation licenses this file to you under the MIT license. ' See the LICENSE file in the project root for more information. Namespace Microsoft.CodeAnalysis.VisualBasic Partial Friend Class BoundCaseClause #If DEBUG Then Protected Shared Sub ValidateValueAndCondition(valueOpt As BoundExpression, conditionOpt As BoundExpression, operatorKind As BinaryOperatorKind) Debug.Assert((valueOpt Is Nothing) Xor (conditionOpt Is Nothing)) If conditionOpt IsNot Nothing Then Select Case conditionOpt.Kind Case BoundKind.BinaryOperator Dim binaryOp As BoundBinaryOperator = DirectCast(conditionOpt, BoundBinaryOperator) Debug.Assert((binaryOp.OperatorKind And BinaryOperatorKind.OpMask) = operatorKind) Case BoundKind.UserDefinedBinaryOperator Dim binaryOp As BoundUserDefinedBinaryOperator = DirectCast(conditionOpt, BoundUserDefinedBinaryOperator) Debug.Assert((binaryOp.OperatorKind And BinaryOperatorKind.OpMask) = operatorKind) Case Else ExceptionUtilities.UnexpectedValue(conditionOpt.Kind) ' This is going to assert End Select End If End Sub #End If End Class End Namespace