| /src/external/gpl3/gcc/dist/gcc/fortran/ |
| trans-expr.cc | 1849 trans_scalar_class_assign (stmtblock_t *block, gfc_se *lse, gfc_se *rse)
1860 bool not_call_expr = TREE_CODE (rse->expr) != CALL_EXPR;
1880 && GFC_CLASS_TYPE_P (TREE_TYPE (rse->expr)))
1884 if (!GFC_CLASS_TYPE_P (TREE_TYPE (rse->expr))
1887 tmp = gfc_get_class_from_expr (rse->expr);
1893 rse_expr = gfc_evaluate_now (rse->expr, block);
1911 tmp = gfc_evaluate_now (gfc_build_addr_expr (NULL, rse->expr), block);
3491 gfc_se rse; local
3499 gfc_init_se (&rse, se);
3500 gfc_conv_expr_val (&rse, expr->value.op.op2)
3814 gfc_se lse, rse; local
3881 gfc_se rse; local
5047 gfc_se rse; local
8731 gfc_se rse; local
9030 gfc_se rse; local
10529 gfc_se rse; local
12374 gfc_se rse; local
[all...] |
| trans-stmt.cc | 3941 gfc_se rse; local
3970 gfc_init_se (&rse, NULL);
3971 gfc_conv_expr (&rse, e);
3974 tse.string_length = rse.string_length;
3978 rse.string_length);
3988 tmp = gfc_trans_scalar_assign (&tse, &rse, e->ts,
4320 gfc_se rse; local
4328 gfc_init_se (&rse, NULL);
4335 rse.expr = gfc_build_array_ref (tmp1, count1, NULL);
4358 rse.expr = gfc_build_array_ref (tmp1, count1, NULL)
4427 gfc_se rse; local
4854 gfc_se rse; local
5431 gfc_se lse, rse; local
5559 gfc_se rse; local
[all...] |
| trans-openmp.cc | 5190 gfc_se rse; local
5294 gfc_init_se (&rse, NULL);
5322 gfc_add_block_to_block (&block, &rse.pre);
5353 gfc_conv_expr (&rse, expr2);
5354 gfc_add_block_to_block (&block, &rse.pre);
5416 gfc_conv_expr (&rse, expr2);
5417 gfc_add_block_to_block (&block, &rse.pre);
5451 gfc_conv_expr (&rse, expr2->value.function.actual->next->expr);
5452 gfc_add_block_to_block (&block, &rse.pre);
5455 tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL)
[all...] |
| trans-array.cc | 8152 gfc_se rse; local
8163 gfc_init_se (&rse, NULL);
8164 gfc_copy_loopinfo_to_se (&rse, &loop);
8167 rse.ss = ss;
8172 gfc_conv_expr (&rse, expr);
8173 if (POINTER_TYPE_P (TREE_TYPE (rse.expr)))
8174 rse.expr = build_fold_indirect_ref_loc (input_location,
8175 rse.expr);
8178 gfc_conv_expr_val (&rse, expr);
8180 gfc_add_block_to_block (&block, &rse.pre)
[all...] |
| /src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| trans-expr.cc | 1773 trans_scalar_class_assign (stmtblock_t *block, gfc_se *lse, gfc_se *rse)
1784 bool not_call_expr = TREE_CODE (rse->expr) != CALL_EXPR;
1804 && GFC_CLASS_TYPE_P (TREE_TYPE (rse->expr)))
1808 if (!GFC_CLASS_TYPE_P (TREE_TYPE (rse->expr))
1811 tmp = gfc_get_class_from_expr (rse->expr);
1817 rse_expr = gfc_evaluate_now (rse->expr, block);
1835 tmp = gfc_evaluate_now (gfc_build_addr_expr (NULL, rse->expr), block);
3377 gfc_se rse; local
3385 gfc_init_se (&rse, se);
3386 gfc_conv_expr_val (&rse, expr->value.op.op2)
3699 gfc_se lse, rse; local
3766 gfc_se rse; local
4911 gfc_se rse; local
8210 gfc_se rse; local
8509 gfc_se rse; local
9927 gfc_se rse; local
11599 gfc_se rse; local
[all...] |
| trans-stmt.cc | 3862 gfc_se rse; local
3891 gfc_init_se (&rse, NULL);
3892 gfc_conv_expr (&rse, e);
3895 tse.string_length = rse.string_length;
3899 rse.string_length);
3909 tmp = gfc_trans_scalar_assign (&tse, &rse, e->ts,
4223 gfc_se rse; local
4231 gfc_init_se (&rse, NULL);
4238 rse.expr = gfc_build_array_ref (tmp1, count1, NULL);
4261 rse.expr = gfc_build_array_ref (tmp1, count1, NULL)
4330 gfc_se rse; local
4757 gfc_se rse; local
5331 gfc_se lse, rse; local
5459 gfc_se rse; local
[all...] |
| trans-openmp.cc | 4539 gfc_se rse; local
4643 gfc_init_se (&rse, NULL);
4671 gfc_add_block_to_block (&block, &rse.pre);
4702 gfc_conv_expr (&rse, expr2);
4703 gfc_add_block_to_block (&block, &rse.pre);
4765 gfc_conv_expr (&rse, expr2);
4766 gfc_add_block_to_block (&block, &rse.pre);
4800 gfc_conv_expr (&rse, expr2->value.function.actual->next->expr);
4801 gfc_add_block_to_block (&block, &rse.pre);
4804 tree accum = gfc_create_var (TREE_TYPE (rse.expr), NULL)
[all...] |
| trans-array.cc | 7786 gfc_se rse; local
7797 gfc_init_se (&rse, NULL);
7798 gfc_copy_loopinfo_to_se (&rse, &loop);
7801 rse.ss = ss;
7806 gfc_conv_expr (&rse, expr);
7807 if (POINTER_TYPE_P (TREE_TYPE (rse.expr)))
7808 rse.expr = build_fold_indirect_ref_loc (input_location,
7809 rse.expr);
7812 gfc_conv_expr_val (&rse, expr);
7814 gfc_add_block_to_block (&block, &rse.pre)
[all...] |
| /src/lib/libc/citrus/ |
| citrus_pivot_factory.c | 63 find_src(struct src_head *sh, struct src_entry **rse, const char *name)
70 *rse = se;
90 *rse = se;
|
