Changeset 937

Timestamp:

Jan 7, 2004, 5:37:15 PM (22 years ago)

Author:

bird

Message:

Removed bad truncation of 'SST_tag2's.

File:

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

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

@@ -62 +62 @@
 #define SST_changseg    0x11    /* Change default segment */
 #define SST_tag         0x16    /* Structure, union, enum tags */
-#define SST_class       0x19    /* C++ class */
+#define SST_tag2        0x19    /* Extended tag for long names (C++ class). */
 #define SST_memfunc     0x1a    /* C++ member function */
 #define SST_CPPproc     0x1d    /* C++ function */
@@ -3712 +3712 @@
 
 /* Create a type tag for HLL type index INDEX.  TYPE is either SST_tag
-   (for structures and unions) or SST_class (for classes).  NAME is
+   (for structures and unions) or SST_tag2 (for classes).  NAME is
    the name of the structure, union or class. */
 
@@ -3718 +3718 @@
 {
   if (name != NULL)
-    { /* kso #456 2003-06-11: Templates can make very long names.
-         Clip them and let the debugger burn on them if it doesn't like it. */
-      char  achName[256];
-      int   cch = strlen(name);
-      if (cch > 250)
-        {
-          warning ("type_tag: name is longer than 250 bytes (%d).", cch);
-          cch = 250;
-        }
-      memcpy (achName, name, cch);
-      achName[cch] = '\0';
-
+    {
       sst_start (type);
       buffer_word (&sst, index);
-      if (type == SST_class)
-        buffer_enc (&sst, achName);
+      if (type == SST_tag2)
+        buffer_enc (&sst, name);
       else
-        buffer_nstr (&sst, achName);
-      sst_end ();
+        {
+          char  achName[256];
+          int   cch = strlen(name);
+          if (cch > 250)
+            {
+              warning ("type_tag: name is longer than 250 bytes (%d).", cch);
+              cch = 250;
+            }
+          memcpy (achName, name, cch);
+          achName[cch] = '\0';
+
+          buffer_nstr (&sst, achName);
+        }
+        sst_end ();
     }
 }
@@ -3926 +3927 @@
           break;
         case ty_class:
-          type_tag (SST_class, t1->index, t1->d.class.name);
+          type_tag (SST_tag2, t1->index, t1->d.class.name);
           break;
         case ty_enu: