summaryrefslogtreecommitdiff
path: root/basic
diff options
context:
space:
mode:
authorVladimir Glazounov <vg@openoffice.org>2006-11-02 15:32:13 +0000
committerVladimir Glazounov <vg@openoffice.org>2006-11-02 15:32:13 +0000
commit0a6cd6e80f6e1d0540af9d1f311ce09a933e777a (patch)
tree28acbc77344aeed847529dc77f7e234d1788147e /basic
parent7c826e237da809c0f252ad038fb3f17b25bc5396 (diff)
INTEGRATION: CWS npower4 (1.17.10); FILE MERGED
2006/10/18 20:29:17 npower 1.17.10.1: #i64884# changes for default properties
Diffstat (limited to 'basic')
-rw-r--r--basic/source/comp/parser.cxx16
1 files changed, 13 insertions, 3 deletions
diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index 59e0689f8990..79fdfbfd6451 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -4,9 +4,9 @@
*
* $RCSfile: parser.cxx,v $
*
- * $Revision: 1.18 $
+ * $Revision: 1.19 $
*
- * last change: $Author: vg $ $Date: 2006-11-01 16:14:20 $
+ * last change: $Author: vg $ $Date: 2006-11-02 16:32:13 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
@@ -603,10 +603,20 @@ void SbiParser::Set()
SbiExpression aExpr( this );
aLvalue.Gen();
aExpr.Gen();
+ // Its a good idea to distinguish between
+ // set someting = another &
+ // someting = another
+ // ( its necessary for vba objects where set is object
+ // specific and also doesn't involve processing default params )
if( pDef->GetTypeId() )
aGen.Gen( _SETCLASS, pDef->GetTypeId() );
else
- aGen.Gen( _SET );
+ {
+ if ( bVBASupportOn )
+ aGen.Gen( _VBASET );
+ else
+ aGen.Gen( _SET );
+ }
}
// aGen.Gen( _SET );
}