supprt for the new memlimit stuff

diff --git a/tests/memanalyze.pl b/tests/memanalyze.pl
index c354a5687ae11cafd29ab915d19979e911e28a38..dff25a8b2e36c293ea903e0440ca4542f8d247dd 100755 (executable)
--- a/tests/memanalyze.pl
+++ b/tests/memanalyze.pl
@@ -45,7 +45,15 @@ while(<FILE>) {
     chomp $_;
     $line = $_;
 
-    if($line =~ /^MEM ([^ ]*):(\d*) (.*)/) {
+    if($line =~ /^LIMIT ([^ ]*):(\d*) (.*)/) {
+        # new memory limit test prefix
+        my $i = $3;
+        my ($source, $linenum) = ($1, $2);
+        if($trace && ($i =~ /([^ ]*) reached memlimit/)) {
+            print "LIMIT: $1 returned error at $source:$linenum\n";
+        }
+    }
+    elsif($line =~ /^MEM ([^ ]*):(\d*) (.*)/) {
         # generic match for the filename+linenumber
         $source = $1;
         $linenum = $2;