This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
RE: g++ compile and make test 100%
[perl5.git]
/
ext
/
NDBM_File
/
typemap
diff --git
a/ext/NDBM_File/typemap
b/ext/NDBM_File/typemap
index
40b95f2
..
b07695d
100644
(file)
--- a/
ext/NDBM_File/typemap
+++ b/
ext/NDBM_File/typemap
@@
-15,28
+15,28
@@
FATALFUNC T_OPAQUEPTR
INPUT
T_DATUM_K
INPUT
T_DATUM_K
- ckFilter($arg, filter_store_key, \"filter_store_key\");
- $var.dptr = SvPV($arg, PL_na);
+
DBM_
ckFilter($arg, filter_store_key, \"filter_store_key\");
+ $var.dptr = SvPV
byte
($arg, PL_na);
$var.dsize = (int)PL_na;
T_DATUM_V
$var.dsize = (int)PL_na;
T_DATUM_V
- ckFilter($arg, filter_store_value, \"filter_store_value\");
+
DBM_
ckFilter($arg, filter_store_value, \"filter_store_value\");
if (SvOK($arg)) {
if (SvOK($arg)) {
- $var.dptr = SvPV($arg, PL_na);
+ $var.dptr = SvPV
byte
($arg, PL_na);
$var.dsize = (int)PL_na;
}
else {
$var.dsize = (int)PL_na;
}
else {
- $var.dptr = \"\";
+ $var.dptr =
(char *)
\"\";
$var.dsize = 0;
}
T_GDATUM
UNIMPLEMENTED
OUTPUT
T_DATUM_K
$var.dsize = 0;
}
T_GDATUM
UNIMPLEMENTED
OUTPUT
T_DATUM_K
- sv_setpvn($arg, $var.dptr, $var.dsize);
-
ckFilter($arg, filter_fetch_key,
\"filter_fetch_key\");
+ sv_setpvn($arg,
(char *)
$var.dptr, $var.dsize);
+
DBM_ckFilter($arg, filter_fetch_key,
\"filter_fetch_key\");
T_DATUM_V
T_DATUM_V
- sv_setpvn($arg, $var.dptr, $var.dsize);
-
ckFilter($arg, filter_fetch_value,
\"filter_fetch_value\");
+ sv_setpvn($arg,
(char *)
$var.dptr, $var.dsize);
+
DBM_ckFilter($arg, filter_fetch_value,
\"filter_fetch_value\");
T_GDATUM
sv_usepvn($arg, $var.dptr, $var.dsize);
T_PTROBJ
T_GDATUM
sv_usepvn($arg, $var.dptr, $var.dsize);
T_PTROBJ