diff options
Diffstat (limited to 'basic/source/sbx/sbxint.cxx')
-rw-r--r-- | basic/source/sbx/sbxint.cxx | 136 |
1 files changed, 68 insertions, 68 deletions
diff --git a/basic/source/sbx/sbxint.cxx b/basic/source/sbx/sbxint.cxx index 7edef31d48d3..e43d6e5d8442 100644 --- a/basic/source/sbx/sbxint.cxx +++ b/basic/source/sbx/sbxint.cxx @@ -32,7 +32,7 @@ start: switch( +p->eType ) { case SbxNULL: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); SAL_FALLTHROUGH; case SbxEMPTY: nRes = 0; break; @@ -47,7 +47,7 @@ start: case SbxUSHORT: if( p->nUShort > (sal_uInt16) SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else nRes = (sal_Int16) p->nUShort; @@ -55,11 +55,11 @@ start: case SbxLONG: if( p->nLong > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( p->nLong < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) p->nLong; @@ -67,7 +67,7 @@ start: case SbxULONG: if( p->nULong > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else nRes = (sal_Int16) p->nULong; @@ -75,11 +75,11 @@ start: case SbxSINGLE: if( p->nSingle > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( p->nSingle < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) rtl::math::round( p->nSingle ); @@ -90,11 +90,11 @@ start: if( tstVal > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( tstVal < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) tstVal; @@ -103,11 +103,11 @@ start: case SbxSALINT64: if( p->nInt64 > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( p->nInt64 < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) p->nInt64; @@ -115,7 +115,7 @@ start: case SbxSALUINT64: if( p->uInt64 > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else nRes = (sal_Int16) p->uInt64; @@ -136,11 +136,11 @@ start: if( dVal > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( dVal < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) rtl::math::round( dVal ); @@ -159,11 +159,11 @@ start: nRes = 0; else if( d > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXINT; } else if( d < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMININT; } else nRes = (sal_Int16) rtl::math::round( d ); @@ -176,7 +176,7 @@ start: nRes = pVal->GetInteger(); else { - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); nRes = 0; } break; } @@ -212,7 +212,7 @@ start: p = &aTmp; goto start; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); nRes = 0; } return nRes; } @@ -272,23 +272,23 @@ start: if( pVal ) pVal->PutInteger( n ); else - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); break; } case SbxBYREF | SbxCHAR: if( n < SbxMINCHAR ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMINCHAR; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMINCHAR; } *p->pChar = (char) n; break; case SbxBYREF | SbxBYTE: if( n > SbxMAXBYTE ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXBYTE; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXBYTE; } else if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pByte = (sal_uInt8) n; break; case SbxBYREF | SbxINTEGER: @@ -298,7 +298,7 @@ start: case SbxBYREF | SbxUSHORT: if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pUShort = (sal_uInt16) n; break; case SbxBYREF | SbxLONG: @@ -306,7 +306,7 @@ start: case SbxBYREF | SbxULONG: if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pULong = (sal_uInt32) n; break; case SbxBYREF | SbxCURRENCY: @@ -316,7 +316,7 @@ start: case SbxBYREF | SbxSALUINT64: if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); *p->puInt64 = 0; } else @@ -329,7 +329,7 @@ start: *p->pDouble = (double) n; break; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); } } @@ -341,11 +341,11 @@ sal_Int64 ImpDoubleToSalInt64( double d ) sal_Int64 nRes; if( d > SbxMAXSALINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXSALINT64; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXSALINT64; } else if( d < SbxMINSALINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMINSALINT64; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMINSALINT64; } else nRes = (sal_Int64) rtl::math::round( d ); @@ -357,11 +357,11 @@ sal_uInt64 ImpDoubleToSalUInt64( double d ) sal_uInt64 nRes; if( d > SbxMAXSALUINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXSALUINT64; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXSALUINT64; } else if( d < 0.0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = 0; } else nRes = (sal_uInt64) rtl::math::round( d ); @@ -373,7 +373,7 @@ double ImpSalUInt64ToDouble( sal_uInt64 n ) { double d = 0.0; if( n > SbxMAXSALINT64 ) - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); else d = (double)(sal_Int64) n; return d; @@ -388,7 +388,7 @@ start: switch( +p->eType ) { case SbxNULL: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); SAL_FALLTHROUGH; case SbxEMPTY: nRes = 0; break; @@ -420,7 +420,7 @@ start: case SbxSALUINT64: if( p->uInt64 > SbxMAXSALINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXSALINT64; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXSALINT64; } else nRes = (sal_Int64) p->uInt64; @@ -455,7 +455,7 @@ start: nRes = pVal->GetInt64(); else { - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); nRes = 0; } break; } @@ -493,7 +493,7 @@ start: p = &aTmp; goto start; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); nRes = 0; } return nRes; } @@ -554,69 +554,69 @@ start: if( pVal ) pVal->PutInt64( n ); else - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); break; } case SbxBYREF | SbxCHAR: if( n > SbxMAXCHAR ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXCHAR; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXCHAR; } else if( n < SbxMINCHAR ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMINCHAR; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMINCHAR; } *p->pChar = (sal_Unicode) n; break; case SbxBYREF | SbxBYTE: if( n > SbxMAXBYTE ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXBYTE; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXBYTE; } else if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pByte = (sal_uInt8) n; break; case SbxBYREF | SbxINTEGER: case SbxBYREF | SbxBOOL: if( n > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXINT; } else if( n < SbxMININT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMININT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMININT; } *p->pInteger = (sal_Int16) n; break; case SbxBYREF | SbxERROR: case SbxBYREF | SbxUSHORT: if( n > SbxMAXUINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXUINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXUINT; } else if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pUShort = (sal_uInt16) n; break; case SbxBYREF | SbxLONG: if( n > SbxMAXLNG ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXLNG; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXLNG; } else if( n < SbxMINLNG ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMINLNG; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMINLNG; } *p->pLong = (sal_Int32) n; break; case SbxBYREF | SbxULONG: if( n > SbxMAXULNG ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXULNG; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXULNG; } else if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pULong = (sal_uInt32) n; break; case SbxBYREF | SbxSINGLE: @@ -631,12 +631,12 @@ start: case SbxBYREF | SbxSALUINT64: if( n < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->puInt64 = n; break; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); } } @@ -648,7 +648,7 @@ start: switch( +p->eType ) { case SbxNULL: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); SAL_FALLTHROUGH; case SbxEMPTY: nRes = 0; break; @@ -680,7 +680,7 @@ start: case SbxSALINT64: if( p->nInt64 < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = 0; } else nRes = (sal_uInt64) p->nInt64; @@ -707,18 +707,18 @@ start: nRes = 0; else if( d > SbxMAXSALUINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = SbxMAXSALUINT64; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = SbxMAXSALUINT64; } else if( d < 0.0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = 0; } else nRes = (sal_uInt64) rtl::math::round( d ); } else if( n64 < 0 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); nRes = 0; } else { @@ -733,7 +733,7 @@ start: nRes = pVal->GetUInt64(); else { - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); nRes = 0; } break; } @@ -769,7 +769,7 @@ start: p = &aTmp; goto start; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); nRes = 0; + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); nRes = 0; } return nRes; } @@ -819,7 +819,7 @@ start: if( !p->pOUString ) p->pOUString = new OUString; if( n > SbxMAXSALINT64 ) - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); else { ::OString aOStr = OString::number( n ); @@ -833,45 +833,45 @@ start: if( pVal ) pVal->PutUInt64( n ); else - SbxBase::SetError( ERRCODE_SBX_NO_OBJECT ); + SbxBase::SetError( ERRCODE_BASIC_NO_OBJECT ); break; } case SbxBYREF | SbxCHAR: if( n > SbxMAXCHAR ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXCHAR; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXCHAR; } *p->pChar = (sal_Unicode) n; break; case SbxBYREF | SbxBYTE: if( n > SbxMAXBYTE ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXBYTE; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXBYTE; } *p->pByte = (sal_uInt8) n; break; case SbxBYREF | SbxINTEGER: case SbxBYREF | SbxBOOL: if( n > SbxMAXINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXINT; } *p->pInteger = (sal_Int16) n; break; case SbxBYREF | SbxERROR: case SbxBYREF | SbxUSHORT: if( n > SbxMAXUINT ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXUINT; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXUINT; } *p->pUShort = (sal_uInt16) n; break; case SbxBYREF | SbxLONG: if( n > SbxMAXLNG ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXLNG; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXLNG; } *p->pLong = (sal_Int32) n; break; case SbxBYREF | SbxULONG: if( n > SbxMAXULNG ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = SbxMAXULNG; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXULNG; } *p->pULong = (sal_uInt32) n; break; case SbxBYREF | SbxSINGLE: @@ -883,7 +883,7 @@ start: case SbxBYREF | SbxCURRENCY: if ( n > ( SbxMAXSALINT64 / CURRENCY_FACTOR ) ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = SbxMAXSALINT64; } *p->pnInt64 = ( sal_Int64) ( n * CURRENCY_FACTOR ); break; @@ -892,12 +892,12 @@ start: case SbxBYREF | SbxSALINT64: if( n > SbxMAXSALINT64 ) { - SbxBase::SetError( ERRCODE_SBX_OVERFLOW ); n = 0; + SbxBase::SetError( ERRCODE_BASIC_MATH_OVERFLOW ); n = 0; } *p->pnInt64 = (sal_Int64) n; break; default: - SbxBase::SetError( ERRCODE_SBX_CONVERSION ); + SbxBase::SetError( ERRCODE_BASIC_CONVERSION ); } } |