X-Git-Url: http://git.cyclocoop.org/?p=ptitvelo%2Fweb%2Fwww.git;a=blobdiff_plain;f=www%2Fecrire%2Fpublic%2Fcompiler.php;h=b1586739d70ceee9a181987e1727db2c57f0b901;hp=c21b6f226b9a2afa5cff6af96435a99c8b00c387;hb=f489d45ae677afde12ba9c9f70f463ea34787b45;hpb=0dda6af18a04031b1ca8e217187966077e752fe3

diff --git a/www/ecrire/public/compiler.php b/www/ecrire/public/compiler.php
index c21b6f2..b158673 100644
--- a/www/ecrire/public/compiler.php
+++ b/www/ecrire/public/compiler.php
@@ -380,6 +380,7 @@ function calculer_boucle_rec($id_boucle, &$boucles, $trace) {
  * %s8: code de trace eventuel avant le retour
 **/
 define('CODE_CORPS_BOUCLE', '%s
+	if (defined("_BOUCLE_PROFILER")) $timer = time()+microtime();
 	$t0 = "";
 	// REQUETE
 	$iter = IterFactory::create(
@@ -393,6 +394,9 @@ define('CODE_CORPS_BOUCLE', '%s
 	%s
 	%s$iter->free();
 	}%s
+	if (defined("_BOUCLE_PROFILER")
+	AND 1000*($timer = (time()+microtime())-$timer) > _BOUCLE_PROFILER)
+		spip_log(intval(1000*$timer)."ms %s","profiler");
 	return $t0;'
 );
 
@@ -549,7 +553,8 @@ function calculer_boucle_nonrec($id_boucle, &$boucles, $trace) {
 		$init_lang,
 		$corps,
 		$fin_lang,
-		$trace
+		$trace,
+		'BOUCLE'.$id_boucle .' @ '.($boucle->descr['sourcefile'])
 	);
 
 #	var_dump($a);exit;