applied_patches/0369-vba-fix-named-any-para-pass.diff

   1 diff --git basic/source/runtime/step1.cxx basic/source/runtime/step1.cxx
   2 index 7997feb..1b28f61 100644
   3 --- basic/source/runtime/step1.cxx
   4 +++ basic/source/runtime/step1.cxx
   5 @@ -94,6 +94,15 @@ void SbiRuntime::StepARGN( UINT32 nOp1 )
   6         {
   7                 String aAlias( pImg->GetString( static_cast<short>( nOp1 ) ) );
   8                 SbxVariableRef pVal = PopVar();
   9 +               if( bVBAEnabled && ( pVal->ISA(SbxMethod) || pVal->ISA(SbUnoProperty) || pVal->ISA(SbProcedureProperty) ) )
  10 +               {
  11 +                       // named variables ( that are Any especially properties ) can be empty at this point and need a broadcast
  12 +                       if ( pVal->GetType() == SbxEMPTY )
  13 +                               pVal->Broadcast( SBX_HINT_DATAWANTED );
  14 +                       // Methoden und Properties evaluieren!
  15 +                       SbxVariable* pRes = new SbxVariable( *pVal );
  16 +                       pVal = pRes;
  17 +               }
  18                 refArgv->Put( pVal, nArgc );
  19                 refArgv->PutAlias( aAlias, nArgc++ );
  20         }