Ooops.

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

diff --git a/mcs/mbas/literal.cs b/mcs/mbas/literal.cs
index a358d695a7e1e0d5bbe67065e39a852a2929ae7a..2aec7d3588df966f95fce90f61e2c0fdaf1cce1e 100644 (file)
--- a/mcs/mbas/literal.cs
+++ b/mcs/mbas/literal.cs
@@ -97,6 +97,18 @@ namespace Mono.MonoBASIC {
                }
        }
 
+       public class ShortLiteral : ShortConstant {
+               public ShortLiteral (short l) : base (l)
+               {
+               }
+
+               public override Expression DoResolve (EmitContext ec)
+               {
+                       type = TypeManager.short_type;
+                       return this;
+               }
+       }
+
        public class UIntLiteral : UIntConstant {
                public UIntLiteral (uint l) : base (l)
                {
@@ -184,4 +196,17 @@ namespace Mono.MonoBASIC {
                        return this;
                }
        }
+       
+       public class DateLiteral : DateConstant {
+               public DateLiteral (DateTime s) : base (s)
+               {
+               }
+
+               public override Expression DoResolve (EmitContext ec)
+               {
+                       type = TypeManager.date_type;
+
+                       return this;
+               }
+       }
 }