From: John Darrington <john@darrington.wattle.id.au>
Date: Sat, 31 Oct 2009 07:22:00 +0000 (+0100)
Subject: Remove unused function categoricals_index
X-Git-Tag: lenny-x64-build51~2
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?p=pspp-builds.git;a=commitdiff_plain;h=5055ec22100c84153e76662bae23063408a6a935

Remove unused function categoricals_index
---

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index 1f302a0a..b7e51751 100644
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -250,19 +250,6 @@ categoricals_n_count (const struct categoricals *cat, size_t n)
 }
 
 
-/* Return the index for value VAL in the Nth variable */
-int
-categoricals_index (const struct categoricals *cat, size_t n, const union value *val)
-{
-  struct value_node *vn = lookup_value (&cat->vp[n].map, cat->vp[n].var, val);
-
-  if ( vn == NULL)
-    return -1;
-
-  return vn->subscript;
-}
-
-
 /* Return the total number of categories */
 size_t
 categoricals_total (const struct categoricals *cat)
diff --git a/src/math/categoricals.h b/src/math/categoricals.h
index 697d846b..2f86ce1d 100644
--- a/src/math/categoricals.h
+++ b/src/math/categoricals.h
@@ -50,9 +50,6 @@ size_t categoricals_total (const struct categoricals *cat);
 */
 size_t categoricals_get_n_variables (const struct categoricals *cat);
 
-/* Return the index for variable N */
-int categoricals_index (const struct categoricals *cat, size_t n, const union value *val);
-
 void categoricals_done (struct categoricals *cat);
 
 const struct variable * categoricals_get_variable_by_subscript (const struct categoricals *cat, int subscript);