diff options
| author | Vladimir Glazounov <vg@openoffice.org> | 2006-04-07 13:04:13 +0000 |
|---|---|---|
| committer | Vladimir Glazounov <vg@openoffice.org> | 2006-04-07 13:04:13 +0000 |
| commit | 15974270cbf0bc800392cbe2e1fb60baa75158c4 (patch) | |
| tree | fd21027ea31de1258b88a6051a8dd5499315020b /basic | |
| parent | 218a67bba9ded7ac8b90e10eedf365c3cb30f404 (diff) | |
INTEGRATION: CWS ab19 (1.22.40); FILE MERGED
2006/03/03 10:45:48 ab 1.22.40.3: RESYNC: (1.22-1.24); FILE MERGED
2005/08/11 08:53:52 ab 1.22.40.2: #i20323# RTL function Array: Create new SbxVariable instances for elements and enable write access
2005/07/28 08:29:44 ab 1.22.40.1: #i18991# Fixed case that delimiter is an empty string
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/runtime/methods1.cxx | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx index 5aabc143982b..518628b08a00 100644 --- a/basic/source/runtime/methods1.cxx +++ b/basic/source/runtime/methods1.cxx @@ -4,9 +4,9 @@ * * $RCSfile: methods1.cxx,v $ * - * $Revision: 1.24 $ + * $Revision: 1.25 $ * - * last change: $Author: rt $ $Date: 2005-12-14 14:36:04 $ + * last change: $Author: vg $ $Date: 2006-04-07 14:04:13 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -604,7 +604,12 @@ RTLFUNC(Array) // Parameter ins Array uebernehmen for( short i = 0 ; i < nArraySize ; i++ ) - pArray->Put( rPar.Get(i+1), &i ); + { + SbxVariable* pVar = rPar.Get(i+1); + SbxVariable* pNew = new SbxVariable( *pVar ); + pNew->SetFlag( SBX_WRITE ); + pArray->Put( pNew, &i ); + } // Array zurueckliefern SbxVariableRef refVar = rPar.Get(0); @@ -1473,6 +1478,7 @@ RTLFUNC(Split) else { vRet.push_back( aExpression ); + nArraySize = 1; } } |