comparison gcc/gimple-walk.c @ 145:1830386684a0

gcc-9.2.0
author anatofuz
date Thu, 13 Feb 2020 11:34:05 +0900
parents 84e7813d76e9
children
comparison
equal deleted inserted replaced
131:84e7813d76e9 145:1830386684a0
1 /* Gimple walk support. 1 /* Gimple walk support.
2 2
3 Copyright (C) 2007-2018 Free Software Foundation, Inc. 3 Copyright (C) 2007-2020 Free Software Foundation, Inc.
4 Contributed by Aldy Hernandez <aldyh@redhat.com> 4 Contributed by Aldy Hernandez <aldyh@redhat.com>
5 5
6 This file is part of GCC. 6 This file is part of GCC.
7 7
8 GCC is free software; you can redistribute it and/or modify it under 8 GCC is free software; you can redistribute it and/or modify it under
328 328
329 case GIMPLE_OMP_ORDERED: 329 case GIMPLE_OMP_ORDERED:
330 { 330 {
331 gomp_ordered *omp_stmt = as_a <gomp_ordered *> (stmt); 331 gomp_ordered *omp_stmt = as_a <gomp_ordered *> (stmt);
332 ret = walk_tree (gimple_omp_ordered_clauses_ptr (omp_stmt), 332 ret = walk_tree (gimple_omp_ordered_clauses_ptr (omp_stmt),
333 callback_op, wi, pset);
334 if (ret)
335 return ret;
336 }
337 break;
338
339 case GIMPLE_OMP_SCAN:
340 {
341 gomp_scan *scan_stmt = as_a <gomp_scan *> (stmt);
342 ret = walk_tree (gimple_omp_scan_clauses_ptr (scan_stmt),
333 callback_op, wi, pset); 343 callback_op, wi, pset);
334 if (ret) 344 if (ret)
335 return ret; 345 return ret;
336 } 346 }
337 break; 347 break;
648 /* FALL THROUGH. */ 658 /* FALL THROUGH. */
649 case GIMPLE_OMP_CRITICAL: 659 case GIMPLE_OMP_CRITICAL:
650 case GIMPLE_OMP_MASTER: 660 case GIMPLE_OMP_MASTER:
651 case GIMPLE_OMP_TASKGROUP: 661 case GIMPLE_OMP_TASKGROUP:
652 case GIMPLE_OMP_ORDERED: 662 case GIMPLE_OMP_ORDERED:
663 case GIMPLE_OMP_SCAN:
653 case GIMPLE_OMP_SECTION: 664 case GIMPLE_OMP_SECTION:
654 case GIMPLE_OMP_PARALLEL: 665 case GIMPLE_OMP_PARALLEL:
655 case GIMPLE_OMP_TASK: 666 case GIMPLE_OMP_TASK:
656 case GIMPLE_OMP_SECTIONS: 667 case GIMPLE_OMP_SECTIONS:
657 case GIMPLE_OMP_SINGLE: 668 case GIMPLE_OMP_SINGLE: