To Support other types of source in Mid statement

svn path=/trunk/mcs/; revision=45741

diff --git a/mcs/mbas/ChangeLog b/mcs/mbas/ChangeLog
index 3af60f48cc21a78080a966f6e642d6cf2c18e4b6..3ad55011c9ddcde7de1e499f71b1083a673a09bf 100644 (file)
--- a/mcs/mbas/ChangeLog
+++ b/mcs/mbas/ChangeLog
@@ -1,3 +1,6 @@
+2005-06-10 Manjula GHM <mmanjula@novell.com>
+       *assign: To Support other types of source in Mid statement
+
 2005-06-10 Manjula GHM <mmanjula@novell.com>
        *assign: To Support Optional Max. Insert length value in Mid statement
 

diff --git a/mcs/mbas/assign.cs b/mcs/mbas/assign.cs
index 91d25fad9c9ebfb6bb8b6357eac39ebffa3eb735..7420431e55b492ce47fb17197a8875337f563c94 100644 (file)
--- a/mcs/mbas/assign.cs
+++ b/mcs/mbas/assign.cs
@@ -252,10 +252,10 @@ namespace Mono.MonoBASIC {
        
                                                arglist  = i.Arguments;
                
-                                               // If maximum Insert Length value is ommitted   
-                                               if(arglist.Count == 2 && source.Type == TypeManager.string_type) {
+                                               // If maximum Insert Length value is omitted    
+                                               if(arglist.Count == 2) {
                                                        string val = null;
-                                                       val = ((StringConstant) source).Value.ToString();
+                                                       val = source.ToString();
                                                        int maxInsertLength = val.Length;       
                                                        arg3 = new Argument (new IntLiteral(maxInsertLength), Argument.AType.Expression);
                                                        arglist.Add (arg3);