?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
2010-05-25 Jb Evain <jbevain@novell.com>
[mcs.git] / mcs / membercache.cs
blobd33c9dfbf622292a8cbf5ec9060d540f07828c4e
1 //
2 // membercache.cs: A container for all member lookups
3 //
4 // Author: Miguel de Icaza (miguel@gnu.org)
5 // Marek Safar (marek.safar@gmail.com)
6 //
7 // Dual licensed under the terms of the MIT X11 or GNU GPL
8 //
9 // Copyright 2001 Ximian, Inc (http://www.ximian.com)
10 // Copyright 2004-2010 Novell, Inc
11 //
12 //
13
14 using System;
15 using System.Text;
16 using System.Collections.Generic;
17 using System.Globalization;
18 using System.Reflection.Emit;
19 using System.Reflection;
20 using System.Linq;
21
22 namespace Mono.CSharp {
23
24 [Flags]
25 public enum MemberKind
26 {
27 Constructor = 1,
28 Event = 1 << 1,
29 Field = 1 << 2,
30 Method = 1 << 3,
31 Property = 1 << 4,
32 Indexer = 1 << 5,
33 Operator = 1 << 6,
34 Destructor = 1 << 7,
35
36 Class = 1 << 11,
37 Struct = 1 << 12,
38 Delegate = 1 << 13,
39 Enum = 1 << 14,
40 Interface = 1 << 15,
41 TypeParameter = 1 << 16,
42
43 PointerType = 1 << 20,
44 InternalCompilerType = 1 << 21,
45 FakeMethod = 1 << 22,
46
47 NestedMask = Class | Struct | Delegate | Enum | Interface,
48 GenericMask = Method | Class | Struct | Delegate | Interface,
49 MaskType = Constructor | Event | Field | Method | Property | Indexer | Operator | Destructor | NestedMask,
50 All = MaskType
51 }
52
53 [Flags]
54 public enum BindingRestriction
55 {
56 None = 0,
57
58 // Member has to be accessible
59 AccessibleOnly = 1,
60
61 // Inspect only queried type members
62 DeclaredOnly = 1 << 1,
63
64 // Exclude static
65 InstanceOnly = 1 << 2,
66
67 // Ignore member overrides
68 NoOverrides = 1 << 3
69 }
70
71 public struct MemberFilter : IEquatable<MemberSpec>
72 {
73 public readonly string Name;
74 public readonly MemberKind Kind;
75 public readonly AParametersCollection Parameters;
76 public readonly TypeSpec MemberType;
77
78 int arity; // -1 to ignore the check
79 TypeSpec invocation_type;
80
81 private MemberFilter (string name, MemberKind kind)
82 {
83 Name = name;
84 Kind = kind;
85 Parameters = null;
86 MemberType = null;
87 arity = -1;
88 invocation_type = null;
89 }
90
91 public MemberFilter (MethodSpec m)
92 {
93 Name = m.Name;
94 Kind = MemberKind.Method;
95 Parameters = m.Parameters;
96 MemberType = m.ReturnType;
97 arity = m.Arity;
98 invocation_type = null;
99 }
100
101 public MemberFilter (string name, int arity, MemberKind kind, AParametersCollection param, TypeSpec type)
102 {
103 Name = name;
104 Kind = kind;
105 Parameters = param;
106 MemberType = type;
107 this.arity = arity;
108 invocation_type = null;
109 }
110
111 public TypeSpec InvocationType {
112 get {
113 return invocation_type;
114 }
115 set {
116 invocation_type = value;
117 }
118 }
119
120 public static MemberFilter Constructor (AParametersCollection param)
121 {
122 return new MemberFilter (System.Reflection.ConstructorInfo.ConstructorName, 0, MemberKind.Constructor, param, null);
123 }
124
125 public static MemberFilter Property (string name, TypeSpec type)
126 {
127 return new MemberFilter (name, 0, MemberKind.Property, null, type);
128 }
129
130 public static MemberFilter Field (string name, TypeSpec type)
131 {
132 return new MemberFilter (name, 0, MemberKind.Field, null, type);
133 }
134
135 public static MemberFilter Method (string name, int arity, AParametersCollection param, TypeSpec type)
136 {
137 return new MemberFilter (name, arity, MemberKind.Method, param, type);
138 }
139
140 #region IEquatable<MemberSpec> Members
141
142 public bool Equals (MemberSpec other)
143 {
144 // Is the member of the correct type ?
145 // TODO: Isn't this redundant ?
146 if ((other.Kind & Kind & MemberKind.MaskType) == 0)
147 return false;
148
149 // Check arity when not disabled
150 if (arity >= 0 && arity != other.Arity)
151 return false;
152
153 if (Parameters != null) {
154 if (other is IParametersMember) {
155 var other_param = ((IParametersMember) other).Parameters;
156 if (!TypeSpecComparer.Override.IsEqual (Parameters, other_param))
157 return false;
158 } else {
159 return false;
160 }
161 }
162
163 if (MemberType != null) {
164 if (other is IInterfaceMemberSpec) {
165 var other_type = ((IInterfaceMemberSpec) other).MemberType;
166 if (!TypeSpecComparer.Override.IsEqual (other_type, MemberType))
167 return false;
168 } else {
169 return false;
170 }
171 }
172
173 if (invocation_type != null && !IsAccessible (other))
174 return false;
175
176 return true;
177 }
178
179 bool IsAccessible (MemberSpec other)
180 {
181 bool extra;
182 return Expression.IsMemberAccessible (invocation_type, other, out extra);
183 }
184
185 #endregion
186 }
187
188 /// <summary>
189 /// The MemberCache is used by dynamic and non-dynamic types to speed up
190 /// member lookups. It has a member name based hash table; it maps each member
191 /// name to a list of CacheEntry objects. Each CacheEntry contains a MemberInfo
192 /// and the BindingFlags that were initially used to get it. The cache contains
193 /// all members of the current class and all inherited members. If this cache is
194 /// for an interface types, it also contains all inherited members.
195 ///
196 /// There are two ways to get a MemberCache:
197 /// * if this is a dynamic type, lookup the corresponding DeclSpace and then
198 /// use the DeclSpace.MemberCache property.
199 /// * if this not a dynamic type, call TypeHandle.GetTypeHandle() to get a
200 /// TypeHandle instance for the type and then use TypeHandle.MemberCache.
201 /// </summary>
202 public class MemberCache
203 {
204 readonly Dictionary<string, IList<MemberSpec>> member_hash;
205 Dictionary<string, MemberSpec[]> locase_members;
206 IList<MethodSpec> missing_abstract;
207
208 public static readonly string IndexerNameAlias = "<this>";
209
210 public static readonly MemberCache Empty = new MemberCache (0);
211
212 public MemberCache ()
213 : this (16)
214 {
215 }
216
217 public MemberCache (int capacity)
218 {
219 member_hash = new Dictionary<string, IList<MemberSpec>> (capacity);
220 }
221
222 public MemberCache (MemberCache cache)
223 : this (cache.member_hash.Count)
224 {
225 }
226
227 //
228 // Creates a new MemberCache for the given `container'.
229 //
230 public MemberCache (TypeContainer container)
231 : this () // TODO: Optimize the size
232 {
233 }
234
235 //
236 // Member-cache does not contain base members but it does
237 // contain all base interface members, so the Lookup code
238 // can use simple inheritance rules.
239 //
240 public void AddInterface (TypeSpec iface)
241 {
242 var cache = iface.MemberCache;
243
244 IList<MemberSpec> list;
245 foreach (var entry in cache.member_hash) {
246 if (!member_hash.TryGetValue (entry.Key, out list)) {
247 if (entry.Value.Count == 1) {
248 list = entry.Value;
249 } else {
250 list = new List<MemberSpec> (entry.Value);
251 }
252
253 member_hash.Add (entry.Key, list);
254 continue;
255 }
256
257 foreach (var ce in entry.Value) {
258 if (ce.DeclaringType != iface)
259 break;
260
261 if (list.Contains (ce))
262 continue;
263
264 if (AddInterfaceMember (ce, ref list))
265 member_hash[entry.Key] = list;
266 }
267 }
268 }
269
270 public void AddMember (InterfaceMemberBase imb, string exlicitName, MemberSpec ms)
271 {
272 // Explicit names cannot be looked-up but can be used for
273 // collision checking (no name mangling needed)
274 if (imb.IsExplicitImpl)
275 AddMember (exlicitName, ms);
276 else
277 AddMember (ms);
278 }
279
280 //
281 // Add non-explicit member to member cache
282 //
283 public void AddMember (MemberSpec ms)
284 {
285 AddMember (GetLookupName (ms), ms);
286 }
287
288 void AddMember (string name, MemberSpec member)
289 {
290 IList<MemberSpec> list;
291 if (!member_hash.TryGetValue (name, out list)) {
292 member_hash.Add (name, new MemberSpec[] { member });
293 return;
294 }
295
296 if (member.DeclaringType.IsInterface) {
297 if (AddInterfaceMember (member, ref list))
298 member_hash[name] = list;
299 } else {
300 if (list is MemberSpec[]) {
301 list = new List<MemberSpec> () { list[0] };
302 member_hash[name] = list;
303 }
304
305 list.Add (member);
306 }
307 }
308
309 //
310 // Ignores any base interface member which can be hidden
311 // by this interface
312 //
313 static bool AddInterfaceMember (MemberSpec member, ref IList<MemberSpec> existing)
314 {
315 var member_param = member is IParametersMember ? ((IParametersMember) member).Parameters : ParametersCompiled.EmptyReadOnlyParameters;
316
317 //
318 // interface IA : IB { int Prop { set; } }
319 // interface IB { bool Prop { get; } }
320 //
321 // IB.Prop is never accessible from IA interface
322 //
323 for (int i = 0; i < existing.Count; ++i) {
324 var entry = existing[i];
325
326 if (entry.Arity != member.Arity)
327 continue;
328
329 if (entry is IParametersMember) {
330 var entry_param = ((IParametersMember) entry).Parameters;
331 if (!TypeSpecComparer.Override.IsEqual (entry_param, member_param))
332 continue;
333 }
334
335 if (member.DeclaringType.ImplementsInterface (entry.DeclaringType)) {
336 if (existing is MemberSpec[]) {
337 existing = new MemberSpec[] { member };
338 return true;
339 }
340
341 existing.RemoveAt (i--);
342 continue;
343 }
344
345 if (entry.DeclaringType == member.DeclaringType || entry.DeclaringType.ImplementsInterface (member.DeclaringType))
346 return false;
347 }
348
349 if (existing is MemberSpec[]) {
350 existing = new List<MemberSpec> () { existing[0], member };
351 return true;
352 }
353
354 existing.Add (member);
355 return false;
356 }
357
358 public static IEnumerable<IndexerSpec> FindIndexers (TypeSpec container, BindingRestriction restrictions)
359 {
360 var filter = new MemberFilter (IndexerNameAlias, 0, MemberKind.Indexer, null, null);
361 var found = FindMembers (container, filter, restrictions);
362 return found == null ? null : found.Cast<IndexerSpec> ();
363 }
364
365 public static MemberSpec FindMember (TypeSpec container, MemberFilter filter, BindingRestriction restrictions)
366 {
367 do {
368 IList<MemberSpec> applicable;
369 if (container.MemberCache.member_hash.TryGetValue (filter.Name, out applicable)) {
370 // Start from the end because interface members are in reverse order
371 for (int i = applicable.Count - 1; i >= 0; i--) {
372 var entry = applicable [i];
373
374 if ((restrictions & BindingRestriction.InstanceOnly) != 0 && entry.IsStatic)
375 continue;
376
377 if (filter.Equals (entry))
378 return entry;
379
380 // TODO MemberCache:
381 //if ((restrictions & BindingRestriction.AccessibleOnly) != 0)
382 // throw new NotImplementedException ("net");
383 }
384 }
385
386 container = container.BaseType;
387 } while (container != null && (restrictions & BindingRestriction.DeclaredOnly) == 0);
388
389 return null;
390 }
391
392 //
393 // Returns the first set of members starting from container
394 //
395 public static IList<MemberSpec> FindMembers (TypeSpec container, MemberFilter filter, BindingRestriction restrictions)
396 {
397 IList<MemberSpec> applicable;
398 IList<MemberSpec> found = null;
399
400 do {
401 if (container.MemberCache.member_hash.TryGetValue (filter.Name, out applicable)) {
402 for (int i = 0; i < applicable.Count; ++i) {
403 var entry = applicable [i];
404
405 // Is the member of the correct type
406 if ((entry.Kind & filter.Kind & MemberKind.MaskType) == 0)
407 continue;
408
409 //
410 // When using overloadable overrides filter ignore members which
411 // are not base members. Including properties because overrides can
412 // implement get or set only and we are looking for complete base member
413 //
414 const MemberKind overloadable = MemberKind.Indexer | MemberKind.Method | MemberKind.Property;
415 if ((restrictions & BindingRestriction.NoOverrides) != 0 && (entry.Kind & overloadable) != 0) {
416 if ((entry.Modifiers & Modifiers.OVERRIDE) != 0)
417 continue;
418
419 if ((entry.Modifiers & Modifiers.OVERRIDE_UNCHECKED) != 0) {
420 bool is_override = true;
421 var ms = entry as MethodSpec;
422 if (ms != null) {
423 is_override = IsRealMethodOverride (ms);
424 } else {
425 var ps = (PropertySpec) entry;
426 if (ps.HasGet)
427 is_override = IsRealMethodOverride (ps.Get);
428 if (is_override && ps.HasSet)
429 is_override = IsRealMethodOverride (ps.Set);
430 }
431
432 if (is_override) {
433 entry.Modifiers = (entry.Modifiers & ~Modifiers.OVERRIDE_UNCHECKED) | Modifiers.OVERRIDE;
434 continue;
435 }
436 }
437 }
438
439 if ((restrictions & BindingRestriction.InstanceOnly) != 0 && entry.IsStatic)
440 continue;
441
442 // Apply the filter to it.
443 if (!filter.Equals (entry))
444 continue;
445
446 if (found == null) {
447 if (i == 0) {
448 found = applicable;
449 } else {
450 found = new List<MemberSpec> ();
451 found.Add (entry);
452 }
453 } else if (found == applicable) {
454 found = new List<MemberSpec> ();
455 found.Add (applicable[0]);
456 found.Add (entry);
457 } else {
458 found.Add (entry);
459 }
460 }
461
462 if (found != null) {
463 if (found == applicable && applicable.Count != 1)
464 return new MemberSpec[] { found[0] };
465
466 return found;
467 }
468 }
469
470 container = container.BaseType;
471 } while (container != null && (restrictions & BindingRestriction.DeclaredOnly) == 0);
472
473 return found;
474 }
475
476 //
477 // Finds the nested type in container
478 //
479 public static TypeSpec FindNestedType (TypeSpec container, string name, int arity)
480 {
481 IList<MemberSpec> applicable;
482 TypeSpec best_match = null;
483 do {
484 // TODO: Don't know how to handle this yet
485 // When resolving base type of nested type, parent type must have
486 // base type resolved to scan full hierarchy correctly
487 // Similarly MemberCacheTypes will inflate BaseType and Interfaces
488 // based on type definition
489 var tc = container.MemberDefinition as TypeContainer;
490 if (tc != null)
491 tc.DefineType ();
492
493 if (container.MemberCacheTypes.member_hash.TryGetValue (name, out applicable)) {
494 for (int i = applicable.Count - 1; i >= 0; i--) {
495 var entry = applicable[i];
496 if ((entry.Kind & MemberKind.NestedMask) == 0)
497 continue;
498
499 var ts = (TypeSpec) entry;
500 if (arity == ts.Arity)
501 return ts;
502
503 if (arity < 0) {
504 if (best_match == null) {
505 best_match = ts;
506 } else if (System.Math.Abs (ts.Arity + arity) < System.Math.Abs (ts.Arity + arity)) {
507 best_match = ts;
508 }
509 }
510 }
511 }
512
513 container = container.BaseType;
514 } while (container != null);
515
516 return best_match;
517 }
518
519 //
520 // Looks for extension methods with defined name and extension type
521 //
522 public List<MethodSpec> FindExtensionMethods (TypeSpec invocationType, TypeSpec extensionType, string name, int arity)
523 {
524 IList<MemberSpec> entries;
525 if (!member_hash.TryGetValue (name, out entries))
526 return null;
527
528 List<MethodSpec> candidates = null;
529 foreach (var entry in entries) {
530 if (entry.Kind != MemberKind.Method || (arity >= 0 && entry.Arity != arity))
531 continue;
532
533 var ms = (MethodSpec) entry;
534 if (!ms.IsExtensionMethod)
535 continue;
536
537 bool extra;
538 if (!Expression.IsMemberAccessible (invocationType, ms, out extra))
539 continue;
540
541 // TODO: CodeGen.Assembly.Builder
542 if ((ms.DeclaringType.Modifiers & Modifiers.INTERNAL) != 0 &&
543 !TypeManager.IsThisOrFriendAssembly (CodeGen.Assembly.Builder, ms.Assembly))
544 continue;
545
546 if (candidates == null)
547 candidates = new List<MethodSpec> ();
548 candidates.Add (ms);
549 }
550
551 return candidates;
552 }
553
554 //
555 // Returns base members of @member member if no exact match is found @bestCandidate returns
556 // the best match
557 //
558 public static MemberSpec FindBaseMember (MemberCore member, out MemberSpec bestCandidate)
559 {
560 bestCandidate = null;
561 var container = member.Parent.PartialContainer.Definition;
562 if (!container.IsInterface)
563 container = container.BaseType;
564
565 string name = GetLookupName (member);
566 IList<MemberSpec> applicable;
567 var member_param = member is IParametersMember ? ((IParametersMember) member).Parameters : null;
568
569 var mkind = GetMemberCoreKind (member);
570
571 do {
572 if (container.MemberCache.member_hash.TryGetValue (name, out applicable)) {
573 for (int i = 0; i < applicable.Count; ++i) {
574 var entry = applicable [i];
575
576 if ((entry.Modifiers & Modifiers.PRIVATE) != 0)
577 continue;
578
579 if ((entry.Modifiers & Modifiers.AccessibilityMask) == Modifiers.INTERNAL) {
580 if (!TypeManager.IsThisOrFriendAssembly (member.Assembly, entry.Assembly))
581 continue;
582 }
583
584 //
585 // Is the member of the correct type ?
586 // Destructors are ignored as they cannot be overridden by user
587 if ((entry.Kind & ~MemberKind.Destructor & mkind & MemberKind.MaskType) == 0) {
588 if ((entry.Kind & MemberKind.Destructor) == 0 && (member_param == null || !(entry is IParametersMember))) {
589 bestCandidate = entry;
590 return null;
591 }
592
593 continue;
594 }
595
596 if (member_param == null)
597 return entry;
598
599 // Check arity match
600 int arity = member.MemberName.Arity;
601 if (arity != entry.Arity)
602 continue;
603
604 if (entry is IParametersMember) {
605 if (entry.IsAccessor != member is AbstractPropertyEventMethod)
606 continue;
607
608 var entry_param = ((IParametersMember) entry).Parameters;
609 if (TypeSpecComparer.Override.IsEqual (entry_param, member_param))
610 return entry;
611
612 continue;
613 }
614
615 if (bestCandidate == null)
616 bestCandidate = entry;
617 }
618
619 if (member_param == null)
620 return null;
621 }
622
623 if (container.IsInterface)
624 break;
625
626 container = container.BaseType;
627 } while (container != null);
628
629 return null;
630 }
631
632 //
633 // Returns inflated version of MemberSpec, it works similarly to
634 // SRE TypeBuilder.GetMethod
635 //
636 public static T GetMember<T> (TypeSpec container, T spec) where T : MemberSpec
637 {
638 IList<MemberSpec> applicable;
639 if (container.MemberCache.member_hash.TryGetValue (GetLookupName (spec), out applicable)) {
640 for (int i = applicable.Count - 1; i >= 0; i--) {
641 var entry = applicable[i];
642 if (entry.MemberDefinition == spec.MemberDefinition)
643 return (T) entry;
644 }
645 }
646
647 throw new InternalErrorException ("Missing member `{0}' on inflated type `{1}'",
648 spec.GetSignatureForError (), container.GetSignatureForError ());
649 }
650
651 static MemberKind GetMemberCoreKind (MemberCore member)
652 {
653 if (member is FieldBase)
654 return MemberKind.Field;
655 if (member is Indexer)
656 return MemberKind.Indexer;
657 if (member is Class)
658 return MemberKind.Class;
659 if (member is Struct)
660 return MemberKind.Struct;
661 if (member is Destructor)
662 return MemberKind.Destructor;
663 if (member is Method)
664 return MemberKind.Method;
665 if (member is Property)
666 return MemberKind.Property;
667 if (member is EventField)
668 return MemberKind.Event;
669 if (member is Interface)
670 return MemberKind.Interface;
671 if (member is EventProperty)
672 return MemberKind.Event;
673
674 throw new NotImplementedException (member.GetType ().ToString ());
675 }
676
677 public static IList<MemberSpec> GetCompletitionMembers (TypeSpec container, string name)
678 {
679 var matches = new List<MemberSpec> ();
680 foreach (var entry in container.MemberCache.member_hash) {
681 foreach (var name_entry in entry.Value) {
682 if (name_entry.IsAccessor)
683 continue;
684
685 if ((name_entry.Kind & (MemberKind.Constructor | MemberKind.FakeMethod | MemberKind.Destructor)) != 0)
686 continue;
687
688 bool extra;
689 if (!Expression.IsMemberAccessible (InternalType.FakeInternalType, name_entry, out extra))
690 continue;
691
692 if (name == null || name_entry.Name.StartsWith (name)) {
693 matches.Add (name_entry);
694 }
695 }
696 }
697
698 return matches;
699 }
700
701 //
702 // Returns members of @iface only, base members are ignored
703 //
704 public static IList<MethodSpec> GetInterfaceMembers (TypeSpec iface)
705 {
706 //
707 // MemberCache flatten interfaces, therefore in cases like this one
708 //
709 // interface IA : IB {}
710 // interface IB { void Foo () }
711 //
712 // we would return Foo inside IA which is not expected in this case
713 //
714 var methods = new List<MethodSpec> ();
715 foreach (var entry in iface.MemberCache.member_hash.Values) {
716 foreach (var name_entry in entry) {
717 if (iface == name_entry.DeclaringType) {
718 if (name_entry.Kind == MemberKind.Method) {
719 methods.Add ((MethodSpec) name_entry);
720 }
721 }
722 }
723 }
724
725 return methods;
726 }
727
728 public static IList<MethodSpec> GetNotImplementedAbstractMethods (TypeSpec type)
729 {
730 if (type.MemberCache.missing_abstract != null)
731 return type.MemberCache.missing_abstract;
732
733 var abstract_methods = new List<MethodSpec> ();
734 List<TypeSpec> hierarchy = null;
735
736 //
737 // Stage 1: top-to-bottom scan for abstract members
738 //
739 var abstract_type = type;
740 while (true) {
741 foreach (var entry in abstract_type.MemberCache.member_hash) {
742 foreach (var name_entry in entry.Value) {
743 if ((name_entry.Modifiers & Modifiers.ABSTRACT) == 0)
744 continue;
745
746 if (name_entry.Kind != MemberKind.Method)
747 continue;
748
749 abstract_methods.Add ((MethodSpec) name_entry);
750 }
751 }
752
753 var base_type = abstract_type.BaseType;
754 if (!base_type.IsAbstract)
755 break;
756
757 if (hierarchy == null)
758 hierarchy = new List<TypeSpec> ();
759
760 hierarchy.Add (abstract_type);
761 abstract_type = base_type;
762 }
763
764 int not_implemented_count = abstract_methods.Count;
765 if (not_implemented_count == 0 || hierarchy == null) {
766 type.MemberCache.missing_abstract = abstract_methods;
767 return type.MemberCache.missing_abstract;
768 }
769
770 //
771 // Stage 2: Remove already implemented methods
772 //
773 foreach (var type_up in hierarchy) {
774 var members = type_up.MemberCache.member_hash;
775 if (members.Count == 0)
776 continue;
777
778 for (int i = 0; i < abstract_methods.Count; ++i) {
779 var candidate = abstract_methods [i];
780 if (candidate == null)
781 continue;
782
783 IList<MemberSpec> applicable;
784 if (!members.TryGetValue (candidate.Name, out applicable))
785 continue;
786
787 var filter = new MemberFilter (candidate);
788 foreach (var item in applicable) {
789 // TODO: Need to test what should happen for OVERRIDE_UNCHECKED
790 if ((item.Modifiers & (Modifiers.OVERRIDE | Modifiers.OVERRIDE_UNCHECKED | Modifiers.VIRTUAL)) == 0)
791 continue;
792
793 if (filter.Equals (item)) {
794 --not_implemented_count;
795 abstract_methods [i] = null;
796 break;
797 }
798 }
799 }
800 }
801
802 if (not_implemented_count == abstract_methods.Count) {
803 type.MemberCache.missing_abstract = abstract_methods;
804 return type.MemberCache.missing_abstract;
805 }
806
807 var not_implemented = new MethodSpec[not_implemented_count];
808 int counter = 0;
809 foreach (var m in abstract_methods) {
810 if (m == null)
811 continue;
812
813 not_implemented[counter++] = m;
814 }
815
816 type.MemberCache.missing_abstract = not_implemented;
817 return type.MemberCache.missing_abstract;
818 }
819
820 static string GetLookupName (MemberSpec ms)
821 {
822 if (ms.Kind == MemberKind.Indexer)
823 return IndexerNameAlias;
824
825 if (ms.Kind == MemberKind.Constructor) {
826 if (ms.IsStatic)
827 return ConstructorInfo.TypeConstructorName;
828
829 return ConstructorInfo.ConstructorName;
830 }
831
832 return ms.Name;
833 }
834
835 static string GetLookupName (MemberCore mc)
836 {
837 if (mc is Indexer)
838 return IndexerNameAlias;
839
840 if (mc is Constructor)
841 return ConstructorInfo.ConstructorName;
842
843 return mc.MemberName.Name;
844 }
845
846 //
847 // Inflates all member cache nested types
848 //
849 public void InflateTypes (MemberCache inflated_cache, TypeParameterInflator inflator)
850 {
851 foreach (var item in member_hash) {
852 IList<MemberSpec> inflated_members = null;
853 for (int i = 0; i < item.Value.Count; ++i ) {
854 var member = item.Value[i];
855
856 // FIXME: When inflating members refering nested types before they are inflated
857 if (member == null)
858 continue;
859
860 if ((member.Kind & MemberKind.NestedMask) != 0 &&
861 (member.Modifiers & Modifiers.COMPILER_GENERATED) == 0) {
862 if (inflated_members == null) {
863 inflated_members = new MemberSpec[item.Value.Count];
864 inflated_cache.member_hash.Add (item.Key, inflated_members);
865 }
866
867 inflated_members [i] = member.InflateMember (inflator);
868 }
869 }
870 }
871 }
872
873 //
874 // Inflates all open type members, requires InflateTypes to be called before
875 //
876 public void InflateMembers (MemberCache cacheToInflate, TypeSpec inflatedType, TypeParameterInflator inflator)
877 {
878 var inflated_member_hash = cacheToInflate.member_hash;
879 Dictionary<MethodSpec, MethodSpec> accessor_relation = null;
880 List<MemberSpec> accessor_members = null;
881
882 foreach (var item in member_hash) {
883 var members = item.Value;
884 IList<MemberSpec> inflated_members = null;
885 for (int i = 0; i < members.Count; ++i ) {
886 var member = members[i];
887
888 //
889 // All nested types have been inflated earlier except for
890 // compiler types which are created later and could miss InflateTypes
891 //
892 if ((member.Kind & MemberKind.NestedMask) != 0 &&
893 (member.Modifiers & Modifiers.COMPILER_GENERATED) == 0) {
894 if (inflated_members == null)
895 inflated_members = inflated_member_hash[item.Key];
896
897 continue;
898 }
899
900 //
901 // Clone the container first
902 //
903 if (inflated_members == null) {
904 inflated_members = new MemberSpec [item.Value.Count];
905 inflated_member_hash.Add (item.Key, inflated_members);
906 }
907
908 var local_inflator = inflator;
909
910 if (member.DeclaringType != inflatedType) {
911 //
912 // Don't inflate non generic interface members
913 // merged into generic interface
914 //
915 if (!member.DeclaringType.IsGeneric) {
916 inflated_members [i] = member;
917 continue;
918 }
919
920 //
921 // Needed when inflating flatten interfaces. It inflates
922 // container type only, type parameters are already done
923 //
924 // Handles cases like:
925 //
926 // interface I<T> {}
927 // interface I<U, V> : I<U> {}
928 //
929 // class C: I<int, bool> {}
930 //
931 var inflated_parent = inflator.Inflate (member.DeclaringType);
932 if (inflated_parent != inflator.TypeInstance)
933 local_inflator = new TypeParameterInflator (inflator, inflated_parent);
934 }
935
936 //
937 // Inflate every member, its parent is now different
938 //
939 var inflated = member.InflateMember (local_inflator);
940 inflated_members [i] = inflated;
941
942 if (member is PropertySpec || member is EventSpec) {
943 if (accessor_members == null)
944 accessor_members = new List<MemberSpec> ();
945
946 accessor_members.Add (inflated);
947 continue;
948 }
949
950 if (member.IsAccessor) {
951 if (accessor_relation == null)
952 accessor_relation = new Dictionary<MethodSpec, MethodSpec> ();
953 accessor_relation.Add ((MethodSpec) member, (MethodSpec) inflated);
954 }
955 }
956 }
957
958 if (accessor_members != null) {
959 foreach (var member in accessor_members) {
960 var prop = member as PropertySpec;
961 if (prop != null) {
962 if (prop.Get != null)
963 prop.Get = accessor_relation[prop.Get];
964 if (prop.Set != null)
965 prop.Set = accessor_relation[prop.Set];
966
967 continue;
968 }
969
970 var ev = (EventSpec) member;
971 ev.AccessorAdd = accessor_relation[ev.AccessorAdd];
972 ev.AccessorRemove = accessor_relation[ev.AccessorRemove];
973 }
974 }
975 }
976
977 //
978 // For imported class method do additional validation to be sure that metadata
979 // override flag was correct
980 //
981 static bool IsRealMethodOverride (MethodSpec ms)
982 {
983 IList<MemberSpec> candidates;
984 var dt = ms.DeclaringType;
985 while (dt.BaseType != null) {
986 var base_cache = dt.BaseType.MemberCache;
987 if (base_cache.member_hash.TryGetValue (ms.Name, out candidates)) {
988 foreach (var candidate in candidates) {
989 if (candidate.Kind != ms.Kind)
990 continue;
991
992 if (candidate.Arity != ms.Arity)
993 continue;
994
995 if (!TypeSpecComparer.Override.IsEqual (((MethodSpec) candidate).Parameters, ms.Parameters))
996 continue;
997
998 // Everything matches except modifiers, it's not correct soverride
999 if ((candidate.Modifiers & Modifiers.AccessibilityMask) != (ms.Modifiers & Modifiers.AccessibilityMask))
1000 return false;
1001
1002 return true;
1003 }
1004 }
1005
1006 dt = dt.BaseType;
1007 }
1008
1009 return false;
1010 }
1011
1012 //
1013 // Checks all appropriate container members for CLS compliance
1014 //
1015 public void VerifyClsCompliance (TypeSpec container, Report report)
1016 {
1017 if (locase_members != null)
1018 return;
1019
1020 if (container.BaseType == null) {
1021 locase_members = new Dictionary<string, MemberSpec[]> (member_hash.Count); // StringComparer.OrdinalIgnoreCase);
1022 } else {
1023 container.BaseType.MemberCache.VerifyClsCompliance (container.BaseType, report);
1024 locase_members = new Dictionary<string, MemberSpec[]> (container.BaseType.MemberCache.locase_members); //, StringComparer.OrdinalIgnoreCase);
1025 }
1026
1027 var is_imported_type = container.MemberDefinition.IsImported;
1028 foreach (var entry in container.MemberCache.member_hash) {
1029 for (int i = 0; i < entry.Value.Count; ++i ) {
1030 var name_entry = entry.Value[i];
1031 if ((name_entry.Modifiers & (Modifiers.PUBLIC | Modifiers.PROTECTED)) == 0)
1032 continue;
1033
1034 if ((name_entry.Modifiers & (Modifiers.OVERRIDE | Modifiers.COMPILER_GENERATED)) != 0)
1035 continue;
1036
1037 if ((name_entry.Kind & MemberKind.MaskType) == 0)
1038 continue;
1039
1040 if (name_entry.MemberDefinition.IsNotCLSCompliant ())
1041 continue;
1042
1043 IParametersMember p_a = name_entry as IParametersMember;
1044 if (p_a != null && !name_entry.IsAccessor) {
1045 if (!is_imported_type) {
1046 var p_a_pd = p_a.Parameters;
1047 for (int ii = i + 1; ii < entry.Value.Count; ++ii) {
1048 var checked_entry = entry.Value[ii];
1049 IParametersMember p_b = checked_entry as IParametersMember;
1050 if (p_b == null)
1051 continue;
1052
1053 if (p_a_pd.Count != p_b.Parameters.Count)
1054 continue;
1055
1056 if (checked_entry.IsAccessor)
1057 continue;
1058
1059 var res = ParametersCompiled.IsSameClsSignature (p_a.Parameters, p_b.Parameters);
1060 if (res != 0) {
1061 var last = GetLaterDefinedMember (checked_entry, name_entry);
1062 if (last == checked_entry.MemberDefinition) {
1063 report.SymbolRelatedToPreviousError (name_entry);
1064 } else {
1065 report.SymbolRelatedToPreviousError (checked_entry);
1066 }
1067
1068 if ((res & 1) != 0) {
1069 report.Warning (3006, 1, last.Location,
1070 "Overloaded method `{0}' differing only in ref or out, or in array rank, is not CLS-compliant",
1071 name_entry.GetSignatureForError ());
1072 }
1073
1074 if ((res & 2) != 0) {
1075 report.Warning (3007, 1, last.Location,
1076 "Overloaded method `{0}' differing only by unnamed array types is not CLS-compliant",
1077 name_entry.GetSignatureForError ());
1078 }
1079 }
1080 }
1081 }
1082 }
1083
1084 if (i > 0 || name_entry.Kind == MemberKind.Constructor || name_entry.Kind == MemberKind.Indexer)
1085 continue;
1086
1087 var name_entry_locase = name_entry.Name.ToLowerInvariant ();
1088
1089 MemberSpec[] found;
1090 if (!locase_members.TryGetValue (name_entry_locase, out found)) {
1091 found = new MemberSpec[] { name_entry };
1092 locase_members.Add (name_entry_locase, found);
1093 } else {
1094 bool same_names_only = true;
1095 foreach (var f in found) {
1096 if (f.Name == name_entry.Name)
1097 continue;
1098
1099 // if (f.IsAccessor && name_entry.IsAccessor)
1100 // continue;
1101
1102 same_names_only = false;
1103 if (!is_imported_type) {
1104 var last = GetLaterDefinedMember (f, name_entry);
1105 if (last == f.MemberDefinition) {
1106 report.SymbolRelatedToPreviousError (name_entry);
1107 } else {
1108 report.SymbolRelatedToPreviousError (f);
1109 }
1110
1111 report.Warning (3005, 1, last.Location,
1112 "Identifier `{0}' differing only in case is not CLS-compliant", last.GetSignatureForError ());
1113 }
1114 }
1115
1116 if (!same_names_only) {
1117 Array.Resize (ref found, found.Length + 1);
1118 found[found.Length - 1] = name_entry;
1119 locase_members[name_entry_locase] = found;
1120 }
1121 }
1122 }
1123 }
1124 }
1125
1126 //
1127 // Local report helper to issue correctly ordered members stored in hashtable
1128 //
1129 static MemberCore GetLaterDefinedMember (MemberSpec a, MemberSpec b)
1130 {
1131 var mc_a = a.MemberDefinition as MemberCore;
1132 var mc_b = b.MemberDefinition as MemberCore;
1133 if (mc_a == null)
1134 return mc_b;
1135
1136 if (mc_b == null)
1137 return mc_a;
1138
1139 if (mc_a.Location.File != mc_a.Location.File)
1140 return mc_b;
1141
1142 return mc_b.Location.Row > mc_a.Location.Row ? mc_b : mc_a;
1143 }
1144
1145 public bool CheckExistingMembersOverloads (MemberCore member, AParametersCollection parameters)
1146 {
1147 var name = GetLookupName (member);
1148 var imb = member as InterfaceMemberBase;
1149 if (imb != null && imb.IsExplicitImpl) {
1150 name = imb.GetFullName (name);
1151 }
1152
1153 return CheckExistingMembersOverloads (member, name, parameters);
1154 }
1155
1156 public bool CheckExistingMembersOverloads (MemberCore member, string name, AParametersCollection parameters)
1157 {
1158 IList<MemberSpec> entries;
1159 if (!member_hash.TryGetValue (name, out entries))
1160 return false;
1161
1162 var Report = member.Compiler.Report;
1163
1164 int method_param_count = parameters.Count;
1165 for (int i = entries.Count - 1; i >= 0; --i) {
1166 var ce = entries[i];
1167 var pm = ce as IParametersMember;
1168 var pd = pm == null ? ParametersCompiled.EmptyReadOnlyParameters : pm.Parameters;
1169 if (pd.Count != method_param_count)
1170 continue;
1171
1172 if (ce.Arity != member.MemberName.Arity)
1173 continue;
1174
1175 // Ignore merged interface members
1176 if (member.Parent.PartialContainer != ce.DeclaringType.MemberDefinition)
1177 continue;
1178
1179 var p_types = pd.Types;
1180 if (method_param_count > 0) {
1181 int ii = method_param_count - 1;
1182 TypeSpec type_a, type_b;
1183 do {
1184 type_a = parameters.Types [ii];
1185 type_b = p_types [ii];
1186
1187 if ((pd.FixedParameters [ii].ModFlags & Parameter.Modifier.ISBYREF) !=
1188 (parameters.FixedParameters [ii].ModFlags & Parameter.Modifier.ISBYREF))
1189 break;
1190
1191 } while (TypeSpecComparer.Override.IsEqual (type_a, type_b) && ii-- != 0);
1192
1193 if (ii >= 0)
1194 continue;
1195
1196 //
1197 // Operators can differ in return type only
1198 //
1199 if (member is Operator && ce.Kind == MemberKind.Operator && ((MethodSpec) ce).ReturnType != ((Operator) member).ReturnType)
1200 continue;
1201
1202 //
1203 // Report difference in parameter modifiers only
1204 //
1205 if (pd != null && member is MethodCore) {
1206 ii = method_param_count;
1207 while (ii-- != 0 && parameters.FixedParameters[ii].ModFlags == pd.FixedParameters[ii].ModFlags &&
1208 parameters.ExtensionMethodType == pd.ExtensionMethodType) ;
1209
1210 if (ii >= 0) {
1211 var mc = ce as MethodSpec;
1212 member.Compiler.Report.SymbolRelatedToPreviousError (ce);
1213 if ((member.ModFlags & Modifiers.PARTIAL) != 0 && (mc.Modifiers & Modifiers.PARTIAL) != 0) {
1214 if (parameters.HasParams || pd.HasParams) {
1215 Report.Error (758, member.Location,
1216 "A partial method declaration and partial method implementation cannot differ on use of `params' modifier");
1217 } else {
1218 Report.Error (755, member.Location,
1219 "A partial method declaration and partial method implementation must be both an extension method or neither");
1220 }
1221 } else if (member is Constructor) {
1222 Report.Error (851, member.Location,
1223 "Overloaded contructor `{0}' cannot differ on use of parameter modifiers only",
1224 member.GetSignatureForError ());
1225 } else {
1226 Report.Error (663, member.Location,
1227 "Overloaded method `{0}' cannot differ on use of parameter modifiers only",
1228 member.GetSignatureForError ());
1229 }
1230 return false;
1231 }
1232 }
1233 }
1234
1235 if ((ce.Kind & (MemberKind.Method | MemberKind.FakeMethod)) != 0) {
1236 Method method_a = member as Method;
1237 Method method_b = ce.MemberDefinition as Method;
1238 if (method_a != null && method_b != null && (method_a.ModFlags & method_b.ModFlags & Modifiers.PARTIAL) != 0) {
1239 const Modifiers partial_modifiers = Modifiers.STATIC | Modifiers.UNSAFE;
1240 if (method_a.IsPartialDefinition == method_b.IsPartialImplementation) {
1241 if ((method_a.ModFlags & partial_modifiers) == (method_b.ModFlags & partial_modifiers) ||
1242 method_a.Parent.IsUnsafe && method_b.Parent.IsUnsafe) {
1243 if (method_a.IsPartialImplementation) {
1244 method_a.SetPartialDefinition (method_b);
1245 if (entries.Count == 1)
1246 member_hash.Remove (name);
1247 else
1248 entries.RemoveAt (i);
1249 } else {
1250 method_b.SetPartialDefinition (method_a);
1251 method_a.caching_flags |= MemberCore.Flags.PartialDefinitionExists;
1252 }
1253 continue;
1254 }
1255
1256 if (method_a.IsStatic != method_b.IsStatic) {
1257 Report.SymbolRelatedToPreviousError (ce);
1258 Report.Error (763, member.Location,
1259 "A partial method declaration and partial method implementation must be both `static' or neither");
1260 }
1261
1262 Report.SymbolRelatedToPreviousError (ce);
1263 Report.Error (764, member.Location,
1264 "A partial method declaration and partial method implementation must be both `unsafe' or neither");
1265 return false;
1266 }
1267
1268 Report.SymbolRelatedToPreviousError (ce);
1269 if (method_a.IsPartialDefinition) {
1270 Report.Error (756, member.Location, "A partial method `{0}' declaration is already defined",
1271 member.GetSignatureForError ());
1272 }
1273
1274 Report.Error (757, member.Location, "A partial method `{0}' implementation is already defined",
1275 member.GetSignatureForError ());
1276 return false;
1277 }
1278
1279 Report.SymbolRelatedToPreviousError (ce);
1280
1281 bool is_reserved_a = member is AbstractPropertyEventMethod || member is Operator;
1282 bool is_reserved_b = ((MethodSpec) ce).IsReservedMethod;
1283
1284 if (is_reserved_a || is_reserved_b) {
1285 Report.Error (82, member.Location, "A member `{0}' is already reserved",
1286 is_reserved_a ?
1287 ce.GetSignatureForError () :
1288 member.GetSignatureForError ());
1289 return false;
1290 }
1291 } else {
1292 Report.SymbolRelatedToPreviousError (ce);
1293 }
1294
1295 if (member is Operator && ce.Kind == MemberKind.Operator) {
1296 Report.Error (557, member.Location, "Duplicate user-defined conversion in type `{0}'",
1297 member.Parent.GetSignatureForError ());
1298 return false;
1299 }
1300
1301 Report.Error (111, member.Location,
1302 "A member `{0}' is already defined. Rename this member or use different parameter types",
1303 member.GetSignatureForError ());
1304 return false;
1305 }
1306
1307 return true;
1308 }
1309 }
1310 }
git-svn mirror of mcs