FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

trans-stmt.c (gfc_evaluate_where_mask): Use LOGICAL*1 for WHERE masks instead of LOGICAL*4.

Browse source 
* trans-stmt.c (gfc_evaluate_where_mask): Use LOGICAL*1 for WHERE
	masks instead of LOGICAL*4.

From-SVN: r110617
This commit is contained in:
Roger Sayle 2006-02-05 16:59:48 +00:00 • committed by Roger Sayle
parent 5a1a44503e
commit c2a11bfcc0
2 changed files with 13 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/fortran/ChangeLog
View file

@ -1,3 +1,8 @@
2006-02-05 Roger Sayle <roger@eyesopen.com>
* trans-stmt.c (gfc_evaluate_where_mask): Use LOGICAL*1 for WHERE
masks instead of LOGICAL*4.
2006-02-05 Jakub Jelinek <jakub@redhat.com>
* resolve.c (resolve_symbol): Initialize constructor_expr to NULL.

12
gcc/fortran/trans-stmt.c
View file

@ -2639,6 +2639,7 @@ gfc_evaluate_where_mask (gfc_expr * me, forall_info * nested_forall_info,
tree inner_size, size;
stmtblock_t body, body1, inner_size_body;
gfc_se lse, rse;
tree mask_type;
tree count;
tree tmpexpr;
@ -2652,9 +2653,12 @@ gfc_evaluate_where_mask (gfc_expr * me, forall_info * nested_forall_info,
size = compute_overall_iter_number (nested_forall_info, inner_size,
&inner_size_body, block);
/* As the mask array can be very big, prefer compact boolean types. */
mask_type = gfc_get_logical_type (gfc_logical_kinds[0].kind);
/* Allocate temporary for where mask. */
tmp = allocate_temp_for_forall_nest_1 (boolean_type_node, size, block,
&ptemp1);
tmp = allocate_temp_for_forall_nest_1 (mask_type, size, block, &ptemp1);
/* Record the temporary address in order to free it later. */
if (ptemp1)
{
@ -2666,8 +2670,8 @@ gfc_evaluate_where_mask (gfc_expr * me, forall_info * nested_forall_info,
}
/* Allocate temporary for !mask. */
ntmp = allocate_temp_for_forall_nest_1 (boolean_type_node, size, block,
&ptemp2);
ntmp = allocate_temp_for_forall_nest_1 (mask_type, size, block, &ptemp2);
/* Record the temporary in order to free it later. */
if (ptemp2)
{