diff options
| author | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 07:37:43 +0000 |
|---|---|---|
| committer | Rüdiger Timm <rt@openoffice.org> | 2006-05-05 07:37:43 +0000 |
| commit | b743cabf618efe5b52b727e2c4c8b5e74eea1bef (patch) | |
| tree | b81bf895c4712a820934b8ede72879af48348a53 /basic/source/comp | |
| parent | a5057cdcea0c04a8a6666ebcc5af3834fd7f2601 (diff) | |
INTEGRATION: CWS ab25 (1.21.58); FILE MERGED
2006/04/12 10:29:35 ab 1.21.58.1: #i17825# byte type
Diffstat (limited to 'basic/source/comp')
| -rw-r--r-- | basic/source/comp/dim.cxx | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx index 0b1e801fb148..f6c076fe0930 100644 --- a/basic/source/comp/dim.cxx +++ b/basic/source/comp/dim.cxx @@ -4,9 +4,9 @@ * * $RCSfile: dim.cxx,v $ * - * $Revision: 1.21 $ + * $Revision: 1.22 $ * - * last change: $Author: hr $ $Date: 2005-09-29 16:17:04 $ + * last change: $Author: rt $ $Date: 2006-05-05 08:37:43 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -101,9 +101,10 @@ void SbiParser::TypeDecl( SbiSymDef& rDef, BOOL bAsNewAlreadyParsed ) case _ERROR_: case TBOOLEAN: case TVARIANT: + case TBYTE: if( rDef.IsNew() ) Error( SbERR_SYNTAX ); - eType = SbxDataType( eTok - TINTEGER + SbxINTEGER ); + eType = (eTok==TBYTE) ? SbxBYTE : SbxDataType( eTok - TINTEGER + SbxINTEGER ); if( eType == SbxSTRING ) { // STRING*n ? |