gdbinit 23 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773
  1. # StarPU --- Runtime system for heterogeneous multicore architectures.
  2. #
  3. # Copyright (C) 2010-2015 Université de Bordeaux
  4. # Copyright (C) 2010, 2011, 2012, 2013, 2014, 2015 CNRS
  5. #
  6. # StarPU is free software; you can redistribute it and/or modify
  7. # it under the terms of the GNU Lesser General Public License as published by
  8. # the Free Software Foundation; either version 2.1 of the License, or (at
  9. # your option) any later version.
  10. #
  11. # StarPU is distributed in the hope that it will be useful, but
  12. # WITHOUT ANY WARRANTY; without even the implied warranty of
  13. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14. #
  15. # See the GNU Lesser General Public License in COPYING.LGPL for more details.
  16. # To set a breakpoint when starting gdb with option "-ex run",
  17. # here what you need to do:
  18. #set breakpoint pending on
  19. #break starpu_mpi.c:419
  20. define starpu-print-job
  21. set language c
  22. set $job = (struct _starpu_job *)$arg0
  23. printf "StarPU Job (%p)\n", $job
  24. if ($job != 0)
  25. printf "\ttask:\t\t\t\t<%p>\n", $job->task
  26. printf "\tsubmitted:\t\t\t<%d>\n", $job->submitted
  27. printf "\tterminated:\t\t\t<%d>\n", $job->terminated
  28. printf "\tjob_id:\t\t\t\t<%d>\n", $job->job_id
  29. if $job->task && $job->task->name
  30. printf "\tname:\t\t\t\t<%s>\n", $job->task->name
  31. end
  32. end
  33. end
  34. document starpu-print-job
  35. Prints a StarPU job
  36. end
  37. define starpu-print-task
  38. set language c
  39. set $task = (struct starpu_task *)$arg0
  40. set $job = (struct _starpu_job *)$task->starpu_private
  41. set $status=0
  42. if $task->status == 0
  43. set $status="STARPU_TASK_INVALID"
  44. end
  45. if $task->status == 1
  46. set $status="STARPU_TASK_BLOCKED"
  47. end
  48. if $task->status == 2
  49. set $status="STARPU_TASK_READY"
  50. end
  51. if $task->status == 3
  52. set $status="STARPU_TASK_RUNNING"
  53. end
  54. if $task->status == 4
  55. set $status="STARPU_TASK_FINISHED"
  56. end
  57. if $task->status == 5
  58. set $status="STARPU_TASK_BLOCKED_ON_TAG"
  59. end
  60. if $task->status == 6
  61. set $status="STARPU_TASK_BLOCKED_ON_TASK"
  62. end
  63. if $task->status == 7
  64. set $status="STARPU_TASK_BLOCKED_ON_DATA"
  65. end
  66. if $task->status == 8
  67. set $status="STARPU_TASK_STOPPED"
  68. end
  69. printf "StarPU Task (%p)\n", $task
  70. if $task->name
  71. printf "\tname:\t\t\t\t<%s>\n", $task->name
  72. end
  73. printf "\tcodelet:\t\t\t<%p>\n", $task->cl
  74. printf "\tcallback:\t\t\t<%p>\n", $task->callback_func
  75. printf "\tsynchronous:\t\t\t<%d>\n", $task->synchronous
  76. printf "\texecute_on_a_specific_worker:\t<%d>\n", $task->execute_on_a_specific_worker
  77. printf "\tworkerid:\t\t\t<%d>\n", $task->workerid
  78. printf "\tdetach:\t\t\t\t<%d>\n", $task->detach
  79. printf "\tdestroy:\t\t\t<%d>\n", $task->destroy
  80. printf "\tregenerate:\t\t\t<%d>\n", $task->regenerate
  81. printf "\tstatus:\t\t\t\t<%s>\n", $status
  82. printf "\tjob:\t\t\t\t<%p>\n", $job
  83. printf "\tndeps:\t\t\t\t<%u>\n", $job->job_successors->ndeps
  84. printf "\tndeps_completed:\t\t<%u>\n", $job->job_successors->ndeps_completed
  85. printf "\tnsuccs:\t\t\t\t<%u>\n", $job->job_successors->nsuccs
  86. if $job
  87. starpu-print-job $job
  88. end
  89. end
  90. define starpu-print-task-and-successor
  91. set language c
  92. set $t = (struct starpu_task *) ($arg0)
  93. starpu-print-task $t
  94. set $j = (struct _starpu_job *) $t->starpu_private
  95. set $nsuccs = $j->job_successors.nsuccs
  96. set $i = 0
  97. while $i < $nsuccs
  98. set $cg = $j->job_successors.succ[$i]
  99. if ($cg->cg_type == 1)
  100. # STARPU_CG_APPS
  101. printf "waited for by application"
  102. end
  103. if ($cg->cg_type == 2)
  104. # STARPU_CG_TAG
  105. printf "will produce tag %x\n", $cg->succ.tag
  106. end
  107. if ($cg->cg_type == 4)
  108. # STARPU_CG_TASK
  109. printf "dep of task %p\n", $cg->succ.job
  110. starpu-print-task $cg->succ.job->task
  111. end
  112. set $i = $i + 1
  113. end
  114. end
  115. document starpu-print-task
  116. Prints a StarPU task
  117. end
  118. define starpu-tasks-on-worker
  119. set language c
  120. set $worker=config->workers[$arg0]
  121. set $task=$worker.local_tasks.head
  122. while $task != 0x0
  123. starpu-print-task $task
  124. set $task=$task->next
  125. end
  126. end
  127. define starpu-tasks-on-workers
  128. set language c
  129. set $num=0
  130. while $num<config->topology->nworkers
  131. printf "Worker %s\n", config->workers[$num].name
  132. starpu-tasks-on-worker $num
  133. set $num = $num + 1
  134. end
  135. end
  136. define starpu-workers
  137. set language c
  138. set $num=0
  139. printf "[Id] Name Arch Mask Devid Bindid Workerid Isrunning Isinitialized Status\n"
  140. while $num<config->topology->nworkers
  141. set $worker=&config->workers[$num]
  142. if $worker->status == STATUS_INVALID
  143. set $status="INVALID"
  144. end
  145. if $worker->status == STATUS_UNKNOWN
  146. set $status="UNKNOWN"
  147. end
  148. if $worker->status == STATUS_INITIALIZING
  149. set $status="INITIALIZING"
  150. end
  151. if $worker->status == STATUS_EXECUTING
  152. set $status="EXECUTING"
  153. end
  154. if $worker->status == STATUS_CALLBACK
  155. set $status="CALLBACK"
  156. end
  157. if $worker->status == STATUS_SCHEDULING
  158. set $status="SCHEDULING"
  159. end
  160. if $worker->status == STATUS_SLEEPING
  161. set $status="SLEEPING"
  162. end
  163. if $worker->status == STATUS_WAKING_UP
  164. set $status="WAKING_UP"
  165. end
  166. printf "[%2d] %-40s %-4d %-4d %-5d %-6d %-8d %-9d %-13d %s\n", $num, $worker->name, $worker->arch, $worker->worker_mask, \
  167. $worker->devid, $worker->bindid, $worker->workerid, $worker->worker_is_running, $worker->worker_is_initialized, $status
  168. set $num = $num + 1
  169. end
  170. end
  171. document starpu-workers
  172. Prints a list of the StarPU workers
  173. end
  174. define starpu-tags
  175. printf "tags htbl %p\n", tag_htbl
  176. printf "TODO\n"
  177. end
  178. define starpu-tasks
  179. set language c
  180. set $num=0
  181. set $nsubmitted=0
  182. set $nready=0
  183. while $num<config->topology->nsched_ctxs
  184. set $nsubmitted = $nsubmitted + config->sched_ctxs[$num]->tasks_barrier->barrier->reached_start
  185. set $nready = $nready + config->sched_ctxs[$num]->ready_tasks_barrier->barrier->reached_start
  186. set $num = $num + 1
  187. end
  188. printf "%d submitted tasks\n", $nsubmitted
  189. printf "%d ready tasks\n", $nready
  190. printf "Tasks being run:\n"
  191. set $n = 0
  192. while $n < config.topology.nworkers
  193. printf "worker %d %s:\n", $n, config.workers[$n].short_name
  194. if config.workers[$n].pipeline_length > 0
  195. set $m = 0
  196. while $m < config.workers[$n].ntasks
  197. set $t = config.workers[$n].current_tasks[(config.workers[$n].first_task + $m) % (sizeof(config.workers[$n].current_tasks)/sizeof(config.workers[$n].current_tasks[0]))]
  198. printf " task %p\n", $t
  199. set $m = $m + 1
  200. end
  201. end
  202. set $task = config.workers[$n].current_task
  203. if ($task)
  204. printf " task %p\n", $task
  205. end
  206. set $n = $n + 1
  207. end
  208. if (tag_htbl)
  209. printf "TODO: tags\n"
  210. end
  211. print "TODO: complete\n"
  212. end
  213. define starpu
  214. printf "Here I am...\n"
  215. end
  216. define starpu-print-mode
  217. if ($arg0 & 1)
  218. printf "R"
  219. end
  220. if ($arg0 & 2)
  221. printf "W"
  222. end
  223. if ($arg0 & 4)
  224. printf " SCRATCH"
  225. end
  226. if ($arg0 & 8)
  227. printf " REDUX"
  228. end
  229. end
  230. define starpu-print-data
  231. set language c
  232. set $data = (starpu_data_handle_t) $arg0
  233. printf "Data handle %p\n", $data
  234. printf "Home node %d\n", $data->home_node
  235. printf "RWlock refs %d\n", $data->refcnt
  236. printf "Busy count %d\n", $data->busy_count
  237. printf "Current mode "
  238. starpu-print-mode $data->current_mode
  239. printf "\n"
  240. if $data->current_mode & (4|8)
  241. set $n = 0
  242. while $n < config.topology.nworkers
  243. set $replicate = $data->per_worker[$n]
  244. printf "Worker %2d %10s:", $n, config->workers[$n]->name
  245. if $replicate.state == 0
  246. printf " OWNER"
  247. end
  248. if $replicate.state == 1
  249. printf " SHARED"
  250. end
  251. if $replicate.state == 2
  252. printf " INVALID"
  253. end
  254. if $replicate.initialized
  255. printf " initialized"
  256. end
  257. printf "\n"
  258. set $n = $n + 1
  259. end
  260. else
  261. set $n = 0
  262. while $n < descr.nnodes
  263. set $replicate = &$data->per_node[$n]
  264. printf "Node %2d (%2d):", $n, $replicate->refcnt
  265. if $replicate.state == 0
  266. printf " OWNER"
  267. end
  268. if $replicate.state == 1
  269. printf " SHARED"
  270. end
  271. if $replicate.state == 2
  272. printf " INVALID"
  273. end
  274. if $replicate.initialized
  275. printf " initialized"
  276. end
  277. printf "\n"
  278. set $n = $n + 1
  279. end
  280. end
  281. printf "Post sync tasks\n"
  282. set $tasklist = $data->post_sync_tasks
  283. while $tasklist != 0x0
  284. starpu-print-task $tasklist->task
  285. set $tasklist = $tasklist->next
  286. end
  287. printf "Requester tasks\n"
  288. set $requesterlist = $data->req_list._head
  289. while $requesterlist != 0x0
  290. printf "mode: "
  291. starpu-print-mode $requesterlist->mode
  292. printf "\n"
  293. starpu-print-job $requesterlist->j
  294. set $requesterlist = $requesterlist->_next
  295. end
  296. printf "Arbitered requester tasks\n"
  297. set $requesterlist = $data->arbitered_req_list._head
  298. while $requesterlist != 0x0
  299. printf "mode: "
  300. starpu-print-mode $requesterlist->mode
  301. printf "\n"
  302. starpu-print-job $requesterlist->j
  303. set $requesterlist = $requesterlist->_next
  304. end
  305. if ($data->nchildren)
  306. printf "%d children\n", $data->nchildren
  307. end
  308. end
  309. define starpu-print-datas
  310. set $entry = registered_handles
  311. while $entry
  312. starpu-print-data $entry->handle
  313. printf "\n"
  314. set $entry = (struct handle_entry *) $entry.hh.next
  315. end
  316. end
  317. define starpu-print-datas-summary
  318. set language c
  319. set $entry = registered_handles
  320. set $data_n = 0
  321. set $pw_data_n = 0
  322. set $data_n_allocated = 0
  323. set $replicate_n_owners = 0
  324. set $replicate_n_shared = 0
  325. set $replicate_n_invalid = 0
  326. set $replicate_n_initialized = 0
  327. set $replicate_n_allocated = 0
  328. set $pw_replicate_n_owners = 0
  329. set $pw_replicate_n_shared = 0
  330. set $pw_replicate_n_invalid = 0
  331. set $pw_replicate_n_initialized = 0
  332. set $pw_replicate_n_allocated = 0
  333. while $entry
  334. set $data = (starpu_data_handle_t) $entry->handle
  335. if $data->current_mode & (4|8)
  336. set $pw_data_n = $pw_data_n + 1
  337. set $n = 0
  338. while $n < config.topology.nworkers
  339. set $replicate = $data->per_worker[$n]
  340. if $replicate.state == 0
  341. set $pw_replicate_n_owners = $pw_replicate_n_owners + 1
  342. end
  343. if $replicate.state == 1
  344. set $pw_replicate_n_shared = $pw_replicate_n_shared + 1
  345. end
  346. if $replicate.state == 2
  347. set $pw_replicate_n_invalid = $pw_replicate_n_invalid + 1
  348. end
  349. if $replicate.initialized
  350. set $pw_replicate_n_initialized = $pw_replicate_n_initialized + 1
  351. end
  352. if $replicate.allocated
  353. set $pw_replicate_n_allocated = $pw_replicate_n_allocated + 1
  354. end
  355. set $n = $n + 1
  356. end
  357. else
  358. set $data_n = $data_n + 1
  359. set $n = 0
  360. while $n < descr.nnodes
  361. set $replicate = &$data->per_node[$n]
  362. if $replicate.state == 0
  363. set $replicate_n_owners = $replicate_n_owners + 1
  364. end
  365. if $replicate.state == 1
  366. set $replicate_n_shared = $replicate_n_shared + 1
  367. end
  368. if $replicate.state == 2
  369. set $replicate_n_invalid = $replicate_n_invalid + 1
  370. end
  371. if $replicate.initialized
  372. set $replicate_n_initialized = $replicate_n_initialized + 1
  373. end
  374. if $replicate.allocated
  375. set $replicate_n_allocated = $replicate_n_allocated + 1
  376. set $data_allocated = 1
  377. end
  378. set $n = $n + 1
  379. end
  380. if $data_allocated
  381. set $data_n_allocated = $data_n_allocated + 1
  382. end
  383. end
  384. set $entry = (struct handle_entry *) $entry.hh.next
  385. end
  386. printf "Number of handles: %d\n", $data_n
  387. printf "Number of allocated handles: %d\n", $data_n_allocated
  388. printf "Number of OWNER replicates: %d\n", $replicate_n_owners
  389. printf "Number of SHARED replicates: %d\n", $replicate_n_shared
  390. printf "Number of INVALID replicates: %d\n", $replicate_n_invalid
  391. printf "Number of initialized replicates: %d\n", $replicate_n_initialized
  392. printf "Number of allocated replicates: %d\n", $replicate_n_allocated
  393. printf "Number of per-worker handles: %d\n", $pw_data_n
  394. printf "Number of OWNER per-worker replicates: %d\n", $pw_replicate_n_owners
  395. printf "Number of SHARED per-worker replicates: %d\n", $pw_replicate_n_shared
  396. printf "Number of INVALID per-worker replicates: %d\n", $pw_replicate_n_invalid
  397. printf "Number of initialized per-worker replicates: %d\n", $pw_replicate_n_initialized
  398. printf "Number of allocated per-worker replicates: %d\n", $pw_replicate_n_allocated
  399. end
  400. define starpu-print-request
  401. set $r = (struct _starpu_data_request *)$arg0
  402. printf "Request %p\n", $r
  403. printf "Refcnt %d\n", $r->refcnt
  404. printf "Handle %p\n", $r->handle
  405. printf "src_replicate %p\n", $r->src_replicate
  406. printf "dst_replicate %p\n", $r->dst_replicate
  407. printf "handling_node %d\n", $r->handling_node
  408. if ($r->mode & 1)
  409. printf "R"
  410. end
  411. if ($r->mode & 2)
  412. printf "W"
  413. end
  414. if ($r->mode & 4)
  415. printf "S"
  416. end
  417. if ($r->mode & 8)
  418. printf "X"
  419. end
  420. printf "\n"
  421. printf "completed: %d\n", $r->completed
  422. printf "prefetch: %d\n", $r->prefetch
  423. printf "retval: %d\n", $r->retval
  424. printf "ndeps: %d\n", $r->ndeps
  425. printf "next_req_count: %d\n", $r->next_req_count
  426. printf "comid: %u\n", $r->com_id
  427. set $c = $r->callbacks
  428. while $c != 0
  429. printf "callback: %p %p\n", $c->callback_func, $c->callback_arg
  430. set $c = $c->next
  431. end
  432. end
  433. define starpu-print-requests
  434. set $node = 0
  435. while $node < descr.nnodes
  436. printf "Node %u:\n", $node
  437. set $request = data_requests[$node]._head
  438. while $request != 0
  439. printf " Request %p: handle %p ", $request, $request->handle
  440. starpu-print-mode $request->mode
  441. printf "\n"
  442. set $request = $request->_next
  443. end
  444. set $node = $node + 1
  445. end
  446. end
  447. define starpu-print-prequests
  448. set $node = 0
  449. while $node < descr.nnodes
  450. printf "Node %u:\n", $node
  451. printf "%u pending requests\n", data_requests_npending[$node]
  452. set $request = data_requests_pending[$node]._head
  453. while $request != 0
  454. printf " Request %p: handle %p ", $request, $request->handle
  455. starpu-print-mode $request->mode
  456. printf "\n"
  457. set $request = $request->_next
  458. end
  459. set $node = $node + 1
  460. end
  461. end
  462. define starpu-print-arch
  463. set $arch = (struct starpu_perfmodel_arch *)$arg0
  464. set $device = 0
  465. while $device < $arch->ndevices
  466. printf " Device type %d - devid: %d - ncores: %d\n", $arch->devices[$device].type, $arch->devices[$device].devid, $arch->devices[$device].ncores
  467. set $device = $device + 1
  468. end
  469. end
  470. define starpu-print-archs
  471. set $comb = 0
  472. while $comb < current_arch_comb
  473. printf "Combination %d with %d devices\n", $comb, arch_combs[$comb]->ndevices
  474. starpu-print-arch arch_combs[$comb]
  475. set $comb = $comb + 1
  476. end
  477. end
  478. define starpu-print-frequests
  479. set $node = 0
  480. while $node < descr.nnodes
  481. printf "Node %u:\n", $node
  482. set $request = prefetch_requests[$node]._head
  483. while $request != 0
  484. printf " Request %p: handle %p ", $request, $request->handle
  485. starpu-print-mode $request->mode
  486. printf "\n"
  487. set $request = $request->_next
  488. end
  489. set $node = $node + 1
  490. end
  491. end
  492. define starpu-print-irequests
  493. set $node = 0
  494. while $node < descr.nnodes
  495. printf "Node %u:\n", $node
  496. set $request = idle_requests[$node]._head
  497. while $request != 0
  498. printf " Request %p: handle %p ", $request, $request->handle
  499. starpu-print-mode $request->mode
  500. printf "\n"
  501. set $request = $request->_next
  502. end
  503. set $node = $node + 1
  504. end
  505. end
  506. define starpu-memusage
  507. set scheduler-locking on
  508. set $node = 0
  509. while $node < descr.nnodes
  510. printf "\n\nNode %u:\n", $node
  511. set $total = 0
  512. set $total_b = 0
  513. set $wt = 0
  514. set $wt_b = 0
  515. set $home = 0
  516. set $home_b = 0
  517. set $redux = 0
  518. set $redux_b = 0
  519. set $relax = 0
  520. set $relax_b = 0
  521. set $noref = 0
  522. set $noref_b = 0
  523. set $nodataref = 0
  524. set $nodataref_b = 0
  525. set $nosubdataref = 0
  526. set $nosubdataref_b = 0
  527. set $mc = mc_list[$node]->_head
  528. while $mc != 0
  529. set $handle = $mc->data
  530. set $size = _starpu_data_get_size($handle)
  531. set $total = $total + 1
  532. set $total_b = $total_b + $size
  533. if $handle->wt_mask & (1 << $node)
  534. set $wt = $wt + 1
  535. set $wt_b = $wt_b + $size
  536. end
  537. if $node == $handle->home_node
  538. set $home = $home + 1
  539. set $home_b = $home_b + $size
  540. end
  541. if $mc->relaxed_coherency == 2
  542. set $redux = $redux + 1
  543. set $redux_b = $redux_b + $size
  544. end
  545. if $mc->relaxed_coherency == 1
  546. set $relax = $relax + 1
  547. set $relax_b = $relax_b + $size
  548. if $mc->replicate
  549. if $mc->replicate->refcnt == 0
  550. set $noref = $noref + 1
  551. set $noref_b = $noref_b + $size
  552. end
  553. end
  554. end
  555. if $mc->relaxed_coherency == 0
  556. if (may_free_subtree($handle,$node))
  557. set $nosubdataref = $nosubdataref + 1
  558. set $nosubdataref_b = $nosubdataref_b + $size
  559. end
  560. if $handle->per_node[$node].refcnt == 0
  561. set $nodataref = $nodataref + 1
  562. set $nodataref_b = $nodataref_b + $size
  563. end
  564. end
  565. set $mc = $mc->_next
  566. end
  567. printf " Total used: %u, %uMiB\n", $total, $total_b / 1048576
  568. printf " WT: %u, %uMiB\n", $wt, $wt_b / 1048576
  569. printf " home: %u, %uMiB\n", $home, $home_b / 1048576
  570. printf " redux: %u, %uMiB\n", $redux, $redux_b / 1048576
  571. printf " relax: %u, %uMiB\n", $relax, $relax_b / 1048576
  572. printf " noref: %u, %uMiB\n", $noref, $noref_b / 1048576
  573. printf " nosubdataref: %u, %uMiB\n", $nosubdataref, $nosubdataref_b / 1048576
  574. printf " nodataref: %u, %uMiB\n", $nodataref, $nodataref_b / 1048576
  575. printf "\n cached: %u, %uMiB\n", mc_cache_nb[$node], mc_cache_size[$node] / 1048576
  576. set $node = $node + 1
  577. end
  578. end
  579. define starpu-print-model
  580. set $model = (struct starpu_perfmodel *)$arg0
  581. printf "Model %p type %d symbol ", $model, $model->type
  582. if $model->symbol
  583. printf "%s", $model->symbol
  584. else
  585. printf "NULL"
  586. end
  587. printf "\n"
  588. end
  589. define starpu-print-registered-models
  590. set $node = registered_models
  591. while $node
  592. starpu-print-model $node->model
  593. set $node = $node->next
  594. end
  595. end
  596. define starpu-mpi-print-request
  597. set $request = (struct _starpu_mpi_req *)$arg0
  598. set $request_type = "unknown_type"
  599. if $request->request_type == SEND_REQ
  600. set $request_type = "SEND_REQ"
  601. end
  602. if $request->request_type == RECV_REQ
  603. set $request_type = "RECV_REQ"
  604. end
  605. if $request->request_type == WAIT_REQ
  606. set $request_type = "WAIT_REQ"
  607. end
  608. if $request->request_type == TEST_REQ
  609. set $request_type = "TEST_REQ"
  610. end
  611. if $request->request_type == BARRIER_REQ
  612. set $request_type = "BARRIER_REQ"
  613. end
  614. if $request->request_type == PROBE_REQ
  615. set $request_type = "PROBE_REQ"
  616. end
  617. if $request->request_type == UNKNOWN_REQ
  618. set $request_type = "UNKNOWN_REQ"
  619. end
  620. printf "Request (struct _starpu_mpi_req *) %p data %p type %s submitted %d completed %d posted %d detached %d is_internal_req %d\n", $request, $request->data_handle, $request_type, $request->submitted, $request->completed, $request->posted, $request->detached, $request->is_internal_req
  621. end
  622. define starpu-mpi-print-ready-requests
  623. set $list = (struct _starpu_mpi_req_list *) ready_requests
  624. if $list
  625. set $request = $list->_head
  626. while $request
  627. starpu-mpi-print-request $request
  628. set $request = $request->_next
  629. end
  630. else
  631. printf "No ready requests"
  632. end
  633. end
  634. define starpu-mpi-print-detached-requests
  635. set $list = (struct _starpu_mpi_req_list *) detached_requests
  636. if $list
  637. set $request = $list->_head
  638. while $request
  639. starpu-mpi-print-request $request
  640. set $request = $request->_next
  641. end
  642. else
  643. printf "No detached requests"
  644. end
  645. end
  646. define starpu-mpi-print-early-data
  647. set $hash = (struct _starpu_mpi_early_data_handle_hashlist *)_starpu_mpi_early_data_handle_hashmap
  648. if $hash
  649. while $hash
  650. printf "Communicator %p Rank %d Data_tag %d\n", $hash->node_tag->comm, $hash->node_tag->rank, $hash->node_tag->data_tag
  651. set $list = (struct _starpu_mpi_early_data_handle_list *) $hash->list
  652. if $list
  653. set $data = (struct _starpu_mpi_early_data_handle *)$list->_head
  654. while $data
  655. starpu-mpi-print-request $data->req
  656. set $data = $data->_next
  657. end
  658. end
  659. set $hash = (struct _starpu_mpi_early_data_handle_hashlist *) $hash->hh.next
  660. end
  661. else
  662. printf "No early data\n"
  663. end
  664. end
  665. define starpu-mpi-print-early-requests
  666. set $hash = (struct _starpu_mpi_early_request_hashlist *)_starpu_mpi_early_request_hash
  667. if $hash
  668. while $hash
  669. printf "Communicator %p Rank %d Data_tag %d\n", $hash->node_tag->comm, $hash->node_tag->rank, $hash->node_tag->data_tag
  670. set $list = (struct _starpu_mpi_req_list*) $hash->list
  671. if $list
  672. set $request = $list->_head
  673. while $request
  674. starpu-mpi-print-request $request
  675. set $request = $request->_next
  676. end
  677. end
  678. set $hash = (struct _starpu_mpi_early_request_hashlist *) $hash->hh.next
  679. end
  680. else
  681. printf "No early request\n"
  682. end
  683. end
  684. define starpu-mpi-print-sync-data
  685. set $hash = (struct _starpu_mpi_sync_data_handle_hashlist *)_starpu_mpi_sync_data_handle_hashmap
  686. if $hash
  687. while $hash
  688. printf "Communicator %p Rank %d Data_tag %d\n", $hash->node_tag->comm, $hash->node_tag->rank, $hash->node_tag->data_tag
  689. set $list = (struct _starpu_mpi_req_list *) $hash->list
  690. if $list
  691. set $request = $list->_head
  692. while $request
  693. starpu-mpi-print-request $request
  694. set $request = $request->_next
  695. end
  696. end
  697. set $hash = (struct _starpu_mpi_sync_data_handle_hashlist *) $hash->hh.next
  698. end
  699. else
  700. printf "No sync data\n"
  701. end
  702. end
  703. document starpu
  704. List of StarPU-specific gdb functions:
  705. starpu-workers prints a list of the StarPU workers
  706. starpu-tasks-on-workers prints a list of the tasks currently running on workers
  707. starpu-tasks-on-worker prints a list of the tasks running on the given worker
  708. starpu-print-job prints a StarPU job
  709. starpu-print-task prints a StarPU task
  710. starpu-print-task-and-successor prints a StarPU task and its successors
  711. starpu-print-data prints a StarPU data handle
  712. starpu-print-datas prints all StarPU data handles
  713. starpu-print-datas-summary prints a summary of data handles
  714. starpu-print-request prints a StarPU data request
  715. starpu-print-requests prints all StarPU data requests
  716. starpu-print-prequests prints all pending StarPU data requests
  717. starpu-print-frequests prints all StarPU prefetch data requests
  718. starpu-print-irequests prints all StarPU idle data requests
  719. starpu-tasks prints a list of the tasks flowing in StarPU
  720. starpu-tags prints a list of the tags known to StarPU
  721. starpu-memusage prints the memory node usage
  722. starpu-print-archs prints all known arch combinations
  723. starpu-print-arch prints a given arch combination
  724. starpu-print-registered-models prints all registered performance models
  725. starpu-print-model prints a given performance model
  726. starpu-mpi-print-ready-requests prints all MPI ready requests
  727. starpu-mpi-print-detached-requests prints all MPI detached requests
  728. starpu-mpi-print-early-data prints all MPI early received data
  729. starpu-mpi-print-early-requests prints all MPI early requests
  730. starpu-mpi-print-sync-data prints all MPI sync data
  731. end