Fixed ProcessXbus, so it generates PEER Attributes.

1 files changed, 19 insertions, 3 deletions

diff --git a/scripts/processMrw.pl b/scripts/processMrw.pl
index 95a7ec2..c735e97 100644..100755
--- a/scripts/processMrw.pl
+++ b/scripts/processMrw.pl
@@ -656,7 +656,24 @@ sub processXbus
     my $targetObj = shift;
     my $target    = shift;
 
-    # $targetObj->setAttribute($target, "PEER_TARGET","");
+    my $found_xbus = 0;
+    
+    my $xbus_child_conn = $targetObj->getFirstConnectionDestination($target);
+    if ($xbus_child_conn ne "")
+    {
+    	## set attributes for both directions
+        $targetObj->setAttribute($xbus_child_conn, "PEER_TARGET",
+            $targetObj->getAttribute($target, "PHYS_PATH"));
+        $targetObj->setAttribute($target, "PEER_TARGET",
+            $targetObj->getAttribute($xbus_child_conn, "PHYS_PATH"));
+
+        $targetObj->setAttribute($xbus_child_conn, "PEER_TARGET",
+            $targetObj->getAttribute($target, "PHYS_PATH"));
+        $targetObj->setAttribute($target, "PEER_TARGET",
+            $targetObj->getAttribute($xbus_child_conn, "PHYS_PATH"));
+
+        $found_xbus = 1;
+    }   
 
 }
 
@@ -1276,8 +1293,7 @@ sub errorCheck
                     }
                     else
                     {
-                        $abus_error = sprintf(
-"proc not connected to proc via Abus or Xbus (Target=%s)",$child);
+                        $abus_error = sprintf("proc not connected to proc via Abus or Xbus (Target=%s)",$child);
                     }
                 }
             }