[svn] r7391: nemerle/trunk/ncc: parsing/Lexer.n testsuite/positive/basic-value-types.n

[nazgul]

Log:
Fix decimal parsing call

Author: nazgul
Date: Tue Feb  6 23:08:32 2007
New Revision: 7391

Modified:
   nemerle/trunk/ncc/parsing/Lexer.n
   nemerle/trunk/ncc/testsuite/positive/basic-value-types.n

Modified: nemerle/trunk/ncc/parsing/Lexer.n
==============================================================================
--- nemerle/trunk/ncc/parsing/Lexer.n	(original)
+++ nemerle/trunk/ncc/parsing/Lexer.n	Tue Feb  6 23:08:32 2007
@@ -571,7 +571,7 @@
                                            NumberFormatInfo.InvariantInfo))
         | 'm' =>
           ignore (read ());          
-          Token.DecimalLiteral (Decimal.Parse (id_buffer.ToString (),
+          Token.DecimalLiteral (Decimal.Parse (id_buffer.ToString (), NumberStyles.Float,
                                               NumberFormatInfo.InvariantInfo))
         | _ =>
           Token.DoubleLiteral (Double.Parse (id_buffer.ToString (),

Modified: nemerle/trunk/ncc/testsuite/positive/basic-value-types.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/basic-value-types.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/basic-value-types.n	Tue Feb  6 23:08:32 2007
@@ -219,6 +219,10 @@
       _ = ( char.MaxValue :> char); // W: there is no check needed to cast char to char
   }
 
+  Bug873 ()  : void {
+    System.Console.WriteLine (1e5M);   
+  }
+  
   public Main () : void
   {
     TestFloat ();
@@ -229,6 +233,7 @@
     Str.ArrayTest.xain ();
     TestChar ();
     Bug828();
+    Bug873();
   }
 }
 
@@ -278,5 +283,6 @@
 3
 -4
 5
+100000
 END-OUTPUT
 */