diff options
author | Oliver Bolte <obo@openoffice.org> | 2004-09-09 06:44:06 +0000 |
---|---|---|
committer | Oliver Bolte <obo@openoffice.org> | 2004-09-09 06:44:06 +0000 |
commit | 3a2c598a4a09872326b9b103ce305bbf057f13e1 (patch) | |
tree | 9be2edf83da295c8428d495a70f8ae5e4b47d992 /basic/source/runtime/runtime.cxx | |
parent | 5aad7d661714b8aa77b9582180d9bd8ec45a482d (diff) |
INTEGRATION: CWS ab10fixes (1.15.26); FILE MERGED
2004/08/11 09:23:03 ab 1.15.26.1: #112281# Fixed handling of forced byval call
Diffstat (limited to 'basic/source/runtime/runtime.cxx')
-rw-r--r-- | basic/source/runtime/runtime.cxx | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx index 99441189e19f..1bd3a70d7228 100644 --- a/basic/source/runtime/runtime.cxx +++ b/basic/source/runtime/runtime.cxx @@ -2,9 +2,9 @@ * * $RCSfile: runtime.cxx,v $ * - * $Revision: 1.15 $ + * $Revision: 1.16 $ * - * last change: $Author: obo $ $Date: 2004-03-17 13:36:46 $ + * last change: $Author: obo $ $Date: 2004-09-09 07:44:06 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -579,6 +579,10 @@ void SbiRuntime::SetParameters( SbxArray* pParams ) { bByVal |= BOOL( ( p->eType & SbxBYREF ) == 0 ); t = (SbxDataType) ( p->eType & 0x0FFF ); + + if( !bByVal && t != SbxVARIANT && + (!v->IsFixed() || (SbxDataType)(v->GetType() & 0x0FFF ) != t) ) + bByVal = TRUE; } if( bByVal ) { |