[Libreoffice-commits] core.git: 6 commits - basic/source include/sfx2 linguistic/source sfx2/source
Stephan Bergmann
sbergman at redhat.com
Wed Apr 6 06:32:07 UTC 2016
basic/source/classes/sbxmod.cxx | 16 +--
basic/source/comp/codegen.cxx | 34 +++---
basic/source/comp/dim.cxx | 108 ++++++++++-----------
basic/source/comp/exprgen.cxx | 98 +++++++++----------
basic/source/comp/io.cxx | 36 +++----
basic/source/comp/loops.cxx | 80 ++++++++--------
basic/source/comp/parser.cxx | 50 +++++-----
basic/source/comp/token.cxx | 14 +-
basic/source/inc/opcodes.hxx | 194 +++++++++++++++++++--------------------
basic/source/inc/token.hxx | 10 +-
basic/source/runtime/runtime.cxx | 12 +-
include/sfx2/dispatch.hxx | 8 -
linguistic/source/dlistimp.cxx | 2
linguistic/source/dlistimp.hxx | 4
sfx2/source/control/bindings.cxx | 8 -
sfx2/source/control/dispatch.cxx | 26 ++---
sfx2/source/control/statcach.cxx | 2
17 files changed, 351 insertions(+), 351 deletions(-)
New commits:
commit 9351353b63886f494782f28f5400f5d71d22bcbd
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 23:12:46 2016 +0200
Avoid reserved identifiers
Change-Id: I18ebddef41955948fd4528ae74f4fe9c7439d53b
diff --git a/include/sfx2/dispatch.hxx b/include/sfx2/dispatch.hxx
index 5ce479e..0234868 100644
--- a/include/sfx2/dispatch.hxx
+++ b/include/sfx2/dispatch.hxx
@@ -91,7 +91,7 @@ friend class SfxViewFrame;
DECL_DLLPRIVATE_LINK_TYPED( PostMsgHandler, SfxRequest *, void );
SAL_DLLPRIVATE void Call_Impl( SfxShell& rShell, const SfxSlot &rSlot, SfxRequest &rReq, bool bRecord );
- SAL_DLLPRIVATE void _Update_Impl( bool,bool,bool,SfxWorkWindow*);
+ SAL_DLLPRIVATE void Update_Impl_( bool,bool,bool,SfxWorkWindow*);
protected:
friend class SfxBindings;
@@ -99,10 +99,10 @@ friend class SfxStateCache;
friend class SfxPopupMenuManager;
friend class SfxHelp;
- bool _FindServer( sal_uInt16 nId, SfxSlotServer &rServer, bool bModal );
- bool _FillState( const SfxSlotServer &rServer,
+ bool FindServer_( sal_uInt16 nId, SfxSlotServer &rServer, bool bModal );
+ bool FillState_( const SfxSlotServer &rServer,
SfxItemSet &rState, const SfxSlot *pRealSlot );
- void _Execute( SfxShell &rShell, const SfxSlot &rSlot,
+ void Execute_( SfxShell &rShell, const SfxSlot &rSlot,
SfxRequest &rReq,
SfxCallMode eCall = SfxCallMode::RECORD);
diff --git a/sfx2/source/control/bindings.cxx b/sfx2/source/control/bindings.cxx
index e681c19..aa2b004 100644
--- a/sfx2/source/control/bindings.cxx
+++ b/sfx2/source/control/bindings.cxx
@@ -410,7 +410,7 @@ void SfxBindings::Update_Impl
if ( pSet )
{
// Query Status
- if ( rDispat._FillState( *pMsgServer, *pSet, pRealSlot ) )
+ if ( rDispat.FillState_( *pMsgServer, *pSet, pRealSlot ) )
{
// Post Status
const SfxInterface *pInterface =
@@ -1169,7 +1169,7 @@ void SfxBindings::Execute_Impl( SfxRequest& aReq, const SfxSlot* pSlot, SfxShell
const sal_uInt16 nSlotId = pRealSlot->GetSlotId();
aReq.SetSlot( nSlotId );
aReq.AppendItem( SfxAllEnumItem( rPool.GetWhich(nSlotId), pSlot->GetValue() ) );
- pDispatcher->_Execute( *pShell, *pRealSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
+ pDispatcher->Execute_( *pShell, *pRealSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
}
else if ( SfxSlotKind::Attribute == pSlot->GetKind() )
{
@@ -1249,10 +1249,10 @@ void SfxBindings::Execute_Impl( SfxRequest& aReq, const SfxSlot* pSlot, SfxShell
}
}
- pDispatcher->_Execute( *pShell, *pSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
+ pDispatcher->Execute_( *pShell, *pSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
}
else
- pDispatcher->_Execute( *pShell, *pSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
+ pDispatcher->Execute_( *pShell, *pSlot, aReq, aReq.GetCallMode() | SfxCallMode::RECORD );
}
diff --git a/sfx2/source/control/dispatch.cxx b/sfx2/source/control/dispatch.cxx
index dc710dd..b6e3600 100644
--- a/sfx2/source/control/dispatch.cxx
+++ b/sfx2/source/control/dispatch.cxx
@@ -787,7 +787,7 @@ bool SfxDispatcher::GetShellAndSlot_Impl(sal_uInt16 nSlot, SfxShell** ppShell,
Flush();
SfxSlotServer aSvr;
- if ( _FindServer(nSlot, aSvr, bModal) )
+ if ( FindServer_(nSlot, aSvr, bModal) )
{
if ( bOwnShellsOnly && aSvr.GetShellLevel() >= xImp->aStack.size() )
return false;
@@ -813,7 +813,7 @@ bool SfxDispatcher::GetShellAndSlot_Impl(sal_uInt16 nSlot, SfxShell** ppShell,
@param rReq function to be performed (Id and optional parameters)
@param eCallMode Synchronously, asynchronously or as shown in the slot
*/
-void SfxDispatcher::_Execute(SfxShell& rShell, const SfxSlot& rSlot,
+void SfxDispatcher::Execute_(SfxShell& rShell, const SfxSlot& rSlot,
SfxRequest& rReq, SfxCallMode eCallMode)
{
DBG_ASSERT( !xImp->bFlushing, "recursive call to dispatcher" );
@@ -914,7 +914,7 @@ const SfxPoolItem* SfxDispatcher::Execute(sal_uInt16 nSlot, SfxCallMode nCall,
aReq.SetInternalArgs_Impl( *pInternalArgs );
aReq.SetModifier( nModi );
- _Execute( *pShell, *pSlot, aReq, nCall );
+ Execute_( *pShell, *pSlot, aReq, nCall );
return aReq.GetReturnValue();
}
return nullptr;
@@ -963,7 +963,7 @@ const SfxPoolItem* SfxDispatcher::Execute(sal_uInt16 nSlot, SfxCallMode eCall,
aSet.Put( **pArg );
pReq->SetInternalArgs_Impl( aSet );
}
- _Execute( *pShell, *pSlot, *pReq, eCall );
+ Execute_( *pShell, *pSlot, *pReq, eCall );
const SfxPoolItem* pRet = pReq->GetReturnValue();
delete pReq; return pRet;
}
@@ -1002,7 +1002,7 @@ const SfxPoolItem* SfxDispatcher::Execute(sal_uInt16 nSlot, SfxCallMode eCall,
MappedPut_Impl( aSet, *pArg );
SfxRequest aReq( nSlot, eCall, aSet );
aReq.SetModifier( 0 );
- _Execute( *pShell, *pSlot, aReq, eCall );
+ Execute_( *pShell, *pSlot, aReq, eCall );
return aReq.GetReturnValue();
}
return nullptr;
@@ -1054,7 +1054,7 @@ const SfxPoolItem* SfxDispatcher::ExecuteList(sal_uInt16 nSlot, SfxCallMode eCal
}
SfxRequest aReq( nSlot, eCall, aSet );
- _Execute( *pShell, *pSlot, aReq, eCall );
+ Execute_( *pShell, *pSlot, aReq, eCall );
return aReq.GetReturnValue();
}
return nullptr;
@@ -1074,7 +1074,7 @@ IMPL_LINK_TYPED(SfxDispatcher, PostMsgHandler, SfxRequest*, pReq, void)
{
Flush();
SfxSlotServer aSvr;
- if ( _FindServer(pReq->GetSlot(), aSvr, true ) ) // HACK(x), whatever that was supposed to mean
+ if ( FindServer_(pReq->GetSlot(), aSvr, true ) ) // HACK(x), whatever that was supposed to mean
{
const SfxSlot *pSlot = aSvr.GetSlot();
SfxShell *pSh = GetShell(aSvr.GetShellLevel());
@@ -1222,7 +1222,7 @@ void SfxDispatcher::Update_Impl( bool bForce )
pActDispat = pActDispat->xImp->pParent;
}
- _Update_Impl( bUIActive, !bIsIPActive, bIsIPActive, pTaskWin );
+ Update_Impl_( bUIActive, !bIsIPActive, bIsIPActive, pTaskWin );
if ( (bUIActive || bIsActive) && !comphelper::LibreOfficeKit::isActive() )
pWorkWin->UpdateObjectBars_Impl();
@@ -1235,7 +1235,7 @@ void SfxDispatcher::Update_Impl( bool bForce )
return;
}
-void SfxDispatcher::_Update_Impl( bool bUIActive, bool bIsMDIApp, bool bIsIPOwner, SfxWorkWindow *pTaskWin )
+void SfxDispatcher::Update_Impl_( bool bUIActive, bool bIsMDIApp, bool bIsIPOwner, SfxWorkWindow *pTaskWin )
{
SfxGetpApp();
SfxWorkWindow *pWorkWin = xImp->pFrame->GetFrame().GetWorkWindow_Impl();
@@ -1250,7 +1250,7 @@ void SfxDispatcher::_Update_Impl( bool bUIActive, bool bIsMDIApp, bool bIsIPOwne
}
if ( xImp->pParent && !xImp->bQuiet /* && bUIActive */ )
- xImp->pParent->_Update_Impl( bUIActive, bIsMDIApp, bIsIPOwner, pTaskWin );
+ xImp->pParent->Update_Impl_( bUIActive, bIsMDIApp, bIsIPOwner, pTaskWin );
for (sal_uInt16 n=0; n<SFX_OBJECTBAR_MAX; n++)
xImp->aObjBars[n].nResId = 0;
@@ -1642,7 +1642,7 @@ SfxSlotFilterState SfxDispatcher::IsSlotEnabledByFilter_Impl( sal_uInt16 nSID )
false
The Slot is currently not served, rServer is invalid.
*/
-bool SfxDispatcher::_FindServer(sal_uInt16 nSlot, SfxSlotServer& rServer, bool bModal)
+bool SfxDispatcher::FindServer_(sal_uInt16 nSlot, SfxSlotServer& rServer, bool bModal)
{
SFX_STACK(SfxDispatcher::_FindServer);
@@ -1701,7 +1701,7 @@ bool SfxDispatcher::_FindServer(sal_uInt16 nSlot, SfxSlotServer& rServer, bool b
{
if ( xImp->pParent )
{
- bool bRet = xImp->pParent->_FindServer( nSlot, rServer, bModal );
+ bool bRet = xImp->pParent->FindServer_( nSlot, rServer, bModal );
rServer.SetShellLevel
( rServer.GetShellLevel() + xImp->aStack.size() );
return bRet;
@@ -1775,7 +1775,7 @@ bool SfxDispatcher::_FindServer(sal_uInt16 nSlot, SfxSlotServer& rServer, bool b
@param rState SfxItemSet to be filled
@param pRealSlot The actual Slot if possible
*/
-bool SfxDispatcher::_FillState(const SfxSlotServer& rSvr, SfxItemSet& rState,
+bool SfxDispatcher::FillState_(const SfxSlotServer& rSvr, SfxItemSet& rState,
const SfxSlot* pRealSlot)
{
SFX_STACK(SfxDispatcher::_FillState);
diff --git a/sfx2/source/control/statcach.cxx b/sfx2/source/control/statcach.cxx
index 9891d85..c610e05 100644
--- a/sfx2/source/control/statcach.cxx
+++ b/sfx2/source/control/statcach.cxx
@@ -233,7 +233,7 @@ const SfxSlotServer* SfxStateCache::GetSlotServer( SfxDispatcher &rDispat , cons
if ( bSlotDirty )
{
// get the SlotServer; we need it for internal controllers anyway, but also in most cases
- rDispat._FindServer( nId, aSlotServ, false );
+ rDispat.FindServer_( nId, aSlotServ, false );
DBG_ASSERT( !pDispatch, "Old Dispatch not removed!" );
commit 8d1bc5056e0a3f647bd9044749d6a7c603029075
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 23:12:29 2016 +0200
Avoid reserved identifier
Change-Id: I56dfbda84e000d974a9dd0644b3dbc2963d3e353
diff --git a/linguistic/source/dlistimp.cxx b/linguistic/source/dlistimp.cxx
index d648583..bc1af01 100644
--- a/linguistic/source/dlistimp.cxx
+++ b/linguistic/source/dlistimp.cxx
@@ -619,7 +619,7 @@ void SAL_CALL
aEvtListeners.removeInterface( rxListener );
}
-void DicList::_CreateDicList()
+void DicList::CreateDicList()
{
bInCreation = true;
diff --git a/linguistic/source/dlistimp.hxx b/linguistic/source/dlistimp.hxx
index 42c395e..2b1fa49 100644
--- a/linguistic/source/dlistimp.hxx
+++ b/linguistic/source/dlistimp.hxx
@@ -73,11 +73,11 @@ class DicList :
DicList( const DicList & ) = delete;
DicList & operator = (const DicList &) = delete;
- void _CreateDicList();
+ void CreateDicList();
DictionaryVec_t & GetOrCreateDicList()
{
if ( !bInCreation && aDicList.empty() )
- _CreateDicList();
+ CreateDicList();
return aDicList;
}
commit c83173940a34f2d388fe4257e70048747dca6f29
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 23:11:48 2016 +0200
Avoid reserved identifier
Change-Id: I2f8dc470100e91841eebbe1e3b02a3d31ab3a535
diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx
index 628b533..e8b54d7 100644
--- a/basic/source/classes/sbxmod.cxx
+++ b/basic/source/classes/sbxmod.cxx
@@ -952,7 +952,7 @@ void SbModule::SetSource32( const OUString& r )
// Broadcast of a hint to all Basics
-static void _SendHint( SbxObject* pObj, sal_uInt32 nId, SbMethod* p )
+static void SendHint_( SbxObject* pObj, sal_uInt32 nId, SbMethod* p )
{
// Self a BASIC?
if( dynamic_cast<const StarBASIC *>(pObj) != nullptr && pObj->IsBroadcaster() )
@@ -963,7 +963,7 @@ static void _SendHint( SbxObject* pObj, sal_uInt32 nId, SbMethod* p )
{
SbxVariable* pVar = pObjs->Get( i );
if( dynamic_cast<const SbxObject *>(pVar) != nullptr )
- _SendHint( dynamic_cast<SbxObject*>( pVar), nId, p );
+ SendHint_( dynamic_cast<SbxObject*>( pVar), nId, p );
}
}
@@ -971,7 +971,7 @@ static void SendHint( SbxObject* pObj, sal_uInt32 nId, SbMethod* p )
{
while( pObj->GetParent() )
pObj = pObj->GetParent();
- _SendHint( pObj, nId, p );
+ SendHint_( pObj, nId, p );
}
// #57841 Clear Uno-Objects, which were helt in RTL functions,
commit 45adae8fd6e4a6f63220b619d16fb5bd06b82d95
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 21:31:32 2016 +0200
Avoid reserved identifiers
Change-Id: Ibba1a36d4f3744fa68f7e9d0076c997e076262cb
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx
index 031bf81..28b7e6e 100644
--- a/basic/source/comp/dim.cxx
+++ b/basic/source/comp/dim.cxx
@@ -106,7 +106,7 @@ void SbiParser::TypeDecl( SbiSymDef& rDef, bool bAsNewAlreadyParsed )
case TDATE:
case TSTRING:
case TOBJECT:
- case _ERROR_:
+ case ERROR_:
case TBOOLEAN:
case TVARIANT:
case TBYTE:
@@ -222,9 +222,9 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// PRIVATE is a synonymous for DIM
// _CONST_?
bool bConst = false;
- if( eCurTok == _CONST_ )
+ if( eCurTok == CONST_ )
bConst = true;
- else if( Peek() == _CONST_ )
+ else if( Peek() == CONST_ )
{
Next();
bConst = true;
@@ -831,7 +831,7 @@ SbiProcDef* SbiParser::ProcDecl( bool bDecl )
SbxDataType eType = eScanType;
SbiProcDef* pDef = new SbiProcDef( this, aName, true );
pDef->SetType( eType );
- if( Peek() == _CDECL_ )
+ if( Peek() == CDECL_ )
{
Next(); pDef->SetCdecl();
}
@@ -872,7 +872,7 @@ SbiProcDef* SbiParser::ProcDecl( bool bDecl )
}
if( pDef->IsCdecl() )
{
- Error( ERRCODE_BASIC_UNEXPECTED, _CDECL_ );
+ Error( ERRCODE_BASIC_UNEXPECTED, CDECL_ );
}
pDef->SetCdecl( false );
pDef->GetLib().clear();
@@ -887,7 +887,7 @@ SbiProcDef* SbiParser::ProcDecl( bool bDecl )
}
if( pDef->IsCdecl() )
{
- Error( ERRCODE_BASIC_UNEXPECTED, _CDECL_ );
+ Error( ERRCODE_BASIC_UNEXPECTED, CDECL_ );
}
pDef->SetCdecl( false );
pDef->GetAlias().clear();
@@ -907,7 +907,7 @@ SbiProcDef* SbiParser::ProcDecl( bool bDecl )
bool bByVal = false;
bool bOptional = false;
bool bParamArray = false;
- while( Peek() == BYVAL || Peek() == BYREF || Peek() == _OPTIONAL_ )
+ while( Peek() == BYVAL || Peek() == BYREF || Peek() == OPTIONAL_ )
{
if( Peek() == BYVAL )
{
@@ -917,7 +917,7 @@ SbiProcDef* SbiParser::ProcDecl( bool bDecl )
{
bByVal = false;
}
- else if ( Peek() == _OPTIONAL_ )
+ else if ( Peek() == OPTIONAL_ )
{
bOptional = true;
}
diff --git a/basic/source/comp/loops.cxx b/basic/source/comp/loops.cxx
index c52113a..198f2b2 100644
--- a/basic/source/comp/loops.cxx
+++ b/basic/source/comp/loops.cxx
@@ -207,7 +207,7 @@ void SbiParser::For()
if( bForEach )
{
- TestToken( _IN_ );
+ TestToken( IN_ );
SbiExpression aCollExpr( this, SbOPERAND );
aCollExpr.Gen(); // Collection var to for stack
TestEoln();
@@ -465,9 +465,9 @@ void SbiParser::On()
OUString aString = SbiTokenizer::Symbol(eTok);
if (aString.equalsIgnoreAsciiCase("ERROR"))
{
- eTok = _ERROR_; // Error comes as SYMBOL
+ eTok = ERROR_; // Error comes as SYMBOL
}
- if( eTok != _ERROR_ && eTok != LOCAL )
+ if( eTok != ERROR_ && eTok != LOCAL )
{
OnGoto();
}
diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index ca19e95..a26f5e6 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -46,7 +46,7 @@ static const SbiStatement StmntTable [] = {
{ ATTRIBUTE, &SbiParser::Attribute, Y, Y, }, // ATTRIBUTE
{ CALL, &SbiParser::Call, N, Y, }, // CALL
{ CLOSE, &SbiParser::Close, N, Y, }, // CLOSE
-{ _CONST_, &SbiParser::Dim, Y, Y, }, // CONST
+{ CONST_, &SbiParser::Dim, Y, Y, }, // CONST
{ DECLARE, &SbiParser::Declare, Y, N, }, // DECLARE
{ DEFBOOL, &SbiParser::DefXXX, Y, N, }, // DEFBOOL
{ DEFCUR, &SbiParser::DefXXX, Y, N, }, // DEFCUR
@@ -67,7 +67,7 @@ static const SbiStatement StmntTable [] = {
{ END, &SbiParser::Stop, N, Y, }, // END
{ ENUM, &SbiParser::Enum, Y, N, }, // TYPE
{ ERASE, &SbiParser::Erase, N, Y, }, // ERASE
-{ _ERROR_, &SbiParser::ErrorStmnt, N, Y, }, // ERROR
+{ ERROR_, &SbiParser::ErrorStmnt, N, Y, }, // ERROR
{ EXIT, &SbiParser::Exit, N, Y, }, // EXIT
{ FOR, &SbiParser::For, N, Y, }, // FOR
{ FUNCTION, &SbiParser::SubFunc, Y, N, }, // FUNCTION
@@ -378,7 +378,7 @@ bool SbiParser::Parse()
// In vba it's possible to do Error.foobar ( even if it results in
// a runtime error
- if ( eCurTok == _ERROR_ && IsVBASupportOn() ) // we probably need to define a subset of keywords where this madness applies e.g. if ( IsVBASupportOn() && SymbolCanBeRedined( eCurTok ) )
+ if ( eCurTok == ERROR_ && IsVBASupportOn() ) // we probably need to define a subset of keywords where this madness applies e.g. if ( IsVBASupportOn() && SymbolCanBeRedined( eCurTok ) )
{
SbiTokenizer tokens( *static_cast<SbiTokenizer*>(this) );
tokens.Next();
diff --git a/basic/source/comp/token.cxx b/basic/source/comp/token.cxx
index 8fb0aac..f779fc1 100644
--- a/basic/source/comp/token.cxx
+++ b/basic/source/comp/token.cxx
@@ -56,12 +56,12 @@ static const TokenTable aTokTable_Basic [] = {
{ BYVAL, "ByVal", },
{ CALL, "Call" },
{ CASE, "Case" },
- { _CDECL_, "Cdecl" },
+ { CDECL_, "Cdecl" },
{ CLASSMODULE, "ClassModule" },
{ CLOSE, "Close" },
{ COMPARE, "Compare" },
{ COMPATIBLE,"Compatible" },
- { _CONST_, "Const" },
+ { CONST_, "Const" },
{ TCURRENCY,"Currency" },
{ TDATE, "Date" },
{ DECLARE, "Declare" },
@@ -94,7 +94,7 @@ static const TokenTable aTokTable_Basic [] = {
{ ENUM, "Enum" },
{ EQV, "Eqv" },
{ ERASE, "Erase" },
- { _ERROR_, "Error" },
+ { ERROR_, "Error" },
{ EXIT, "Exit" },
{ BASIC_EXPLICIT, "Explicit" },
{ FOR, "For" },
@@ -106,7 +106,7 @@ static const TokenTable aTokTable_Basic [] = {
{ IF, "If" },
{ IMP, "Imp" },
{ IMPLEMENTS, "Implements" },
- { _IN_, "In" },
+ { IN_, "In" },
{ INPUT, "Input" }, // also INPUT #
{ TINTEGER, "Integer" },
{ IS, "Is" },
@@ -130,7 +130,7 @@ static const TokenTable aTokTable_Basic [] = {
{ ON, "On" },
{ OPEN, "Open" },
{ OPTION, "Option" },
- { _OPTIONAL_, "Optional" },
+ { OPTIONAL_, "Optional" },
{ OR, "Or" },
{ OUTPUT, "Output" },
{ PARAMARRAY, "ParamArray" },
@@ -192,7 +192,7 @@ TokenLabelInfo::TokenLabelInfo()
}
// Token accepted as label by VBA
SbiToken eLabelToken[] = { ACCESS, ALIAS, APPEND, BASE, BINARY, CLASSMODULE,
- COMPARE, COMPATIBLE, DEFERR, _ERROR_, BASIC_EXPLICIT, LIB, LINE, LPRINT, NAME,
+ COMPARE, COMPATIBLE, DEFERR, ERROR_, BASIC_EXPLICIT, LIB, LINE, LPRINT, NAME,
TOBJECT, OUTPUT, PROPERTY, RANDOM, READ, STEP, STOP, TEXT, VBASUPPORT, NIL };
SbiToken eTok;
for( SbiToken* pTok = eLabelToken ; (eTok = *pTok) != NIL ; ++pTok )
@@ -508,7 +508,7 @@ special:
{
bAs = false;
}
- else if( eCurTok >= DATATYPE1 && eCurTok <= DATATYPE2 && (bErrorIsSymbol || eCurTok != _ERROR_) )
+ else if( eCurTok >= DATATYPE1 && eCurTok <= DATATYPE2 && (bErrorIsSymbol || eCurTok != ERROR_) )
{
eCurTok = SYMBOL;
}
diff --git a/basic/source/inc/token.hxx b/basic/source/inc/token.hxx
index 4b2f42a..e3b3a8a 100644
--- a/basic/source/inc/token.hxx
+++ b/basic/source/inc/token.hxx
@@ -47,7 +47,7 @@ enum SbiToken {
// commands:
FIRSTKWD = 0x40,
AS = FIRSTKWD, ALIAS, ASSIGN,
- CALL, CASE, CLOSE, COMPARE, _CONST_,
+ CALL, CASE, CLOSE, COMPARE, CONST_,
DECLARE, DIM, DO,
// in the order of the data type enums!
@@ -57,13 +57,13 @@ enum SbiToken {
DATATYPE1,
TINTEGER = DATATYPE1,
TLONG, TSINGLE, TDOUBLE, TCURRENCY, TDATE, TSTRING, TOBJECT,
- _ERROR_, TBOOLEAN, TVARIANT, TBYTE,
+ ERROR_, TBOOLEAN, TVARIANT, TBYTE,
DATATYPE2 = TBYTE,
EACH, ELSE, ELSEIF, END, ERASE, EXIT,
FOR, FUNCTION,
GET, GLOBAL, GOSUB, GOTO,
- IF, _IN_, INPUT,
+ IF, IN_, INPUT,
LET, LINE, LINEINPUT, LOCAL, LOOP, LPRINT, LSET,
NAME, NEW, NEXT,
ON, OPEN, OPTION, ATTRIBUTE, IMPLEMENTS,
@@ -86,9 +86,9 @@ enum SbiToken {
IMP, CAT, LIKE, IS, TYPEOF,
// miscellaneous:
FIRSTEXTRA,
- NUMBER=FIRSTEXTRA, FIXSTRING, SYMBOL, _CDECL_, BYVAL, BYREF,
+ NUMBER=FIRSTEXTRA, FIXSTRING, SYMBOL, CDECL_, BYVAL, BYREF,
OUTPUT, RANDOM, APPEND, BINARY, ACCESS,
- LOCK, READ, PRESERVE, BASE, ANY, LIB, _OPTIONAL_,
+ LOCK, READ, PRESERVE, BASE, ANY, LIB, OPTIONAL_,
BASIC_EXPLICIT, COMPATIBLE, CLASSMODULE, PARAMARRAY, WITHEVENTS,
// from here there are JavaScript-tokens (same enum so that same type)
commit f7a3bdf623ca0c8db81997d2b60ed4acb3b51149
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 21:22:43 2016 +0200
Turn SbiOpcode into scoped enum
Change-Id: I75d808dd3a42e57e7f55bad97e24fef65bb62dc6
diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx
index d0ff0fb..628b533 100644
--- a/basic/source/classes/sbxmod.cxx
+++ b/basic/source/classes/sbxmod.cxx
@@ -1481,19 +1481,19 @@ const sal_uInt8* SbModule::FindNextStmnt( const sal_uInt8* p, sal_uInt16& nLine,
{
SbiOpcode eOp = (SbiOpcode ) ( *p++ );
nPC++;
- if( bFollowJumps && eOp == JUMP_ && pImg )
+ if( bFollowJumps && eOp == SbiOpcode::JUMP_ && pImg )
{
SAL_WARN_IF( !pImg, "basic", "FindNextStmnt: pImg==NULL with FollowJumps option" );
sal_uInt32 nOp1 = *p++; nOp1 |= *p++ << 8;
nOp1 |= *p++ << 16; nOp1 |= *p++ << 24;
p = reinterpret_cast<const sal_uInt8*>(pImg->GetCode()) + nOp1;
}
- else if( eOp >= SbOP1_START && eOp <= SbOP1_END )
+ else if( eOp >= SbiOpcode::SbOP1_START && eOp <= SbiOpcode::SbOP1_END )
{
p += 4;
nPC += 4;
}
- else if( eOp == STMNT_ )
+ else if( eOp == SbiOpcode::STMNT_ )
{
sal_uInt32 nl, nc;
nl = *p++; nl |= *p++ << 8;
@@ -1503,12 +1503,12 @@ const sal_uInt8* SbModule::FindNextStmnt( const sal_uInt8* p, sal_uInt16& nLine,
nLine = (sal_uInt16)nl; nCol = (sal_uInt16)nc;
return p;
}
- else if( eOp >= SbOP2_START && eOp <= SbOP2_END )
+ else if( eOp >= SbiOpcode::SbOP2_START && eOp <= SbiOpcode::SbOP2_END )
{
p += 8;
nPC += 8;
}
- else if( !( eOp >= SbOP0_START && eOp <= SbOP0_END ) )
+ else if( !( eOp >= SbiOpcode::SbOP0_START && eOp <= SbiOpcode::SbOP0_END ) )
{
StarBASIC::FatalError( ERRCODE_BASIC_INTERNAL_ERROR );
break;
diff --git a/basic/source/comp/codegen.cxx b/basic/source/comp/codegen.cxx
index 9ef2cf9..3ad73e0 100644
--- a/basic/source/comp/codegen.cxx
+++ b/basic/source/comp/codegen.cxx
@@ -71,7 +71,7 @@ void SbiCodeGen::GenStmnt()
if( bStmnt )
{
bStmnt = false;
- Gen( STMNT_, nLine, nCol );
+ Gen( SbiOpcode::STMNT_, nLine, nCol );
}
}
@@ -84,7 +84,7 @@ sal_uInt32 SbiCodeGen::Gen( SbiOpcode eOpcode )
return 0;
#ifdef DBG_UTIL
- if( eOpcode < SbOP0_START || eOpcode > SbOP0_END )
+ if( eOpcode < SbiOpcode::SbOP0_START || eOpcode > SbiOpcode::SbOP0_END )
pParser->Error( ERRCODE_BASIC_INTERNAL_ERROR, "OPCODE1" );
#endif
GenStmnt();
@@ -98,7 +98,7 @@ sal_uInt32 SbiCodeGen::Gen( SbiOpcode eOpcode, sal_uInt32 nOpnd )
return 0;
#ifdef DBG_UTIL
- if( eOpcode < SbOP1_START || eOpcode > SbOP1_END )
+ if( eOpcode < SbiOpcode::SbOP1_START || eOpcode > SbiOpcode::SbOP1_END )
pParser->Error( ERRCODE_BASIC_INTERNAL_ERROR, "OPCODE2" );
#endif
GenStmnt();
@@ -114,7 +114,7 @@ sal_uInt32 SbiCodeGen::Gen( SbiOpcode eOpcode, sal_uInt32 nOpnd1, sal_uInt32 nOp
return 0;
#ifdef DBG_UTIL
- if( eOpcode < SbOP2_START || eOpcode > SbOP2_END )
+ if( eOpcode < SbiOpcode::SbOP2_START || eOpcode > SbiOpcode::SbOP2_END )
pParser->Error( ERRCODE_BASIC_INTERNAL_ERROR, "OPCODE3" );
#endif
GenStmnt();
@@ -433,9 +433,9 @@ public:
{
SbiOpcode eOp = (SbiOpcode)(*pCode++);
- if ( eOp <= SbOP0_END )
+ if ( eOp <= SbiOpcode::SbOP0_END )
visitor.processOpCode0( eOp );
- else if( eOp >= SbOP1_START && eOp <= SbOP1_END )
+ else if( eOp >= SbiOpcode::SbOP1_START && eOp <= SbiOpcode::SbOP1_END )
{
if ( visitor.processParams() )
nOp1 = readParam( pCode );
@@ -443,7 +443,7 @@ public:
pCode += sizeof( T );
visitor.processOpCode1( eOp, nOp1 );
}
- else if( eOp >= SbOP2_START && eOp <= SbOP2_END )
+ else if( eOp >= SbiOpcode::SbOP2_START && eOp <= SbiOpcode::SbOP2_END )
{
if ( visitor.processParams() )
{
@@ -508,17 +508,17 @@ public:
m_ConvertedBuf += (sal_uInt8)eOp;
switch( eOp )
{
- case JUMP_:
- case JUMPT_:
- case JUMPF_:
- case GOSUB_:
- case CASEIS_:
- case RETURN_:
- case ERRHDL_:
- case TESTFOR_:
+ case SbiOpcode::JUMP_:
+ case SbiOpcode::JUMPT_:
+ case SbiOpcode::JUMPF_:
+ case SbiOpcode::GOSUB_:
+ case SbiOpcode::CASEIS_:
+ case SbiOpcode::RETURN_:
+ case SbiOpcode::ERRHDL_:
+ case SbiOpcode::TESTFOR_:
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
break;
- case RESUME_:
+ case SbiOpcode::RESUME_:
if ( nOp1 > 1 )
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
break;
@@ -531,7 +531,7 @@ public:
virtual void processOpCode2( SbiOpcode eOp, T nOp1, T nOp2 ) override
{
m_ConvertedBuf += (sal_uInt8)eOp;
- if ( eOp == CASEIS_ )
+ if ( eOp == SbiOpcode::CASEIS_ )
if ( nOp1 )
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
m_ConvertedBuf += static_cast<S>(nOp1);
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx
index 9c822a8..031bf81 100644
--- a/basic/source/comp/dim.cxx
+++ b/basic/source/comp/dim.cxx
@@ -197,7 +197,7 @@ void SbiParser::TypeDecl( SbiSymDef& rDef, bool bAsNewAlreadyParsed )
void SbiParser::Dim()
{
- DefVar( DIM_, pProc && bVBASupportOn && pProc->IsStatic() );
+ DefVar( SbiOpcode::DIM_, pProc && bVBASupportOn && pProc->IsStatic() );
}
void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
@@ -248,7 +248,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// SbiParser::Parse() under these conditions
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
bNewGblDefs = false;
}
Next();
@@ -290,8 +290,8 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( Peek() == PRESERVE )
{
Next();
- if( eOp == REDIM_ )
- eOp = REDIMP_;
+ if( eOp == SbiOpcode::REDIM_ )
+ eOp = SbiOpcode::REDIMP_;
else
Error( ERRCODE_BASIC_UNEXPECTED, eCurTok );
}
@@ -302,7 +302,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
sal_uInt32 nEndOfStaticLbl = 0;
if( !bVBASupportOn && bStatic )
{
- nEndOfStaticLbl = aGen.Gen( JUMP_, 0 );
+ nEndOfStaticLbl = aGen.Gen( SbiOpcode::JUMP_, 0 );
aGen.Statement(); // catch up on static here
}
@@ -324,7 +324,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( pOld )
bRtlSym = true;
}
- if( pOld && !(eOp == REDIM_ || eOp == REDIMP_) )
+ if( pOld && !(eOp == SbiOpcode::REDIM_ || eOp == SbiOpcode::REDIMP_) )
{
if( pDef->GetScope() == SbLOCAL && pOld->GetScope() != SbLOCAL )
pOld = nullptr;
@@ -333,7 +333,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
{
bDefined = true;
// always an error at a RTL-S
- if( !bRtlSym && (eOp == REDIM_ || eOp == REDIMP_) )
+ if( !bRtlSym && (eOp == SbiOpcode::REDIM_ || eOp == SbiOpcode::REDIMP_) )
{
// compare the attributes at a REDIM
SbxDataType eDefType;
@@ -359,27 +359,27 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// #36374: Create the variable in front of the distinction IsNew()
// Otherwise error at Dim Identifier As New Type and option explicit
- if( !bDefined && !(eOp == REDIM_ || eOp == REDIMP_)
+ if( !bDefined && !(eOp == SbiOpcode::REDIM_ || eOp == SbiOpcode::REDIMP_)
&& ( !bConst || pDef->GetScope() == SbGLOBAL ) )
{
// Declare variable or global constant
SbiOpcode eOp2;
switch ( pDef->GetScope() )
{
- case SbGLOBAL: eOp2 = bPersistantGlobal ? GLOBAL_P_ : GLOBAL_;
+ case SbGLOBAL: eOp2 = bPersistantGlobal ? SbiOpcode::GLOBAL_P_ : SbiOpcode::GLOBAL_;
goto global;
- case SbPUBLIC: eOp2 = bPersistantGlobal ? PUBLIC_P_ : PUBLIC_;
+ case SbPUBLIC: eOp2 = bPersistantGlobal ? SbiOpcode::PUBLIC_P_ : SbiOpcode::PUBLIC_;
// #40689, no own Opcode anymore
if( bVBASupportOn && bStatic )
{
- eOp2 = STATIC_;
+ eOp2 = SbiOpcode::STATIC_;
break;
}
global: aGen.BackChain( nGblChain );
nGblChain = 0;
bGblDefs = bNewGblDefs = true;
break;
- default: eOp2 = LOCAL_;
+ default: eOp2 = SbiOpcode::LOCAL_;
}
sal_uInt32 nOpnd2 = sal::static_int_cast< sal_uInt16 >( pDef->GetType() );
if( pDef->IsWithEvents() )
@@ -425,35 +425,35 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( pDim )
{
- if( eOp == REDIMP_ )
+ if( eOp == SbiOpcode::REDIMP_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
- aGen.Gen( REDIMP_ERASE_ );
+ aGen.Gen( SbiOpcode::REDIMP_ERASE_ );
pDef->SetDims( pDim->GetDims() );
SbiExpression aExpr2( this, *pDef, std::move(pDim) );
aExpr2.Gen();
- aGen.Gen( DCREATE_REDIMP_, pDef->GetId(), pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::DCREATE_REDIMP_, pDef->GetId(), pDef->GetTypeId() );
}
else
{
pDef->SetDims( pDim->GetDims() );
SbiExpression aExpr( this, *pDef, std::move(pDim) );
aExpr.Gen();
- aGen.Gen( DCREATE_, pDef->GetId(), pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::DCREATE_, pDef->GetId(), pDef->GetTypeId() );
}
}
else
{
SbiExpression aExpr( this, *pDef );
aExpr.Gen();
- SbiOpcode eOp_ = pDef->IsNew() ? CREATE_ : TCREATE_;
+ SbiOpcode eOp_ = pDef->IsNew() ? SbiOpcode::CREATE_ : SbiOpcode::TCREATE_;
aGen.Gen( eOp_, pDef->GetId(), pDef->GetTypeId() );
if ( bVBASupportOn )
- aGen.Gen( VBASET_ );
+ aGen.Gen( SbiOpcode::VBASET_ );
else
- aGen.Gen( SET_ );
+ aGen.Gen( SbiOpcode::SET_ );
}
}
else
@@ -476,7 +476,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// Create code only for the global constant!
aVar.Gen();
aExpr.Gen();
- aGen.Gen( PUTC_ );
+ aGen.Gen( SbiOpcode::PUTC_ );
}
SbiConstDef* pConst = pDef->GetConstDef();
if( aExpr.GetType() == SbxSTRING )
@@ -489,7 +489,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
{
// Dimension the variable
// Delete the var at REDIM beforehand
- if( eOp == REDIM_ )
+ if( eOp == SbiOpcode::REDIM_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
@@ -498,15 +498,15 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// clear the variable ( this
// allows the processing of
// the param to happen as normal without errors ( ordinary ERASE just clears the array )
- aGen.Gen( ERASE_CLEAR_ );
+ aGen.Gen( SbiOpcode::ERASE_CLEAR_ );
else
- aGen.Gen( ERASE_ );
+ aGen.Gen( SbiOpcode::ERASE_ );
}
- else if( eOp == REDIMP_ )
+ else if( eOp == SbiOpcode::REDIMP_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
- aGen.Gen( REDIMP_ERASE_ );
+ aGen.Gen( SbiOpcode::REDIMP_ERASE_ );
}
pDef->SetDims( pDim->GetDims() );
if( bPersistantGlobal )
@@ -514,7 +514,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
SbiExpression aExpr( this, *pDef, std::move(pDim) );
aExpr.Gen();
pDef->SetGlobal( false );
- aGen.Gen( (eOp == STATIC_) ? DIM_ : eOp );
+ aGen.Gen( (eOp == SbiOpcode::STATIC_) ? SbiOpcode::DIM_ : eOp );
}
}
if( !TestComma() )
@@ -536,7 +536,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( !bVBASupportOn && bStatic )
{
// maintain the global chain
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
bGblDefs = bNewGblDefs = true;
// Register for Sub a jump to the end of statics
@@ -549,7 +549,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
void SbiParser::ReDim()
{
- DefVar( REDIM_, pProc && bVBASupportOn && pProc->IsStatic() );
+ DefVar( SbiOpcode::REDIM_, pProc && bVBASupportOn && pProc->IsStatic() );
}
// ERASE array, ...
@@ -560,7 +560,7 @@ void SbiParser::Erase()
{
SbiExpression aExpr( this, SbLVALUE );
aExpr.Gen();
- aGen.Gen( ERASE_ );
+ aGen.Gen( SbiOpcode::ERASE_ );
if( !TestComma() ) break;
}
}
@@ -782,7 +782,7 @@ void SbiParser::DefEnum( bool bPrivate )
if( !bPrivate )
{
- SbiOpcode eOp = GLOBAL_;
+ SbiOpcode eOp = SbiOpcode::GLOBAL_;
aGen.BackChain( nGblChain );
nGblChain = 0;
bGblDefs = bNewGblDefs = true;
@@ -792,8 +792,8 @@ void SbiParser::DefEnum( bool bPrivate )
aVar.Gen();
sal_uInt16 nStringId = aGen.GetParser()->aGblStrings.Add( nCurrentEnumValue, SbxLONG );
- aGen.Gen( NUMBER_, nStringId );
- aGen.Gen( PUTC_ );
+ aGen.Gen( SbiOpcode::NUMBER_, nStringId );
+ aGen.Gen( SbiOpcode::PUTC_ );
}
SbiConstDef* pConst = pElem->GetConstDef();
@@ -1057,7 +1057,7 @@ void SbiParser::DefDeclare( bool bPrivate )
{
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
bNewGblDefs = false;
}
@@ -1073,19 +1073,19 @@ void SbiParser::DefDeclare( bool bPrivate )
SbxDataType eType = pDef->GetType();
if( bFunction )
{
- aGen.Gen( PARAM_, 0, sal::static_int_cast< sal_uInt16 >( eType ) );
+ aGen.Gen( SbiOpcode::PARAM_, 0, sal::static_int_cast< sal_uInt16 >( eType ) );
}
if( nParCount > 1 )
{
- aGen.Gen( ARGC_ );
+ aGen.Gen( SbiOpcode::ARGC_ );
for( sal_uInt16 i = 1 ; i < nParCount ; ++i )
{
SbiSymDef* pParDef = rPool.Get( i );
SbxDataType eParType = pParDef->GetType();
- aGen.Gen( PARAM_, i, sal::static_int_cast< sal_uInt16 >( eParType ) );
- aGen.Gen( ARGV_ );
+ aGen.Gen( SbiOpcode::PARAM_, i, sal::static_int_cast< sal_uInt16 >( eParType ) );
+ aGen.Gen( SbiOpcode::ARGV_ );
sal_uInt16 nTyp = sal::static_int_cast< sal_uInt16 >( pParDef->GetType() );
if( pParDef->IsByVal() )
@@ -1094,13 +1094,13 @@ void SbiParser::DefDeclare( bool bPrivate )
pParDef->SetByVal( false );
nTyp |= 0x8000;
}
- aGen.Gen( ARGTYP_, nTyp );
+ aGen.Gen( SbiOpcode::ARGTYP_, nTyp );
}
}
- aGen.Gen( LIB_, aGblStrings.Add( pDef->GetLib() ) );
+ aGen.Gen( SbiOpcode::LIB_, aGblStrings.Add( pDef->GetLib() ) );
- SbiOpcode eOp = pDef->IsCdecl() ? CALLC_ : CALL_;
+ SbiOpcode eOp = pDef->IsCdecl() ? SbiOpcode::CALLC_ : SbiOpcode::CALL_;
sal_uInt16 nId = pDef->GetId();
if( !pDef->GetAlias().isEmpty() )
{
@@ -1114,9 +1114,9 @@ void SbiParser::DefDeclare( bool bPrivate )
if( bFunction )
{
- aGen.Gen( PUT_ );
+ aGen.Gen( SbiOpcode::PUT_ );
}
- aGen.Gen( LEAVE_ );
+ aGen.Gen( SbiOpcode::LEAVE_ );
}
}
}
@@ -1151,7 +1151,7 @@ void SbiParser::Call()
{
SbiExpression aVar( this, SbSYMBOL );
aVar.Gen( FORCE_CALL );
- aGen.Gen( GET_ );
+ aGen.Gen( SbiOpcode::GET_ );
}
// SUB/FUNCTION
@@ -1271,7 +1271,7 @@ void SbiParser::DefProc( bool bStatic, bool bPrivate )
// Open labels?
pProc->GetLabels().CheckRefs();
CloseBlock();
- aGen.Gen( LEAVE_ );
+ aGen.Gen( SbiOpcode::LEAVE_ );
pProc = nullptr;
}
@@ -1295,7 +1295,7 @@ void SbiParser::DefStatic( bool bPrivate )
// SbiParser::Parse() under these conditions
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
bNewGblDefs = false;
}
Next();
@@ -1310,7 +1310,7 @@ void SbiParser::DefStatic( bool bPrivate )
// global Pool
p = pPool;
pPool = &aPublics;
- DefVar( STATIC_, true );
+ DefVar( SbiOpcode::STATIC_, true );
pPool = p;
break;
}
diff --git a/basic/source/comp/exprgen.cxx b/basic/source/comp/exprgen.cxx
index e287e11..7581d6e 100644
--- a/basic/source/comp/exprgen.cxx
+++ b/basic/source/comp/exprgen.cxx
@@ -30,30 +30,30 @@ typedef struct {
} OpTable;
static const OpTable aOpTable [] = {
- { EXPON,EXP_ },
- { MUL, MUL_ },
- { DIV, DIV_ },
- { IDIV, IDIV_ },
- { MOD, MOD_ },
- { PLUS, PLUS_ },
- { MINUS,MINUS_ },
- { EQ, EQ_ },
- { NE, NE_ },
- { LE, LE_ },
- { GE, GE_ },
- { LT, LT_ },
- { GT, GT_ },
- { AND, AND_ },
- { OR, OR_ },
- { XOR, XOR_ },
- { EQV, EQV_ },
- { IMP, IMP_ },
- { NOT, NOT_ },
- { NEG, NEG_ },
- { CAT, CAT_ },
- { LIKE, LIKE_ },
- { IS, IS_ },
- { NIL, NOP_ }};
+ { EXPON,SbiOpcode::EXP_ },
+ { MUL, SbiOpcode::MUL_ },
+ { DIV, SbiOpcode::DIV_ },
+ { IDIV, SbiOpcode::IDIV_ },
+ { MOD, SbiOpcode::MOD_ },
+ { PLUS, SbiOpcode::PLUS_ },
+ { MINUS,SbiOpcode::MINUS_ },
+ { EQ, SbiOpcode::EQ_ },
+ { NE, SbiOpcode::NE_ },
+ { LE, SbiOpcode::LE_ },
+ { GE, SbiOpcode::GE_ },
+ { LT, SbiOpcode::LT_ },
+ { GT, SbiOpcode::GT_ },
+ { AND, SbiOpcode::AND_ },
+ { OR, SbiOpcode::OR_ },
+ { XOR, SbiOpcode::XOR_ },
+ { EQV, SbiOpcode::EQV_ },
+ { IMP, SbiOpcode::IMP_ },
+ { NOT, SbiOpcode::NOT_ },
+ { NEG, SbiOpcode::NEG_ },
+ { CAT, SbiOpcode::CAT_ },
+ { LIKE, SbiOpcode::LIKE_ },
+ { IS, SbiOpcode::IS_ },
+ { NIL, SbiOpcode::NOP_ }};
// Output of an element
void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
@@ -65,18 +65,18 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
switch( GetType() )
{
case SbxEMPTY:
- rGen.Gen( EMPTY_ );
+ rGen.Gen( SbiOpcode::EMPTY_ );
break;
case SbxINTEGER:
- rGen.Gen( CONST_, (short) nVal );
+ rGen.Gen( SbiOpcode::CONST_, (short) nVal );
break;
case SbxSTRING:
nStringId = rGen.GetParser()->aGblStrings.Add( aStrVal );
- rGen.Gen( SCONST_, nStringId );
+ rGen.Gen( SbiOpcode::SCONST_, nStringId );
break;
default:
nStringId = rGen.GetParser()->aGblStrings.Add( nVal, eType );
- rGen.Gen( NUMBER_, nStringId );
+ rGen.Gen( SbiOpcode::NUMBER_, nStringId );
break;
}
}
@@ -86,7 +86,7 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
SbiOpcode eOp;
if( aVar.pDef->GetScope() == SbPARAM )
{
- eOp = PARAM_;
+ eOp = SbiOpcode::PARAM_;
if( 0 == aVar.pDef->GetPos() )
{
bool bTreatFunctionAsParam = true;
@@ -103,32 +103,32 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
}
if( !bTreatFunctionAsParam )
{
- eOp = aVar.pDef->IsGlobal() ? FIND_G_ : FIND_;
+ eOp = aVar.pDef->IsGlobal() ? SbiOpcode::FIND_G_ : SbiOpcode::FIND_;
}
}
}
// special treatment for WITH
else if( (pWithParent_ = GetWithParent()) != nullptr )
{
- eOp = ELEM_; // .-Term in WITH
+ eOp = SbiOpcode::ELEM_; // .-Term in WITH
}
else
{
- eOp = ( aVar.pDef->GetScope() == SbRTL ) ? RTL_ :
- (aVar.pDef->IsGlobal() ? FIND_G_ : FIND_);
+ eOp = ( aVar.pDef->GetScope() == SbRTL ) ? SbiOpcode::RTL_ :
+ (aVar.pDef->IsGlobal() ? SbiOpcode::FIND_G_ : SbiOpcode::FIND_);
}
- if( eOp == FIND_ )
+ if( eOp == SbiOpcode::FIND_ )
{
SbiProcDef* pProc = aVar.pDef->GetProcDef();
if ( rGen.GetParser()->bClassModule )
{
- eOp = FIND_CM_;
+ eOp = SbiOpcode::FIND_CM_;
}
else if ( aVar.pDef->IsStatic() || (pProc && pProc->IsStatic()) )
{
- eOp = FIND_STATIC_;
+ eOp = SbiOpcode::FIND_STATIC_;
}
}
for( SbiExprNode* p = this; p; p = p->aVar.pNext )
@@ -138,17 +138,17 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
pWithParent_->Gen(rGen);
}
p->GenElement( rGen, eOp );
- eOp = ELEM_;
+ eOp = SbiOpcode::ELEM_;
}
}
else if( IsTypeOf() )
{
pLeft->Gen(rGen);
- rGen.Gen( TESTCLASS_, nTypeStrId );
+ rGen.Gen( SbiOpcode::TESTCLASS_, nTypeStrId );
}
else if( IsNew() )
{
- rGen.Gen( CREATE_, 0, nTypeStrId );
+ rGen.Gen( SbiOpcode::CREATE_, 0, nTypeStrId );
}
else
{
@@ -172,14 +172,14 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
void SbiExprNode::GenElement( SbiCodeGen& rGen, SbiOpcode eOp )
{
#ifdef DBG_UTIL
- if ((eOp < RTL_ || eOp > CALLC_) && eOp != FIND_G_ && eOp != FIND_CM_ && eOp != FIND_STATIC_)
+ if ((eOp < SbiOpcode::RTL_ || eOp > SbiOpcode::CALLC_) && eOp != SbiOpcode::FIND_G_ && eOp != SbiOpcode::FIND_CM_ && eOp != SbiOpcode::FIND_STATIC_)
rGen.GetParser()->Error( ERRCODE_BASIC_INTERNAL_ERROR, "Opcode" );
#endif
SbiSymDef* pDef = aVar.pDef;
// The ID is either the position or the String-ID
// If the bit Bit 0x8000 is set, the variable have
// a parameter list.
- sal_uInt16 nId = ( eOp == PARAM_ ) ? pDef->GetPos() : pDef->GetId();
+ sal_uInt16 nId = ( eOp == SbiOpcode::PARAM_ ) ? pDef->GetPos() : pDef->GetId();
// Build a parameter list
if( aVar.pPar && aVar.pPar->GetSize() )
{
@@ -194,7 +194,7 @@ void SbiExprNode::GenElement( SbiCodeGen& rGen, SbiOpcode eOp )
for( auto& pExprList: *aVar.pvMorePar )
{
pExprList->Gen(rGen);
- rGen.Gen( ARRAYACCESS_ );
+ rGen.Gen( SbiOpcode::ARRAYACCESS_ );
}
}
}
@@ -207,7 +207,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
{
if( !aData.empty() )
{
- rGen.Gen( ARGC_ );
+ rGen.Gen( SbiOpcode::ARGC_ );
// Type adjustment at DECLARE
sal_uInt16 nCount = 1;
@@ -218,7 +218,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
{
// named arg
sal_uInt16 nSid = rGen.GetParser()->aGblStrings.Add( pExpr->GetName() );
- rGen.Gen( ARGN_, nSid );
+ rGen.Gen( SbiOpcode::ARGN_, nSid );
/* TODO: Check after Declare concept change
// From 1996-01-10: Type adjustment at named -> search suitable parameter
@@ -247,7 +247,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
}
else
{
- rGen.Gen( ARGV_ );
+ rGen.Gen( SbiOpcode::ARGV_ );
}
nCount++;
}
@@ -261,7 +261,7 @@ void SbiExpression::Gen( RecursiveMode eRecMode )
pExpr->Gen( pParser->aGen, eRecMode );
if( bByVal )
{
- pParser->aGen.Gen( BYVAL_ );
+ pParser->aGen.Gen( SbiOpcode::BYVAL_ );
}
if( bBased )
{
@@ -270,8 +270,8 @@ void SbiExpression::Gen( RecursiveMode eRecMode )
{
uBase |= 0x8000; // #109275 Flag compatibility
}
- pParser->aGen.Gen( BASED_, uBase );
- pParser->aGen.Gen( ARGV_ );
+ pParser->aGen.Gen( SbiOpcode::BASED_, uBase );
+ pParser->aGen.Gen( SbiOpcode::ARGV_ );
}
}
diff --git a/basic/source/comp/io.cxx b/basic/source/comp/io.cxx
index 728039f..6e1c161 100644
--- a/basic/source/comp/io.cxx
+++ b/basic/source/comp/io.cxx
@@ -33,7 +33,7 @@ bool SbiParser::Channel( bool bAlways )
while( Peek() == COMMA || Peek() == SEMICOLON )
Next();
aExpr.Gen();
- aGen.Gen( CHANNEL_ );
+ aGen.Gen( SbiOpcode::CHANNEL_ );
bRes = true;
}
else if( bAlways )
@@ -56,7 +56,7 @@ void SbiParser::Print()
pExpr->Gen();
pExpr.reset();
Peek();
- aGen.Gen( eCurTok == COMMA ? PRINTF_ : BPRINT_ );
+ aGen.Gen( eCurTok == COMMA ? SbiOpcode::PRINTF_ : SbiOpcode::BPRINT_ );
}
if( eCurTok == COMMA || eCurTok == SEMICOLON )
{
@@ -65,12 +65,12 @@ void SbiParser::Print()
}
else
{
- aGen.Gen( PRCHAR_, '\n' );
+ aGen.Gen( SbiOpcode::PRCHAR_, '\n' );
break;
}
}
if( bChan )
- aGen.Gen( CHAN0_ );
+ aGen.Gen( SbiOpcode::CHAN0_ );
}
// WRITE #chan, expr, ...
@@ -84,21 +84,21 @@ void SbiParser::Write()
std::unique_ptr<SbiExpression> pExpr(new SbiExpression( this ));
pExpr->Gen();
pExpr.reset();
- aGen.Gen( BWRITE_ );
+ aGen.Gen( SbiOpcode::BWRITE_ );
if( Peek() == COMMA )
{
- aGen.Gen( PRCHAR_, ',' );
+ aGen.Gen( SbiOpcode::PRCHAR_, ',' );
Next();
if( IsEoln( Peek() ) ) break;
}
else
{
- aGen.Gen( PRCHAR_, '\n' );
+ aGen.Gen( SbiOpcode::PRCHAR_, '\n' );
break;
}
}
if( bChan )
- aGen.Gen( CHAN0_ );
+ aGen.Gen( SbiOpcode::CHAN0_ );
}
@@ -136,16 +136,16 @@ void SbiParser::LineInput()
if( pExpr->GetType() != SbxVARIANT && pExpr->GetType() != SbxSTRING )
Error( ERRCODE_BASIC_CONVERSION );
pExpr->Gen();
- aGen.Gen( LINPUT_ );
+ aGen.Gen( SbiOpcode::LINPUT_ );
pExpr.reset();
- aGen.Gen( CHAN0_ ); // ResetChannel() not in StepLINPUT() anymore
+ aGen.Gen( SbiOpcode::CHAN0_ ); // ResetChannel() not in StepLINPUT() anymore
}
// INPUT
void SbiParser::Input()
{
- aGen.Gen( RESTART_ );
+ aGen.Gen( SbiOpcode::RESTART_ );
Channel( true );
std::unique_ptr<SbiExpression> pExpr(new SbiExpression( this, SbOPERAND ));
while( !bAbort )
@@ -153,7 +153,7 @@ void SbiParser::Input()
if( !pExpr->IsVariable() )
Error( ERRCODE_BASIC_VAR_EXPECTED );
pExpr->Gen();
- aGen.Gen( INPUT_ );
+ aGen.Gen( SbiOpcode::INPUT_ );
if( Peek() == COMMA )
{
Next();
@@ -162,7 +162,7 @@ void SbiParser::Input()
else break;
}
pExpr.reset();
- aGen.Gen( CHAN0_ );
+ aGen.Gen( SbiOpcode::CHAN0_ );
}
// OPEN stringexpr FOR mode ACCESS access mode AS Channel [Len=n]
@@ -266,7 +266,7 @@ void SbiParser::Open()
if( pChan )
pChan->Gen();
aFileName.Gen();
- aGen.Gen( OPEN_, static_cast<sal_uInt32>(nMode), static_cast<sal_uInt32>(nFlags) );
+ aGen.Gen( SbiOpcode::OPEN_, static_cast<sal_uInt32>(nMode), static_cast<sal_uInt32>(nFlags) );
bInStatement = false;
}
@@ -292,7 +292,7 @@ void SbiParser::Name()
SbiExpression aExpr2( this );
aExpr1.Gen();
aExpr2.Gen();
- aGen.Gen( RENAME_ );
+ aGen.Gen( SbiOpcode::RENAME_ );
}
// CLOSE [n,...]
@@ -301,7 +301,7 @@ void SbiParser::Close()
{
Peek();
if( IsEoln( eCurTok ) )
- aGen.Gen( CLOSE_, 0 );
+ aGen.Gen( SbiOpcode::CLOSE_, 0 );
else
for( ;; )
{
@@ -309,8 +309,8 @@ void SbiParser::Close()
while( Peek() == COMMA || Peek() == SEMICOLON )
Next();
aExpr.Gen();
- aGen.Gen( CHANNEL_ );
- aGen.Gen( CLOSE_, 1 );
+ aGen.Gen( SbiOpcode::CHANNEL_ );
+ aGen.Gen( SbiOpcode::CLOSE_, 1 );
if( IsEoln( Peek() ) )
break;
diff --git a/basic/source/comp/loops.cxx b/basic/source/comp/loops.cxx
index 7e2f6f8..c52113a 100644
--- a/basic/source/comp/loops.cxx
+++ b/basic/source/comp/loops.cxx
@@ -41,7 +41,7 @@ void SbiParser::If()
sal_uInt16 iJmp = 0; // current table index
// multiline IF
- nEndLbl = aGen.Gen( JUMPF_, 0 );
+ nEndLbl = aGen.Gen( SbiOpcode::JUMPF_, 0 );
eTok = Peek();
while( !( eTok == ELSEIF || eTok == ELSE || eTok == ENDIF ) &&
!bAbort && Parse() )
@@ -59,7 +59,7 @@ void SbiParser::If()
{
Error( ERRCODE_BASIC_PROG_TOO_LARGE ); bAbort = true; return;
}
- pnJmpToEndLbl[iJmp++] = aGen.Gen( JUMP_, 0 );
+ pnJmpToEndLbl[iJmp++] = aGen.Gen( SbiOpcode::JUMP_, 0 );
Next();
aGen.BackChain( nEndLbl );
@@ -67,7 +67,7 @@ void SbiParser::If()
aGen.Statement();
std::unique_ptr<SbiExpression> pCond(new SbiExpression( this ));
pCond->Gen();
- nEndLbl = aGen.Gen( JUMPF_, 0 );
+ nEndLbl = aGen.Gen( SbiOpcode::JUMPF_, 0 );
pCond.reset();
TestToken( THEN );
eTok = Peek();
@@ -85,7 +85,7 @@ void SbiParser::If()
{
Next();
sal_uInt32 nElseLbl = nEndLbl;
- nEndLbl = aGen.Gen( JUMP_, 0 );
+ nEndLbl = aGen.Gen( SbiOpcode::JUMP_, 0 );
aGen.BackChain( nElseLbl );
aGen.Statement();
@@ -105,7 +105,7 @@ void SbiParser::If()
{
// single line IF
bSingleLineIf = true;
- nEndLbl = aGen.Gen( JUMPF_, 0 );
+ nEndLbl = aGen.Gen( SbiOpcode::JUMPF_, 0 );
Push( eCurTok );
while( !bAbort )
{
@@ -118,7 +118,7 @@ void SbiParser::If()
{
Next();
sal_uInt32 nElseLbl = nEndLbl;
- nEndLbl = aGen.Gen( JUMP_, 0 );
+ nEndLbl = aGen.Gen( SbiOpcode::JUMP_, 0 );
aGen.BackChain( nElseLbl );
while( !bAbort )
{
@@ -158,10 +158,10 @@ void SbiParser::DoLoop()
{
SbiExpression aExpr( this );
aExpr.Gen();
- aGen.Gen( eTok == UNTIL ? JUMPF_ : JUMPT_, nStartLbl );
+ aGen.Gen( eTok == UNTIL ? SbiOpcode::JUMPF_ : SbiOpcode::JUMPT_, nStartLbl );
} else
if (eTok == EOLN || eTok == REM)
- aGen.Gen (JUMP_, nStartLbl);
+ aGen.Gen (SbiOpcode::JUMP_, nStartLbl);
else
Error( ERRCODE_BASIC_EXPECTED, WHILE );
}
@@ -173,10 +173,10 @@ void SbiParser::DoLoop()
SbiExpression aCond( this );
aCond.Gen();
}
- sal_uInt32 nEndLbl = aGen.Gen( eTok == UNTIL ? JUMPT_ : JUMPF_, 0 );
+ sal_uInt32 nEndLbl = aGen.Gen( eTok == UNTIL ? SbiOpcode::JUMPT_ : SbiOpcode::JUMPF_, 0 );
StmntBlock( LOOP );
TestEoln();
- aGen.Gen( JUMP_, nStartLbl );
+ aGen.Gen( SbiOpcode::JUMP_, nStartLbl );
aGen.BackChain( nEndLbl );
}
CloseBlock();
@@ -189,9 +189,9 @@ void SbiParser::While()
SbiExpression aCond( this );
sal_uInt32 nStartLbl = aGen.GetPC();
aCond.Gen();
- sal_uInt32 nEndLbl = aGen.Gen( JUMPF_, 0 );
+ sal_uInt32 nEndLbl = aGen.Gen( SbiOpcode::JUMPF_, 0 );
StmntBlock( WEND );
- aGen.Gen( JUMP_, nStartLbl );
+ aGen.Gen( SbiOpcode::JUMP_, nStartLbl );
aGen.BackChain( nEndLbl );
}
@@ -211,7 +211,7 @@ void SbiParser::For()
SbiExpression aCollExpr( this, SbOPERAND );
aCollExpr.Gen(); // Collection var to for stack
TestEoln();
- aGen.Gen( INITFOREACH_ );
+ aGen.Gen( SbiOpcode::INITFOREACH_ );
}
else
{
@@ -235,16 +235,16 @@ void SbiParser::For()
TestEoln();
// The stack has all 4 elements now: variable, start, end, increment
// bind start value
- aGen.Gen( INITFOR_ );
+ aGen.Gen( SbiOpcode::INITFOR_ );
}
sal_uInt32 nLoop = aGen.GetPC();
// do tests, maybe free the stack
- sal_uInt32 nEndTarget = aGen.Gen( TESTFOR_, 0 );
+ sal_uInt32 nEndTarget = aGen.Gen( SbiOpcode::TESTFOR_, 0 );
OpenBlock( FOR );
StmntBlock( NEXT );
- aGen.Gen( NEXT_ );
- aGen.Gen( JUMP_, nLoop );
+ aGen.Gen( SbiOpcode::NEXT_ );
+ aGen.Gen( SbiOpcode::JUMP_, nLoop );
// are there variables after NEXT?
if( Peek() == SYMBOL )
{
@@ -294,7 +294,7 @@ void SbiParser::OnGoto()
{
SbiExpression aCond( this );
aCond.Gen();
- sal_uInt32 nLabelsTarget = aGen.Gen( ONJUMP_, 0 );
+ sal_uInt32 nLabelsTarget = aGen.Gen( SbiOpcode::ONJUMP_, 0 );
SbiToken eTok = Next();
if( eTok != GOTO && eTok != GOSUB )
{
@@ -309,7 +309,7 @@ void SbiParser::OnGoto()
if( MayBeLabel() )
{
sal_uInt32 nOff = pProc->GetLabels().Reference( aSym );
- aGen.Gen( JUMP_, nOff );
+ aGen.Gen( SbiOpcode::JUMP_, nOff );
nLbl++;
}
else Error( ERRCODE_BASIC_LABEL_EXPECTED );
@@ -324,7 +324,7 @@ void SbiParser::OnGoto()
void SbiParser::Goto()
{
- SbiOpcode eOp = eCurTok == GOTO ? JUMP_ : GOSUB_;
+ SbiOpcode eOp = eCurTok == GOTO ? SbiOpcode::JUMP_ : SbiOpcode::GOSUB_;
Next();
if( MayBeLabel() )
{
@@ -342,9 +342,9 @@ void SbiParser::Return()
if( MayBeLabel() )
{
sal_uInt32 nOff = pProc->GetLabels().Reference( aSym );
- aGen.Gen( RETURN_, nOff );
+ aGen.Gen( SbiOpcode::RETURN_, nOff );
}
- else aGen.Gen( RETURN_, 0 );
+ else aGen.Gen( SbiOpcode::RETURN_, 0 );
}
// SELECT CASE
@@ -355,7 +355,7 @@ void SbiParser::Select()
SbiExpression aCase( this );
SbiToken eTok = NIL;
aCase.Gen();
- aGen.Gen( CASE_ );
+ aGen.Gen( SbiOpcode::CASE_ );
TestEoln();
sal_uInt32 nNextTarget = 0;
sal_uInt32 nDoneTarget = 0;
@@ -397,7 +397,7 @@ void SbiParser::Select()
SbiExpression aCompare( this );
aCompare.Gen();
nTrueTarget = aGen.Gen(
- CASEIS_, nTrueTarget,
+ SbiOpcode::CASEIS_, nTrueTarget,
sal::static_int_cast< sal_uInt16 >(
SbxEQ + ( eTok2 - EQ ) ) );
}
@@ -411,11 +411,11 @@ void SbiParser::Select()
Next();
SbiExpression aCase2( this );
aCase2.Gen();
- nTrueTarget = aGen.Gen( CASETO_, nTrueTarget );
+ nTrueTarget = aGen.Gen( SbiOpcode::CASETO_, nTrueTarget );
}
else
// CASE a
- nTrueTarget = aGen.Gen( CASEIS_, nTrueTarget, SbxEQ );
+ nTrueTarget = aGen.Gen( SbiOpcode::CASEIS_, nTrueTarget, SbxEQ );
}
if( Peek() == COMMA ) Next();
@@ -428,7 +428,7 @@ void SbiParser::Select()
if( !bElse )
{
- nNextTarget = aGen.Gen( JUMP_, nNextTarget );
+ nNextTarget = aGen.Gen( SbiOpcode::JUMP_, nNextTarget );
aGen.BackChain( nTrueTarget );
}
// build the statement body
@@ -443,7 +443,7 @@ void SbiParser::Select()
break;
}
if( !bElse )
- nDoneTarget = aGen.Gen( JUMP_, nDoneTarget );
+ nDoneTarget = aGen.Gen( SbiOpcode::JUMP_, nDoneTarget );
}
else if( !IsEoln( eTok ) )
break;
@@ -454,7 +454,7 @@ done:
if( nNextTarget )
aGen.BackChain( nNextTarget );
aGen.BackChain( nDoneTarget );
- aGen.Gen( ENDCASE_ );
+ aGen.Gen( SbiOpcode::ENDCASE_ );
}
// ON Error/Variable
@@ -489,12 +489,12 @@ void SbiParser::On()
{
if( eCurTok == NUMBER && !nVal )
{
- aGen.Gen( STDERROR_ );
+ aGen.Gen( SbiOpcode::STDERROR_ );
}
else
{
sal_uInt32 nOff = pProc->GetLabels().Reference( aSym );
- aGen.Gen( ERRHDL_, nOff );
+ aGen.Gen( SbiOpcode::ERRHDL_, nOff );
}
}
else if( eCurTok == MINUS )
@@ -502,7 +502,7 @@ void SbiParser::On()
Next();
if( eCurTok == NUMBER && nVal == 1 )
{
- aGen.Gen( STDERROR_ );
+ aGen.Gen( SbiOpcode::STDERROR_ );
}
else
{
@@ -517,7 +517,7 @@ void SbiParser::On()
else if( eCurTok == RESUME )
{
TestToken( NEXT );
- aGen.Gen( NOERROR_ );
+ aGen.Gen( SbiOpcode::NOERROR_ );
}
else Error( ERRCODE_BASIC_EXPECTED, "GoTo/Resume" );
}
@@ -533,23 +533,23 @@ void SbiParser::Resume()
{
case EOS:
case EOLN:
- aGen.Gen( RESUME_, 0 );
+ aGen.Gen( SbiOpcode::RESUME_, 0 );
break;
case NEXT:
- aGen.Gen( RESUME_, 1 );
+ aGen.Gen( SbiOpcode::RESUME_, 1 );
Next();
break;
case NUMBER:
if( !nVal )
{
- aGen.Gen( RESUME_, 0 );
+ aGen.Gen( SbiOpcode::RESUME_, 0 );
break;
} // fall through
case SYMBOL:
if( MayBeLabel() )
{
nLbl = pProc->GetLabels().Reference( aSym );
- aGen.Gen( RESUME_, nLbl );
+ aGen.Gen( SbiOpcode::RESUME_, nLbl );
Next();
break;
} // fall through
diff --git a/basic/source/comp/parser.cxx b/basic/source/comp/parser.cxx
index 847636f..ca19e95 100644
--- a/basic/source/comp/parser.cxx
+++ b/basic/source/comp/parser.cxx
@@ -140,7 +140,7 @@ SbiParser::SbiParser( StarBASIC* pb, SbModule* pm )
aGlobals.SetParent( &aRtlSyms );
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
rTypeArray = new SbxArray; // array for user defined types
rEnumArray = new SbxArray; // array for Enum types
@@ -184,7 +184,7 @@ bool SbiParser::HasGlobalCode()
if( bGblDefs && nGblChain )
{
aGen.BackChain( nGblChain );
- aGen.Gen( LEAVE_ );
+ aGen.Gen( SbiOpcode::LEAVE_ );
nGblChain = 0;
}
return bGblDefs;
@@ -233,7 +233,7 @@ void SbiParser::Exit()
if( eTok == eExitTok ||
(eTok == PROPERTY && (eExitTok == GET || eExitTok == LET) ) ) // #i109051
{
- p->nChain = aGen.Gen( JUMP_, p->nChain );
+ p->nChain = aGen.Gen( SbiOpcode::JUMP_, p->nChain );
return;
}
}
@@ -333,7 +333,7 @@ bool SbiParser::Parse()
// AB #40689: Due to the new static-handling there
// can be another nGblChain, so ask for it before.
if( bNewGblDefs && nGblChain == 0 )
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
return false;
}
@@ -427,7 +427,7 @@ bool SbiParser::Parse()
if( bNewGblDefs && nGblChain == 0 &&
( eCurTok == SUB || eCurTok == FUNCTION || eCurTok == PROPERTY ) )
{
- nGblChain = aGen.Gen( JUMP_, 0 );
+ nGblChain = aGen.Gen( SbiOpcode::JUMP_, 0 );
bNewGblDefs = false;
}
// statement-opcode at the beginning of a sub, too, please
@@ -525,7 +525,7 @@ void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo )
{
if( !bEQ )
{
- aGen.Gen( GET_ );
+ aGen.Gen( SbiOpcode::GET_ );
}
else
{
@@ -535,17 +535,17 @@ void SbiParser::Symbol( const KeywordSymbolInfo* pKeywordSymbolInfo )
TestToken( EQ );
SbiExpression aExpr( this );
aExpr.Gen();
- SbiOpcode eOp = PUT_;
+ SbiOpcode eOp = SbiOpcode::PUT_;
if( pDef )
{
if( pDef->GetConstDef() )
Error( ERRCODE_BASIC_DUPLICATE_DEF, pDef->GetName() );
if( pDef->GetType() == SbxOBJECT )
{
- eOp = SET_;
+ eOp = SbiOpcode::SET_;
if( pDef->GetTypeId() )
{
- aGen.Gen( SETCLASS_, pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::SETCLASS_, pDef->GetTypeId() );
return;
}
}
@@ -571,8 +571,8 @@ void SbiParser::Assign()
nLen = aLvalue.GetRealVar()->GetLen();
}
if( nLen )
- aGen.Gen( PAD_, nLen );
- aGen.Gen( PUT_ );
+ aGen.Gen( SbiOpcode::PAD_, nLen );
+ aGen.Gen( SbiOpcode::PUT_ );
}
// assignments of an object-variable
@@ -597,8 +597,8 @@ void SbiParser::Set()
TypeDecl( *pTypeDef, true );
aLvalue.Gen();
- aGen.Gen( CREATE_, pDef->GetId(), pTypeDef->GetTypeId() );
- aGen.Gen( SETCLASS_, pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::CREATE_, pDef->GetId(), pTypeDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::SETCLASS_, pDef->GetTypeId() );
}
else
{
@@ -613,16 +613,16 @@ void SbiParser::Set()
if( pDef->GetTypeId() )
{
if ( bVBASupportOn )
- aGen.Gen( VBASETCLASS_, pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::VBASETCLASS_, pDef->GetTypeId() );
else
- aGen.Gen( SETCLASS_, pDef->GetTypeId() );
+ aGen.Gen( SbiOpcode::SETCLASS_, pDef->GetTypeId() );
}
else
{
if ( bVBASupportOn )
- aGen.Gen( VBASET_ );
+ aGen.Gen( SbiOpcode::VBASET_ );
else
- aGen.Gen( SET_ );
+ aGen.Gen( SbiOpcode::SET_ );
}
}
}
@@ -644,7 +644,7 @@ void SbiParser::LSet()
SbiExpression aExpr( this );
aLvalue.Gen();
aExpr.Gen();
- aGen.Gen( LSET_ );
+ aGen.Gen( SbiOpcode::LSET_ );
}
// JSM 07.10.95
@@ -662,7 +662,7 @@ void SbiParser::RSet()
SbiExpression aExpr( this );
aLvalue.Gen();
aExpr.Gen();
- aGen.Gen( RSET_ );
+ aGen.Gen( SbiOpcode::RSET_ );
}
// DEFINT, DEFLNG, DEFSNG, DEFDBL, DEFSTR and so on
@@ -702,7 +702,7 @@ void SbiParser::DefXXX()
void SbiParser::Stop()
{
- aGen.Gen( STOP_ );
+ aGen.Gen( SbiOpcode::STOP_ );
Peek(); // #35694: only Peek(), so that EOL is recognized in Single-Line-If
}
@@ -875,7 +875,7 @@ void SbiParser::ErrorStmnt()
{
SbiExpression aPar( this );
aPar.Gen();
- aGen.Gen( ERROR_ );
+ aGen.Gen( SbiOpcode::ERROR_ );
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/basic/source/inc/opcodes.hxx b/basic/source/inc/opcodes.hxx
index 79add0e..1f10d2d 100644
--- a/basic/source/inc/opcodes.hxx
+++ b/basic/source/inc/opcodes.hxx
@@ -25,7 +25,7 @@
// An opcode can have a length of 1, 3 or 5 bytes,
// depending on its numeric value (see below).
-enum SbiOpcode {
+enum class SbiOpcode {
// all opcodes without operands
NOP_ = 0,
diff --git a/basic/source/runtime/runtime.cxx b/basic/source/runtime/runtime.cxx
index 76a7633..dade0d5 100644
--- a/basic/source/runtime/runtime.cxx
+++ b/basic/source/runtime/runtime.cxx
@@ -765,21 +765,21 @@ bool SbiRuntime::Step()
SbiOpcode eOp = (SbiOpcode ) ( *pCode++ );
sal_uInt32 nOp1, nOp2;
- if (eOp <= SbOP0_END)
+ if (eOp <= SbiOpcode::SbOP0_END)
{
- (this->*( aStep0[ eOp ] ) )();
+ (this->*( aStep0[ int(eOp) ] ) )();
}
- else if (eOp >= SbOP1_START && eOp <= SbOP1_END)
+ else if (eOp >= SbiOpcode::SbOP1_START && eOp <= SbiOpcode::SbOP1_END)
{
nOp1 = *pCode++; nOp1 |= *pCode++ << 8; nOp1 |= *pCode++ << 16; nOp1 |= *pCode++ << 24;
- (this->*( aStep1[ eOp - SbOP1_START ] ) )( nOp1 );
+ (this->*( aStep1[ int(eOp) - int(SbiOpcode::SbOP1_START) ] ) )( nOp1 );
}
- else if (eOp >= SbOP2_START && eOp <= SbOP2_END)
+ else if (eOp >= SbiOpcode::SbOP2_START && eOp <= SbiOpcode::SbOP2_END)
{
nOp1 = *pCode++; nOp1 |= *pCode++ << 8; nOp1 |= *pCode++ << 16; nOp1 |= *pCode++ << 24;
nOp2 = *pCode++; nOp2 |= *pCode++ << 8; nOp2 |= *pCode++ << 16; nOp2 |= *pCode++ << 24;
- (this->*( aStep2[ eOp - SbOP2_START ] ) )( nOp1, nOp2 );
+ (this->*( aStep2[ int(eOp) - int(SbiOpcode::SbOP2_START) ] ) )( nOp1, nOp2 );
}
else
{
commit 7beeced463648fc67defea2ad48d58dd42f0ca1e
Author: Stephan Bergmann <sbergman at redhat.com>
Date: Tue Apr 5 21:04:31 2016 +0200
Avoid reserved identifiers
Change-Id: I3fbc7cb107bdab770d5ce9ed3ecddb962d2d4666
diff --git a/basic/source/classes/sbxmod.cxx b/basic/source/classes/sbxmod.cxx
index 82aedf5..d0ff0fb 100644
--- a/basic/source/classes/sbxmod.cxx
+++ b/basic/source/classes/sbxmod.cxx
@@ -1481,7 +1481,7 @@ const sal_uInt8* SbModule::FindNextStmnt( const sal_uInt8* p, sal_uInt16& nLine,
{
SbiOpcode eOp = (SbiOpcode ) ( *p++ );
nPC++;
- if( bFollowJumps && eOp == _JUMP && pImg )
+ if( bFollowJumps && eOp == JUMP_ && pImg )
{
SAL_WARN_IF( !pImg, "basic", "FindNextStmnt: pImg==NULL with FollowJumps option" );
sal_uInt32 nOp1 = *p++; nOp1 |= *p++ << 8;
@@ -1493,7 +1493,7 @@ const sal_uInt8* SbModule::FindNextStmnt( const sal_uInt8* p, sal_uInt16& nLine,
p += 4;
nPC += 4;
}
- else if( eOp == _STMNT )
+ else if( eOp == STMNT_ )
{
sal_uInt32 nl, nc;
nl = *p++; nl |= *p++ << 8;
diff --git a/basic/source/comp/codegen.cxx b/basic/source/comp/codegen.cxx
index e11236f..9ef2cf9 100644
--- a/basic/source/comp/codegen.cxx
+++ b/basic/source/comp/codegen.cxx
@@ -71,7 +71,7 @@ void SbiCodeGen::GenStmnt()
if( bStmnt )
{
bStmnt = false;
- Gen( _STMNT, nLine, nCol );
+ Gen( STMNT_, nLine, nCol );
}
}
@@ -508,17 +508,17 @@ public:
m_ConvertedBuf += (sal_uInt8)eOp;
switch( eOp )
{
- case _JUMP:
- case _JUMPT:
- case _JUMPF:
- case _GOSUB:
- case _CASEIS:
- case _RETURN:
- case _ERRHDL:
- case _TESTFOR:
+ case JUMP_:
+ case JUMPT_:
+ case JUMPF_:
+ case GOSUB_:
+ case CASEIS_:
+ case RETURN_:
+ case ERRHDL_:
+ case TESTFOR_:
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
break;
- case _RESUME:
+ case RESUME_:
if ( nOp1 > 1 )
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
break;
@@ -531,7 +531,7 @@ public:
virtual void processOpCode2( SbiOpcode eOp, T nOp1, T nOp2 ) override
{
m_ConvertedBuf += (sal_uInt8)eOp;
- if ( eOp == _CASEIS )
+ if ( eOp == CASEIS_ )
if ( nOp1 )
nOp1 = static_cast<T>( convertBufferOffSet(m_pStart, nOp1) );
m_ConvertedBuf += static_cast<S>(nOp1);
diff --git a/basic/source/comp/dim.cxx b/basic/source/comp/dim.cxx
index e13bd62..9c822a8 100644
--- a/basic/source/comp/dim.cxx
+++ b/basic/source/comp/dim.cxx
@@ -197,7 +197,7 @@ void SbiParser::TypeDecl( SbiSymDef& rDef, bool bAsNewAlreadyParsed )
void SbiParser::Dim()
{
- DefVar( _DIM, pProc && bVBASupportOn && pProc->IsStatic() );
+ DefVar( DIM_, pProc && bVBASupportOn && pProc->IsStatic() );
}
void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
@@ -248,7 +248,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// SbiParser::Parse() under these conditions
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( _JUMP, 0 );
+ nGblChain = aGen.Gen( JUMP_, 0 );
bNewGblDefs = false;
}
Next();
@@ -290,8 +290,8 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( Peek() == PRESERVE )
{
Next();
- if( eOp == _REDIM )
- eOp = _REDIMP;
+ if( eOp == REDIM_ )
+ eOp = REDIMP_;
else
Error( ERRCODE_BASIC_UNEXPECTED, eCurTok );
}
@@ -302,7 +302,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
sal_uInt32 nEndOfStaticLbl = 0;
if( !bVBASupportOn && bStatic )
{
- nEndOfStaticLbl = aGen.Gen( _JUMP, 0 );
+ nEndOfStaticLbl = aGen.Gen( JUMP_, 0 );
aGen.Statement(); // catch up on static here
}
@@ -324,7 +324,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( pOld )
bRtlSym = true;
}
- if( pOld && !(eOp == _REDIM || eOp == _REDIMP) )
+ if( pOld && !(eOp == REDIM_ || eOp == REDIMP_) )
{
if( pDef->GetScope() == SbLOCAL && pOld->GetScope() != SbLOCAL )
pOld = nullptr;
@@ -333,7 +333,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
{
bDefined = true;
// always an error at a RTL-S
- if( !bRtlSym && (eOp == _REDIM || eOp == _REDIMP) )
+ if( !bRtlSym && (eOp == REDIM_ || eOp == REDIMP_) )
{
// compare the attributes at a REDIM
SbxDataType eDefType;
@@ -359,27 +359,27 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// #36374: Create the variable in front of the distinction IsNew()
// Otherwise error at Dim Identifier As New Type and option explicit
- if( !bDefined && !(eOp == _REDIM || eOp == _REDIMP)
+ if( !bDefined && !(eOp == REDIM_ || eOp == REDIMP_)
&& ( !bConst || pDef->GetScope() == SbGLOBAL ) )
{
// Declare variable or global constant
SbiOpcode eOp2;
switch ( pDef->GetScope() )
{
- case SbGLOBAL: eOp2 = bPersistantGlobal ? _GLOBAL_P : _GLOBAL;
+ case SbGLOBAL: eOp2 = bPersistantGlobal ? GLOBAL_P_ : GLOBAL_;
goto global;
- case SbPUBLIC: eOp2 = bPersistantGlobal ? _PUBLIC_P : _PUBLIC;
+ case SbPUBLIC: eOp2 = bPersistantGlobal ? PUBLIC_P_ : PUBLIC_;
// #40689, no own Opcode anymore
if( bVBASupportOn && bStatic )
{
- eOp2 = _STATIC;
+ eOp2 = STATIC_;
break;
}
global: aGen.BackChain( nGblChain );
nGblChain = 0;
bGblDefs = bNewGblDefs = true;
break;
- default: eOp2 = _LOCAL;
+ default: eOp2 = LOCAL_;
}
sal_uInt32 nOpnd2 = sal::static_int_cast< sal_uInt16 >( pDef->GetType() );
if( pDef->IsWithEvents() )
@@ -425,35 +425,35 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( pDim )
{
- if( eOp == _REDIMP )
+ if( eOp == REDIMP_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
- aGen.Gen( _REDIMP_ERASE );
+ aGen.Gen( REDIMP_ERASE_ );
pDef->SetDims( pDim->GetDims() );
SbiExpression aExpr2( this, *pDef, std::move(pDim) );
aExpr2.Gen();
- aGen.Gen( _DCREATE_REDIMP, pDef->GetId(), pDef->GetTypeId() );
+ aGen.Gen( DCREATE_REDIMP_, pDef->GetId(), pDef->GetTypeId() );
}
else
{
pDef->SetDims( pDim->GetDims() );
SbiExpression aExpr( this, *pDef, std::move(pDim) );
aExpr.Gen();
- aGen.Gen( _DCREATE, pDef->GetId(), pDef->GetTypeId() );
+ aGen.Gen( DCREATE_, pDef->GetId(), pDef->GetTypeId() );
}
}
else
{
SbiExpression aExpr( this, *pDef );
aExpr.Gen();
- SbiOpcode eOp_ = pDef->IsNew() ? _CREATE : _TCREATE;
+ SbiOpcode eOp_ = pDef->IsNew() ? CREATE_ : TCREATE_;
aGen.Gen( eOp_, pDef->GetId(), pDef->GetTypeId() );
if ( bVBASupportOn )
- aGen.Gen( _VBASET );
+ aGen.Gen( VBASET_ );
else
- aGen.Gen( _SET );
+ aGen.Gen( SET_ );
}
}
else
@@ -476,7 +476,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// Create code only for the global constant!
aVar.Gen();
aExpr.Gen();
- aGen.Gen( _PUTC );
+ aGen.Gen( PUTC_ );
}
SbiConstDef* pConst = pDef->GetConstDef();
if( aExpr.GetType() == SbxSTRING )
@@ -489,7 +489,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
{
// Dimension the variable
// Delete the var at REDIM beforehand
- if( eOp == _REDIM )
+ if( eOp == REDIM_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
@@ -498,15 +498,15 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
// clear the variable ( this
// allows the processing of
// the param to happen as normal without errors ( ordinary ERASE just clears the array )
- aGen.Gen( _ERASE_CLEAR );
+ aGen.Gen( ERASE_CLEAR_ );
else
- aGen.Gen( _ERASE );
+ aGen.Gen( ERASE_ );
}
- else if( eOp == _REDIMP )
+ else if( eOp == REDIMP_ )
{
SbiExpression aExpr( this, *pDef, nullptr );
aExpr.Gen();
- aGen.Gen( _REDIMP_ERASE );
+ aGen.Gen( REDIMP_ERASE_ );
}
pDef->SetDims( pDim->GetDims() );
if( bPersistantGlobal )
@@ -514,7 +514,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
SbiExpression aExpr( this, *pDef, std::move(pDim) );
aExpr.Gen();
pDef->SetGlobal( false );
- aGen.Gen( (eOp == _STATIC) ? _DIM : eOp );
+ aGen.Gen( (eOp == STATIC_) ? DIM_ : eOp );
}
}
if( !TestComma() )
@@ -536,7 +536,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
if( !bVBASupportOn && bStatic )
{
// maintain the global chain
- nGblChain = aGen.Gen( _JUMP, 0 );
+ nGblChain = aGen.Gen( JUMP_, 0 );
bGblDefs = bNewGblDefs = true;
// Register for Sub a jump to the end of statics
@@ -549,7 +549,7 @@ void SbiParser::DefVar( SbiOpcode eOp, bool bStatic )
void SbiParser::ReDim()
{
- DefVar( _REDIM, pProc && bVBASupportOn && pProc->IsStatic() );
+ DefVar( REDIM_, pProc && bVBASupportOn && pProc->IsStatic() );
}
// ERASE array, ...
@@ -560,7 +560,7 @@ void SbiParser::Erase()
{
SbiExpression aExpr( this, SbLVALUE );
aExpr.Gen();
- aGen.Gen( _ERASE );
+ aGen.Gen( ERASE_ );
if( !TestComma() ) break;
}
}
@@ -782,7 +782,7 @@ void SbiParser::DefEnum( bool bPrivate )
if( !bPrivate )
{
- SbiOpcode eOp = _GLOBAL;
+ SbiOpcode eOp = GLOBAL_;
aGen.BackChain( nGblChain );
nGblChain = 0;
bGblDefs = bNewGblDefs = true;
@@ -792,8 +792,8 @@ void SbiParser::DefEnum( bool bPrivate )
aVar.Gen();
sal_uInt16 nStringId = aGen.GetParser()->aGblStrings.Add( nCurrentEnumValue, SbxLONG );
- aGen.Gen( _NUMBER, nStringId );
- aGen.Gen( _PUTC );
+ aGen.Gen( NUMBER_, nStringId );
+ aGen.Gen( PUTC_ );
}
SbiConstDef* pConst = pElem->GetConstDef();
@@ -1057,7 +1057,7 @@ void SbiParser::DefDeclare( bool bPrivate )
{
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( _JUMP, 0 );
+ nGblChain = aGen.Gen( JUMP_, 0 );
bNewGblDefs = false;
}
@@ -1073,19 +1073,19 @@ void SbiParser::DefDeclare( bool bPrivate )
SbxDataType eType = pDef->GetType();
if( bFunction )
{
- aGen.Gen( _PARAM, 0, sal::static_int_cast< sal_uInt16 >( eType ) );
+ aGen.Gen( PARAM_, 0, sal::static_int_cast< sal_uInt16 >( eType ) );
}
if( nParCount > 1 )
{
- aGen.Gen( _ARGC );
+ aGen.Gen( ARGC_ );
for( sal_uInt16 i = 1 ; i < nParCount ; ++i )
{
SbiSymDef* pParDef = rPool.Get( i );
SbxDataType eParType = pParDef->GetType();
- aGen.Gen( _PARAM, i, sal::static_int_cast< sal_uInt16 >( eParType ) );
- aGen.Gen( _ARGV );
+ aGen.Gen( PARAM_, i, sal::static_int_cast< sal_uInt16 >( eParType ) );
+ aGen.Gen( ARGV_ );
sal_uInt16 nTyp = sal::static_int_cast< sal_uInt16 >( pParDef->GetType() );
if( pParDef->IsByVal() )
@@ -1094,13 +1094,13 @@ void SbiParser::DefDeclare( bool bPrivate )
pParDef->SetByVal( false );
nTyp |= 0x8000;
}
- aGen.Gen( _ARGTYP, nTyp );
+ aGen.Gen( ARGTYP_, nTyp );
}
}
- aGen.Gen( _LIB, aGblStrings.Add( pDef->GetLib() ) );
+ aGen.Gen( LIB_, aGblStrings.Add( pDef->GetLib() ) );
- SbiOpcode eOp = pDef->IsCdecl() ? _CALLC : _CALL;
+ SbiOpcode eOp = pDef->IsCdecl() ? CALLC_ : CALL_;
sal_uInt16 nId = pDef->GetId();
if( !pDef->GetAlias().isEmpty() )
{
@@ -1114,9 +1114,9 @@ void SbiParser::DefDeclare( bool bPrivate )
if( bFunction )
{
- aGen.Gen( _PUT );
+ aGen.Gen( PUT_ );
}
- aGen.Gen( _LEAVE );
+ aGen.Gen( LEAVE_ );
}
}
}
@@ -1151,7 +1151,7 @@ void SbiParser::Call()
{
SbiExpression aVar( this, SbSYMBOL );
aVar.Gen( FORCE_CALL );
- aGen.Gen( _GET );
+ aGen.Gen( GET_ );
}
// SUB/FUNCTION
@@ -1271,7 +1271,7 @@ void SbiParser::DefProc( bool bStatic, bool bPrivate )
// Open labels?
pProc->GetLabels().CheckRefs();
CloseBlock();
- aGen.Gen( _LEAVE );
+ aGen.Gen( LEAVE_ );
pProc = nullptr;
}
@@ -1295,7 +1295,7 @@ void SbiParser::DefStatic( bool bPrivate )
// SbiParser::Parse() under these conditions
if( bNewGblDefs && nGblChain == 0 )
{
- nGblChain = aGen.Gen( _JUMP, 0 );
+ nGblChain = aGen.Gen( JUMP_, 0 );
bNewGblDefs = false;
}
Next();
@@ -1310,7 +1310,7 @@ void SbiParser::DefStatic( bool bPrivate )
// global Pool
p = pPool;
pPool = &aPublics;
- DefVar( _STATIC, true );
+ DefVar( STATIC_, true );
pPool = p;
break;
}
diff --git a/basic/source/comp/exprgen.cxx b/basic/source/comp/exprgen.cxx
index 3d913b7..e287e11 100644
--- a/basic/source/comp/exprgen.cxx
+++ b/basic/source/comp/exprgen.cxx
@@ -30,30 +30,30 @@ typedef struct {
} OpTable;
static const OpTable aOpTable [] = {
- { EXPON,_EXP },
- { MUL, _MUL },
- { DIV, _DIV },
- { IDIV, _IDIV },
- { MOD, _MOD },
- { PLUS, _PLUS },
- { MINUS,_MINUS },
- { EQ, _EQ },
- { NE, _NE },
- { LE, _LE },
- { GE, _GE },
- { LT, _LT },
- { GT, _GT },
- { AND, _AND },
- { OR, _OR },
- { XOR, _XOR },
- { EQV, _EQV },
- { IMP, _IMP },
- { NOT, _NOT },
- { NEG, _NEG },
- { CAT, _CAT },
- { LIKE, _LIKE },
- { IS, _IS },
- { NIL, _NOP }};
+ { EXPON,EXP_ },
+ { MUL, MUL_ },
+ { DIV, DIV_ },
+ { IDIV, IDIV_ },
+ { MOD, MOD_ },
+ { PLUS, PLUS_ },
+ { MINUS,MINUS_ },
+ { EQ, EQ_ },
+ { NE, NE_ },
+ { LE, LE_ },
+ { GE, GE_ },
+ { LT, LT_ },
+ { GT, GT_ },
+ { AND, AND_ },
+ { OR, OR_ },
+ { XOR, XOR_ },
+ { EQV, EQV_ },
+ { IMP, IMP_ },
+ { NOT, NOT_ },
+ { NEG, NEG_ },
+ { CAT, CAT_ },
+ { LIKE, LIKE_ },
+ { IS, IS_ },
+ { NIL, NOP_ }};
// Output of an element
void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
@@ -65,18 +65,18 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
switch( GetType() )
{
case SbxEMPTY:
- rGen.Gen( _EMPTY );
+ rGen.Gen( EMPTY_ );
break;
case SbxINTEGER:
- rGen.Gen( _CONST, (short) nVal );
+ rGen.Gen( CONST_, (short) nVal );
break;
case SbxSTRING:
nStringId = rGen.GetParser()->aGblStrings.Add( aStrVal );
- rGen.Gen( _SCONST, nStringId );
+ rGen.Gen( SCONST_, nStringId );
break;
default:
nStringId = rGen.GetParser()->aGblStrings.Add( nVal, eType );
- rGen.Gen( _NUMBER, nStringId );
+ rGen.Gen( NUMBER_, nStringId );
break;
}
}
@@ -86,7 +86,7 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
SbiOpcode eOp;
if( aVar.pDef->GetScope() == SbPARAM )
{
- eOp = _PARAM;
+ eOp = PARAM_;
if( 0 == aVar.pDef->GetPos() )
{
bool bTreatFunctionAsParam = true;
@@ -103,32 +103,32 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
}
if( !bTreatFunctionAsParam )
{
- eOp = aVar.pDef->IsGlobal() ? _FIND_G : _FIND;
+ eOp = aVar.pDef->IsGlobal() ? FIND_G_ : FIND_;
}
}
}
// special treatment for WITH
else if( (pWithParent_ = GetWithParent()) != nullptr )
{
- eOp = _ELEM; // .-Term in WITH
+ eOp = ELEM_; // .-Term in WITH
}
else
{
- eOp = ( aVar.pDef->GetScope() == SbRTL ) ? _RTL :
- (aVar.pDef->IsGlobal() ? _FIND_G : _FIND);
+ eOp = ( aVar.pDef->GetScope() == SbRTL ) ? RTL_ :
+ (aVar.pDef->IsGlobal() ? FIND_G_ : FIND_);
}
- if( eOp == _FIND )
+ if( eOp == FIND_ )
{
SbiProcDef* pProc = aVar.pDef->GetProcDef();
if ( rGen.GetParser()->bClassModule )
{
- eOp = _FIND_CM;
+ eOp = FIND_CM_;
}
else if ( aVar.pDef->IsStatic() || (pProc && pProc->IsStatic()) )
{
- eOp = _FIND_STATIC;
+ eOp = FIND_STATIC_;
}
}
for( SbiExprNode* p = this; p; p = p->aVar.pNext )
@@ -138,17 +138,17 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
pWithParent_->Gen(rGen);
}
p->GenElement( rGen, eOp );
- eOp = _ELEM;
+ eOp = ELEM_;
}
}
else if( IsTypeOf() )
{
pLeft->Gen(rGen);
- rGen.Gen( _TESTCLASS, nTypeStrId );
+ rGen.Gen( TESTCLASS_, nTypeStrId );
}
else if( IsNew() )
{
- rGen.Gen( _CREATE, 0, nTypeStrId );
+ rGen.Gen( CREATE_, 0, nTypeStrId );
}
else
{
@@ -172,14 +172,14 @@ void SbiExprNode::Gen( SbiCodeGen& rGen, RecursiveMode eRecMode )
void SbiExprNode::GenElement( SbiCodeGen& rGen, SbiOpcode eOp )
{
#ifdef DBG_UTIL
- if ((eOp < _RTL || eOp > _CALLC) && eOp != _FIND_G && eOp != _FIND_CM && eOp != _FIND_STATIC)
+ if ((eOp < RTL_ || eOp > CALLC_) && eOp != FIND_G_ && eOp != FIND_CM_ && eOp != FIND_STATIC_)
rGen.GetParser()->Error( ERRCODE_BASIC_INTERNAL_ERROR, "Opcode" );
#endif
SbiSymDef* pDef = aVar.pDef;
// The ID is either the position or the String-ID
// If the bit Bit 0x8000 is set, the variable have
// a parameter list.
- sal_uInt16 nId = ( eOp == _PARAM ) ? pDef->GetPos() : pDef->GetId();
+ sal_uInt16 nId = ( eOp == PARAM_ ) ? pDef->GetPos() : pDef->GetId();
// Build a parameter list
if( aVar.pPar && aVar.pPar->GetSize() )
{
@@ -194,7 +194,7 @@ void SbiExprNode::GenElement( SbiCodeGen& rGen, SbiOpcode eOp )
for( auto& pExprList: *aVar.pvMorePar )
{
pExprList->Gen(rGen);
- rGen.Gen( _ARRAYACCESS );
+ rGen.Gen( ARRAYACCESS_ );
}
}
}
@@ -207,7 +207,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
{
if( !aData.empty() )
{
- rGen.Gen( _ARGC );
+ rGen.Gen( ARGC_ );
// Type adjustment at DECLARE
sal_uInt16 nCount = 1;
@@ -218,7 +218,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
{
// named arg
sal_uInt16 nSid = rGen.GetParser()->aGblStrings.Add( pExpr->GetName() );
- rGen.Gen( _ARGN, nSid );
+ rGen.Gen( ARGN_, nSid );
/* TODO: Check after Declare concept change
// From 1996-01-10: Type adjustment at named -> search suitable parameter
@@ -237,7 +237,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
// if( pExpr->GetName().ICompare( rName )
// == COMPARE_EQUAL )
// {
- // pParser->aGen.Gen( _ARGTYP, pDef->GetType() );
+ // pParser->aGen.Gen( ARGTYP_, pDef->GetType() );
// break;
// }
// }
@@ -247,7 +247,7 @@ void SbiExprList::Gen(SbiCodeGen& rGen)
}
else
{
- rGen.Gen( _ARGV );
+ rGen.Gen( ARGV_ );
}
nCount++;
}
@@ -261,7 +261,7 @@ void SbiExpression::Gen( RecursiveMode eRecMode )
pExpr->Gen( pParser->aGen, eRecMode );
if( bByVal )
{
- pParser->aGen.Gen( _BYVAL );
+ pParser->aGen.Gen( BYVAL_ );
}
if( bBased )
{
@@ -270,8 +270,8 @@ void SbiExpression::Gen( RecursiveMode eRecMode )
{
uBase |= 0x8000; // #109275 Flag compatibility
}
- pParser->aGen.Gen( _BASED, uBase );
- pParser->aGen.Gen( _ARGV );
+ pParser->aGen.Gen( BASED_, uBase );
+ pParser->aGen.Gen( ARGV_ );
}
}
diff --git a/basic/source/comp/io.cxx b/basic/source/comp/io.cxx
index 4624f6a..728039f 100644
--- a/basic/source/comp/io.cxx
+++ b/basic/source/comp/io.cxx
@@ -33,7 +33,7 @@ bool SbiParser::Channel( bool bAlways )
while( Peek() == COMMA || Peek() == SEMICOLON )
Next();
aExpr.Gen();
- aGen.Gen( _CHANNEL );
+ aGen.Gen( CHANNEL_ );
bRes = true;
}
else if( bAlways )
@@ -56,7 +56,7 @@ void SbiParser::Print()
pExpr->Gen();
pExpr.reset();
Peek();
- aGen.Gen( eCurTok == COMMA ? _PRINTF : _BPRINT );
+ aGen.Gen( eCurTok == COMMA ? PRINTF_ : BPRINT_ );
}
if( eCurTok == COMMA || eCurTok == SEMICOLON )
{
@@ -65,12 +65,12 @@ void SbiParser::Print()
}
else
{
- aGen.Gen( _PRCHAR, '\n' );
+ aGen.Gen( PRCHAR_, '\n' );
break;
}
}
if( bChan )
- aGen.Gen( _CHAN0 );
+ aGen.Gen( CHAN0_ );
}
// WRITE #chan, expr, ...
@@ -84,21 +84,21 @@ void SbiParser::Write()
std::unique_ptr<SbiExpression> pExpr(new SbiExpression( this ));
pExpr->Gen();
pExpr.reset();
- aGen.Gen( _BWRITE );
+ aGen.Gen( BWRITE_ );
if( Peek() == COMMA )
{
- aGen.Gen( _PRCHAR, ',' );
+ aGen.Gen( PRCHAR_, ',' );
Next();
if( IsEoln( Peek() ) ) break;
}
else
{
- aGen.Gen( _PRCHAR, '\n' );
+ aGen.Gen( PRCHAR_, '\n' );
break;
}
}
if( bChan )
- aGen.Gen( _CHAN0 );
+ aGen.Gen( CHAN0_ );
}
@@ -136,16 +136,16 @@ void SbiParser::LineInput()
if( pExpr->GetType() != SbxVARIANT && pExpr->GetType() != SbxSTRING )
Error( ERRCODE_BASIC_CONVERSION );
pExpr->Gen();
- aGen.Gen( _LINPUT );
+ aGen.Gen( LINPUT_ );
pExpr.reset();
- aGen.Gen( _CHAN0 ); // ResetChannel() not in StepLINPUT() anymore
+ aGen.Gen( CHAN0_ ); // ResetChannel() not in StepLINPUT() anymore
}
// INPUT
void SbiParser::Input()
{
- aGen.Gen( _RESTART );
+ aGen.Gen( RESTART_ );
Channel( true );
std::unique_ptr<SbiExpression> pExpr(new SbiExpression( this, SbOPERAND ));
while( !bAbort )
@@ -153,7 +153,7 @@ void SbiParser::Input()
if( !pExpr->IsVariable() )
Error( ERRCODE_BASIC_VAR_EXPECTED );
pExpr->Gen();
- aGen.Gen( _INPUT );
+ aGen.Gen( INPUT_ );
if( Peek() == COMMA )
{
Next();
@@ -162,7 +162,7 @@ void SbiParser::Input()
else break;
}
pExpr.reset();
- aGen.Gen( _CHAN0 );
+ aGen.Gen( CHAN0_ );
}
// OPEN stringexpr FOR mode ACCESS access mode AS Channel [Len=n]
@@ -266,7 +266,7 @@ void SbiParser::Open()
if( pChan )
pChan->Gen();
aFileName.Gen();
- aGen.Gen( _OPEN, static_cast<sal_uInt32>(nMode), static_cast<sal_uInt32>(nFlags) );
+ aGen.Gen( OPEN_, static_cast<sal_uInt32>(nMode), static_cast<sal_uInt32>(nFlags) );
bInStatement = false;
}
@@ -292,7 +292,7 @@ void SbiParser::Name()
SbiExpression aExpr2( this );
aExpr1.Gen();
aExpr2.Gen();
- aGen.Gen( _RENAME );
+ aGen.Gen( RENAME_ );
}
// CLOSE [n,...]
@@ -301,7 +301,7 @@ void SbiParser::Close()
{
Peek();
if( IsEoln( eCurTok ) )
- aGen.Gen( _CLOSE, 0 );
+ aGen.Gen( CLOSE_, 0 );
else
for( ;; )
{
@@ -309,8 +309,8 @@ void SbiParser::Close()
while( Peek() == COMMA || Peek() == SEMICOLON )
Next();
aExpr.Gen();
- aGen.Gen( _CHANNEL );
- aGen.Gen( _CLOSE, 1 );
+ aGen.Gen( CHANNEL_ );
+ aGen.Gen( CLOSE_, 1 );
if( IsEoln( Peek() ) )
break;
diff --git a/basic/source/comp/loops.cxx b/basic/source/comp/loops.cxx
index 1c744e8..7e2f6f8 100644
--- a/basic/source/comp/loops.cxx
+++ b/basic/source/comp/loops.cxx
@@ -41,7 +41,7 @@ void SbiParser::If()
sal_uInt16 iJmp = 0; // current table index
// multiline IF
- nEndLbl = aGen.Gen( _JUMPF, 0 );
+ nEndLbl = aGen.Gen( JUMPF_, 0 );
eTok = Peek();
while( !( eTok == ELSEIF || eTok == ELSE || eTok == ENDIF ) &&
!bAbort && Parse() )
@@ -59,7 +59,7 @@ void SbiParser::If()
{
Error( ERRCODE_BASIC_PROG_TOO_LARGE ); bAbort = true; return;
}
- pnJmpToEndLbl[iJmp++] = aGen.Gen( _JUMP, 0 );
+ pnJmpToEndLbl[iJmp++] = aGen.Gen( JUMP_, 0 );
Next();
aGen.BackChain( nEndLbl );
@@ -67,7 +67,7 @@ void SbiParser::If()
aGen.Statement();
std::unique_ptr<SbiExpression> pCond(new SbiExpression( this ));
pCond->Gen();
- nEndLbl = aGen.Gen( _JUMPF, 0 );
+ nEndLbl = aGen.Gen( JUMPF_, 0 );
pCond.reset();
TestToken( THEN );
eTok = Peek();
@@ -85,7 +85,7 @@ void SbiParser::If()
{
Next();
sal_uInt32 nElseLbl = nEndLbl;
- nEndLbl = aGen.Gen( _JUMP, 0 );
+ nEndLbl = aGen.Gen( JUMP_, 0 );
aGen.BackChain( nElseLbl );
aGen.Statement();
@@ -105,7 +105,7 @@ void SbiParser::If()
{
// single line IF
bSingleLineIf = true;
- nEndLbl = aGen.Gen( _JUMPF, 0 );
+ nEndLbl = aGen.Gen( JUMPF_, 0 );
Push( eCurTok );
while( !bAbort )
{
@@ -118,7 +118,7 @@ void SbiParser::If()
{
Next();
sal_uInt32 nElseLbl = nEndLbl;
- nEndLbl = aGen.Gen( _JUMP, 0 );
+ nEndLbl = aGen.Gen( JUMP_, 0 );
aGen.BackChain( nElseLbl );
while( !bAbort )
{
@@ -158,10 +158,10 @@ void SbiParser::DoLoop()
{
SbiExpression aExpr( this );
aExpr.Gen();
- aGen.Gen( eTok == UNTIL ? _JUMPF : _JUMPT, nStartLbl );
+ aGen.Gen( eTok == UNTIL ? JUMPF_ : JUMPT_, nStartLbl );
} else
if (eTok == EOLN || eTok == REM)
- aGen.Gen (_JUMP, nStartLbl);
+ aGen.Gen (JUMP_, nStartLbl);
else
Error( ERRCODE_BASIC_EXPECTED, WHILE );
}
@@ -173,10 +173,10 @@ void SbiParser::DoLoop()
SbiExpression aCond( this );
aCond.Gen();
}
- sal_uInt32 nEndLbl = aGen.Gen( eTok == UNTIL ? _JUMPT : _JUMPF, 0 );
... etc. - the rest is truncated
More information about the Libreoffice-commits
mailing list