|
26 | 26 |
|
27 | 27 | #include "pdc_prop_pkg.h" |
28 | 28 | #include "pdc_transforms_pkg.h" |
| 29 | +#include "pdc_timing.h" |
29 | 30 | #include "mercury_proc_string.h" |
30 | 31 | #include "mercury_atomic.h" |
31 | 32 | #include <dlfcn.h> |
@@ -202,195 +203,207 @@ typedef struct obj_data_iterator_out_t { |
202 | 203 | static HG_INLINE hg_return_t |
203 | 204 | hg_proc_analysis_ftn_in_t(hg_proc_t proc, void *data) |
204 | 205 | { |
| 206 | + FUNC_ENTER(NULL); |
| 207 | + |
205 | 208 | hg_return_t ret; |
206 | 209 | analysis_ftn_in_t *struct_data = (analysis_ftn_in_t *)data; |
207 | 210 | ret = hg_proc_hg_const_string_t(proc, &struct_data->ftn_name); |
208 | 211 | if (ret != HG_SUCCESS) { |
209 | 212 | // HG_LOG_ERROR("Proc error"); |
210 | | - return ret; |
| 213 | + FUNC_LEAVE(ret); |
211 | 214 | } |
212 | 215 | ret = hg_proc_hg_const_string_t(proc, &struct_data->loadpath); |
213 | 216 | if (ret != HG_SUCCESS) { |
214 | 217 | // HG_LOG_ERROR("Proc error"); |
215 | | - return ret; |
| 218 | + FUNC_LEAVE(ret); |
216 | 219 | } |
217 | 220 | ret = hg_proc_uint64_t(proc, &struct_data->local_obj_id); |
218 | 221 | if (ret != HG_SUCCESS) { |
219 | 222 | // HG_LOG_ERROR("Proc error"); |
220 | | - return ret; |
| 223 | + FUNC_LEAVE(ret); |
221 | 224 | } |
222 | 225 | ret = hg_proc_uint64_t(proc, &struct_data->iter_in); |
223 | 226 | if (ret != HG_SUCCESS) { |
224 | 227 | // HG_LOG_ERROR("Proc error"); |
225 | | - return ret; |
| 228 | + FUNC_LEAVE(ret); |
226 | 229 | } |
227 | 230 | ret = hg_proc_uint64_t(proc, &struct_data->iter_out); |
228 | 231 | if (ret != HG_SUCCESS) { |
229 | 232 | // HG_LOG_ERROR("Proc error"); |
230 | | - return ret; |
| 233 | + FUNC_LEAVE(ret); |
231 | 234 | } |
232 | | - return ret; |
| 235 | + |
| 236 | + FUNC_LEAVE(ret); |
233 | 237 | } |
234 | 238 |
|
235 | 239 | static HG_INLINE hg_return_t |
236 | 240 | hg_proc_obj_data_iterator_in_t(hg_proc_t proc, void *data) |
237 | 241 | { |
| 242 | + FUNC_ENTER(NULL); |
| 243 | + |
238 | 244 | hg_return_t ret; |
239 | 245 | obj_data_iterator_in_t *struct_data = (obj_data_iterator_in_t *)data; |
240 | 246 | ret = hg_proc_uint64_t(proc, &struct_data->client_iter_id); |
241 | 247 | if (ret != HG_SUCCESS) { |
242 | 248 | // HG_LOG_ERROR("Proc error"); |
243 | | - return ret; |
| 249 | + FUNC_LEAVE(ret); |
244 | 250 | } |
245 | 251 | ret = hg_proc_uint64_t(proc, &struct_data->object_id); |
246 | 252 | if (ret != HG_SUCCESS) { |
247 | 253 | // HG_LOG_ERROR("Proc error"); |
248 | | - return ret; |
| 254 | + FUNC_LEAVE(ret); |
249 | 255 | } |
250 | 256 | ret = hg_proc_uint64_t(proc, &struct_data->reg_id); |
251 | 257 | if (ret != HG_SUCCESS) { |
252 | 258 | // HG_LOG_ERROR("Proc error"); |
253 | | - return ret; |
| 259 | + FUNC_LEAVE(ret); |
254 | 260 | } |
255 | 261 | ret = hg_proc_uint64_t(proc, &struct_data->sliceCount); |
256 | 262 | if (ret != HG_SUCCESS) { |
257 | 263 | // HG_LOG_ERROR("Proc error"); |
258 | | - return ret; |
| 264 | + FUNC_LEAVE(ret); |
259 | 265 | } |
260 | 266 | ret = hg_proc_uint64_t(proc, &struct_data->sliceNext); |
261 | 267 | if (ret != HG_SUCCESS) { |
262 | 268 | // HG_LOG_ERROR("Proc error"); |
263 | | - return ret; |
| 269 | + FUNC_LEAVE(ret); |
264 | 270 | } |
265 | 271 | ret = hg_proc_uint64_t(proc, &struct_data->sliceResetCount); |
266 | 272 | if (ret != HG_SUCCESS) { |
267 | 273 | // HG_LOG_ERROR("Proc error"); |
268 | | - return ret; |
| 274 | + FUNC_LEAVE(ret); |
269 | 275 | } |
270 | 276 | ret = hg_proc_uint64_t(proc, &struct_data->elementsPerSlice); |
271 | 277 | if (ret != HG_SUCCESS) { |
272 | 278 | // HG_LOG_ERROR("Proc error"); |
273 | | - return ret; |
| 279 | + FUNC_LEAVE(ret); |
274 | 280 | } |
275 | 281 | ret = hg_proc_uint64_t(proc, &struct_data->slicePerBlock); |
276 | 282 | if (ret != HG_SUCCESS) { |
277 | 283 | // HG_LOG_ERROR("Proc error"); |
278 | | - return ret; |
| 284 | + FUNC_LEAVE(ret); |
279 | 285 | } |
280 | 286 | ret = hg_proc_uint64_t(proc, &struct_data->elementsPerPlane); |
281 | 287 | if (ret != HG_SUCCESS) { |
282 | 288 | // HG_LOG_ERROR("Proc error"); |
283 | | - return ret; |
| 289 | + FUNC_LEAVE(ret); |
284 | 290 | } |
285 | 291 | ret = hg_proc_uint64_t(proc, &struct_data->elementsPerBlock); |
286 | 292 | if (ret != HG_SUCCESS) { |
287 | 293 | // HG_LOG_ERROR("Proc error"); |
288 | | - return ret; |
| 294 | + FUNC_LEAVE(ret); |
289 | 295 | } |
290 | 296 | ret = hg_proc_uint64_t(proc, &struct_data->skipCount); |
291 | 297 | if (ret != HG_SUCCESS) { |
292 | 298 | // HG_LOG_ERROR("Proc error"); |
293 | | - return ret; |
| 299 | + FUNC_LEAVE(ret); |
294 | 300 | } |
295 | 301 | ret = hg_proc_uint64_t(proc, &struct_data->element_size); |
296 | 302 | if (ret != HG_SUCCESS) { |
297 | 303 | // HG_LOG_ERROR("Proc error"); |
298 | | - return ret; |
| 304 | + FUNC_LEAVE(ret); |
299 | 305 | } |
300 | 306 | ret = hg_proc_uint64_t(proc, &struct_data->srcBlockCount); |
301 | 307 | if (ret != HG_SUCCESS) { |
302 | 308 | // HG_LOG_ERROR("Proc error"); |
303 | | - return ret; |
| 309 | + FUNC_LEAVE(ret); |
304 | 310 | } |
305 | 311 | ret = hg_proc_uint64_t(proc, &struct_data->contigBlockSize); |
306 | 312 | if (ret != HG_SUCCESS) { |
307 | 313 | // HG_LOG_ERROR("Proc error"); |
308 | | - return ret; |
| 314 | + FUNC_LEAVE(ret); |
309 | 315 | } |
310 | 316 | ret = hg_proc_uint64_t(proc, &struct_data->totalElements); |
311 | 317 | if (ret != HG_SUCCESS) { |
312 | 318 | // HG_LOG_ERROR("Proc error"); |
313 | | - return ret; |
| 319 | + FUNC_LEAVE(ret); |
314 | 320 | } |
315 | 321 | ret = hg_proc_uint64_t(proc, &struct_data->ndim); |
316 | 322 | if (ret != HG_SUCCESS) { |
317 | 323 | // HG_LOG_ERROR("Proc error"); |
318 | | - return ret; |
| 324 | + FUNC_LEAVE(ret); |
319 | 325 | } |
320 | 326 | ret = hg_proc_uint64_t(proc, &struct_data->dims_0); |
321 | 327 | if (ret != HG_SUCCESS) { |
322 | 328 | // HG_LOG_ERROR("Proc error"); |
323 | | - return ret; |
| 329 | + FUNC_LEAVE(ret); |
324 | 330 | } |
325 | 331 | ret = hg_proc_uint64_t(proc, &struct_data->dims_1); |
326 | 332 | if (ret != HG_SUCCESS) { |
327 | 333 | // HG_LOG_ERROR("Proc error"); |
328 | | - return ret; |
| 334 | + FUNC_LEAVE(ret); |
329 | 335 | } |
330 | 336 | ret = hg_proc_uint64_t(proc, &struct_data->dims_2); |
331 | 337 | if (ret != HG_SUCCESS) { |
332 | 338 | // HG_LOG_ERROR("Proc error"); |
333 | | - return ret; |
| 339 | + FUNC_LEAVE(ret); |
334 | 340 | } |
335 | 341 | ret = hg_proc_uint64_t(proc, &struct_data->dims_3); |
336 | 342 | if (ret != HG_SUCCESS) { |
337 | 343 | // HG_LOG_ERROR("Proc error"); |
338 | | - return ret; |
| 344 | + FUNC_LEAVE(ret); |
339 | 345 | } |
340 | 346 | ret = hg_proc_int32_t(proc, &struct_data->storageinfo); |
341 | 347 | if (ret != HG_SUCCESS) { |
342 | 348 | // HG_LOG_ERROR("Proc error"); |
343 | | - return ret; |
| 349 | + FUNC_LEAVE(ret); |
344 | 350 | } |
345 | 351 | ret = hg_proc_int32_t(proc, &struct_data->server_id); |
346 | 352 | if (ret != HG_SUCCESS) { |
347 | 353 | // HG_LOG_ERROR("Proc error"); |
348 | | - return ret; |
| 354 | + FUNC_LEAVE(ret); |
349 | 355 | } |
350 | | - return ret; |
| 356 | + |
| 357 | + FUNC_LEAVE(ret); |
351 | 358 | } |
352 | 359 |
|
353 | 360 | static HG_INLINE hg_return_t |
354 | 361 | hg_proc_analysis_ftn_out_t(hg_proc_t proc, void *data) |
355 | 362 | { |
| 363 | + FUNC_ENTER(NULL); |
| 364 | + |
356 | 365 | hg_return_t ret; |
357 | 366 | analysis_ftn_out_t *struct_data = (analysis_ftn_out_t *)data; |
358 | 367 |
|
359 | 368 | ret = hg_proc_uint64_t(proc, &struct_data->remote_ftn_id); |
360 | 369 | if (ret != HG_SUCCESS) { |
361 | 370 | // HG_LOG_ERROR("Proc error"); |
362 | | - return ret; |
| 371 | + FUNC_LEAVE(ret); |
363 | 372 | } |
364 | | - return ret; |
| 373 | + |
| 374 | + FUNC_LEAVE(ret); |
365 | 375 | } |
366 | 376 |
|
367 | 377 | static HG_INLINE hg_return_t |
368 | 378 | hg_proc_obj_data_iterator_out_t(hg_proc_t proc, void *data) |
369 | 379 | { |
| 380 | + FUNC_ENTER(NULL); |
| 381 | + |
370 | 382 | hg_return_t ret; |
371 | 383 | obj_data_iterator_out_t *struct_data = (obj_data_iterator_out_t *)data; |
372 | 384 |
|
373 | 385 | ret = hg_proc_uint64_t(proc, &struct_data->server_iter_id); |
374 | 386 | if (ret != HG_SUCCESS) { |
375 | 387 | // HG_LOG_ERROR("Proc error"); |
376 | | - return ret; |
| 388 | + FUNC_LEAVE(ret); |
377 | 389 | } |
378 | 390 | ret = hg_proc_uint64_t(proc, &struct_data->client_iter_id); |
379 | 391 | if (ret != HG_SUCCESS) { |
380 | 392 | // HG_LOG_ERROR("Proc error"); |
381 | | - return ret; |
| 393 | + FUNC_LEAVE(ret); |
382 | 394 | } |
383 | 395 | ret = hg_proc_uint64_t(proc, &struct_data->server_region_id); |
384 | 396 | if (ret != HG_SUCCESS) { |
385 | 397 | // HG_LOG_ERROR("Proc error"); |
386 | | - return ret; |
| 398 | + FUNC_LEAVE(ret); |
387 | 399 | } |
388 | 400 | ret = hg_proc_int32_t(proc, &struct_data->ret); |
389 | 401 | if (ret != HG_SUCCESS) { |
390 | 402 | // HG_LOG_ERROR("Proc error"); |
391 | | - return ret; |
| 403 | + FUNC_LEAVE(ret); |
392 | 404 | } |
393 | | - return ret; |
| 405 | + |
| 406 | + FUNC_LEAVE(ret); |
394 | 407 | } |
395 | 408 |
|
396 | 409 | /***************************************/ |
|
0 commit comments