From: John Darrington <john@darrington.wattle.id.au>
Date: Mon, 28 Nov 2011 20:23:24 +0000 (+0100)
Subject: Remove unused function
X-Git-Tag: v0.7.9~71
X-Git-Url: https://pintos-os.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cdb164714ff698752666bdfade6cf18a8bbeb8a4;p=pspp-builds.git

Remove unused function
---

diff --git a/src/math/categoricals.c b/src/math/categoricals.c
index a2cf9dd7..af79023a 100644
--- a/src/math/categoricals.c
+++ b/src/math/categoricals.c
@@ -599,21 +599,6 @@ categoricals_get_interaction_by_subscript (const struct categoricals *cat, int s
   return cat->iap[index].iact;
 }
 
-/* Return the case corresponding to SUBSCRIPT */
-static const struct ccase *
-categoricals_get_case_by_subscript (const struct categoricals *cat, int subscript)
-{
-  int vindex = reverse_variable_lookup_short (cat, subscript);
-  const struct interact_params *vp = &cat->iap[vindex];
-  const struct interaction_value *vn = vp->reverse_interaction_value_map [subscript - vp->base_subscript_short];
-
-  if ( vn == NULL)
-    return NULL;
-
-  return vn->ccase;
-}
-
-
 double
 categoricals_get_weight_by_subscript (const struct categoricals *cat, int subscript)
 {