Lines Matching refs:val1
124 Private Shared Function compareData(val1 As Object, val2 As Object) As Boolean
125 If val1 Is Nothing And val2 Is Nothing OrElse _
126 val1 Is val2
129 If val1 Is Nothing And Not(val2 Is Nothing) OrElse _
130 Not (val1 Is Nothing) And val2 Is Nothing OrElse _
131 Not val1.GetType().Equals( val2.GetType())
136 Dim t1 As Type = val1.GetType()
139 ret = compareSequence(DirectCast( val1, Array), _
142 ElseIf TypeOf val1 Is String
143 ret = DirectCast( val1, string) = DirectCast( val2, string)
146 ret = val1 Is val2
149 ret = compareStruct(val1, val2)
150 ElseIf TypeOf val1 Is Any
151 Dim a1 As Any = DirectCast( val1, Any)
156 ret = val1.Equals(val2)
188 Private Shared Function compareStruct( val1 As Object, val2 As Object) As Boolean
189 Debug.Assert( Not(val1 Is Nothing) And Not(val2 Is Nothing))
190 Dim t1 As Type = val1.GetType()
200 Dim fieldVal1 As Object = fields(i).GetValue(val1)