value: Get rid of value_str(), value_str_rw(), value_num().

[pspp] / perl-module / PSPP.xs

diff --git a/perl-module/PSPP.xs b/perl-module/PSPP.xs
index c563b40f6330785c48f42d1efa30749b8d4345a1..ba43fa58a8b33f22e1e1c356a8cb42ccced5f65a 100644 (file)
--- a/perl-module/PSPP.xs
+++ b/perl-module/PSPP.xs
@@ -141,7 +141,7 @@ scalar_to_value (union value *val, SV *scalar, const struct variable *var)
        const char *p = SvPV (scalar, len);
        int width = var_get_width (var);
        value_set_missing (val, width);
-       memcpy (value_str_rw (val, width), p, len);
+       memcpy (val->s, p, len);
     }
 }
 
@@ -159,7 +159,7 @@ value_to_scalar (const union value *val, const struct variable *var)
   else
     {
       int width = var_get_width (var);
-      return newSVpvn (value_str (val, width), width);
+      return newSVpvn (val->s, width);
     }
 }