folkslinux
/
rpm
mirror of https://github.com/rpm-software-management/rpm.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

changes to make it compile once again on gcc 2.x; some naughtiness crept in 

CVS patchset: 6967
CVS date: 2003/12/09 16:54:59
This commit is contained in:
cturner 2003-12-09 16:54:59 +00:00
parent b2c8f0fa7e
commit eb6546239a
2 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
perl-RPM2/RPM2.xs
View File

@ -280,6 +280,7 @@ _create_transaction(vsflags)
int vsflags
PREINIT:
rpmts ret;
SV *h_sv;
PPCODE:
/* Looking at librpm, it does not look like this ever
returns error (though maybe it should).
@ -290,8 +291,6 @@ _create_transaction(vsflags)
rpmtsSetVSFlags(ret, vsflags);
/* Convert and throw the results on the stack */
SV *h_sv;
EXTEND(SP, 1);
h_sv = sv_newmortal();
@ -366,6 +365,7 @@ _iterator_next(i)
rpmdbMatchIterator i
PREINIT:
Header ret;
SV * h_sv;
unsigned int offset;
PPCODE:
ret = rpmdbNextIterator(i);
@ -377,7 +377,6 @@ _iterator_next(i)
offset = 0;
EXTEND(SP, 2);
SV * h_sv;
h_sv = sv_newmortal();
sv_setref_pv(h_sv, "RPM2::C::Header", (void *)ret);
PUSHs(h_sv);

14
perl-RPM2/typemap
View File

@ -3,8 +3,8 @@ rpmdb O_OBJECT_rpmdb
rpmdbMatchIterator O_OBJECT_rpmmi
Header O_OBJECT_header
rpmts O_OBJECT_rpmts
rpmprobFilterFlags O_OBJECT_rpmprob_filter_flags
rpmElementType O_OBJECT_rpm_element_type
rpmprobFilterFlags T_IV
rpmElementType T_IV
INPUT
O_OBJECT_rpmdb
@ -39,12 +39,6 @@ O_OBJECT_rpmts
XSRETURN_UNDEF;
}
O_OBJECT_rpmprob_filter_flags
$var = ($type) SvIV($arg);
O_OBJECT_rpm_element_type
$var = ($type) SvIV($arg);
OUTPUT
O_OBJECT_rpmdb
sv_setref_pv( $arg, "RPM2::C::DB", (void*)$var );
@ -54,7 +48,3 @@ O_OBJECT_header
sv_setref_pv( $arg, "RPM2::C::Header", (void*)$var );
O_OBJECT_rpmts
sv_setref_pv( $arg, "RPM2::C::Transaction", (void*)$var );
O_OBJECT_rpmprob_filter_flags
sv_setiv($arg, (IV)$var);
O_OBJECT_rpm_element_type
sv_setiv($arg, (IV)$var);