diff options
| author | Ivo Hinkelmann <ihi@openoffice.org> | 2006-08-04 09:53:38 +0000 |
|---|---|---|
| committer | Ivo Hinkelmann <ihi@openoffice.org> | 2006-08-04 09:53:38 +0000 |
| commit | 2115a3492c5b73f6a3666761a0290d5511d8091e (patch) | |
| tree | aa9638f74dad469905e1866984cff2f7b40fe825 /scripting | |
| parent | e42a628fc2de4a2105ee85acb5b3eb689ff1d76d (diff) | |
INTEGRATION: CWS ab27 (1.12.6); FILE MERGED
2006/07/25 11:03:03 ab 1.12.6.1: #i66055# enable passing parameters by ref
Diffstat (limited to 'scripting')
| -rw-r--r-- | scripting/source/basprov/basscript.cxx | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/scripting/source/basprov/basscript.cxx b/scripting/source/basprov/basscript.cxx index ec0bf0f5f751..351c65f64975 100644 --- a/scripting/source/basprov/basscript.cxx +++ b/scripting/source/basprov/basscript.cxx @@ -4,9 +4,9 @@ * * $RCSfile: basscript.cxx,v $ * - * $Revision: 1.12 $ + * $Revision: 1.13 $ * - * last change: $Author: hr $ $Date: 2006-06-19 10:18:36 $ + * last change: $Author: ihi $ $Date: 2006-08-04 10:53:38 $ * * The Contents of this file are made available subject to * the terms of GNU Lesser General Public License Version 2.1. @@ -154,7 +154,11 @@ namespace basprov SbxVariableRef xSbxVar = new SbxVariable( SbxVARIANT ); unoToSbxValue( static_cast< SbxVariable* >( xSbxVar ), pParams[i] ); xSbxParams->Put( xSbxVar, static_cast< USHORT >( i ) + 1 ); - } + + // Enable passing by ref + if ( xSbxVar->GetType() != SbxVARIANT ) + xSbxVar->SetFlag( SBX_FIXED ); + } } if ( xSbxParams.Is() ) m_xMethod->SetParameters( xSbxParams ); |