remove non-compiled code

4 files changed, 0 insertions, 101 deletions

diff --git a/basic/inc/basic/sbx.hxx b/basic/inc/basic/sbx.hxx
index 5f754159ba23..8f14e1aad846 100644
--- a/basic/inc/basic/sbx.hxx
+++ b/basic/inc/basic/sbx.hxx
@@ -77,11 +77,7 @@ struct SbxParamInfo
     ~SbxParamInfo() {}
 };
 
-//#if 0 // _SOLAR__PRIVATE
 SV_DECL_PTRARR_DEL(SbxParams,SbxParamInfo*,4,4)
-//#else
-//typedef SvPtrarr SbxParams;
-//#endif
 
 #endif
 
diff --git a/basic/source/classes/propacc.cxx b/basic/source/classes/propacc.cxx
index 66b3f4984d7e..2c01c49f814c 100644
--- a/basic/source/classes/propacc.cxx
+++ b/basic/source/classes/propacc.cxx
@@ -392,15 +392,7 @@ void RTL_Impl_CreatePropertySet( StarBASIC* pBasic, SbxArray& rPar, BOOL bWrite
     // Get class names of struct
     String aServiceName( RTL_CONSTASCII_USTRINGPARAM("stardiv.uno.beans.PropertySet") );
 
-#if 0
-    // search service and instantiate
-    Reference< XMultiServiceFactory > xServiceManager = getProcessServiceFactory();
-    Reference< XInterface > xInterface;
-    if( xProv.is() )
-        xInterface = xProv->newInstance();
-#else
     Reference< XInterface > xInterface = (OWeakObject*) new SbPropertyValues();
-#endif
 
     SbxVariableRef refVar = rPar.Get(0);
     if( xInterface.is() )
diff --git a/basic/source/runtime/methods1.cxx b/basic/source/runtime/methods1.cxx
index 5fe4ffbaa2ec..73c40c0cbeb6 100644
--- a/basic/source/runtime/methods1.cxx
+++ b/basic/source/runtime/methods1.cxx
@@ -534,15 +534,6 @@ RTLFUNC(DoEvents)
 // don't undstand what upstream are up to
 // we already process application events etc. in between
 // basic runtime pcode ( on a timed basis )
-#if 0
-    // Dummy implementation as the following code leads
-    // to performance problems for unknown reasons
-    //Timer aTimer;
-    //aTimer.SetTimeout( 1 );
-    //aTimer.Start();
-    //while ( aTimer.IsActive() )
-    //  Application::Reschedule();
-#endif
     // always return 0
     rPar.Get(0)->PutInteger( 0 );
 }
diff --git a/basic/source/sbx/sbxobj.cxx b/basic/source/sbx/sbxobj.cxx
index a611c7d9134f..afa2f9a8b931 100644
--- a/basic/source/sbx/sbxobj.cxx
+++ b/basic/source/sbx/sbxobj.cxx
@@ -1062,86 +1062,6 @@ void SbxObject::GarbageCollection( ULONG nObjects )
 */
 
 {
-    (void)nObjects;
-
-    static BOOL bInGarbageCollection = FALSE;
-    if ( bInGarbageCollection )
-        return;
-    bInGarbageCollection = TRUE;
-
-#if 0
-    // erstes Object dieser Runde anspringen
-    BOOL bAll = !nObjects;
-    if ( bAll )
-        rObjects.First();
-    SbxObject *pObj = rObjects.GetCurObject();
-    if ( !pObj )
-        pObj = rObjects.First();
-
-    while ( pObj && 0 != nObjects-- )
-    {
-        // hat der Parent nur noch 1 Ref-Count?
-        SbxObject *pParent = PTR_CAST( SbxObject, pObj->GetParent() );
-        if ( pParent && 1 == pParent->GetRefCount() )
-        {
-            // dann alle Properies des Objects durchsuchen
-            SbxArray *pProps = pObj->GetProperties();
-            for ( USHORT n = 0; n < pProps->Count(); ++n )
-            {
-                // verweist die Property auf den Parent des Object?
-                SbxVariable *pProp = pProps->Get(n);
-                const SbxValues &rValues = pProp->GetValues_Impl();
-                if ( SbxOBJECT == rValues.eType &&
-                     pParent == rValues.pObj )
-                {
-#ifdef DBG_UTIL
-                    DbgOutf( "SBX: %s.%s with Object %s was garbage",
-                             pObj->GetName().GetStr(),
-                             pProp->GetName().GetStr(),
-                             pParent->GetName().GetStr() );
-#endif
-                    // dann freigeben
-                    pProp->SbxValue::Clear();
-                    Sound::Beep();
-                    break;
-                }
-            }
-        }
-
-        // zum n"achsten
-        pObj = rObjects.Next();
-        if ( !bAll && !pObj )
-            pObj = rObjects.First();
-    }
-#endif
-
-// AB 28.10. Zur 507a vorerst raus, da SfxBroadcaster::Enable() wegfaellt
-#if 0
-#ifdef DBG_UTIL
-    SbxVarList_Impl &rVars = GetSbxData_Impl()->aVars;
-    DbgOutf( "SBX: garbage collector done, %lu objects remainding",
-             rVars.Count() );
-    if ( rVars.Count() > 200 && rVars.Count() < 210 )
-    {
-        SvFileStream aStream( "d:\\tmp\\dump.sbx", STREAM_STD_WRITE );
-        SfxBroadcaster::Enable(FALSE);
-        for ( ULONG n = 0; n < rVars.Count(); ++n )
-        {
-            SbxVariable *pVar = rVars.GetObject(n);
-            SbxObject *pObj = PTR_CAST(SbxObject, pVar);
-            USHORT nFlags = pVar->GetFlags();
-            pVar->SetFlag(SBX_NO_BROADCAST);
-            if ( pObj )
-                pObj->Dump(aStream);
-            else if ( !pVar->GetParent() || !pVar->GetParent()->ISA(SbxObject) )
-                pVar->Dump(aStream);
-            pVar->SetFlags(nFlags);
-        }
-        SfxBroadcaster::Enable(TRUE);
-    }
-#endif
-#endif
-    bInGarbageCollection = FALSE;
 }
 
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */