diff options
| author | Andreas Bregas <ab@openoffice.org> | 2001-06-25 14:36:32 +0000 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2001-06-25 14:36:32 +0000 |
| commit | d268eae252c0f8820f78341af3b8117d94fcd6d9 (patch) | |
| tree | ebe06847cfe4cbf08ff0caffe387547fe03f8c5b /basic/source | |
| parent | 3adcbc15b09f7d09aa6065d25491274264f848ed (diff) | |
#88533# Conversion to TypeClass_BYTE fixed
Diffstat (limited to 'basic/source')
| -rw-r--r-- | basic/source/classes/sbunoobj.cxx | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/basic/source/classes/sbunoobj.cxx b/basic/source/classes/sbunoobj.cxx index a3ac644bada2..9ab6e3d97c24 100644 --- a/basic/source/classes/sbunoobj.cxx +++ b/basic/source/classes/sbunoobj.cxx @@ -2,9 +2,9 @@ * * $RCSfile: sbunoobj.cxx,v $ * - * $Revision: 1.10 $ + * $Revision: 1.11 $ * - * last change: $Author: ab $ $Date: 2001-06-08 15:59:57 $ + * last change: $Author: ab $ $Date: 2001-06-25 15:36:32 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -780,6 +780,7 @@ Any sbxToUnoValue( SbxVariable* pVar, const Reference< XIdlClass >& xIdlTargetCl case TypeClass_FLOAT: aRetVal <<= pVar->GetSingle(); break; case TypeClass_DOUBLE: aRetVal <<= pVar->GetDouble(); break; //case TypeClass_OCTET: break; + case TypeClass_BYTE: { sal_Int16 nVal = pVar->GetInteger(); @@ -797,7 +798,8 @@ Any sbxToUnoValue( SbxVariable* pVar, const Reference< XIdlClass >& xIdlTargetCl if( bOverflow ) StarBASIC::Error( ERRCODE_BASIC_MATH_OVERFLOW ); - aRetVal <<= nVal; + sal_Int8 nByteVal = (sal_Int8)nVal; + aRetVal <<= nByteVal; break; } //case TypeClass_INT: break; |