diff options
| author | Kurt Zenker <kz@openoffice.org> | 2008-06-24 15:03:50 +0000 |
|---|---|---|
| committer | Kurt Zenker <kz@openoffice.org> | 2008-06-24 15:03:50 +0000 |
| commit | 6c2ba14adff13dc43b24d6445c343c3f037f90d4 (patch) | |
| tree | 16d0c7208ca7ead6982193e7428d866ffb52d17c /basic/source/runtime | |
| parent | c5d82678b20476ffdf5e1fc4a910e8495ecd62dd (diff) | |
INTEGRATION: CWS ab48 (1.29.60); FILE MERGED
2008/06/10 05:10:11 ab 1.29.60.2: RESYNC: (1.29-1.30); FILE MERGED
2008/04/04 10:28:24 ab 1.29.60.1: #i75443# Support multiple array indices
Diffstat (limited to 'basic/source/runtime')
| -rw-r--r-- | basic/source/runtime/step0.cxx | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/basic/source/runtime/step0.cxx b/basic/source/runtime/step0.cxx index ab32cbf9794b..dbcbb5cb530f 100644 --- a/basic/source/runtime/step0.cxx +++ b/basic/source/runtime/step0.cxx @@ -7,7 +7,7 @@ * OpenOffice.org - a multi-platform office productivity suite * * $RCSfile: step0.cxx,v $ - * $Revision: 1.30 $ + * $Revision: 1.31 $ * * This file is part of OpenOffice.org. * @@ -898,6 +898,16 @@ void SbiRuntime::StepERASE_CLEAR() lcl_clearImpl( refVar, eType ); } +void SbiRuntime::StepARRAYACCESS() +{ + if( !refArgv ) + StarBASIC::FatalError( SbERR_INTERNAL_ERROR ); + SbxVariableRef refVar = PopVar(); + refVar->SetParameters( refArgv ); + PopArgv(); + PushVar( CheckArray( refVar ) ); +} + // Einrichten eines Argvs // nOp1 bleibt so -> 1. Element ist Returnwert |