2004-02-07 Tim Coleman <tim@timcoleman.com>

[mono.git] / mcs / mbas / constant.cs

diff --git a/mcs/mbas/constant.cs b/mcs/mbas/constant.cs
index 4030080a0b273504b59c05e496bd60cad8b91fb6..f3fa00745c3d9d48a5861f90c1f5d35d547d0886 100644 (file)
--- a/mcs/mbas/constant.cs
+++ b/mcs/mbas/constant.cs
@@ -8,7 +8,7 @@
 //
 //
 
-namespace Mono.CSharp {
+namespace Mono.MonoBASIC {
 
        using System;
        using System.Reflection.Emit;
@@ -969,6 +969,31 @@ namespace Mono.CSharp {
                }
        }
 
-}
+       public class DateConstant : Constant {
+               public readonly DateTime Value;
+
+               public DateConstant (DateTime s)
+               {
+                       type = TypeManager.date_type;
+                       eclass = ExprClass.Value;
+                       Value = s;
+               }
+
+               override public string AsString ()
+               {
+                       return "#" + Value.ToString() + "#";
+               }
 
+               public override object GetValue ()
+               {
+                       return Value;
+               }
+               
+               public override void Emit (EmitContext ec)
+               {
+                       ec.ig.Emit (OpCodes.Ldc_I8, Value.Ticks);
+                       ec.ig.Emit (OpCodes.Newobj, TypeManager.void_datetime_ctor_ticks_arg);
+               }
+       }
 
+}