Commit 075abad5 by Francois-Xavier Coudert Committed by François-Xavier Coudert

pack_generic.c (pack): Add missing return and fix whitespace.

	* 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.

From-SVN: r164230
parent 457e68e7
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> 2010-09-10 Francois-Xavier Coudert <fxcoudert@gcc.gnu.org>
* runtime/string.c (compare0): Remove. * runtime/string.c (compare0): Remove.
......
...@@ -218,7 +218,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -218,7 +218,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
cshift0_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, shift, cshift0_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, shift,
which); which);
return; return;
} }
else else
{ {
...@@ -242,7 +242,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array, ...@@ -242,7 +242,7 @@ cshift0 (gfc_array_char * ret, const gfc_array_char * array,
cshift0_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array, shift, cshift0_c8 ((gfc_array_c8 *) ret, (gfc_array_c8 *) array, shift,
which); which);
return; return;
} }
else else
{ {
......
...@@ -273,14 +273,12 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ...@@ -273,14 +273,12 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
case GFC_DTYPE_LOGICAL_4: case GFC_DTYPE_LOGICAL_4:
case GFC_DTYPE_INTEGER_4: case GFC_DTYPE_INTEGER_4:
pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array, pack_i4 ((gfc_array_i4 *) ret, (gfc_array_i4 *) array,
(gfc_array_l1 *) mask, (gfc_array_i4 *) vector); (gfc_array_l1 *) mask, (gfc_array_i4 *) vector);
return; return;
case GFC_DTYPE_LOGICAL_8: case GFC_DTYPE_LOGICAL_8:
case GFC_DTYPE_INTEGER_8: case GFC_DTYPE_INTEGER_8:
pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array, pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,
(gfc_array_l1 *) mask, (gfc_array_i8 *) vector); (gfc_array_l1 *) mask, (gfc_array_i8 *) vector);
return; return;
...@@ -288,11 +286,11 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ...@@ -288,11 +286,11 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
#ifdef HAVE_GFC_INTEGER_16 #ifdef HAVE_GFC_INTEGER_16
case GFC_DTYPE_LOGICAL_16: case GFC_DTYPE_LOGICAL_16:
case GFC_DTYPE_INTEGER_16: case GFC_DTYPE_INTEGER_16:
pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array, pack_i16 ((gfc_array_i16 *) ret, (gfc_array_i16 *) array,
(gfc_array_l1 *) mask, (gfc_array_i16 *) vector); (gfc_array_l1 *) mask, (gfc_array_i16 *) vector);
return; return;
#endif #endif
case GFC_DTYPE_REAL_4: case GFC_DTYPE_REAL_4:
pack_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) array, pack_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) array,
(gfc_array_l1 *) mask, (gfc_array_r4 *) vector); (gfc_array_l1 *) mask, (gfc_array_r4 *) vector);
...@@ -316,6 +314,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ...@@ -316,6 +314,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
(gfc_array_l1 *) mask, (gfc_array_r16 *) vector); (gfc_array_l1 *) mask, (gfc_array_r16 *) vector);
return; return;
#endif #endif
case GFC_DTYPE_COMPLEX_4: case GFC_DTYPE_COMPLEX_4:
pack_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array, pack_c4 ((gfc_array_c4 *) ret, (gfc_array_c4 *) array,
(gfc_array_l1 *) mask, (gfc_array_c4 *) vector); (gfc_array_l1 *) mask, (gfc_array_c4 *) vector);
...@@ -374,6 +373,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array, ...@@ -374,6 +373,7 @@ pack (gfc_array_char *ret, const gfc_array_char *array,
{ {
pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array, pack_i8 ((gfc_array_i8 *) ret, (gfc_array_i8 *) array,
(gfc_array_l1 *) mask, (gfc_array_i8 *) vector); (gfc_array_l1 *) mask, (gfc_array_i8 *) vector);
return;
} }
#ifdef HAVE_GFC_INTEGER_16 #ifdef HAVE_GFC_INTEGER_16
......
...@@ -250,6 +250,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -250,6 +250,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector,
mask, (gfc_array_i16 *) field); mask, (gfc_array_i16 *) field);
return; return;
#endif #endif
case GFC_DTYPE_REAL_4: case GFC_DTYPE_REAL_4:
unpack1_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector, unpack1_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector,
mask, (gfc_array_r4 *) field); mask, (gfc_array_r4 *) field);
...@@ -264,7 +265,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -264,7 +265,7 @@ unpack1 (gfc_array_char *ret, const gfc_array_char *vector,
case GFC_DTYPE_REAL_10: case GFC_DTYPE_REAL_10:
unpack1_r10 ((gfc_array_r10 *) ret, (gfc_array_r10 *) vector, unpack1_r10 ((gfc_array_r10 *) ret, (gfc_array_r10 *) vector,
mask, (gfc_array_r10 *) field); mask, (gfc_array_r10 *) field);
return; return;
#endif #endif
#ifdef HAVE_GFC_REAL_16 #ifdef HAVE_GFC_REAL_16
...@@ -443,6 +444,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -443,6 +444,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
mask, (GFC_INTEGER_16 *) field); mask, (GFC_INTEGER_16 *) field);
return; return;
#endif #endif
case GFC_DTYPE_REAL_4: case GFC_DTYPE_REAL_4:
unpack0_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector, unpack0_r4 ((gfc_array_r4 *) ret, (gfc_array_r4 *) vector,
mask, (GFC_REAL_4 *) field); mask, (GFC_REAL_4 *) field);
...@@ -490,6 +492,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -490,6 +492,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
mask, (GFC_COMPLEX_16 *) field); mask, (GFC_COMPLEX_16 *) field);
return; return;
#endif #endif
case GFC_DTYPE_DERIVED_2: case GFC_DTYPE_DERIVED_2:
if (GFC_UNALIGNED_2(ret->data) || GFC_UNALIGNED_2(vector->data) if (GFC_UNALIGNED_2(ret->data) || GFC_UNALIGNED_2(vector->data)
|| GFC_UNALIGNED_2(field)) || GFC_UNALIGNED_2(field))
...@@ -522,6 +525,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -522,6 +525,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
mask, (GFC_INTEGER_8 *) field); mask, (GFC_INTEGER_8 *) field);
return; return;
} }
#ifdef HAVE_GFC_INTEGER_16 #ifdef HAVE_GFC_INTEGER_16
case GFC_DTYPE_DERIVED_16: case GFC_DTYPE_DERIVED_16:
if (GFC_UNALIGNED_16(ret->data) || GFC_UNALIGNED_16(vector->data) if (GFC_UNALIGNED_16(ret->data) || GFC_UNALIGNED_16(vector->data)
...@@ -534,6 +538,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector, ...@@ -534,6 +538,7 @@ unpack0 (gfc_array_char *ret, const gfc_array_char *vector,
return; return;
} }
#endif #endif
} }
memset (&tmp, 0, sizeof (tmp)); memset (&tmp, 0, sizeof (tmp));
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment