From a4f6a777c0f3a8d83e2f93335b8eb31b98519348 Mon Sep 17 00:00:00 2001
From: dwarning <dwarning>
Date: Sat, 15 Apr 2023 16:57:33 +0200
Subject: [PATCH] few cleanings to prevent compiler warnings

---
 src/frontend/inpcom.c | 4 ----
 src/frontend/subckt.c | 3 ++-
 src/maths/ni/nidest.c | 3 +--
 src/maths/ni/niiter.c | 1 -
 4 files changed, 3 insertions(+), 8 deletions(-)

diff --git a/src/frontend/inpcom.c b/src/frontend/inpcom.c
index e2344177a..9fa67d8e8 100644
--- a/src/frontend/inpcom.c
+++ b/src/frontend/inpcom.c
@@ -136,7 +136,6 @@ static void inp_reorder_params(
 static int inp_split_multi_param_lines(struct card *deck, int line_number);
 static void inp_sort_params(struct card *param_cards,
         struct card *card_bf_start, struct card *s_c, struct card *e_c);
-char *inp_remove_ws(char *s);
 static void inp_compat(struct card *deck);
 static void inp_bsource_compat(struct card *deck);
 static bool inp_temper_compat(struct card *card);
@@ -167,7 +166,6 @@ static void inp_check_syntax(struct card *deck);
 static char *inp_spawn_brace(char *s);
 
 static char *inp_pathresolve_at(const char *name, const char *dir);
-char *search_plain_identifier(char *str, const char *identifier);
 
 struct nscope *inp_add_levels(struct card *deck);
 static struct card_assoc *find_subckt(struct nscope *scope, const char *name);
@@ -185,8 +183,6 @@ static char* eval_m(char* line, char* tline);
 static char* eval_tc(char* line, char* tline);
 static char* eval_mvalue(char* line, char* tline);
 
-static void rem_double_braces(struct card* card);
-
 extern void inp_probe(struct card* card);
 #ifndef EXT_ASC
 static void utf8_syntax_check(struct card *deck);
diff --git a/src/frontend/subckt.c b/src/frontend/subckt.c
index 9cd9db8d3..002fd9f1d 100644
--- a/src/frontend/subckt.c
+++ b/src/frontend/subckt.c
@@ -1165,7 +1165,6 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
     }
 
     for (c = deck; c; c = c->nextcard) {
-        bool got_vnam = FALSE;
         char *s = c->line;
         char dev_type = tolower_c(s[0]);
 
@@ -1249,6 +1248,8 @@ translate(struct card *deck, char *formal, int flen, char *actual, char *scname,
             /* gtri - add - wbk - 10/23/90 - process A devices specially */
             /* since they have a more involved and variable length node syntax */
 
+        bool got_vnam = FALSE;
+
         case 'a':
 
             /* translate the instance name according to normal rules */
diff --git a/src/maths/ni/nidest.c b/src/maths/ni/nidest.c
index 06827285c..0982e60f1 100644
--- a/src/maths/ni/nidest.c
+++ b/src/maths/ni/nidest.c
@@ -16,7 +16,6 @@ Author: 1985 Thomas L. Quarles
 void
 NIdestroy(CKTcircuit *ckt)
 {
-    int i;
     if (ckt->CKTmatrix)
 	SMPdestroy(ckt->CKTmatrix);
     ckt->CKTmatrix = NULL;
@@ -36,7 +35,7 @@ NIdestroy(CKTcircuit *ckt)
 #endif
 #ifdef PREDICTOR
     if(ckt->CKTpred) FREE(ckt->CKTpred);
-    for( i=0;i<8;i++) {
+    for(int i=0;i<8;i++) {
         if(ckt->CKTsols[i]) FREE(ckt->CKTsols[i]);
     }
 #endif
diff --git a/src/maths/ni/niiter.c b/src/maths/ni/niiter.c
index fd7966dc9..4979f0901 100644
--- a/src/maths/ni/niiter.c
+++ b/src/maths/ni/niiter.c
@@ -22,7 +22,6 @@ Modified: 2001 AlansFixes
 
 /* Limit the number of 'singular matrix' warnings */
 static int msgcount = 0;
-void NIresetwarnmsg(void);
 
 /* NIiter() - return value is non-zero for convergence failure */