Handle a 'd' stab that indicates a file in pascal. Fixes bug #89914.

git-svn-id: svn://svn.valgrind.org/valgrind/trunk@4220

diff --git a/coregrind/m_debuginfo/stabs.c b/coregrind/m_debuginfo/stabs.c
index 74dcf5829951d521c1674f80c60b5d0af46438b2..611e1b000e93de968275699444b10b8e4b997dea 100644 (file)
--- a/coregrind/m_debuginfo/stabs.c
+++ b/coregrind/m_debuginfo/stabs.c
@@ -735,8 +735,9 @@ static SymType *stabtype_parser(SegInfo *si, SymType *def, Char **pp)
    }
 
    case 'k':                    /* const */
-   case 'B': {                  /* volatile */
-      /* ('k' | 'B') TYPE */
+   case 'B':                    /* volatile */
+   case 'd': {                  /* file (pascal only) */
+      /* ('k' | 'B' | 'd') TYPE */
       type = stabtype_parser(si, NULL, &p);
       break;
    }