From fbb3b8c871116fe5e0b29140d92b15ecc9a6f8e1 Mon Sep 17 00:00:00 2001
From: Peter TB Brett <peter@peter-b.co.uk>
Date: Sun, 4 Dec 2011 18:49:51 +0000
Subject: [PATCH] gnetlist: Fix some "set but not used" warnings.

---
 gnetlist/src/s_hierarchy.c |  3 ---
 gnetlist/src/s_net.c       | 16 ----------------
 gnetlist/src/s_netlist.c   |  2 --
 3 files changed, 21 deletions(-)

diff --git a/gnetlist/src/s_hierarchy.c b/gnetlist/src/s_hierarchy.c
index 7caedd292..67bd66fca 100644
--- a/gnetlist/src/s_hierarchy.c
+++ b/gnetlist/src/s_hierarchy.c
@@ -587,7 +587,6 @@ char *s_hierarchy_return_baseuref(TOPLEVEL * pr_current, char *uref)
     char *return_value = NULL;
     char *start_of_base = NULL;
     char *end_of_base = NULL;
-    char *cptr = NULL;
 
     /* use hierarchy separator */
 
@@ -617,8 +616,6 @@ char *s_hierarchy_return_baseuref(TOPLEVEL * pr_current, char *uref)
 	    return (g_strdup (uref));
 	}
 
-	cptr = uref;
-
 	return_value = g_strndup(uref, end_of_base - uref);
     }
 
diff --git a/gnetlist/src/s_net.c b/gnetlist/src/s_net.c
index 91378ec7e..0654d695c 100644
--- a/gnetlist/src/s_net.c
+++ b/gnetlist/src/s_net.c
@@ -149,8 +149,6 @@ char *s_net_return_connected_string(TOPLEVEL * pr_current, OBJECT * object,
     char *temp_uref = NULL;
     char *string;
     char *misc;
-    int hierarchy_tag_len = 0;
-
 
     o_current = object;
 
@@ -166,12 +164,6 @@ char *s_net_return_connected_string(TOPLEVEL * pr_current, OBJECT * object,
       temp_uref = scm_to_utf8_string (scm_uref);
     }
 
-    if (hierarchy_tag) {
-	hierarchy_tag_len = strlen(hierarchy_tag)+1;
-    } else {
-	hierarchy_tag_len = 0;
-    }
-
     /* apply the hierarchy name to the uref */
     uref = s_hierarchy_create_uref(pr_current, temp_uref, hierarchy_tag);
 
@@ -352,7 +344,6 @@ char *s_net_name (TOPLEVEL * pr_current, NETLIST * netlist_head,
     CPINLIST *pl_current;
     char *net_name = NULL;
     int found = 0;
-    int hierarchy_tag_len;
     char *temp;
     int *unnamed_counter;
     char *unnamed_string;
@@ -417,13 +408,6 @@ char *s_net_name (TOPLEVEL * pr_current, NETLIST * netlist_head,
 
     }
 
-    if (hierarchy_tag) {
-	/* + 1 is for the '/' character */
-	hierarchy_tag_len = strlen(hierarchy_tag) + 1;
-    } else {
-	hierarchy_tag_len = 0;
-    }
-
     switch (type) {
       case PIN_TYPE_NET:
         unnamed_counter = &unnamed_net_counter;
diff --git a/gnetlist/src/s_netlist.c b/gnetlist/src/s_netlist.c
index ba2c98f76..c4bf1d9b3 100644
--- a/gnetlist/src/s_netlist.c
+++ b/gnetlist/src/s_netlist.c
@@ -142,14 +142,12 @@ void s_netlist_post_process(TOPLEVEL * pr_current, NETLIST * head)
 {
     NETLIST *nl_current;
     CPINLIST *pl_current;
-    int vi = 0;
 
     nl_current = head;
 
     if (verbose_mode) {
 	printf("\n- Staring post processing\n");
 	printf("- Naming nets:\n");
-	vi = 0;
     }
 
     /* this pass gives all nets a name, whether specified or creates a */
-- 
2.11.4.GIT