Home
last modified time | relevance | path

Searched refs:tmpvar (Results 1 – 8 of 8) sorted by relevance

/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Dtrans.cc637 tree tmpvar = NULL; in gfc_trans_runtime_check() local
644 tmpvar = gfc_create_var (boolean_type_node, "print_warning"); in gfc_trans_runtime_check()
645 TREE_STATIC (tmpvar) = 1; in gfc_trans_runtime_check()
646 DECL_INITIAL (tmpvar) = boolean_true_node; in gfc_trans_runtime_check()
647 gfc_add_expr_to_block (pblock, tmpvar); in gfc_trans_runtime_check()
667 gfc_add_modify (&block, tmpvar, boolean_false_node); in gfc_trans_runtime_check()
679 boolean_type_node, tmpvar, in gfc_trans_runtime_check()
H A Dtrans-io.cc712 tree tmpvar = gfc_create_var (TREE_TYPE (TREE_TYPE (p->field)), in set_parameter_ref() local
718 gfc_add_modify (block, tmpvar, in set_parameter_ref()
719 build_int_cst (TREE_TYPE (tmpvar), LIBERROR_OK)); in set_parameter_ref()
721 addr = gfc_build_addr_expr (NULL_TREE, tmpvar); in set_parameter_ref()
723 tmp = convert (TREE_TYPE (se.expr), tmpvar); in set_parameter_ref()
H A Dtrans-stmt.cc4183 tree tmpvar; in gfc_do_allocate() local
4197 tmpvar = gfc_create_var (type, "temp"); in gfc_do_allocate()
4202 tmpvar = gfc_create_var (build_pointer_type (type), "temp"); in gfc_do_allocate()
4203 *pdata = convert (pvoid_type_node, tmpvar); in gfc_do_allocate()
4205 tmp = gfc_call_malloc (pblock, TREE_TYPE (tmpvar), bytesize); in gfc_do_allocate()
4206 gfc_add_modify (pblock, tmpvar, tmp); in gfc_do_allocate()
4208 return tmpvar; in gfc_do_allocate()
H A Dtrans-expr.cc3247 gfc_conv_powi (gfc_se * se, unsigned HOST_WIDE_INT n, tree * tmpvar) in gfc_conv_powi() argument
3256 if (tmpvar[n]) in gfc_conv_powi()
3257 return tmpvar[n]; in gfc_conv_powi()
3259 op0 = gfc_conv_powi (se, n - powi_table[n], tmpvar); in gfc_conv_powi()
3260 op1 = gfc_conv_powi (se, powi_table[n], tmpvar); in gfc_conv_powi()
3265 op0 = gfc_conv_powi (se, n - digit, tmpvar); in gfc_conv_powi()
3266 op1 = gfc_conv_powi (se, digit, tmpvar); in gfc_conv_powi()
3270 op0 = gfc_conv_powi (se, n >> 1, tmpvar); in gfc_conv_powi()
3278 tmpvar[n] = tmp; in gfc_conv_powi()
/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Dtrans.c563 tree tmpvar = NULL; in gfc_trans_runtime_check() local
570 tmpvar = gfc_create_var (logical_type_node, "print_warning"); in gfc_trans_runtime_check()
571 TREE_STATIC (tmpvar) = 1; in gfc_trans_runtime_check()
572 DECL_INITIAL (tmpvar) = logical_true_node; in gfc_trans_runtime_check()
573 gfc_add_expr_to_block (pblock, tmpvar); in gfc_trans_runtime_check()
593 gfc_add_modify (&block, tmpvar, logical_false_node); in gfc_trans_runtime_check()
605 long_integer_type_node, tmpvar, cond); in gfc_trans_runtime_check()
H A Dtrans-io.c712 tree tmpvar = gfc_create_var (TREE_TYPE (TREE_TYPE (p->field)), in set_parameter_ref() local
718 gfc_add_modify (block, tmpvar, in set_parameter_ref()
719 build_int_cst (TREE_TYPE (tmpvar), LIBERROR_OK)); in set_parameter_ref()
721 addr = gfc_build_addr_expr (NULL_TREE, tmpvar); in set_parameter_ref()
723 tmp = convert (TREE_TYPE (se.expr), tmpvar); in set_parameter_ref()
H A Dtrans-stmt.c4147 tree tmpvar; in gfc_do_allocate() local
4161 tmpvar = gfc_create_var (type, "temp"); in gfc_do_allocate()
4166 tmpvar = gfc_create_var (build_pointer_type (type), "temp"); in gfc_do_allocate()
4167 *pdata = convert (pvoid_type_node, tmpvar); in gfc_do_allocate()
4169 tmp = gfc_call_malloc (pblock, TREE_TYPE (tmpvar), bytesize); in gfc_do_allocate()
4170 gfc_add_modify (pblock, tmpvar, tmp); in gfc_do_allocate()
4172 return tmpvar; in gfc_do_allocate()
H A Dtrans-expr.c3145 gfc_conv_powi (gfc_se * se, unsigned HOST_WIDE_INT n, tree * tmpvar) in gfc_conv_powi() argument
3154 if (tmpvar[n]) in gfc_conv_powi()
3155 return tmpvar[n]; in gfc_conv_powi()
3157 op0 = gfc_conv_powi (se, n - powi_table[n], tmpvar); in gfc_conv_powi()
3158 op1 = gfc_conv_powi (se, powi_table[n], tmpvar); in gfc_conv_powi()
3163 op0 = gfc_conv_powi (se, n - digit, tmpvar); in gfc_conv_powi()
3164 op1 = gfc_conv_powi (se, digit, tmpvar); in gfc_conv_powi()
3168 op0 = gfc_conv_powi (se, n >> 1, tmpvar); in gfc_conv_powi()
3176 tmpvar[n] = tmp; in gfc_conv_powi()