projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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);
const char *p = SvPV (scalar, len);
int width = var_get_width (var);
value_set_missing (val, width);
- memcpy (val
ue_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);
else
{
int width = var_get_width (var);
- return newSVpvn (val
ue_str (val, width)
, width);
+ return newSVpvn (val
->s
, width);
}
}
}
}