diff options
Diffstat (limited to 'meta/recipes-devtools/gcc/gcc-csl-arm/gfortran.patch')
-rw-r--r-- | meta/recipes-devtools/gcc/gcc-csl-arm/gfortran.patch | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/meta/recipes-devtools/gcc/gcc-csl-arm/gfortran.patch b/meta/recipes-devtools/gcc/gcc-csl-arm/gfortran.patch new file mode 100644 index 0000000000..c78e8313b6 --- /dev/null +++ b/meta/recipes-devtools/gcc/gcc-csl-arm/gfortran.patch | |||
@@ -0,0 +1,42 @@ | |||
1 | Upstream-Status: Pending | ||
2 | |||
3 | The patch below fixes a crash building libgfortran on arm-linux-gnueabi. | ||
4 | |||
5 | This target doesn't really have a 128-bit integer type, however it does use | ||
6 | TImode to represent the return value of certain special ABI defined library | ||
7 | functions. This results in type_for_size(TImode) being called. | ||
8 | |||
9 | Because TImode deosn't correspond to any gfortran integer kind | ||
10 | gfc_type_for_size returns NULL and we segfault shortly after. | ||
11 | |||
12 | The patch below fixes this by making gfc_type_for_size handle TImode in the | ||
13 | same way as the C frontend. | ||
14 | |||
15 | Tested on x86_64-linux and arm-linux-gnueabi. | ||
16 | Applied to trunk. | ||
17 | |||
18 | Paul | ||
19 | |||
20 | 2007-05-15 Paul Brook <paul@codesourcery.com> | ||
21 | |||
22 | gcc/fortran/ | ||
23 | * trans-types.c (gfc_type_for_size): Handle signed TImode. | ||
24 | |||
25 | Index: gcc-4.2.1/gcc/fortran/trans-types.c | ||
26 | =================================================================== | ||
27 | --- gcc-4.2.1/gcc/fortran/trans-types.c (revision 170435) | ||
28 | +++ gcc-4.2.1/gcc/fortran/trans-types.c (working copy) | ||
29 | @@ -1800,6 +1800,13 @@ gfc_type_for_size (unsigned bits, int un | ||
30 | if (type && bits == TYPE_PRECISION (type)) | ||
31 | return type; | ||
32 | } | ||
33 | + | ||
34 | + /* Handle TImode as a special case because it is used by some backends | ||
35 | + (eg. ARM) even though it is not available for normal use. */ | ||
36 | +#if HOST_BITS_PER_WIDE_INT >= 64 | ||
37 | + if (bits == TYPE_PRECISION (intTI_type_node)) | ||
38 | + return intTI_type_node; | ||
39 | +#endif | ||
40 | } | ||
41 | else | ||
42 | { | ||