Bound the number of cleaning passes in the memory guard

Author: marcboulle

src/Learning/KWData/KWDatabaseMemoryGuard.cpp

@@ -241,8 +241,15 @@ const ALString KWDatabaseMemoryGuard::GetSingleInstanceVeryLargeLabel()
 
 	// Et dans le cas ou la memoire a du etre nettoyee
 	if (GetMemoryCleaningNumber() > 0)
+	{
 		sLabel += " : all derived variables have been computed using RAM sparingly at the expense of "
-			  "computation time";
+			  "computation time (";
+		sLabel += IntToString(GetMemoryCleaningNumber());
+		if (GetMemoryCleaningNumber() == 1)
+			sLabel += " additional pass)";
+		else
+			sLabel += " additional passes)";
+	}
 	ensure(sLabel.Find(sMemoryGuardLabelPrefix) == 0);
 	return sLabel;
 }

src/Learning/KWData/KWDatabaseMemoryGuard.h

@@ -215,6 +215,9 @@ class KWDatabaseMemoryGuard : public Object
 	static const int GetDefautMinSecondaryRecordNumberFactor();
 	static const int GetDefautMaxSecondaryRecordNumberFactor();
 
+	// Nombre max de passes de nettoyage de la memoire utilisees pour continuer le calcul des attributs
+	static const int GetMaxMemoryCleaningNumber();
+
 	//////////////////////////////////////////////////////////////////////////////////////
 	///// Implementation
 protected:
@@ -306,6 +309,9 @@ class KWDatabaseMemoryGuard : public Object
 	static const int nDefautMinSecondaryRecordNumberFactor = 100;
 	static const int nDefautMaxSecondaryRecordNumberFactor = 10000;
 
+	// Nombre max de passes de nettoyage de la memoire utilisees pour continuer le calcul des attributs
+	static const int nMaxMemoryCleaningNumber = 100;
+
 	///////////////////////////////////////////////////////////////////////////////////////////
 	// Gestion de la methode specifique pour ignorer le controle de flow des erreurs
 
@@ -363,3 +369,8 @@ inline const int KWDatabaseMemoryGuard::GetDefautMaxSecondaryRecordNumberFactor(
 {
 	return nDefautMaxSecondaryRecordNumberFactor;
 }
+
+inline const int KWDatabaseMemoryGuard::GetMaxMemoryCleaningNumber()
+{
+	return nMaxMemoryCleaningNumber;
+}

src/Learning/KWData/KWObject.cpp

@@ -183,11 +183,16 @@ void KWObject::ComputeAllValues(KWDatabaseMemoryGuard* memoryGuard)
 			// exploitant ces instances creees sont faux et fluctuants selon la memoire disponible
 			if (not memoryGuard->IsSingleInstanceMemoryLimitReachedDuringCreation())
 			{
-				// Nettoyage des donnees de travail temporaire, pouvant etre recalculees
-				CleanTemporayDataItemsToComputeAndClean();
+				// On ne le fait pas s'il y a eu trop de passe de nettoyage, pour eviter
+				// de passer un temps potentiellement enorme
+				if (memoryGuard->GetMemoryCleaningNumber() < memoryGuard->GetMaxMemoryCleaningNumber())
+				{
+					// Nettoyage des donnees de travail temporaire, pouvant etre recalculees
+					CleanTemporayDataItemsToComputeAndClean();
 
-				// Actualisation de la detetcion de depassement memoire
-				memoryGuard->UpdateAfterMemoryCleaning();
+					// Actualisation de la detection de depassement memoire
+					memoryGuard->UpdateAfterMemoryCleaning();
+				}
 			}
 		}
 	}

src/Learning/KWModeling/KWBenchmarkClassSpec.cpp

@@ -66,6 +66,10 @@ void KWBenchmarkClassSpec::ReadClasses()
 			temporaryClassDomain->ReadFile(GetClassFileName());
 		}
 	}
+
+	// Compilation
+	if (temporaryClassDomain->Check())
+		temporaryClassDomain->Compile();
 	Global::SetSilentMode(false);
 	sLastReadClassFileName = GetClassFileName();
 }