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.

git-svn-id: https://svn.apache.org/repos/asf/qpid/trunk@1422060 13f79535-47bb-0310-9956-ffa450edef68

1 files changed, 4 insertions, 4 deletions

diff --git a/qpid/cpp/bindings/swig_perl_typemaps.i b/qpid/cpp/bindings/swig_perl_typemaps.i
index 201e64bac6..02e2d4a6b6 100644
--- a/qpid/cpp/bindings/swig_perl_typemaps.i
+++ b/qpid/cpp/bindings/swig_perl_typemaps.i
@@ -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++;
 }