1 /*
2  * Copyright (c) 2004-2009 Voltaire, Inc. All rights reserved.
3  * Copyright (c) 2002-2005 Mellanox Technologies LTD. All rights reserved.
4  * Copyright (c) 1996-2003 Intel Corporation. All rights reserved.
5  * Copyright (c) 2010 HNR Consulting. All rights reserved.
6  * Copyright (c) 2010 Sun Microsystems, Inc. All rights reserved.
7  *
8  * This software is available to you under a choice of one of two
9  * licenses.  You may choose to be licensed under the terms of the GNU
10  * General Public License (GPL) Version 2, available from the file
11  * COPYING in the main directory of this source tree, or the
12  * OpenIB.org BSD license below:
13  *
14  *     Redistribution and use in source and binary forms, with or
15  *     without modification, are permitted provided that the following
16  *     conditions are met:
17  *
18  *      - Redistributions of source code must retain the above
19  *        copyright notice, this list of conditions and the following
20  *        disclaimer.
21  *
22  *      - Redistributions in binary form must reproduce the above
23  *        copyright notice, this list of conditions and the following
24  *        disclaimer in the documentation and/or other materials
25  *        provided with the distribution.
26  *
27  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
28  * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
29  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
30  * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS
31  * BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN
32  * ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
33  * CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
34  * SOFTWARE.
35  *
36  */
37 
38 /*
39  * Abstract:
40  *    Implementation of osm_vla_rcv_t.
41  * This object represents the Vl Arbitration Receiver object.
42  * This object is part of the opensm family of objects.
43  */
44 
45 #if HAVE_CONFIG_H
46 #  include <config.h>
47 #endif				/* HAVE_CONFIG_H */
48 
49 #include <string.h>
50 #include <iba/ib_types.h>
51 #include <complib/cl_passivelock.h>
52 #include <complib/cl_debug.h>
53 #include <opensm/osm_file_ids.h>
54 #define FILE_ID OSM_FILE_VL_ARB_RCV_C
55 #include <opensm/osm_madw.h>
56 #include <opensm/osm_log.h>
57 #include <opensm/osm_node.h>
58 #include <opensm/osm_subnet.h>
59 #include <opensm/osm_helper.h>
60 #include <opensm/osm_sm.h>
61 
62 /*
63  * WE ONLY RECEIVE GET or SET responses
64  */
65 void osm_vla_rcv_process(IN void *context, IN void *data)
66 {
67 	osm_sm_t *sm = context;
68 	osm_madw_t *p_madw = data;
69 	ib_vl_arb_table_t *p_vla_tbl;
70 	ib_smp_t *p_smp;
71 	osm_port_t *p_port;
72 	osm_physp_t *p_physp;
73 	osm_node_t *p_node;
74 	osm_vla_context_t *p_context;
75 	ib_net64_t port_guid;
76 	ib_net64_t node_guid;
77 	uint8_t port_num, block_num;
78 
79 	CL_ASSERT(sm);
80 
81 	OSM_LOG_ENTER(sm->p_log);
82 
83 	CL_ASSERT(p_madw);
84 
85 	p_smp = osm_madw_get_smp_ptr(p_madw);
86 
87 	p_context = osm_madw_get_vla_context_ptr(p_madw);
88 	p_vla_tbl = ib_smp_get_payload_ptr(p_smp);
89 
90 	port_guid = p_context->port_guid;
91 	node_guid = p_context->node_guid;
92 
93 	CL_ASSERT(p_smp->attr_id == IB_MAD_ATTR_VL_ARBITRATION);
94 
95 	if (ib_smp_get_status(p_smp)) {
96 		OSM_LOG(sm->p_log, OSM_LOG_DEBUG,
97 			"MAD status 0x%x received\n",
98 			cl_ntoh16(ib_smp_get_status(p_smp)));
99 		goto Exit2;
100 	}
101 
102 	cl_plock_excl_acquire(sm->p_lock);
103 	p_port = osm_get_port_by_guid(sm->p_subn, port_guid);
104 	if (!p_port) {
105 		OSM_LOG(sm->p_log, OSM_LOG_ERROR, "ERR 3F06: "
106 			"No port object for port with GUID 0x%" PRIx64
107 			"\n\t\t\t\tfor parent node GUID 0x%" PRIx64
108 			", TID 0x%" PRIx64 "\n", cl_ntoh64(port_guid),
109 			cl_ntoh64(node_guid), cl_ntoh64(p_smp->trans_id));
110 		goto Exit;
111 	}
112 
113 	p_node = p_port->p_node;
114 	CL_ASSERT(p_node);
115 
116 	block_num = (uint8_t) (cl_ntoh32(p_smp->attr_mod) >> 16);
117 	/* in case of a non switch node the attr modifier should be ignored */
118 	if (osm_node_get_type(p_node) == IB_NODE_TYPE_SWITCH) {
119 		port_num = (uint8_t) (cl_ntoh32(p_smp->attr_mod) & 0x000000FF);
120 		p_physp = osm_node_get_physp_ptr(p_node, port_num);
121 	} else {
122 		p_physp = p_port->p_physp;
123 		port_num = p_physp->port_num;
124 	}
125 
126 	/*
127 	   We do not care if this is a result of a set or get -
128 	   all we want is to update the subnet.
129 	 */
130 	OSM_LOG(sm->p_log, OSM_LOG_VERBOSE,
131 		"Got GetResp(VLArb) block:%u port_num %u with GUID 0x%"
132 		PRIx64 " for parent node GUID 0x%" PRIx64 ", TID 0x%"
133 		PRIx64 "\n", block_num, port_num, cl_ntoh64(port_guid),
134 		cl_ntoh64(node_guid), cl_ntoh64(p_smp->trans_id));
135 
136 	/*
137 	   Determine if we encountered a new Physical Port.
138 	   If so, Ignore it.
139 	 */
140 	if (!p_physp) {
141 		OSM_LOG(sm->p_log, OSM_LOG_ERROR,
142 			"Got invalid port number %u\n", port_num);
143 		goto Exit;
144 	}
145 
146 	if ((block_num < 1) || (block_num > 4)) {
147 		OSM_LOG(sm->p_log, OSM_LOG_ERROR,
148 			"Got invalid block number 0x%X\n", block_num);
149 		goto Exit;
150 	}
151 
152 	osm_dump_vl_arb_table_v2(sm->p_log, port_guid, block_num, port_num,
153 			         p_vla_tbl, FILE_ID, OSM_LOG_DEBUG);
154 	osm_physp_set_vla_tbl(p_physp, p_vla_tbl, block_num);
155 
156 Exit:
157 	cl_plock_release(sm->p_lock);
158 
159 Exit2:
160 	OSM_LOG_EXIT(sm->p_log);
161 }
162