You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
109 lines
4.9 KiB
109 lines
4.9 KiB
7 years ago
|
From 4b64649eb5740027f58377f6c29d1554d9792b97 Mon Sep 17 00:00:00 2001
|
||
|
|
From: Mauro Carvalho Chehab <mchehab@redhat.com>
|
||
|
|
Date: Fri, 31 May 2013 16:16:44 -0300
|
||
|
|
Subject: [PATCH 09/32] ras-mc-ctl: report errors also for PCIe AER and MCE
|
||
|
|
|
||
|
|
Show also PCIe AER and MCE when used with --errors parameter.
|
||
|
|
|
||
|
|
Signed-off-by: Mauro Carvalho Chehab <mchehab@redhat.com>
|
||
|
|
---
|
||
|
|
util/ras-mc-ctl.in | 73 +++++++++++++++++++++++++++++++++++++++++++++++-----
|
||
|
|
1 files changed, 66 insertions(+), 7 deletions(-)
|
||
|
|
|
||
|
|
diff --git a/util/ras-mc-ctl.in b/util/ras-mc-ctl.in
|
||
|
|
index 118af7b..30d3078 100755
|
||
|
|
--- a/util/ras-mc-ctl.in
|
||
|
|
+++ b/util/ras-mc-ctl.in
|
||
|
|
@@ -883,22 +883,81 @@ sub summary
|
||
|
|
sub errors
|
||
|
|
{
|
||
|
|
require DBI;
|
||
|
|
+ my ($query, $query_handle, $id, $time, $count, $type, $msg, $label, $mc, $top, $mid, $low, $addr, $grain, $syndrome, $detail, $out);
|
||
|
|
+ my ($mcgcap,$mcgstatus, $status, $misc, $ip, $tsc, $walltime, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $bank_name, $mcgstatus_msg, $mcistatus_msg, $user_action, $mc_location);
|
||
|
|
|
||
|
|
my $dbh = DBI->connect("dbi:SQLite:dbname=$dbname", "", "", {});
|
||
|
|
|
||
|
|
- my $query = "select id, timestamp, err_count, err_type, err_msg, label, mc, top_layer,middle_layer,lower_layer, address, grain, syndrome, driver_detail from mc_event order by id";
|
||
|
|
-
|
||
|
|
- my $query_handle = $dbh->prepare($query);
|
||
|
|
+ # Memory controller mc_event errors
|
||
|
|
+ $query = "select id, timestamp, err_count, err_type, err_msg, label, mc, top_layer,middle_layer,lower_layer, address, grain, syndrome, driver_detail from mc_event order by id";
|
||
|
|
+ $query_handle = $dbh->prepare($query);
|
||
|
|
$query_handle->execute();
|
||
|
|
+ $query_handle->bind_columns(\($id, $time, $count, $type, $msg, $label, $mc, $top, $mid, $low, $addr, $grain, $syndrome, $detail));
|
||
|
|
+ $out = "";
|
||
|
|
+ while($query_handle->fetch()) {
|
||
|
|
+ $out .= "$id $time $count $type error(s): $msg at $label location: $mc:$top:$mid:$low, addr $addr, grain $grain, syndrome $syndrome $detail\n";
|
||
|
|
+ }
|
||
|
|
+ if ($out ne "") {
|
||
|
|
+ print "PCIe AER events:\n$out\n";
|
||
|
|
+ } else {
|
||
|
|
+ print "No PCIe AER errors.\n\n";
|
||
|
|
+ }
|
||
|
|
+ $query_handle->finish;
|
||
|
|
|
||
|
|
- $query_handle->bind_columns(\my($id, $time, $count, $type, $msg, $label, $mc, $top, $mid, $low, $addr, $grain, $syndrome, $detail));
|
||
|
|
-
|
||
|
|
- print "Memory controller events:\n";
|
||
|
|
+ # PCIe AER aer_event errors
|
||
|
|
+ $query = "select id, timestamp, err_type, err_msg from aer_event order by id";
|
||
|
|
+ $query_handle = $dbh->prepare($query);
|
||
|
|
+ $query_handle->execute();
|
||
|
|
+ $query_handle->bind_columns(\($id, $time, $type, $msg));
|
||
|
|
+ $out = "";
|
||
|
|
while($query_handle->fetch()) {
|
||
|
|
- print "$id $time $count $type error(s): $msg at $label location: $mc:$top:$mid:$low, addr $addr, grain $grain, syndrome $syndrome $detail\n";
|
||
|
|
+ $out .= "$id $time $type error: $msg\n";
|
||
|
|
}
|
||
|
|
+ if ($out ne "") {
|
||
|
|
+ print "MCE events:\n$out\n";
|
||
|
|
+ } else {
|
||
|
|
+ print "No MCE errors.\n\n";
|
||
|
|
+ }
|
||
|
|
+ $query_handle->finish;
|
||
|
|
|
||
|
|
+ # MCE mce_record errors
|
||
|
|
+ $query = "select id, timestamp, mcgcap, mcgstatus, status, addr, misc, ip, tsc, walltime, cpu, cpuid, apicid, socketid, cs, bank, cpuvendor, bank_name, error_msg, mcgstatus_msg, mcistatus_msg, user_action, mc_location from mce_record order by id";
|
||
|
|
+ $query_handle = $dbh->prepare($query);
|
||
|
|
+ $query_handle->execute();
|
||
|
|
+ $query_handle->bind_columns(\($id, $time, $mcgcap,$mcgstatus, $status, $addr, $misc, $ip, $tsc, $walltime, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $bank_name, $msg, $mcgstatus_msg, $mcistatus_msg, $user_action, $mc_location));
|
||
|
|
+ $out = "";
|
||
|
|
+ while($query_handle->fetch()) {
|
||
|
|
+ $out .= "$id $time error: $msg";
|
||
|
|
+ $out .= ", CPU $cpuvendor" if ($cpuvendor);
|
||
|
|
+ $out .= ", bank $bank_name" if ($bank_name);
|
||
|
|
+ $out .= ", mcg $mcgstatus_msg" if ($mcgstatus_msg);
|
||
|
|
+ $out .= ", mci $mcistatus_msg" if ($mcistatus_msg);
|
||
|
|
+ $out .= ", $mc_location" if ($mc_location);
|
||
|
|
+ $out .= ", $user_action" if ($user_action);
|
||
|
|
+ $out .= sprintf ", mcgcap=0x%08x", $mcgcap if ($mcgcap);
|
||
|
|
+ $out .= sprintf ", mcgstatus=0x%08x", $mcgstatus if ($mcgstatus);
|
||
|
|
+ $out .= sprintf ", status=0x%08x", $status if ($status);
|
||
|
|
+ $out .= sprintf ", addr=0x%08x", $addr if ($addr);
|
||
|
|
+ $out .= sprintf ", misc=0x%08x", $misc if ($misc);
|
||
|
|
+ $out .= sprintf ", ip=0x%08x", $ip if ($ip);
|
||
|
|
+ $out .= sprintf ", tsc=0x%08x", $tsc if ($tsc);
|
||
|
|
+ $out .= sprintf ", walltime=0x%08x", $walltime if ($walltime);
|
||
|
|
+ $out .= sprintf ", cpu=0x%08x", $cpu if ($cpu);
|
||
|
|
+ $out .= sprintf ", cpuid=0x%08x", $cpuid if ($cpuid);
|
||
|
|
+ $out .= sprintf ", apicid=0x%08x", $apicid if ($apicid);
|
||
|
|
+ $out .= sprintf ", socketid=0x%08x", $socketid if ($socketid);
|
||
|
|
+ $out .= sprintf ", cs=0x%08x", $cs if ($cs);
|
||
|
|
+ $out .= sprintf ", bank=0x%08x", $bank if ($bank);
|
||
|
|
+
|
||
|
|
+ $out .= "\n";
|
||
|
|
+ }
|
||
|
|
+ if ($out ne "") {
|
||
|
|
+ print "Memory controller events:\n$out\n";
|
||
|
|
+ } else {
|
||
|
|
+ print "No Memory errors.\n\n";
|
||
|
|
+ }
|
||
|
|
$query_handle->finish;
|
||
|
|
+
|
||
|
|
undef($dbh);
|
||
|
|
}
|
||
|
|
|
||
|
|
--
|
||
|
|
1.7.1
|
||
|
|
|