Author: mcpierce
Date: Fri Dec 14 19:56:49 2012
New Revision: 1422060
URL: http://svn.apache.org/viewvc?rev=1422060&view=rev
Log:
QPID-4507: Perl bindings were not properly handling int8 and uint8 types.
Handlers were in place to map between 16-64 bit types but not the 8-bit
types.
Modified:
qpid/trunk/qpid/cpp/bindings/swig_perl_typemaps.i
Modified: qpid/trunk/qpid/cpp/bindings/swig_perl_typemaps.i
URL:
http://svn.apache.org/viewvc/qpid/trunk/qpid/cpp/bindings/swig_perl_typemaps.i?rev=1422060&r1=1422059&r2=1422060&view=diff
==============================================================================
--- qpid/trunk/qpid/cpp/bindings/swig_perl_typemaps.i (original)
+++ qpid/trunk/qpid/cpp/bindings/swig_perl_typemaps.i Fri Dec 14 19:56:49 2012
@@ -175,7 +175,7 @@
argvi++;
}
-%typemap (in) uint16_t, uint32_t, uint64_t {
+%typemap (in) uint8_t, uint16_t, uint32_t, uint64_t {
if (SvIOK($input)) {
$1 = ($1_ltype)SvUV($input);
}
@@ -184,12 +184,12 @@
}
}
-%typemap (out) uint16_t, uint32_t, uint64_t {
+%typemap (out) uint8_t, uint16_t, uint32_t, uint64_t {
sv_setuv($result, (UV)$1);
argvi++;
}
-%typemap (in) int32_t, int64_t {
+%typemap (in) int8_t, int16_t, int32_t, int64_t {
if (SvIOK($input)) {
$1 = ($1_ltype)SvIV($input);
}
@@ -198,7 +198,7 @@
}
}
-%typemap (out) int32_t, int64_t {
+%typemap (out) int8_t, int16_t, int32_t, int64_t {
sv_setiv($result, (IV)$1);
argvi++;
}
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
