summaryrefslogtreecommitdiff
path: root/basic
diff options
context:
space:
mode:
authorRĂ¼diger Timm <rt@openoffice.org>2008-07-02 09:03:31 +0000
committerRĂ¼diger Timm <rt@openoffice.org>2008-07-02 09:03:31 +0000
commitcf217cfd90569c8f0df0b5a48aa525152181d59f (patch)
treea382f6839c4c1ba5f3ceda69685d7d4a33bb7a2f /basic
parentf52228a4d9f86ede38be50bd7e917ef47deb6561 (diff)
INTEGRATION: CWS npower10 (1.29.40); FILE MERGED
2008/05/07 07:10:56 pflin 1.29.40.2: RESYNC: (1.29-1.30); FILE MERGED 2007/12/20 21:21:52 npower 1.29.40.1: #84803
Diffstat (limited to 'basic')
-rw-r--r--basic/source/runtime/step0.cxx8
1 files changed, 5 insertions, 3 deletions
diff --git a/basic/source/runtime/step0.cxx b/basic/source/runtime/step0.cxx
index f067ce43eb..f4fe09a0df 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.31 $
+ * $Revision: 1.32 $
*
* This file is part of OpenOffice.org.
*
@@ -313,8 +313,10 @@ void SbiRuntime::StepIS()
SbxVariableRef refVar2 = PopVar();
BOOL bRes = BOOL(
refVar1->GetType() == SbxOBJECT
- && refVar2->GetType() == SbxOBJECT
- && refVar1->GetObject() == refVar2->GetObject() );
+ && refVar2->GetType() == SbxOBJECT );
+ if ( bVBAEnabled && !bRes )
+ Error( SbERR_INVALID_USAGE_OBJECT );
+ bRes = ( bRes && refVar1->GetObject() == refVar2->GetObject() );
SbxVariable* pRes = new SbxVariable;
pRes->PutBool( bRes );
PushVar( pRes );