diff options
| author | Andreas Bregas <ab@openoffice.org> | 2010-07-20 11:49:49 +0200 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2010-07-20 11:49:49 +0200 |
| commit | b57b872f1b0252da4d1622edfaca32ef0c51cbd8 (patch) | |
| tree | f5d0b39d26c37851df9446a93448f296a5e6b4e0 /basic | |
| parent | 1b86e85b77cdd0d24bac0182b1b319672441df8c (diff) | |
mib17: #162887# #162899# Changed handling of missing parameters
Diffstat (limited to 'basic')
| -rw-r--r-- | basic/source/runtime/step2.cxx | 13 |
1 files changed, 12 insertions, 1 deletions
diff --git a/basic/source/runtime/step2.cxx b/basic/source/runtime/step2.cxx index c9f344c57d32..47f4967eab99 100644 --- a/basic/source/runtime/step2.cxx +++ b/basic/source/runtime/step2.cxx @@ -678,7 +678,18 @@ void SbiRuntime::StepPARAM( UINT32 nOp1, UINT32 nOp2 ) while( iLoop >= nParamCount ) { p = new SbxVariable(); - p->PutErr( 448 ); // Wie in VB: Error-Code 448 (SbERR_NAMED_NOT_FOUND) + + if( SbiRuntime::isVBAEnabled() && + (t == SbxOBJECT || t == SbxSTRING) ) + { + if( t == SbxOBJECT ) + p->PutObject( NULL ); + else + p->PutString( String() ); + } + else + p->PutErr( 448 ); // Wie in VB: Error-Code 448 (SbERR_NAMED_NOT_FOUND) + refParams->Put( p, iLoop ); iLoop--; } |