experiments with disabling GC

git-svn-id: http://svn.dsource.org/projects/visuald/trunk@216 a09178c5-0f50-412e-aa4a-0aec1a98dccb

CHANGES

@@ -401,3 +401,11 @@ Version history
   * project config: shown command line now updated when pressing "Apply"
   * fix resource include with spaces
   * fix always rebuilding if a dependent library project target has spaces in the path name
+
+unreleased Version 0.3.32
+
+  * new version of ccv2pdb with better handling of unicode characters in path names
+  * new version of mago with string literal support for associative array keys and easier stepping into main
+  * some changes to reduce memory leaks due to false pointers
+  * fixed parser to disambiguate MixinStatement and MixinExpression
+

vdc/parser/engine.d

@@ -26,6 +26,7 @@ import vdc.parser.stmt;
 
 import vdc.ast.node;
 
+// debug version = TraceParser;
 // version = recoverError;
 
 class ParseException : Exception
@@ -160,8 +161,8 @@ class Parser
 		Stack!Token errTokenStack;
 	}
 
-	debug State[] traceState;
-	debug string[] traceToken;
+	version(TraceParser) State[] traceState;
+	version(TraceParser) string[] traceToken;
 
 	bool recovering;
 	bool abort;
@@ -189,7 +190,7 @@ class Parser
 	T popNode(T = Node)()
 	{
 		Node n = nodeStack.pop();
-		debug nodeStack.stack[nodeStack.depth] = null;
+		nodeStack.stack[nodeStack.depth] = null;
 		return static_cast!T(n);
 	}
 
@@ -226,7 +227,7 @@ class Parser
 	State popState()
 	{
 		State s = stateStack.pop();
-		debug stateStack.stack[stateStack.depth] = null;
+		stateStack.stack[stateStack.depth] = null;
 		return s;
 	}
 
@@ -592,7 +593,7 @@ class Parser
 			while(recoverStack.depth > 0 && stateStack.depth < recoverStack.top().stateStackDepth)
 				popRocoverState();
 
-			debug 
+			version(TraceParser)
 			{ 
 				traceState ~= fn;
 				traceToken ~= tok.txt;

visuald/comutil.d

@@ -25,7 +25,7 @@ import sdk.win32.objbase;
 version = GC_COM;
 debug debug = COM;
 // debug(COM) debug = COM_DTOR; // causes crashes because logCall needs GC, but finalizer called from within GC
-debug(COM) debug = COM_ADDREL;
+// debug(COM) debug = COM_ADDREL;
 
 import core.runtime;
 debug static import rsgc.gc;

visuald/dlangsvc.d

@@ -30,6 +30,9 @@ import visuald.config;
 
 //version = DEBUG_GC;
 //import rsgc.gc;
+import rsgc.gcstats;
+import core.memory;
+extern (C) GCStats gc_stats();
 
 import vdc.lexer;
 
@@ -547,10 +550,50 @@ class LanguageService : DisposingComObject,
 
 		return jumpToDefinitionInCodeWindow("", abspath, defs[0].line, 0);
 	}
-
+
+	//////////////////////////////////////////////////////////////
+	bool mGCdisabled;
+	SysTime mLastExecTime;
+	size_t mGCUsedSize;
+	enum PAGESIZE = 4096;
+
+	void OnExec()
+	{
+		if(false && !mGCdisabled)
+		{
+			GC.disable();
+			mGCdisabled = true;
+			//auto stats = gc_stats();
+			//mGCUsedSize = stats.usedsize + PAGESIZE * stats.pageblocks;
+		}
+		mLastExecTime = Clock.currTime() + dur!"seconds"(2);
+	}
+
+	void CheckGC(bool forceEnable)
+	{
+		if(!mGCdisabled)
+			return;
+
+		SysTime now = Clock.currTime();
+		if(forceEnable || mLastExecTime < now)
+		{
+			GC.enable();
+			auto stats = gc_stats();
+			auto usedSize = stats.usedsize + PAGESIZE * stats.pageblocks;
+			if(usedSize > mGCUsedSize + (20<<20))
+			{
+				GC.collect();
+				stats = gc_stats();
+				mGCUsedSize = stats.usedsize + PAGESIZE * stats.pageblocks;
+			}
+			mGCdisabled = false;
+		}
+	}
+
 	//////////////////////////////////////////////////////////////
 	bool OnIdle()
 	{
+		CheckGC(false);
 		for(int i = 0; i < mSources.length; i++)
 			if(mSources[i].OnIdle())
 				return true;

visuald/viewfilter.d

@@ -191,6 +191,8 @@ version(tip)
 				        this, cast(void*) this, _toLog(pguidCmdGroup), nCmdID, cmd2string(*pguidCmdGroup, nCmdID));
 		}
 
+		Package.GetLanguageService().OnExec();
+
 		ushort lo = (nCmdexecopt & 0xffff);
 		ushort hi = (nCmdexecopt >> 16);
 

visuald/visuald.visualdproj

@@ -82,7 +82,7 @@
   <deffile />
   <resfile />
   <exefile>$(OutDir)\$(ProjectName).dll</exefile>
-  <additionalOptions />
+  <additionalOptions>-debuglib=phobos_d</additionalOptions>
   <preBuildCommand />
   <postBuildCommand />
   <debugtarget>c:\l\vs9\common7\ide\devenv.exe</debugtarget>