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/m2-lang.h | |
| parent | b6da22b0d121a4fd1e15572ed672e0e3f7b756f3 (diff) | |
| download | binutils-gdb-4cca3ac9edd0417e7ad7ae26d818bf81b1655fa1.tar.gz | |
* 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/m2-lang.h')
| -rw-r--r-- | gdb/m2-lang.h | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/gdb/m2-lang.h b/gdb/m2-lang.h index 12165ad8f11..ac7c8f5ad05 100644 --- a/gdb/m2-lang.h +++ b/gdb/m2-lang.h @@ -35,3 +35,18 @@ extern int m2_val_print (struct type *, const gdb_byte *, int, CORE_ADDR, extern int get_long_set_bounds (struct type *type, LONGEST *low, LONGEST *high); + +/* Modula-2 types */ + +struct builtin_m2_type +{ + struct type *builtin_char; + struct type *builtin_int; + struct type *builtin_card; + struct type *builtin_real; + struct type *builtin_bool; +}; + +/* Return the Modula-2 type table for the specified architecture. */ +extern const struct builtin_m2_type *builtin_m2_type (struct gdbarch *gdbarch); + |