src/Compilers/VisualBasic/Portable/Lowering/LocalRewriter/LocalRewriter_Redim.vb - main - githubmirror/roslyn

src/Compilers/VisualBasic/Portable/Lowering/LocalRewriter/LocalRewriter_Redim.vb

36 строк2 KB

Jonathon Marolf

update headers

23 янв 2020, 04:01

23 янв 2020, 04:0191571a3

' 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.

Imports System.Diagnostics
Imports System.Runtime.InteropServices
Imports Microsoft.CodeAnalysis.Text
Imports Microsoft.CodeAnalysis.VisualBasic.Symbols
Imports Microsoft.CodeAnalysis.VisualBasic.Syntax
Imports TypeKind = Microsoft.CodeAnalysis.TypeKind

Namespace Microsoft.CodeAnalysis.VisualBasic
    Partial Friend NotInheritable Class LocalRewriter
        Public Overrides Function VisitRedimStatement(node As BoundRedimStatement) As BoundNode
            ' NOTE: bound redim statement node represents a group of redim clauses; each of  
            '       those can be considered as a standalone statement. This rewrite just returns 
            '       the rewritten redim clause in case there is only one of them or groups 
            '       rewritten redim clauses into bound statement list node if there are more
            '
            ' This rewrite cannot be done later because we specify property access in VisitRedimClause 
            ' which need to be rewritten by call rewriter. We also want to see original property access 
            ' nodes to be able to enforce correct UseTwice semantics

            If node.Clauses.Length = 1 Then
                Return Me.Visit(node.Clauses(0))

            Else
                Dim statements = New BoundStatement(node.Clauses.Length - 1) {}
                For i = 0 To node.Clauses.Length - 1
                    statements(i) = DirectCast(Me.Visit(node.Clauses(i)), BoundStatement)
                Next
                Return New BoundStatementList(node.Syntax, statements.AsImmutableOrNull())
            End If
        End Function
    End Class
End Namespace