diff options
| author | Andreas Bregas <ab@openoffice.org> | 2010-08-23 11:16:00 +0200 |
|---|---|---|
| committer | Andreas Bregas <ab@openoffice.org> | 2010-08-23 11:16:00 +0200 |
| commit | fadc14f47bd7f355523357ff961ac3eaf47f34ba (patch) | |
| tree | cea67a8666b6cfb1289a4a26d9fdde374d97db51 /basic/source/runtime | |
| parent | mib19: #163377# Support procedure properties for UserForm modules (diff) | |
| download | core-fadc14f47bd7f355523357ff961ac3eaf47f34ba.tar.gz core-fadc14f47bd7f355523357ff961ac3eaf47f34ba.zip | |
mib19: #163377# Enhanced trace functionality
Diffstat (limited to 'basic/source/runtime')
| -rwxr-xr-x | basic/source/runtime/methods1.cxx | 6 | ||||
| -rw-r--r-- | basic/source/runtime/rtlproto.hxx | 5 | ||||
| -rw-r--r-- | basic/source/runtime/stdobj.cxx | 4 |
3 files changed, 15 insertions, 0 deletions
diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx index a59a7d25b54a..68f4dbe76c5f 100755 --- a/basic/source/runtime/methods1.cxx +++ b/basic/source/runtime/methods1.cxx @@ -1666,6 +1666,12 @@ RTLFUNC(GetDefaultContext) RTL_Impl_GetDefaultContext( pBasic, rPar, bWrite ); } +#ifdef DBG_TRACE_BASIC +RTLFUNC(TraceCommand) +{ + RTL_Impl_TraceCommand( pBasic, rPar, bWrite ); +} +#endif RTLFUNC(Join) { diff --git a/basic/source/runtime/rtlproto.hxx b/basic/source/runtime/rtlproto.hxx index a05db9d8974d..ba7af48c8472 100644 --- a/basic/source/runtime/rtlproto.hxx +++ b/basic/source/runtime/rtlproto.hxx @@ -26,6 +26,7 @@ ************************************************************************/ #include <basic/sbstar.hxx> +#include "sbtrace.hxx" #define RTLFUNC( name ) void SbRtl_##name( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite ) #define RTLNAME( name ) &SbRtl_##name @@ -346,5 +347,9 @@ extern RTLFUNC(CDec); extern RTLFUNC(Partition); // Fong +#ifdef DBG_TRACE_BASIC +extern RTLFUNC(TraceCommand); +#endif + extern double Now_Impl(); extern void Wait_Impl( bool bDurationBased, SbxArray& rPar ); diff --git a/basic/source/runtime/stdobj.cxx b/basic/source/runtime/stdobj.cxx index c7ca576c6576..39f92afdea4a 100644 --- a/basic/source/runtime/stdobj.cxx +++ b/basic/source/runtime/stdobj.cxx @@ -535,6 +535,10 @@ static Methods aMethods[] = { { "TimeValue", SbxDATE, 1 | _FUNCTION, RTLNAME(TimeValue),0 }, { "String", SbxSTRING, 0,NULL,0 }, { "TOGGLE", SbxINTEGER, _CPROP, RTLNAME(TOGGLE),0 }, +#ifdef DBG_TRACE_BASIC +{ "TraceCommand", SbxNULL, 1 | _FUNCTION, RTLNAME(TraceCommand),0 }, + { "Command", SbxSTRING, 0,NULL,0 }, +#endif { "Trim", SbxSTRING, 1 | _FUNCTION, RTLNAME(Trim),0 }, { "String", SbxSTRING, 0,NULL,0 }, { "True", SbxBOOL, _CPROP, RTLNAME(True),0 }, |