From 892a3e92f3458fec70f47ec74f8660affa6d8fdd Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Tue, 14 Mar 2017 15:51:13 -0500
Subject: [PATCH] Remove some unused variables

---
 src/c/ffi/libraries.d           | 1 -
 src/c/load.d                    | 2 +-
 src/c/printer/float_to_digits.d | 1 -
 src/c/serialize.d               | 2 +-
 src/c/tcp.d                     | 4 +---
 src/c/threads/barrier.d         | 1 -
 src/c/threads/semaphore.d       | 1 -
 src/c/unixfsys.d                | 2 +-
 8 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/src/c/ffi/libraries.d b/src/c/ffi/libraries.d
index 51d22695d..c55a327e6 100644
--- a/src/c/ffi/libraries.d
+++ b/src/c/ffi/libraries.d
@@ -284,7 +284,6 @@ cl_object
 ecl_library_open(cl_object filename, bool force_reload) {
   cl_object block;
   bool self_destruct = 0;
-  char *filename_string;
 
   /* Coerces to a file name but does not merge with cwd */
   filename = coerce_to_physical_pathname(filename);
diff --git a/src/c/load.d b/src/c/load.d
index 211a660d4..3daf9a130 100644
--- a/src/c/load.d
+++ b/src/c/load.d
@@ -21,7 +21,7 @@ si_load_binary(cl_object filename, cl_object verbose,
                cl_object print, cl_object external_format)
 {
   const cl_env_ptr the_env = ecl_process_env();
-  cl_object block, map, array;
+  cl_object block;
   cl_object basename;
   cl_object init_prefix, prefix;
   cl_object output;
diff --git a/src/c/printer/float_to_digits.d b/src/c/printer/float_to_digits.d
index 6b795f522..942c3750b 100644
--- a/src/c/printer/float_to_digits.d
+++ b/src/c/printer/float_to_digits.d
@@ -176,7 +176,6 @@ change_precision(float_approx *approx, cl_object position, cl_object relativep)
     {
       cl_object e1 = cl_expt(PRINT_BASE, position);
       cl_object e2 = ecl_divide(e1, ecl_make_fixnum(2));
-      cl_object e3 = cl_expt(PRINT_BASE, k); 
       if (ecl_greatereq(ecl_plus(approx->r, ecl_times(approx->s, e1)),
                         ecl_times(approx->s, e2)))
         position = ecl_one_minus(position);
diff --git a/src/c/serialize.d b/src/c/serialize.d
index 29915b51d..56a7c3a9f 100644
--- a/src/c/serialize.d
+++ b/src/c/serialize.d
@@ -114,7 +114,7 @@ fix_to_ptr(cl_object ptr)
 static cl_object
 enqueue(pool_t pool, cl_object what)
 {
-  cl_object record, index;
+  cl_object index;
   if (ECL_FIXNUMP(what) || ECL_CHARACTERP(what) || what == OBJNULL) {
     return what;
   }
diff --git a/src/c/tcp.d b/src/c/tcp.d
index 03252311b..07a510ae7 100644
--- a/src/c/tcp.d
+++ b/src/c/tcp.d
@@ -166,7 +166,6 @@ int
 create_server_port(int port)
 {
   struct sockaddr_in inaddr;    /* INET socket address. */
-  struct sockaddr *addr;        /* address to connect to */
   int addrlen;                  /* length of address */
   int request, conn;            /* Network socket */
 
@@ -269,7 +268,7 @@ create_server_port(int port)
 cl_object
 si_open_client_stream(cl_object host, cl_object port)
 {
-  int fd, p;                   /* file descriptor */
+  int fd;                   /* file descriptor */
   cl_object stream;
 
   /* Ensure "host" is a string that we can pass to a C function */
@@ -281,7 +280,6 @@ si_open_client_stream(cl_object host, cl_object port)
     FEwrong_type_nth_arg(@[si::open-client-stream], 2, port,
                          ecl_read_from_cstring("(INTEGER 0 65535)"));
   }
-  p = ecl_fixnum(port);
 
   if (host->base_string.fillp > BUFSIZ - 1)
     FEerror("~S is a too long file name.", 1, host);
diff --git a/src/c/threads/barrier.d b/src/c/threads/barrier.d
index 9162f5505..d0eac960b 100755
--- a/src/c/threads/barrier.d
+++ b/src/c/threads/barrier.d
@@ -137,7 +137,6 @@ mp_barrier_wait(cl_object barrier)
   cl_object output;
   cl_fixnum counter;
   cl_env_ptr the_env = ecl_process_env();
-  cl_object  own_process = the_env->own_process;
 
   unlikely_if (ecl_t_of(barrier) != t_barrier) {
     FEerror_not_a_barrier(barrier);
diff --git a/src/c/threads/semaphore.d b/src/c/threads/semaphore.d
index a428f1167..04078f61c 100644
--- a/src/c/threads/semaphore.d
+++ b/src/c/threads/semaphore.d
@@ -125,7 +125,6 @@ cl_object
 mp_try_get_semaphore(cl_object semaphore)
 {
   cl_env_ptr env = ecl_process_env();
-  cl_object output;
   unlikely_if (ecl_t_of(semaphore) != t_semaphore) {
     FEerror_not_a_semaphore(semaphore);
   }
diff --git a/src/c/unixfsys.d b/src/c/unixfsys.d
index dd20a156f..29cacbf6c 100644
--- a/src/c/unixfsys.d
+++ b/src/c/unixfsys.d
@@ -579,7 +579,7 @@ cl_delete_file(cl_object file)
   cl_object path = cl_pathname(file);
   int isdir = directory_pathname_p(path);
   cl_object filename = si_coerce_to_filename(path);
-  int ok, code;
+  int ok;
 
   ecl_disable_interrupts();
   ok = (isdir? rmdir : unlink)((char*)filename->base_string.self);