Changeset 291 for trunk/src

Timestamp:

Jun 4, 2003, 5:00:38 AM (22 years ago)

Author:

bird

Message:

#456: Fixed globals.
#456: Made it understand nested 'long long' @s typedefs.
#456: Worked around crash when show_type() on FILE.
#456: Complex types quick implementation. TODO: make structs.

File:

• trunk/src/emx/src/emxomf/stabshll.c (modified) (11 diffs, 1 prop)

trunk/src/emx/src/emxomf/stabshll.c

@@ -342 +342 @@
 static int unnamed_struct_number;
 
+#ifndef HLL_DEBUG
 /* Suppress several kinds of warnings since newer gccs generates lots of
    warnings... */
@@ -349 +350 @@
   (void)format;
 }
+#else
+#define no_warning warning
+#endif
 
 
@@ -590 +594 @@
         case ty_array:
           if (p->d.array.etype == src->d.array.etype
-              && p->d.array.itype == src->d.array.itype            
+              && p->d.array.itype == src->d.array.itype
               && p->d.array.first == src->d.array.first
               && p->d.array.last == src->d.array.last)
@@ -779 +783 @@
 {
   int i;
+
+  /* Currently we crash when showing FILE (stdio.h). So, better not crash here..  */
+  if (!tp)
+    {
+    printf("!!! error! NULL type pointer! !!!");
+    return;
+    }
 
   switch (tp->tag)
@@ -1375 +1386 @@
       break;
 
+    case 'R':
+
+      /* Complex number: R<?base_type?>;<size bytes>;<0>; */
+
+      ++parse_ptr;
+      if (!parse_number (&num1) || !parse_char (';')
+          || !parse_number (&width) || !parse_char (';')
+          || !parse_number (&code) || !parse_char (';'))
+        goto syntax;
+
+      /*
+       * The 192bit type is not defined in the HLL specs, but we assume it for
+       * convenince right now.
+       *
+       * It seems like no debugger acutally supports these types. So, we should,
+       * when somebody requires it for debugging complex math, make structs out
+       * of these declarations like GCC does for the 'complex int' type.
+       *
+       * .stabs "FakeComplexInt:t21=22=s8real:1,0,32;imag:1,32,32;;",128,0,0,0
+       * .stabs "FakeComplexFloat:t23=24=s8real:12,0,32;imag:12,32,32;;",128,0,0,0
+       * .stabs "FakeComplexDouble:t25=26=s16real:13,0,64;imag:13,64,64;;",128,0,0,0
+       * .stabs "FakeComplexLongDouble:t27=28=s24real:14,0,96;imag:14,96,96;;",128,0,0,0
+       *
+       */
+      t.tag = ty_prim;
+      if (width == 8 && code == 0)
+        t.index = 0x8c;
+      else if (width == 16 && code == 0)
+        t.index = 0x8d ;
+      else if (width == 20 && code == 0)
+        t.index = 0x8e;
+      else if (width == 24 && code == 0)
+        t.index = 0x8f; //TODO: bogus!!!
+      else
+        {
+          no_warning ("Unknown complex type: %ld/%ld", width, code);
+          goto syntax;
+        }
+      break;
+
     case '*':
 
@@ -1447 +1498 @@
                         -20              char
 
+         @s<bits>;<range record>
+            Used for 64 bit ints.
 
       */
@@ -1457 +1510 @@
           if (!parse_number (&size) || !parse_char (';'))
             goto syntax;
+          if (*parse_ptr == 'r')
+            { /* nested */
+              return parse_type(type_name);
+            }
+
           if (!parse_number (&code))
             goto syntax;
@@ -1999 +2057 @@
 
 syntax:
+  no_warning ("syntax error in stabs: %c", *parse_ptr);
   grow_free (&g1);
   t.tag = ty_prim;
@@ -2722 +2781 @@
         {
         case 'G':
-
+          {
+          char *psz;
+          int   cch;
           /* Static storage, global scope */
 
@@ -2730 +2791 @@
           printf ("  type=%#x\n", ti);
 #endif
-          sym2 = find_symbol (name);
+
+          psz = alloca(cch = strlen(name) + 2);
+          *psz = '_';
+          strcpy(psz+1, name);
+          sym2 = find_symbol (psz);
           if (sym2 == NULL)
             {
-              no_warning ("Cannot find address of global variable %s", name);
+              no_warning ("Cannot find address of global variable %s (%s)", name, psz);
               return;
             }
@@ -2741 +2806 @@
             sst_static (name, sym2->n_value, ti, sym2->n_type, 0);
           break;
+          }
 
         case 'S':