VG_(printf)("\nUnhandled error type: %u. VG_(needs).tool_errors\n"
"probably needs to be set.\n",
e1->ekind);
- VG_(tool_panic)("unhandled error type");
+ VG_(core_panic)("unhandled error type");
}
}
}
}
}
// XXX: this isn't right. See bug 203651.
- if (p_min == NULL) continue; //VG_(tool_panic)("show_all_errors()");
+ if (p_min == NULL) continue; //VG_(core_panic)("show_all_errors()");
VG_(umsg)("\n");
VG_(umsg)("%d errors in context %d of %d:\n",
"\nUnhandled suppression type: %u. VG_(needs).tool_errors\n"
"probably needs to be set.\n",
err->ekind);
- VG_(tool_panic)("unhandled suppression type");
+ VG_(core_panic)("unhandled suppression type");
}
}
}
case 1: ex = 10; break;
case 2: ex = 100; break;
case 3: ex = 1000; break;
- default: VG_(tool_panic)("Currently can only handle 3 decimal places");
+ default: VG_(core_panic)("Currently can only handle 3 decimal places");
}
p2 = ((100*n*ex) / m) % ex;
// Have to generate the format string in order to be flexible about
# export headers
# (6) coregrind/ *.[ch] must not use tl_assert
# (7) include/*.h and tool *.[ch] must not use vg_assert
+# (8) coregrind/ *.[ch] must not use VG_(tool_panic)
+# (9) include/*.h and tool *.[ch] must not use VG_(core_panic)
#-------------------------------------------------------------------
use strict;
if ($assert ne "") {
error("File $path_name must not use vg_assert\n");
}
+# Must not use VG_(core_panic)
+ my $panic = `grep 'VG_(core_panic)' $file`;
+ if ($panic ne "") {
+ error("File $path_name must not use VG_(core_panic)\n");
+ }
}
#---------------------------------------------------------------------
if ($assert ne "") {
error("File $path_name must not use tl_assert\n");
}
+# Must not use VG_(tool_panic)
+ my $panic = `grep 'VG_(tool_panic)' $file`;
+ if ($panic ne "") {
+ chomp($panic);
+# Do not complain about the definition of VG_(tool_panic)
+ if (($path_name eq "coregrind/m_libcassert.c") &&
+ ($panic eq "void VG_(tool_panic) ( const HChar* str )")) {
+# OK
+ } else {
+ error("File $path_name must not use VG_(tool_panic)\n");
+ }
+ }
}
#---------------------------------------------------------------------
if ($assert ne "") {
error("File $path_name must not use vg_assert\n");
}
+# Must not use VG_(core_panic)
+ my $panic = `grep 'VG_(core_panic)' $file`;
+ if ($panic ne "") {
+ error("File $path_name must not use VG_(core_panic)\n");
+ }
}
sub process_file {