From 59ddd1cd9721cbc6e2a367409651fed1046c137c Mon Sep 17 00:00:00 2001 From: "Darryl L. Pierce" Date: Fri, 14 Dec 2012 19:56:49 +0000 Subject: 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 --- qpid/cpp/bindings/swig_perl_typemaps.i | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'qpid/cpp') 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++; } -- cgit v1.2.1