| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | trans-openmp.c | 1591 int parent_flag; in gfc_trans_omp_variable() local
1609 parent_flag = 1; in gfc_trans_omp_variable()
1611 parent_flag = 0; in gfc_trans_omp_variable()
1615 if (return_value && (t == current_function_decl || parent_flag)) in gfc_trans_omp_variable()
1616 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
1621 || parent_flag)) in gfc_trans_omp_variable()
1628 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
1635 || parent_flag)) in gfc_trans_omp_variable()
1636 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
|
| H A D | trans-decl.c | 3086 gfc_get_fake_result_decl (gfc_symbol * sym, int parent_flag) in gfc_get_fake_result_decl() argument
3095 if (parent_flag) in gfc_get_fake_result_decl()
3118 decl = gfc_get_fake_result_decl (sym->ns->proc_name, parent_flag); in gfc_get_fake_result_decl()
3120 if (parent_flag) in gfc_get_fake_result_decl()
3141 if (parent_flag) in gfc_get_fake_result_decl()
3209 if (parent_flag) in gfc_get_fake_result_decl()
3215 if (parent_flag) in gfc_get_fake_result_decl()
|
| H A D | symbol.c | 3206 gfc_find_sym_tree (const char *name, gfc_namespace *ns, int parent_flag, in gfc_find_sym_tree() argument
3233 if (!parent_flag) in gfc_find_sym_tree()
3271 gfc_find_symbol (const char *name, gfc_namespace *ns, int parent_flag, in gfc_find_symbol() argument
3277 i = gfc_find_sym_tree (name, ns, parent_flag, &st); in gfc_find_symbol()
|
| H A D | trans-expr.c | 2875 int parent_flag; in gfc_conv_variable() local
2925 parent_flag = 1; in gfc_conv_variable()
2927 parent_flag = 0; in gfc_conv_variable()
2931 if (return_value && (se->expr == current_function_decl || parent_flag)) in gfc_conv_variable()
2932 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
2937 || parent_flag)) in gfc_conv_variable()
2944 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
2951 || parent_flag)) in gfc_conv_variable()
2952 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | trans-openmp.cc | 1863 int parent_flag; in gfc_trans_omp_variable() local
1881 parent_flag = 1; in gfc_trans_omp_variable()
1883 parent_flag = 0; in gfc_trans_omp_variable()
1887 if (return_value && (t == current_function_decl || parent_flag)) in gfc_trans_omp_variable()
1888 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
1893 || parent_flag)) in gfc_trans_omp_variable()
1900 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
1907 || parent_flag)) in gfc_trans_omp_variable()
1908 t = gfc_get_fake_result_decl (sym, parent_flag); in gfc_trans_omp_variable()
|
| H A D | symbol.cc | 3220 gfc_find_sym_tree (const char *name, gfc_namespace *ns, int parent_flag, in gfc_find_sym_tree() argument
3247 if (!parent_flag) in gfc_find_sym_tree()
3285 gfc_find_symbol (const char *name, gfc_namespace *ns, int parent_flag, in gfc_find_symbol() argument
3291 i = gfc_find_sym_tree (name, ns, parent_flag, &st); in gfc_find_symbol()
|
| H A D | trans-decl.cc | 3126 gfc_get_fake_result_decl (gfc_symbol * sym, int parent_flag) in gfc_get_fake_result_decl() argument
3135 if (parent_flag) in gfc_get_fake_result_decl()
3158 decl = gfc_get_fake_result_decl (sym->ns->proc_name, parent_flag); in gfc_get_fake_result_decl()
3160 if (parent_flag) in gfc_get_fake_result_decl()
3181 if (parent_flag) in gfc_get_fake_result_decl()
3249 if (parent_flag) in gfc_get_fake_result_decl()
3255 if (parent_flag) in gfc_get_fake_result_decl()
|
| H A D | trans-expr.cc | 2977 int parent_flag; in gfc_conv_variable() local
3027 parent_flag = 1; in gfc_conv_variable()
3029 parent_flag = 0; in gfc_conv_variable()
3033 if (return_value && (se->expr == current_function_decl || parent_flag)) in gfc_conv_variable()
3034 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
3039 || parent_flag)) in gfc_conv_variable()
3046 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
3053 || parent_flag)) in gfc_conv_variable()
3054 se_expr = gfc_get_fake_result_decl (sym, parent_flag); in gfc_conv_variable()
|
| H A D | ChangeLog-2006 | 3139 of parent_flag, formatting.
3201 to gfc_get_fake_result_decl with a new argument, parent_flag.
3204 * trans.h: Add parent_flag to gfc_get_fake_result_decl prototype.
3205 * trans-decl.c (gfc_get_fake_result_decl): On parent_flag, being set,
3209 translation of code for contained procedures. Set parent_flag to zero
|