[svn] r6128: nemerle/trunk/ncc: parsing/AST.n testsuite/positive/constant-folding.n

[nazgul]

Log:
Fix -0 folding

Author: nazgul
Date: Sun Feb 19 11:37:49 2006
New Revision: 6128

Modified:
   nemerle/trunk/ncc/parsing/AST.n
   nemerle/trunk/ncc/testsuite/positive/constant-folding.n

Modified: nemerle/trunk/ncc/parsing/AST.n
==============================================================================
--- nemerle/trunk/ncc/parsing/AST.n	(original)
+++ nemerle/trunk/ncc/parsing/AST.n	Sun Feb 19 11:37:49 2006
@@ -412,6 +412,7 @@
     public WithProperType () : Literal
     {
       match (this) {
+        | Literal.Integer (0, true, _) => Literal.Integer (0, false, InternalType.Int32)
         | Literal.Integer (val, is_neg, _) =>
           def t =
             if (is_neg)

Modified: nemerle/trunk/ncc/testsuite/positive/constant-folding.n
==============================================================================
--- nemerle/trunk/ncc/testsuite/positive/constant-folding.n	(original)
+++ nemerle/trunk/ncc/testsuite/positive/constant-folding.n	Sun Feb 19 11:37:49 2006
@@ -4,6 +4,7 @@
     // one need to inspect out.exe
     def _x = 3 * 7 + 8;
     def _y = -1;
+    _ = -0;
     ()
   }
 }