projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
table: Fix use of uninitialized data.
[pspp]
/
perl-module
/
PSPP.xs
diff --git
a/perl-module/PSPP.xs
b/perl-module/PSPP.xs
index 0b7dce1ddf04e4e553b26c248ac1b97c7992ce3e..1f05be2a65cf81ae626f9dc208ee182dec623508 100644
(file)
--- a/
perl-module/PSPP.xs
+++ b/
perl-module/PSPP.xs
@@
-149,7
+149,7
@@
value_to_scalar (const union value *val, const struct variable *var)
{
if ( var_is_numeric (var))
{
{
if ( var_is_numeric (var))
{
- if (
var_is_value_missing (var, val, MV_SYSTEM)
)
+ if (
var_is_value_missing (var, val) == MV_SYSTEM
)
return newSVpvn ("", 0);
return newSVnv (val->f);
return newSVpvn ("", 0);
return newSVnv (val->f);
@@
-240,7
+240,7
@@
CODE:
union value uv;
int ret;
make_value_from_scalar (&uv, val, var);
union value uv;
int ret;
make_value_from_scalar (&uv, val, var);
- ret = var_is_value_missing (var, &uv
, MV_ANY)
;
+ ret = var_is_value_missing (var, &uv
) != 0
;
value_destroy (&uv, var_get_width (var));
RETVAL = ret;
OUTPUT:
value_destroy (&uv, var_get_width (var));
RETVAL = ret;
OUTPUT:
@@
-368,7
+368,7
@@
pxs_dict_create_var (dict, name, ip_fmt)
INIT:
SV *errstr = get_sv("PSPP::errstr", TRUE);
sv_setpv (errstr, "");
INIT:
SV *errstr = get_sv("PSPP::errstr", TRUE);
sv_setpv (errstr, "");
- if ( ! id_is_plausible (name
, false
))
+ if ( ! id_is_plausible (name))
{
sv_setpv (errstr, "The variable name is not valid.");
XSRETURN_UNDEF;
{
sv_setpv (errstr, "The variable name is not valid.");
XSRETURN_UNDEF;