Implement support for Chill POWERSETs.

[deliverable/binutils-gdb.git] / gdb / stabsread.c

diff --git a/gdb/stabsread.c b/gdb/stabsread.c
index 3203cbf33290c580b4c1f7c6261963afc61ed5ae..a0c9672ed7305efd150d4936788c1e8cd34def1f 100644 (file)
--- a/gdb/stabsread.c
+++ b/gdb/stabsread.c
@@ -1568,6 +1568,13 @@ read_type (pp, objfile)
       type = read_array_type (pp, type, objfile);
       break;
 
+    case 'S':
+      type1 = read_type (pp, objfile);
+      type = create_set_type ((struct type*) NULL, type1);
+      if (typenums[0] != -1)
+       *dbx_lookup_type (typenums) = type;
+      break;
+
     default:
       --*pp;                   /* Go back to the symbol in error */
                                /* Particularly important if it was \0! */