diff options
| author | Daniel Berlin <dberlin@dberlin.org> | 2001-07-06 19:17:05 +0000 |
|---|---|---|
| committer | Daniel Berlin <dberlin@dberlin.org> | 2001-07-06 19:17:05 +0000 |
| commit | efae50153d4577bd05fc34b76c47bdca79982233 (patch) | |
| tree | ebfdde719009a58b2f719cb06926eb6aab787aba /gdb/m2-lang.c | |
| parent | d30f071864b3938dd9d197547c65b33980a243f8 (diff) | |
| download | gdb-cvs/dberlin-typesystem-branch.tar.gz | |
Typesystem work initial import.dberlin-typesystem-branchcvs/dberlin-typesystem-branch
Note that this currently isn't building, i'm in the middle of converting make_function_type/lookup_function_type
Diffstat (limited to 'gdb/m2-lang.c')
| -rw-r--r-- | gdb/m2-lang.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c index 15e36004b3b..69937018948 100644 --- a/gdb/m2-lang.c +++ b/gdb/m2-lang.c @@ -199,6 +199,7 @@ m2_printstr (struct ui_file *stream, char *string, unsigned int length, static struct type * m2_create_fundamental_type (struct objfile *objfile, int typeid) { +#if TYPEFIX register struct type *type = NULL; switch (typeid) @@ -351,6 +352,9 @@ m2_create_fundamental_type (struct objfile *objfile, int typeid) break; } return (type); +#else + return NULL; +#endif } @@ -442,6 +446,8 @@ const struct language_defn m2_language_defn = void _initialize_m2_language (void) { +#if TYPEFIX + /* Modula-2 "pervasive" types. NOTE: these can be redefined!!! */ builtin_type_m2_int = init_type (TYPE_CODE_INT, TARGET_INT_BIT / TARGET_CHAR_BIT, @@ -463,6 +469,6 @@ _initialize_m2_language (void) init_type (TYPE_CODE_BOOL, TARGET_INT_BIT / TARGET_CHAR_BIT, TYPE_FLAG_UNSIGNED, "BOOLEAN", (struct objfile *) NULL); - add_language (&m2_language_defn); +#endif } |