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

BASIC : Use a vector to store the argv stack

Browse Source 
Change-Id: I29c93aec598b7f784f549ce05f6b32dfabbfc3ad
Reviewed-on: https://gerrit.libreoffice.org/23815
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Arnaud Versini <arnaud.versini@libreoffice.org>
This commit is contained in:
Arnaud Versini 2016-04-04 20:04:24 +02:00 committed by Arnaud Versini
parent 82a04a8269
commit c1e4d402c6
2 changed files with 13 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basic/source/inc/runtime.hxx
View File

@ -40,7 +40,7 @@
class SbiInstance; // active StarBASIC process
class SbiRuntime; // active StarBASIC procedure instance
struct SbiArgvStack; // Argv stack element
struct SbiArgv; // Argv stack element
struct SbiGosub; // GOSUB stack element
class SbiImage; // Code-Image
class SbiIoSystem;
@ -230,7 +230,6 @@ class SbiRuntime
SbxVariableRef refRedim; // Array saved to use for REDIM
SbxVariableRef xDummyVar; // substitute for variables that weren't found
SbxVariable* mpExtCaller; // Caller ( external - e.g. button name, shape, range object etc. - only in vba mode )
SbiArgvStack* pArgvStk; // ARGV-Stack
SbiForStack* pForStk; // FOR/NEXT-Stack
sal_uInt16 nExprLvl; // depth of the expr-stack
sal_uInt16 nForLvl; // #118235: Maintain for level
@ -258,6 +257,7 @@ class SbiRuntime
std::vector<SbxVariableRef> aRefSaved; // #74254 save temporary references
std::vector<SbiGosub> pGosubStk; // GOSUB stack
std::vector<SbiArgv> pArgvStk; // ARGV-Stack
SbxVariable* FindElement

26
basic/source/runtime/runtime.cxx
View File

@ -111,10 +111,13 @@ bool StarBASIC::isVBAEnabled()
return false;
}
struct SbiArgvStack { // Argv stack:
SbiArgvStack* pNext; // Stack Chain
struct SbiArgv { // Argv stack:
SbxArrayRef refArgv; // Argv
short nArgc; // Argc
SbiArgv(SbxArrayRef refArgv_, short nArgc_) :
refArgv(refArgv_),
nArgc(nArgc_) {}
};
#define MAXRECURSION 500 //to prevent dead-recursions
@ -577,7 +580,6 @@ SbiRuntime::SbiRuntime( SbModule* pm, SbMethod* pe, sal_uInt32 nStart )
{
nFlags = pe ? pe->GetDebugFlags() : 0;
pIosys = pInst->GetIoSystem();
pArgvStk = nullptr;
pForStk = nullptr;
pError = nullptr;
pErrCode =
@ -1080,31 +1082,25 @@ void SbiRuntime::PopGosub()
void SbiRuntime::PushArgv()
{
SbiArgvStack* p = new SbiArgvStack;
p->refArgv = refArgv;
p->nArgc = nArgc;
pArgvStk.emplace_back(refArgv, nArgc);
nArgc = 1;
refArgv.Clear();
p->pNext = pArgvStk;
pArgvStk = p;
}
void SbiRuntime::PopArgv()
{
if( pArgvStk )
if( !pArgvStk.empty() )
{
SbiArgvStack* p = pArgvStk;
pArgvStk = p->pNext;
refArgv = p->refArgv;
nArgc = p->nArgc;
delete p;
refArgv = pArgvStk.back().refArgv;
nArgc = pArgvStk.back().nArgc;
pArgvStk.pop_back();
}
}
void SbiRuntime::ClearArgvStack()
{
while( pArgvStk )
while( !pArgvStk.empty() )
{
PopArgv();
}