From 67c16596a8c2dcd300ca8bef63bfe9a5093c25ad Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Tue, 3 Apr 2018 08:11:56 +0000
Subject: [PATCH] added error messages in more places of bigint.c

---
 lib/bigint.c | 28 ++++++++++++++--------------
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/lib/bigint.c b/lib/bigint.c
index 691e484..beef8ad 100644
--- a/lib/bigint.c
+++ b/lib/bigint.c
@@ -273,8 +273,8 @@ int hcl_inttooow (hcl_t* hcl, hcl_oop_t x, hcl_oow_t* w)
 
 	if (is_bigint(hcl, x)) return bigint_to_oow (hcl, x, w);
 
-	hcl_seterrbfmt (hcl, HCL_EINVAL, "not an integer - %O", x);
-	return 0; /* not convertable - too big, too small, or not an integer */
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O", x);
+	return 0; /* not convertable - too big, too small, or not integer */
 }
 
 int hcl_inttoooi (hcl_t* hcl, hcl_oop_t x, hcl_ooi_t* i)
@@ -1659,7 +1659,7 @@ hcl_oop_t hcl_addints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	return normalize_bigint (hcl, z);
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -1750,7 +1750,7 @@ hcl_oop_t hcl_subints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	return normalize_bigint (hcl, z);
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -1854,7 +1854,7 @@ hcl_oop_t hcl_mulints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	return normalize_bigint (hcl, z);
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -2106,7 +2106,7 @@ hcl_oop_t hcl_divints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y, int modulo, hcl_oop
 	return normalize_bigint (hcl, z);
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -2126,7 +2126,7 @@ hcl_oop_t hcl_negateint (hcl_t* hcl, hcl_oop_t x)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O", x);
 	return HCL_NULL;
 }
 
@@ -2291,7 +2291,7 @@ hcl_oop_t hcl_bitatint (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -2504,7 +2504,7 @@ hcl_oop_t hcl_bitandints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -2722,7 +2722,7 @@ hcl_oop_t hcl_bitorints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -2939,7 +2939,7 @@ hcl_oop_t hcl_bitxorints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -3041,7 +3041,7 @@ hcl_oop_t hcl_bitinvint (hcl_t* hcl, hcl_oop_t x)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O", x);
 	return HCL_NULL;
 }
 
@@ -3513,7 +3513,7 @@ hcl_oop_t hcl_bitshiftint (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }
 
@@ -3921,7 +3921,7 @@ hcl_oop_t hcl_ltints (hcl_t* hcl, hcl_oop_t x, hcl_oop_t y)
 	}
 
 oops_einval:
-	hcl_seterrnum (hcl, HCL_EINVAL);
+	hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not integer - %O, %O", x, y);
 	return HCL_NULL;
 }