diff options
| author | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:31:43 +0000 |
|---|---|---|
| committer | Ulrich Weigand <uweigand@de.ibm.com> | 2008-09-11 14:31:43 +0000 |
| commit | 4cca3ac9edd0417e7ad7ae26d818bf81b1655fa1 (patch) | |
| tree | 6b04ff71ee8f5becb2875349ff5ff3eac5e44253 /gdb/f-lang.h | |
| parent | b6da22b0d121a4fd1e15572ed672e0e3f7b756f3 (diff) | |
| download | gdb-4cca3ac9edd0417e7ad7ae26d818bf81b1655fa1.zip gdb-4cca3ac9edd0417e7ad7ae26d818bf81b1655fa1.tar.gz gdb-4cca3ac9edd0417e7ad7ae26d818bf81b1655fa1.tar.bz2 | |
* gdbtypes.h (builtin_type_void_data_ptr, builtin_type_void_func_ptr,
builtin_type_CORE_ADDR, builtin_type_char, builtin_type_short,
builtin_type_int, builtin_type_long, builtin_type_signed_char,
builtin_type_unsigned_char, builtin_type_unsigned_short,
builtin_type_unsigned_int, builtin_type_unsigned_long,
builtin_type_float, builtin_type_double, builtin_type_long_double,
builtin_type_complex, builtin_type_double_complex, builtin_type_string,
builtin_type_bool, builtin_type_long_long,
builtin_type_unsigned_long_long): Remove macros.
(builtin_type_f_character, builtin_type_f_integer,
builtin_type_f_integer_s2, builtin_type_f_logical,
builtin_type_f_logical_s1, builtin_type_f_logical_s2,
builtin_type_f_real, builtin_type_f_real_s8, builtin_type_f_real_s16,
builtin_type_f_complex_s8, builtin_type_f_complex_s16,
builtin_type_f_complex_s32): Likewise.
(builtin_type_m2_char, builtin_type_m2_int, builtin_type_m2_card,
builtin_type_m2_real, builtin_type_m2_bool): Likewise.
(struct builtin_f_type, builtin_f_type): Move to f-lang.h.
(struct builtin_m2_type, builtin_m2_type): Move to m2-lang.h.
* f-lang.h (struct builtin_f_type, builtin_f_type): Move here.
* m2-lang.h (struct builtin_m2_type, builtin_m2_type): Move here.
Diffstat (limited to 'gdb/f-lang.h')
| -rw-r--r-- | gdb/f-lang.h | 24 |
1 files changed, 24 insertions, 0 deletions
diff --git a/gdb/f-lang.h b/gdb/f-lang.h index 8a8a3b3..2c3e371 100644 --- a/gdb/f-lang.h +++ b/gdb/f-lang.h @@ -104,3 +104,27 @@ extern int f77_get_dynamic_lowerbound (struct type *, int *); extern void f77_get_dynamic_array_length (struct type *); extern int calc_f77_array_dims (struct type *); + + +/* Fortran (F77) types */ + +struct builtin_f_type +{ + struct type *builtin_character; + struct type *builtin_integer; + struct type *builtin_integer_s2; + struct type *builtin_logical; + struct type *builtin_logical_s1; + struct type *builtin_logical_s2; + struct type *builtin_real; + struct type *builtin_real_s8; + struct type *builtin_real_s16; + struct type *builtin_complex_s8; + struct type *builtin_complex_s16; + struct type *builtin_complex_s32; + struct type *builtin_void; +}; + +/* Return the Fortran type table for the specified architecture. */ +extern const struct builtin_f_type *builtin_f_type (struct gdbarch *gdbarch); + |