ADded numabstract types.

[splint.git] / src / general.c

diff --git a/src/general.c b/src/general.c
index b4bbca91e6f51d6e53518d20d3365cda919b80ef..c90c87dc32ab6c38c7d3a1b1d550fa536b7f1859 100644 (file)
--- a/src/general.c
+++ b/src/general.c
@@ -394,6 +394,22 @@ size_t size_fromInt (int x) /*@ensures result==x@*/
   return res;
 }
 
+size_t size_fromLong (long x) /*@ensures result==x@*/
+{
+  size_t res = (size_t) x;
+
+  llassert ((long) res == x);
+  return res;
+}
+
+size_t size_fromLongUnsigned (unsigned long x) /*@ensures result==x@*/
+{
+  size_t res = (size_t) x;
+
+  llassert ((unsigned long) res == x);
+  return res;
+}
+
 int size_toInt (size_t x)
 {
   int res = (int) x;