* buildsym.c (patch_subfile_name): Update last_source_file

[external/binutils.git] / gdb / m2-lang.c

diff --git a/gdb/m2-lang.c b/gdb/m2-lang.c
index c7b7530..1a7fd6d 100644 (file)
--- a/gdb/m2-lang.c
+++ b/gdb/m2-lang.c
@@ -330,19 +330,25 @@ m2_create_fundamental_type (objfile, typeid)
                          0, "long double", objfile);
        break;
       case FT_COMPLEX:
-       type = init_type (TYPE_CODE_FLT,
-                         TARGET_COMPLEX_BIT / TARGET_CHAR_BIT,
+       type = init_type (TYPE_CODE_COMPLEX,
+                         2 * TARGET_FLOAT_BIT / TARGET_CHAR_BIT,
                          0, "complex", objfile);
+       TYPE_TARGET_TYPE (type)
+         = m2_create_fundamental_type (objfile, FT_FLOAT);
        break;
       case FT_DBL_PREC_COMPLEX:
-       type = init_type (TYPE_CODE_FLT,
-                         TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT,
+       type = init_type (TYPE_CODE_COMPLEX,
+                         2 * TARGET_DOUBLE_BIT / TARGET_CHAR_BIT,
                          0, "double complex", objfile);
+       TYPE_TARGET_TYPE (type)
+         = m2_create_fundamental_type (objfile, FT_DBL_PREC_FLOAT);
        break;
       case FT_EXT_PREC_COMPLEX:
-       type = init_type (TYPE_CODE_FLT,
-                         TARGET_DOUBLE_COMPLEX_BIT / TARGET_CHAR_BIT,
+       type = init_type (TYPE_CODE_COMPLEX,
+                         2 * TARGET_LONG_DOUBLE_BIT / TARGET_CHAR_BIT,
                          0, "long double complex", objfile);
+       TYPE_TARGET_TYPE (type)
+         = m2_create_fundamental_type (objfile, FT_EXT_PREC_FLOAT);
        break;
       }
   return (type);
@@ -401,6 +407,7 @@ const struct language_defn m2_language_defn = {
   type_check_on,
   m2_parse,                    /* parser */
   m2_error,                    /* parser error function */
+  evaluate_subexp_standard,
   m2_printchar,                        /* Print character constant */
   m2_printstr,                 /* function to print string constant */
   m2_create_fundamental_type,  /* Create fundamental type in this language */
@@ -413,6 +420,8 @@ const struct language_defn m2_language_defn = {
   {"0%lXH",  "0",  "X",  "H"}, /* Hex format info */
   m2_op_print_tab,             /* expression operators for printing */
   0,                           /* arrays are first-class (not c-style) */
+  0,                           /* String lower bound */
+  &builtin_type_m2_char,       /* Type of string elements */ 
   LANG_MAGIC
 };