From d0af2bed0beb539c102c5389ea82feb45dae84c3 Mon Sep 17 00:00:00 2001
From: edoapra <edoardo.apra@gmail.com>
Date: Mon, 14 Nov 2022 16:07:07 -0800
Subject: [PATCH] changes to keep compilers quiet

---
 src/rtdb/context.c  | 8 ++++----
 src/rtdb/rtdb.c     | 1 -
 src/rtdb/rtdb_seq.c | 2 +-
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/src/rtdb/context.c b/src/rtdb/context.c
index cbc59a022c..77e41675d3 100644
--- a/src/rtdb/context.c
+++ b/src/rtdb/context.c
@@ -132,10 +132,6 @@ int context_rtdb_match(int rtdb, const char *name, int reslen,
 }
 
 
-static void context_print()
-{
-  printf("context = -%s-\n", context);
-}
 
 int context_prefix(const char *name, char *result, int result_len)
 {
@@ -150,6 +146,10 @@ int context_prefix(const char *name, char *result, int result_len)
 }
 
 /*
+static void context_print()
+{
+  printf("context = -%s-\n", context);
+}
 int main()
 {
   int rtdb;
diff --git a/src/rtdb/rtdb.c b/src/rtdb/rtdb.c
index 87a00b4c46..f5f4ef537c 100644
--- a/src/rtdb/rtdb.c
+++ b/src/rtdb/rtdb.c
@@ -88,7 +88,6 @@ static void rtdb_broadcast(const int msg_type, const int ma_type,
 {
   Integer len = MA_sizeof(ma_type, nelem, MT_CHAR);
   Integer from = 0;
-  Integer type = msg_type;
   GA_Brdcst(data, len, from);
 }
 
diff --git a/src/rtdb/rtdb_seq.c b/src/rtdb/rtdb_seq.c
index 4473172820..0dd8b61276 100644
--- a/src/rtdb/rtdb_seq.c
+++ b/src/rtdb/rtdb_seq.c
@@ -134,7 +134,7 @@ void ma_print(FILE *file, const int ma_type, const int nelem, void *p)
 
   case MT_F_INT:	/* Fortran integer ... not equivalent on KSR */
     for (nprint=i=0; i<nelem; i++) {
-      nprint += fprintf(file, "%d ", ((Integer *) p)[i]);
+      nprint += fprintf(file, "%ld ", ((Integer *) p)[i]);
       if (nprint >= 72) {
 	(void) fprintf(file, "\n");
 	nprint = 0;