mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

mib17: #162898# Special handling for ByVal followed by StrPtr

Browse Source
This commit is contained in:
Andreas Bregas
2010-07-06 15:59:41 +02:00
parent bb09a0aa84
commit dba973219b
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
basic/source/comp/exprtree.cxx
View File

@@ -971,11 +971,16 @@ SbiParameters::SbiParameters( SbiParser* p, BOOL bStandaloneExpression, BOOL bPa
else
{
bool bByVal = false;
bool bByValBlockLValueError = false;
if( eTok == BYVAL )
{
bByVal = true;
pParser->Next();
eTok = pParser->Peek();
// Special handling for VBA function "StrPtr" that's accepted as lvalue
if( eTok == SYMBOL && pParser->GetSym().EqualsIgnoreCaseAscii( "StrPtr" ) )
bByValBlockLValueError = true;
}
if( bAssumeExprLParenMode )
@@ -1011,7 +1016,7 @@ SbiParameters::SbiParameters( SbiParser* p, BOOL bStandaloneExpression, BOOL bPa
if( bByVal )
{
if( !pExpr->IsLvalue() )
if( !pExpr->IsLvalue() && !bByValBlockLValueError )
pParser->Error( SbERR_LVALUE_EXPECTED );
else
pExpr->SetByVal();