+2010-09-12 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
+
+ * intrinsics/pack_generic.c (pack): Add missing return and fix whitespace.
+ * intrinsics/cshift0.c (cshift0): Fix whitespace.
+ * intrinsics/unpack_generic.c (unpack1, unpack0): Fix whitespace.
+
2010-09-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* runtime/string.c (compare0): Remove.
cshift0_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, shift,
which);
- return;
+ return;
}
else
{
cshift0_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array, shift,
which);
- return;
+ return;
}
else
{
case GFC_DTYPE_LOGICAL_4:
case GFC_DTYPE_INTEGER_4:
-
pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array,
(gfc_array_l1 *) mask, (gfc_array_i4 *) vector);
return;
case GFC_DTYPE_LOGICAL_8:
case GFC_DTYPE_INTEGER_8:
-
pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,
(gfc_array_l1 *) mask, (gfc_array_i8 *) vector);
return;
#ifdef HAVE_GFC_INTEGER_16
case GFC_DTYPE_LOGICAL_16:
case GFC_DTYPE_INTEGER_16:
-
pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,
(gfc_array_l1 *) mask, (gfc_array_i16 *) vector);
return;
#endif
+
case GFC_DTYPE_REAL_4:
pack_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) array,
(gfc_array_l1 *) mask, (gfc_array_r4 *) vector);
(gfc_array_l1 *) mask, (gfc_array_r16 *) vector);
return;
#endif
+
case GFC_DTYPE_COMPLEX_4:
pack_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array,
(gfc_array_l1 *) mask, (gfc_array_c4 *) vector);
{
pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,
(gfc_array_l1 *) mask, (gfc_array_i8 *) vector);
+ return;
}
#ifdef HAVE_GFC_INTEGER_16
mask, (gfc_array_i16 *) field);
return;
#endif
+
case GFC_DTYPE_REAL_4:
unpack1_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector,
mask, (gfc_array_r4 *) field);
case GFC_DTYPE_REAL_10:
unpack1_r10 ((gfc_array_r10 *) ret, (gfc_array_r10 *) vector,
mask, (gfc_array_r10 *) field);
- return;
+ return;
#endif
#ifdef HAVE_GFC_REAL_16
mask, (GFC_INTEGER_16 *) field);
return;
#endif
+
case GFC_DTYPE_REAL_4:
unpack0_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector,
mask, (GFC_REAL_4 *) field);
mask, (GFC_COMPLEX_16 *) field);
return;
#endif
+
case GFC_DTYPE_DERIVED_2:
if (GFC_UNALIGNED_2(ret->data) || GFC_UNALIGNED_2(vector->data)
|| GFC_UNALIGNED_2(field))
mask, (GFC_INTEGER_8 *) field);
return;
}
+
#ifdef HAVE_GFC_INTEGER_16
case GFC_DTYPE_DERIVED_16:
if (GFC_UNALIGNED_16(ret->data) || GFC_UNALIGNED_16(vector->data)
return;
}
#endif
+
}
memset (&tmp, 0, sizeof (tmp));