2004-07-14 Martin Baulig <martin@ximian.com>
[mono.git] / mcs / gmcs / convert.cs
index 4684a3a9326685ed71cb1b78977dbbad6b4faafd..e00336fbe67f7767b27ff4169eb74495b9a1bc00 100644 (file)
@@ -19,13 +19,37 @@ namespace Mono.CSharp {
        // A container class for all the conversion operations
        //
        public class Convert {
-               static public void Error_CannotConvertType (Location loc, Type source, Type target)
+               static void Error_CannotConvertType (Location loc, Type source, Type target)
                {
                        Report.Error (30, loc, "Cannot convert type '" +
                                      TypeManager.CSharpName (source) + "' to '" +
                                      TypeManager.CSharpName (target) + "'");
                }
 
+               static Expression TypeParameter_to_Null (Expression expr, Type target_type,
+                                                        Location loc)
+               {
+                       if (!TypeParameter_to_Null (target_type)) {
+                               Report.Error (403, loc, "Cannot convert null to the type " +
+                                             "parameter `{0}' becaues it could be a value " +
+                                             "type.  Consider using `default ({0})' instead.",
+                                             target_type);
+                               return null;
+                       }
+
+                       return new NullCast (expr, target_type);
+               }
+
+               static bool TypeParameter_to_Null (Type target_type)
+               {
+                       if ((target_type.BaseType == null) ||
+                           (target_type.BaseType == TypeManager.value_type) ||
+                           target_type.BaseType.IsValueType)
+                               return false;
+
+                       return true;
+               }
+
                static EmptyExpression MyEmptyExpr;
                static public Expression ImplicitReferenceConversion (Expression expr, Type target_type)
                {
@@ -59,14 +83,14 @@ namespace Mono.CSharp {
                                if (TypeManager.IsValueType (expr_type))
                                        return new BoxedCast (expr);
                                if (expr is NullLiteral)
-                                       return new BoxedCast (expr);
-                       } else if (expr_type.IsSubclassOf (target_type)) {
+                                       return new NullCast (expr, target_type);
+                       } else if (TypeManager.IsSubclassOf (expr_type, target_type)) {
                                //
                                // Special case: enumeration to System.Enum.
                                // System.Enum is not a value type, it is a class, so we need
                                // a boxing conversion
                                //
-                               if (expr_type.IsEnum)
+                               if (expr_type.IsEnum || expr_type.IsGenericParameter)
                                        return new BoxedCast (expr);
 
                                return new EmptyCast (expr, target_type);
@@ -88,11 +112,22 @@ namespace Mono.CSharp {
 
                                // from any class-type S to any interface-type T.
                                if (target_type.IsInterface) {
+                                       if (target_type != TypeManager.iconvertible_type &&
+                                           expr_type.IsValueType && (expr is Constant) &&
+                                           !(expr is IntLiteral || expr is BoolLiteral ||
+                                             expr is FloatLiteral || expr is DoubleLiteral ||
+                                             expr is LongLiteral || expr is CharLiteral ||
+                                             expr is StringLiteral || expr is DecimalLiteral ||
+                                             expr is UIntLiteral || expr is ULongLiteral)) {
+                                               return null;
+                                       }
+
                                        if (TypeManager.ImplementsInterface (expr_type, target_type)){
-                                               if (expr_type.IsClass)
+                                               if (expr_type.IsGenericParameter)
+                                                       return new BoxedCast (expr, target_type);
+                                               else if (expr_type.IsClass)
                                                        return new EmptyCast (expr, target_type);
-                                               else if (TypeManager.IsValueType (expr_type) ||
-                                                        TypeManager.IsEnumType (expr_type))
+                                               else if (TypeManager.IsValueType (expr_type))
                                                        return new BoxedCast (expr, target_type);
                                                else
                                                        return new EmptyCast (expr, target_type);
@@ -133,14 +168,14 @@ namespace Mono.CSharp {
                                
                                // from any delegate type to System.Delegate
                                if ((expr_type == TypeManager.delegate_type || 
-                                    expr_type.IsSubclassOf (TypeManager.delegate_type)) &&
+                                    TypeManager.IsDelegateType (expr_type)) &&
                                    target_type == TypeManager.delegate_type)
                                        return new EmptyCast (expr, target_type);
                                        
                                // from any array-type or delegate type into System.ICloneable.
                                if (expr_type.IsArray ||
                                    expr_type == TypeManager.delegate_type ||
-                                   expr_type.IsSubclassOf (TypeManager.delegate_type))
+                                   TypeManager.IsDelegateType (expr_type))
                                        if (target_type == TypeManager.icloneable_type)
                                                return new EmptyCast (expr, target_type);
 
@@ -170,7 +205,7 @@ namespace Mono.CSharp {
                                if (expr_type.IsClass || TypeManager.IsValueType (expr_type) ||
                                    expr_type.IsInterface || expr_type == TypeManager.enum_type)
                                        return true;
-                       } else if (expr_type.IsSubclassOf (target_type)) 
+                       } else if (TypeManager.IsSubclassOf (expr_type, target_type))
                                return true;
                        else {
                                // Please remember that all code below actually comes
@@ -212,7 +247,7 @@ namespace Mono.CSharp {
                                
                                // from any delegate type to System.Delegate
                                if ((expr_type == TypeManager.delegate_type ||
-                                    expr_type.IsSubclassOf (TypeManager.delegate_type)) &&
+                                    TypeManager.IsDelegateType (expr_type)) &&
                                    target_type == TypeManager.delegate_type)
                                        if (target_type.IsAssignableFrom (expr_type))
                                                return true;
@@ -220,7 +255,7 @@ namespace Mono.CSharp {
                                // from any array-type or delegate type into System.ICloneable.
                                if (expr_type.IsArray ||
                                    expr_type == TypeManager.delegate_type ||
-                                   expr_type.IsSubclassOf (TypeManager.delegate_type))
+                                   TypeManager.IsDelegateType (expr_type))
                                        if (target_type == TypeManager.icloneable_type)
                                                return true;
                                
@@ -251,7 +286,6 @@ namespace Mono.CSharp {
                        // Attempt to do the implicit constant expression conversions
 
                        if (expr is Constant){
-                               
                                if (expr is IntConstant){
                                        Expression e;
                                        
@@ -266,7 +300,7 @@ namespace Mono.CSharp {
                                        // we just inline it
                                        //
                                        long v = ((LongConstant) expr).Value;
-                                       if (v > 0)
+                                       if (v >= 0)
                                                return new ULongConstant ((ulong) v);
                                } 
                        }
@@ -410,6 +444,9 @@ namespace Mono.CSharp {
                /// </summary>
                public static bool ImplicitConversionExists (EmitContext ec, Expression expr, Type target_type)
                {
+                       if ((expr is NullLiteral) && target_type.IsGenericParameter)
+                               return TypeParameter_to_Null (target_type);
+
                        if (ImplicitStandardConversionExists (expr, target_type))
                                return true;
 
@@ -857,6 +894,8 @@ namespace Mono.CSharp {
                        return UserDefinedConversion (ec, source, target, loc, true);
                }
 
+               static DoubleHash explicit_conv = new DoubleHash (100);
+               static DoubleHash implicit_conv = new DoubleHash (100);
                /// <summary>
                ///   Computes the MethodGroup for the user-defined conversion
                ///   operators from source_type to target_type.  `look_for_explicit'
@@ -874,6 +913,9 @@ namespace Mono.CSharp {
                        op_name = "op_Implicit";
 
                        MethodGroupExpr union3;
+                       object r;
+                       if ((look_for_explicit ? explicit_conv : implicit_conv).Lookup (source_type, target_type, out r))
+                               return (MethodGroupExpr) r;
 
                        mg1 = Expression.MethodLookup (ec, source_type, op_name, loc);
                        if (source_type.BaseType != null)
@@ -923,7 +965,9 @@ namespace Mono.CSharp {
                                union4 = Invocation.MakeUnionSet (union5, union6, loc);
                        }
                        
-                       return Invocation.MakeUnionSet (union3, union4, loc);
+                       MethodGroupExpr ret = Invocation.MakeUnionSet (union3, union4, loc);
+                       (look_for_explicit ? explicit_conv : implicit_conv).Insert (source_type, target_type, ret);
+                       return ret;
                }
                
                /// <summary>
@@ -1036,6 +1080,21 @@ namespace Mono.CSharp {
                        Type expr_type = expr.Type;
                        Expression e;
 
+                       if ((expr is NullLiteral) && target_type.IsGenericParameter)
+                               return TypeParameter_to_Null (expr, target_type, loc);
+
+                       if (expr.eclass == ExprClass.MethodGroup){
+                               if (!TypeManager.IsDelegateType (target_type)){
+                                       Report.Error (428, loc,
+                                                     String.Format (
+                                                          "Cannot convert method group to `{0}', since it is not a delegate",
+                                                          TypeManager.CSharpName (target_type)));
+                                       return null;
+                               }
+
+                               return ImplicitDelegateCreation.Create (ec, (MethodGroupExpr) expr, target_type, loc);
+                       }
+
                        if (expr_type.Equals (target_type) && !(expr is NullLiteral))
                                return expr;
 
@@ -1157,7 +1216,10 @@ namespace Mono.CSharp {
                {
                        Expression e;
 
+                       int errors = Report.Errors;
                        e = ImplicitConversion (ec, source, target_type, loc);
+                       if (Report.Errors > errors)
+                               return null;
                        if (e != null)
                                return e;
 
@@ -1401,11 +1463,18 @@ namespace Mono.CSharp {
                /// </summary>
                public static bool ExplicitReferenceConversionExists (Type source_type, Type target_type)
                {
+                       bool target_is_type_param = target_type.IsGenericParameter;
                        bool target_is_value_type = target_type.IsValueType;
                        
                        if (source_type == target_type)
                                return true;
-                       
+
+                       //
+                       // From object to a generic parameter
+                       //
+                       if (source_type == TypeManager.object_type && target_is_type_param)
+                               return true;
+
                        //
                        // From object to any reference type
                        //
@@ -1415,14 +1484,14 @@ namespace Mono.CSharp {
                        //
                        // From any class S to any class-type T, provided S is a base class of T
                        //
-                       if (target_type.IsSubclassOf (source_type))
+                       if (TypeManager.IsSubclassOf (target_type, source_type))
                                return true;
 
                        //
                        // From any interface type S to any interface T provided S is not derived from T
                        //
                        if (source_type.IsInterface && target_type.IsInterface){
-                               if (!target_type.IsSubclassOf (source_type))
+                               if (!TypeManager.IsSubclassOf (target_type, source_type))
                                        return true;
                        }
                            
@@ -1474,7 +1543,7 @@ namespace Mono.CSharp {
                        // From System delegate to any delegate-type
                        //
                        if (source_type == TypeManager.delegate_type &&
-                           target_type.IsSubclassOf (TypeManager.delegate_type))
+                           TypeManager.IsDelegateType (target_type))
                                return true;
 
                        //
@@ -1494,19 +1563,33 @@ namespace Mono.CSharp {
                static Expression ExplicitReferenceConversion (Expression source, Type target_type)
                {
                        Type source_type = source.Type;
+                       bool target_is_type_param = target_type.IsGenericParameter;
                        bool target_is_value_type = target_type.IsValueType;
 
+                       //
+                       // From object to a generic parameter
+                       //
+                       if (source_type == TypeManager.object_type && target_is_type_param)
+                               return new UnboxCast (source, target_type);
+
                        //
                        // From object to any reference type
                        //
                        if (source_type == TypeManager.object_type && !target_is_value_type)
                                return new ClassCast (source, target_type);
 
+                       //
+                       // Unboxing conversion.
+                       //
+                       if (((source_type == TypeManager.enum_type &&
+                               !(source is EmptyCast)) ||
+                               source_type == TypeManager.value_type) && target_is_value_type)
+                               return new UnboxCast (source, target_type);
 
                        //
                        // From any class S to any class-type T, provided S is a base class of T
                        //
-                       if (target_type.IsSubclassOf (source_type))
+                       if (TypeManager.IsSubclassOf (target_type, source_type))
                                return new ClassCast (source, target_type);
 
                        //
@@ -1518,7 +1601,7 @@ namespace Mono.CSharp {
                                else
                                        return new ClassCast (source, target_type);
                        }
-                           
+
                        //
                        // From any class type S to any interface T, provides S is not sealed
                        // and provided S does not implement T.
@@ -1577,7 +1660,7 @@ namespace Mono.CSharp {
                        // From System delegate to any delegate-type
                        //
                        if (source_type == TypeManager.delegate_type &&
-                           target_type.IsSubclassOf (TypeManager.delegate_type))
+                           TypeManager.IsDelegateType (target_type))
                                return new ClassCast (source, target_type);
 
                        //
@@ -1596,7 +1679,7 @@ namespace Mono.CSharp {
                ///   type is expr.Type to `target_type'.
                /// </summary>
                static public Expression ExplicitConversion (EmitContext ec, Expression expr,
-                                                         Type target_type, Location loc)
+                                                            Type target_type, Location loc)
                {
                        Type expr_type = expr.Type;
                        Type original_expr_type = expr_type;
@@ -1623,7 +1706,10 @@ namespace Mono.CSharp {
                                expr_type = expr.Type;
                        }
 
+                       int errors = Report.Errors;
                        Expression ne = ImplicitConversionStandard (ec, expr, target_type, loc);
+                       if (Report.Errors > errors)
+                               return null;
 
                        if (ne != null)
                                return ne;
@@ -1637,17 +1723,22 @@ namespace Mono.CSharp {
                        //
                        if (expr_type == TypeManager.object_type && target_type.IsValueType){
                                if (expr is NullLiteral){
-                                       Report.Error (37, loc, "Cannot convert null to value type `" +
-                                                      TypeManager.CSharpName (target_type) + "'");
-                                       return null;
+                                       //
+                                       // Skip the ExplicitReferenceConversion because we can not convert
+                                       // from Null to a ValueType, and ExplicitReference wont check against
+                                       // null literal explicitly
+                                       //
+                                       goto skip_explicit;
                                }
                                return new UnboxCast (expr, target_type);
+
                        }
 
                        ne = ExplicitReferenceConversion (expr, target_type);
                        if (ne != null)
                                return ne;
 
+               skip_explicit:
                        if (ec.InUnsafe){
                                if (target_type.IsPointer){
                                        if (expr_type.IsPointer)
@@ -1709,6 +1800,12 @@ namespace Mono.CSharp {
                        if (ne != null)
                                return ne;
 
+                       if (expr is NullLiteral){
+                               Report.Error (37, loc, "Cannot convert null to value type `" +
+                                             TypeManager.CSharpName (target_type) + "'");
+                               return null;
+                       }
+                               
                        Error_CannotConvertType (loc, original_expr_type, target_type);
                        return null;
                }
@@ -1717,9 +1814,12 @@ namespace Mono.CSharp {
                ///   Same as ExplicitConversion, only it doesn't include user defined conversions
                /// </summary>
                static public Expression ExplicitConversionStandard (EmitContext ec, Expression expr,
-                                                                 Type target_type, Location l)
+                                                                    Type target_type, Location l)
                {
+                       int errors = Report.Errors;
                        Expression ne = ImplicitConversionStandard (ec, expr, target_type, l);
+                       if (Report.Errors > errors)
+                               return null;
 
                        if (ne != null)
                                return ne;