From d5914ef6cb90e494471e1e21e1b7ba1b2c842db0 Mon Sep 17 00:00:00 2001
From: aspiwack
Date: Tue, 29 May 2007 14:04:33 +0000
Subject: Corrected the treatment of negative numbers for the bigZ parser. And
 corrected a small typo in an error message (bogN instead of bigN).

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@9870 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 parsing/g_intsyntax.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/parsing/g_intsyntax.ml b/parsing/g_intsyntax.ml
index 2c3189087c..7abafb070e 100644
--- a/parsing/g_intsyntax.ml
+++ b/parsing/g_intsyntax.ml
@@ -203,7 +203,7 @@ let bigN_of_pos_bigint dloc n =
   result hght (word_of_pos_bigint dloc hght n)
   
 let bigN_error_negative dloc =
-  Util.user_err_loc (dloc, "interp_bigN", Pp.str "bogN are only non-negative numbers")
+  Util.user_err_loc (dloc, "interp_bigN", Pp.str "bigN are only non-negative numbers")
 
 let interp_bigN dloc n = 
   if is_pos_or_zero n then
@@ -281,7 +281,7 @@ let interp_bigZ dloc n =
   if is_pos_or_zero n then
     RApp (dloc, ref_pos, [bigN_of_pos_bigint dloc n])
   else
-    RApp (dloc, ref_neg, [bigN_of_pos_bigint dloc n])
+    RApp (dloc, ref_neg, [bigN_of_pos_bigint dloc (neg n)])
 
 (* pretty printing functions for bigZ *)
 let bigint_of_bigZ = function
-- 
cgit v1.2.3