projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Perl Module: Avoid forcing scalar value into a pointer.
[pspp]
/
perl-module
/
PSPP.xs
diff --git
a/perl-module/PSPP.xs
b/perl-module/PSPP.xs
index 834ec401f483900d5cd1cb5bfb5d3e08045e7e4a..a66f4427299361e8aad47cc0e19df2342ccb9fdf 100644
(file)
--- a/
perl-module/PSPP.xs
+++ b/
perl-module/PSPP.xs
@@
-568,13
+568,12
@@
MODULE = PSPP PACKAGE = PSPP::Sysfile
struct sysfile_info *
struct sysfile_info *
-pxs_create_sysfile (name, dict
_ref
, opts_hr)
+pxs_create_sysfile (name, dict, opts_hr)
char *name
char *name
- SV *dict_ref
+ struct dictionary *dict;
SV *opts_hr
INIT:
SV *opts_hr
INIT:
- SV *dict_sv = SvRV (dict_ref);
- struct dictionary *dict = (void *) SvIV (dict_sv);
+ SV *dict_sv = ST(1);
struct sfm_write_options opts;
if (!SvROK (opts_hr))
{
struct sfm_write_options opts;
if (!SvROK (opts_hr))
{