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.
108 lines
4.9 KiB
108 lines
4.9 KiB
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 |
|
|
|
|