[COMMITTED] algol68: use SSIZE rather than INT in run-time libcalls

[Jose E. Marchesi]

---
 gcc/algol68/a68-low-runtime.cc  | 3 +++
 gcc/algol68/a68-low-runtime.def | 8 ++++----
 2 files changed, 7 insertions(+), 4 deletions(-)

diff --git a/gcc/algol68/a68-low-runtime.cc b/gcc/algol68/a68-low-runtime.cc
index 277802f21e8..bcdb2097482 100644
--- a/gcc/algol68/a68-low-runtime.cc
+++ b/gcc/algol68/a68-low-runtime.cc
@@ -57,6 +57,7 @@ enum a68_libcall_type
   LCT_UNISTR,
   LCT_UNISTRPTR,
   LCT_SIZE,
+  LCT_SSIZE,
   LCT_SIZEPTR,
   LCT_UINT,
   LCT_INT,
@@ -97,6 +98,8 @@ get_libcall_type (a68_libcall_type type)
     libcall_types[type] = build_pointer_type (build_pointer_type (a68_char_type));
   else if (type == LCT_SIZE)
     libcall_types[type] = sizetype;
+  else if (type == LCT_SSIZE)
+    libcall_types[type] = ssizetype;
   else if (type == LCT_SIZEPTR)
     libcall_types[type] = build_pointer_type (sizetype);
   else if (type == LCT_UINT)
diff --git a/gcc/algol68/a68-low-runtime.def b/gcc/algol68/a68-low-runtime.def
index 3740eb1ffa7..cf5eb38b71b 100644
--- a/gcc/algol68/a68-low-runtime.def
+++ b/gcc/algol68/a68-low-runtime.def
@@ -43,13 +43,13 @@ DEF_A68_RUNTIME (ASSERT, "_libga68_assert", RT(VOID), P2(CONSTCHARPTR, UINT), EC
 DEF_A68_RUNTIME (MALLOC, "_libga68_malloc", RT(VOIDPTR), P1(SIZE), ECF_NOTHROW | ECF_LEAF)
 DEF_A68_RUNTIME (DEREFNIL, "_libga68_derefnil", RT(VOID), P2(CONSTCHARPTR, UINT), ECF_NORETURN)
 DEF_A68_RUNTIME (UNREACHABLE, "_libga68_unreachable", RT(VOID), P2(CONSTCHARPTR, UINT), ECF_NORETURN)
-DEF_A68_RUNTIME (BITSBOUNDSERROR, "_libga68_bitsboundserror", RT(VOID), P3(CONSTCHARPTR,UINT,INT), ECF_NORETURN)
+DEF_A68_RUNTIME (BITSBOUNDSERROR, "_libga68_bitsboundserror", RT(VOID), P3(CONSTCHARPTR,UINT,SSIZE), ECF_NORETURN)
 DEF_A68_RUNTIME (ARRAYLOWERBOUND, "_libga68_lower_bound", RT(VOID),
-		 P4(CONSTCHARPTR, UINT, INT, INT), ECF_NORETURN)
+		 P4(CONSTCHARPTR, UINT, SSIZE, SSIZE), ECF_NORETURN)
 DEF_A68_RUNTIME (ARRAYUPPERBOUND, "_libga68_upper_bound", RT(VOID),
-		 P4(CONSTCHARPTR, UINT, INT, INT), ECF_NORETURN)
+		 P4(CONSTCHARPTR, UINT, SSIZE, SSIZE), ECF_NORETURN)
 DEF_A68_RUNTIME (ARRAYBOUNDS, "_libga68_bounds", RT(VOID),
-		 P5(CONSTCHARPTR, UINT, INT, INT, INT), ECF_NORETURN)
+		 P5(CONSTCHARPTR, UINT, SSIZE, SSIZE, SSIZE), ECF_NORETURN)
 DEF_A68_RUNTIME (ARRAYDIM, "_libga68_dim", RT(VOID),
                  P4(CONSTCHARPTR, UINT, SIZE, SIZE), ECF_NORETURN)
 DEF_A68_RUNTIME (RANDOM, "_libga68_random", RT(FLOAT), P0(), 0)
-- 
2.30.2