projects
/
pspp
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixed some compiler warnings, which arose from recent commits.
[pspp]
/
perl-module
/
PSPP.xs
diff --git
a/perl-module/PSPP.xs
b/perl-module/PSPP.xs
index f6afa29b10098ee7614e8fa880cccaf1269b5097..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))
{
@@
-709,7
+708,7
@@
CODE:
fh_create_file (NULL, name, fh_default_properties () );
sri = xmalloc (sizeof (*sri));
fh_create_file (NULL, name, fh_default_properties () );
sri = xmalloc (sizeof (*sri));
- sri->reader = sfm_open_reader (fh, &sri->dict, &sri->opts);
+ sri->reader = sfm_open_reader (fh,
NULL,
&sri->dict, &sri->opts);
if ( NULL == sri->reader)
{
if ( NULL == sri->reader)
{