Add support for m/M methods - pure multi-arch. These do not have

macros and take a gdbarch parameter.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index ce8f5131746671609d12a0b7f8673cc2b5293c60..269dea192ac61284e3c615ee58ade1f4e2aae6a1 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,12 @@
+2001-03-16  Andrew Cagney  <ac131313@redhat.com>
+
+       * gdbarch.sh: Add classes ``m'' and ``M'' for pure multi-arch.  Do
+       not generate macro wrappers for multi-arch functions or
+       predicates.
+       (class_is_info_p, class_is_predicate_p): Update.
+       (class_is_function_p, class_is_variable_p): Ditto.
+       (class_is_multiarch_p): New class function.
+
 2001-03-16  J.T. Conklin  <jtc@redback.com>
 
        * config/h8300/tm-h8300.h (FRAME_ARGS_ADDRESS): Changed to use

diff --git a/gdb/gdbarch.sh b/gdb/gdbarch.sh
index 6a5eb1650d3c681c35e514c0165806ecf6084018..ee93750f94bc3f09233d0a0f8b98144fb9e437ca 100755 (executable)
--- a/gdb/gdbarch.sh
+++ b/gdb/gdbarch.sh
@@ -137,22 +137,42 @@ fallback_default_p ()
 
 class_is_variable_p ()
 {
-    [ "${class}" = "v" -o "${class}" = "V" ]
+    case "${class}" in
+       *v* | *V* ) true ;;
+       * ) false ;;
+    esac
 }
 
 class_is_function_p ()
 {
-    [ "${class}" = "f" -o "${class}" = "F" ]
+    case "${class}" in
+       *f* | *F* | *m* | *M* ) true ;;
+       * ) false ;;
+    esac
+}
+
+class_is_multiarch_p ()
+{
+    case "${class}" in
+       *m* | *M* ) true ;;
+       * ) false ;;
+    esac
 }
 
 class_is_predicate_p ()
 {
-    [ "${class}" = "F" -o "${class}" = "V" ]
+    case "${class}" in
+       *F* | *V* | *M* ) true ;;
+       * ) false ;;
+    esac
 }
 
 class_is_info_p ()
 {
-    [ "${class}" = "i" ]
+    case "${class}" in
+       *i* ) true ;;
+       * ) false ;;
+    esac
 }
 
 
@@ -174,6 +194,10 @@ do
        #   hiding a variable + predicate to test variables validity
        # i -> set from info
        #   hiding something from the ``struct info'' object
+       # m -> multi-arch function
+       #   hiding a multi-arch function (parameterised with the architecture)
+        # M -> multi-arch function + predicate
+       #   hiding a multi-arch function + predicate to test function validity
 
     level ) : ;;
 
@@ -630,12 +654,12 @@ do
            -e '3,$ s,#,  ,' \
            -e '$ s,$, */,'
     fi
-    if class_is_predicate_p
+    if class_is_predicate_p && ! class_is_multiarch_p
     then
        printf "\n"
        printf "#if defined (${macro})\n"
        printf "/* Legacy for systems yet to multi-arch ${macro} */\n"
-#      printf "#if (GDB_MULTI_ARCH <= GDB_MULTI_ARCH_PARTIAL) && defined (${macro})\n"
+       #printf "#if (GDB_MULTI_ARCH <= GDB_MULTI_ARCH_PARTIAL) && defined (${macro})\n"
        printf "#define ${macro}_P() (1)\n"
        printf "#endif\n"
        printf "\n"
@@ -649,6 +673,11 @@ do
        printf "#define ${macro}_P() (gdbarch_${function}_p (current_gdbarch))\n"
        printf "#endif\n"
     fi
+    if class_is_predicate_p && class_is_multiarch_p
+    then
+       printf "\n"
+       printf "extern int gdbarch_${function}_p (struct gdbarch *gdbarch);\n"
+    fi
     if class_is_variable_p
     then
        if fallback_default_p || class_is_predicate_p
@@ -671,7 +700,7 @@ do
     fi
     if class_is_function_p
     then
-       if fallback_default_p || class_is_predicate_p
+       if ( fallback_default_p || class_is_predicate_p ) && ! class_is_multiarch_p
        then
            printf "\n"
            printf "/* Default (function) for non- multi-arch platforms. */\n"
@@ -687,7 +716,15 @@ do
            printf "#endif\n"
        fi
        printf "\n"
-       printf "typedef ${returntype} (gdbarch_${function}_ftype) (${formal});\n"
+       if [ "${formal}" = "void" ] && class_is_multiarch_p
+       then
+           printf "typedef ${returntype} (gdbarch_${function}_ftype) (struct gdbarch *gdbarch);\n"
+       elif class_is_multiarch_p
+       then
+           printf "typedef ${returntype} (gdbarch_${function}_ftype) (struct gdbarch *gdbarch, ${formal});\n"
+       else
+           printf "typedef ${returntype} (gdbarch_${function}_ftype) (${formal});\n"
+       fi
        if [ "${formal}" = "void" ]
        then
          printf "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch);\n"
@@ -695,19 +732,22 @@ do
          printf "extern ${returntype} gdbarch_${function} (struct gdbarch *gdbarch, ${formal});\n"
        fi
        printf "extern void set_gdbarch_${function} (struct gdbarch *gdbarch, gdbarch_${function}_ftype *${function});\n"
-       printf "#if GDB_MULTI_ARCH\n"
-       printf "#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) || !defined (${macro})\n"
-       if [ "${actual}" = "" ]
+       if ! class_is_multiarch_p
        then
-         printf "#define ${macro}() (gdbarch_${function} (current_gdbarch))\n"
-       elif [ "${actual}" = "-" ]
-       then
-         printf "#define ${macro} (gdbarch_${function} (current_gdbarch))\n"
-       else
-         printf "#define ${macro}(${actual}) (gdbarch_${function} (current_gdbarch, ${actual}))\n"
+           printf "#if GDB_MULTI_ARCH\n"
+           printf "#if (GDB_MULTI_ARCH > GDB_MULTI_ARCH_PARTIAL) || !defined (${macro})\n"
+           if [ "${actual}" = "" ]
+           then
+               printf "#define ${macro}() (gdbarch_${function} (current_gdbarch))\n"
+           elif [ "${actual}" = "-" ]
+           then
+               printf "#define ${macro} (gdbarch_${function} (current_gdbarch))\n"
+           else
+               printf "#define ${macro}(${actual}) (gdbarch_${function} (current_gdbarch, ${actual}))\n"
+           fi
+           printf "#endif\n"
+           printf "#endif\n"
        fi
-       printf "#endif\n"
-       printf "#endif\n"
     fi
 done
 
@@ -1345,6 +1385,8 @@ gdbarch_dump (struct gdbarch *gdbarch, struct ui_file *file)
 EOF
 function_list | while do_read
 do
+    # multiarch functions don't have macros.
+    class_is_multiarch_p && continue
     if [ "${returntype}" = "void" ]
     then
        printf "#if defined (${macro}) && GDB_MULTI_ARCH\n"
@@ -1367,16 +1409,24 @@ do
 done
 function_list | while do_read
 do
+    if class_is_multiarch_p
+    then
+       printf "  if (GDB_MULTI_ARCH)\n"
+       printf "    fprintf_unfiltered (file,\n"
+       printf "                        \"gdbarch_dump: ${function} = 0x%%08lx\\\\n\",\n"
+       printf "                        (long) current_gdbarch->${function});\n"
+       continue
+    fi
     printf "#ifdef ${macro}\n"
     if [ "${print_p}" = "()" ]
     then
-       printf "  gdbarch_dump_${function} (current_gdbarch);\n"
+        printf "  gdbarch_dump_${function} (current_gdbarch);\n"
     elif [ "${print_p}" = "0" ]
     then
-       printf "  /* skip print of ${macro}, print_p == 0. */\n"
+        printf "  /* skip print of ${macro}, print_p == 0. */\n"
     elif [ "${print_p}" ]
     then
-       printf "  if (${print_p})\n"
+        printf "  if (${print_p})\n"
        printf "    fprintf_unfiltered (file,\n"
        printf "                        \"gdbarch_dump: ${macro} = %s\\\\n\",\n" "${fmt}"
        printf "                        ${print});\n"
@@ -1445,12 +1495,27 @@ do
        printf "                    \"gdbarch: gdbarch_${function} invalid\");\n"
        printf "  if (gdbarch_debug >= 2)\n"
        printf "    fprintf_unfiltered (gdb_stdlog, \"gdbarch_${function} called\\\\n\");\n"
-        test "${actual}" = "-" && actual=""
+       if [ "${actual}" = "-" -o "${actual}" = "" ]
+       then
+           if class_is_multiarch_p
+           then
+               params="gdbarch"
+           else
+               params=""
+           fi
+       else
+           if class_is_multiarch_p
+           then
+               params="gdbarch, ${actual}"
+           else
+               params="${actual}"
+           fi
+        fi
                if [ "${returntype}" = "void" ]
        then
-         printf "  gdbarch->${function} (${actual});\n"
+         printf "  gdbarch->${function} (${params});\n"
        else
-         printf "  return gdbarch->${function} (${actual});\n"
+         printf "  return gdbarch->${function} (${params});\n"
        fi
        printf "}\n"
        printf "\n"