espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-09-10 01:42:21 +08:00
Code Issues Packages Projects Releases Wiki Activity

Lots of changes from Eric Youngdale, mostly for VAX and VMS support.

Browse Source
This commit is contained in:
Ken Raeburn
1993-01-07 10:49:48 +00:00
parent 4b0dd31c9f
commit 494a6c056e
2 changed files with 223 additions and 88 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
gas/config/ho-vms.h
View File

@ -17,7 +17,7 @@
along with GAS; see the file COPYING. If not, write to along with GAS; see the file COPYING. If not, write to
the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
#define HO_VAX 1 #define HO_VMS 1
#include "ho-vax.h" #include "ho-vax.h"

309
gas/config/obj-vms.c
View File

@ -100,7 +100,7 @@ static struct input_file *find_file PARAMS ((symbolS *));
enum advanced_type enum advanced_type
{ {
BASIC, POINTER, ARRAY, ENUM, STRUCT, UNION, FUNCTION, VOID, UNKNOWN BASIC, POINTER, ARRAY, ENUM, STRUCT, UNION, FUNCTION, VOID, ALIAS, UNKNOWN
}; };
/* /*
@ -167,6 +167,12 @@ static char *symbol_name;
static structure_count = 0; static structure_count = 0;
/* This variable is used to indicate that we are making the last attempt to
parse the stabs, and that we should define as much as we can, and ignore
the rest */
static int final_pass;
/* This variable is used to keep track of the current structure number /* This variable is used to keep track of the current structure number
* for a given variable. If this is < 0, that means that the structure * for a given variable. If this is < 0, that means that the structure
* has not yet been defined to the debugger. This is still cool, since * has not yet been defined to the debugger. This is still cool, since
@ -222,6 +228,16 @@ static char Object_Record_Buffer[512]; /* Buffer for object file records */
static int Object_Record_Offset;/* Offset to end of data */ static int Object_Record_Offset;/* Offset to end of data */
static int Current_Object_Record_Type; /* Type of record in above */ static int Current_Object_Record_Type; /* Type of record in above */
/*
* Macros for moving data around. Must work on big-endian systems.
*/
#ifdef HO_VMS /* These are more efficient for VMS->VMS systems */
#define COPY_LONG(dest,val) {*(long *) dest = val; }
#define COPY_SHORT(dest,val) {*(short *) dest = val; }
#else
#define COPY_LONG(dest,val) { md_number_to_chars(dest, val, 4); }
#define COPY_SHORT(dest,val) { md_number_to_chars(dest, val, 2); }
#endif
/* /*
* Macros for placing data into the object record buffer * Macros for placing data into the object record buffer
*/ */
@ -335,6 +351,10 @@ static void
obj_aout_stab (what) obj_aout_stab (what)
int what; int what;
{ {
#ifndef NO_LISTING
extern int listing;
#endif /* NO_LISTING */
register symbolS *symbolP = 0; register symbolS *symbolP = 0;
register char *string; register char *string;
int saved_type = 0; int saved_type = 0;
@ -437,6 +457,22 @@ obj_aout_stab (what)
symbolP->sy_symbol.n_type = saved_type; symbolP->sy_symbol.n_type = saved_type;
} }
#ifndef NO_LISTING
if (listing && !goof)
{
if (symbolP->sy_symbol.n_type == N_SLINE)
{
listing_source_line(symbolP->sy_symbol.n_desc);
}
else if (symbolP->sy_symbol.n_type == N_SO
|| symbolP->sy_symbol.n_type == N_SOL)
{
listing_source_file(string);
}
}
#endif
if (goof) if (goof)
ignore_rest_of_line (); ignore_rest_of_line ();
else else
@ -568,6 +604,7 @@ Flush_VMS_Object_Record_Buffer ()
{ {
int i; int i;
short int zero; short int zero;
int RecLen;
/* /*
* If the buffer is empty, we are done * If the buffer is empty, we are done
*/ */
@ -577,7 +614,8 @@ Flush_VMS_Object_Record_Buffer ()
* Write the data to the file * Write the data to the file
*/ */
#ifndef HO_VMS /* For cross-assembly purposes. */ #ifndef HO_VMS /* For cross-assembly purposes. */
i = write (VMS_Object_File_FD, &Object_Record_Offset, 2); md_number_to_chars((char *) &RecLen, Object_Record_Offset, 2);
i = write (VMS_Object_File_FD, &RecLen, 2);
#endif /* not HO_VMS */ #endif /* not HO_VMS */
i = write (VMS_Object_File_FD, i = write (VMS_Object_File_FD,
Object_Record_Buffer, Object_Record_Buffer,
@ -766,8 +804,7 @@ VMS_Set_Data (Psect_Index, Offset, Record_Type, Force)
* Make a debugger reference to a struct, union or enum. * Make a debugger reference to a struct, union or enum.
*/ */
static static
VMS_Store_Struct (Struct_Index) VMS_Store_Struct (int Struct_Index)
int Struct_Index;
{ {
/* /*
* We are writing a "OBJ_S_C_DBG" record * We are writing a "OBJ_S_C_DBG" record
@ -794,8 +831,7 @@ VMS_Store_Struct (Struct_Index)
* Make a debugger reference to partially define a struct, union or enum. * Make a debugger reference to partially define a struct, union or enum.
*/ */
static static
VMS_Def_Struct (Struct_Index) VMS_Def_Struct (int Struct_Index)
int Struct_Index;
{ {
/* /*
* We are writing a "OBJ_S_C_DBG" record * We are writing a "OBJ_S_C_DBG" record
@ -818,8 +854,7 @@ VMS_Def_Struct (Struct_Index)
} }
static static
VMS_Set_Struct (Struct_Index) VMS_Set_Struct (int Struct_Index)
int Struct_Index;
{ /* see previous functions for comments */ { /* see previous functions for comments */
Set_VMS_Object_File_Record (OBJ_S_C_DBG); Set_VMS_Object_File_Record (OBJ_S_C_DBG);
if (Object_Record_Offset == 0) if (Object_Record_Offset == 0)
@ -887,7 +922,7 @@ VMS_TBT_Module_Begin ()
/* /*
* Language type == "C" * Language type == "C"
*/ */
*(long *) cp = DST_S_C_C; COPY_LONG (cp, DST_S_C_C);
cp += sizeof (long); cp += sizeof (long);
/* /*
* Store the module name * Store the module name
@ -1054,7 +1089,7 @@ VMS_TBT_Routine_End (Max_Size, sp)
/* /*
* Size of routine * Size of routine
*/ */
*((long *) (Local + 3)) = Size; COPY_LONG (&Local[3], Size);
/* /*
* Store the record * Store the record
*/ */
@ -1130,8 +1165,7 @@ VMS_TBT_Block_Begin (symbolP, Psect, Name)
* Write the Traceback Block End record * Write the Traceback Block End record
*/ */
static static
VMS_TBT_Block_End (Size) VMS_TBT_Block_End (int Size)
int Size;
{ {
char Local[16]; char Local[16];
@ -1140,7 +1174,7 @@ VMS_TBT_Block_End (Size)
*/ */
Local[0] = 6; Local[0] = 6;
Local[1] = DST_S_C_BLKEND; Local[1] = DST_S_C_BLKEND;
*((long *) (Local + 3)) = Size; COPY_LONG (&Local[3], Size);
/* /*
* Unused * Unused
*/ */
@ -1180,7 +1214,7 @@ VMS_TBT_Line_PC_Correlation (Line_Number, Offset, Psect, Do_Delta)
* Set Line number * Set Line number
*/ */
Local[2] = DST_S_C_SET_LINE_NUM; Local[2] = DST_S_C_SET_LINE_NUM;
*((unsigned short *) (Local + 3)) = Line_Number - 1; COPY_SHORT (&Local[3], Line_Number - 1);
/* /*
* Set PC * Set PC
*/ */
@ -1221,7 +1255,7 @@ VMS_TBT_Line_PC_Correlation (Line_Number, Offset, Psect, Do_Delta)
Local[0] = 1 + 1 + 4; Local[0] = 1 + 1 + 4;
Local[1] = DST_S_C_LINE_NUM; Local[1] = DST_S_C_LINE_NUM;
Local[2] = DST_S_C_TERM_L; Local[2] = DST_S_C_TERM_L;
*((long *) (Local + 3)) = Offset; COPY_LONG (&Local[3], Offset);
VMS_Store_Immediate_Data (Local, 7, OBJ_S_C_TBT); VMS_Store_Immediate_Data (Local, 7, OBJ_S_C_TBT);
/* /*
* Done * Done
@ -1246,7 +1280,7 @@ VMS_TBT_Line_PC_Correlation (Line_Number, Offset, Psect, Do_Delta)
else else
{ {
*cp++ = DST_S_C_INCR_LINUM_W; *cp++ = DST_S_C_INCR_LINUM_W;
*(short *) cp = Line_Number - 1; COPY_SHORT (cp, Line_Number - 1);
cp += sizeof (short); cp += sizeof (short);
} }
} }
@ -1262,13 +1296,13 @@ VMS_TBT_Line_PC_Correlation (Line_Number, Offset, Psect, Do_Delta)
if (Offset < 0x10000) if (Offset < 0x10000)
{ {
*cp++ = DST_S_C_DELTA_PC_W; *cp++ = DST_S_C_DELTA_PC_W;
*(short *) cp = Offset; COPY_SHORT (cp, Offset);
cp += sizeof (short); cp += sizeof (short);
} }
else else
{ {
*cp++ = DST_S_C_DELTA_PC_L; *cp++ = DST_S_C_DELTA_PC_L;
*(long *) cp = Offset; COPY_LONG (cp, Offset);
cp += sizeof (long); cp += sizeof (long);
} }
} }
@ -1366,7 +1400,7 @@ VMS_TBT_Source_File (Filename, ID_Number)
/* /*
* File ID * File ID
*/ */
*(short *) cp = ID_Number; COPY_SHORT (cp, ID_Number);
cp += sizeof (short); cp += sizeof (short);
#ifndef HO_VMS #ifndef HO_VMS
/* /*
@ -1465,19 +1499,19 @@ VMS_TBT_Source_Lines (ID_Number, Starting_Line_Number, Number_Of_Lines)
/* /*
* File ID Number * File ID Number
*/ */
*(short *) cp = ID_Number; COPY_SHORT (cp, ID_Number);
cp += sizeof (short); cp += sizeof (short);
/* /*
* Set record number * Set record number
*/ */
*cp++ = DST_S_C_SRC_SETREC_L; *cp++ = DST_S_C_SRC_SETREC_L;
*(long *) cp = Starting_Line_Number; COPY_LONG (cp, Starting_Line_Number);
cp += sizeof (long); cp += sizeof (long);
/* /*
* Define lines * Define lines
*/ */
*cp++ = DST_S_C_SRC_DEFLINES_W; *cp++ = DST_S_C_SRC_DEFLINES_W;
*(short *) cp = Number_Of_Lines; COPY_SHORT (cp, Number_Of_Lines);
cp += sizeof (short); cp += sizeof (short);
/* /*
* Done * Done
@ -1656,6 +1690,8 @@ find_symbol (dbx_type)
}; };
if (spnt == (struct VMS_DBG_Symbol *) NULL) if (spnt == (struct VMS_DBG_Symbol *) NULL)
return 0; /*Dunno what this is*/ return 0; /*Dunno what this is*/
if(spnt->advanced == ALIAS)
return find_symbol(spnt->type2);
return spnt; return spnt;
} }
@ -1669,38 +1705,32 @@ static
push (value, size) push (value, size)
int value, size; int value, size;
{ {
char *pnt;
int i; int i;
int size1; int size1;
long int val;
val = value;
pnt = (char *) &val;
size1 = size; size1 = size;
if (size < 0) if (size < 0)
{ {
size1 = -size; size1 = -size;
pnt += size1 - 1; if (Lpnt < size1)
}; {
if (size < 0) overflow = 1;
for (i = 0; i < size1; i++) Lpnt = 1;
{ return;
Local[Lpnt--] = *pnt--; };
if (Lpnt < 0) Lpnt -= size1;
{ md_number_to_chars (&Local[Lpnt + 1], value, size1);
overflow = 1; }
Lpnt = 1;
};
}
else else
for (i = 0; i < size1; i++) {
{ if (Apoint + size1 >= MAX_DEBUG_RECORD)
Asuffix[Apoint++] = *pnt++; {
if (Apoint >= MAX_DEBUG_RECORD) overflow = 1;
{ Apoint = MAX_DEBUG_RECORD - 1;
overflow = 1; return;
Apoint = MAX_DEBUG_RECORD - 1; };
}; md_number_to_chars (&Asuffix[Apoint], value, size1);
} Apoint += size1;
};
} }
/* this routine generates the array descriptor for a given array */ /* this routine generates the array descriptor for a given array */
@ -1891,7 +1921,7 @@ generate_suffix (spnt, dbx_type)
{ {
int ilen; int ilen;
int i; int i;
static CONST char pvoid[6] = {5, 0xaf, 0, 1, 0, 5}; CONST char pvoid[6] = {5, 0xaf, 0, 1, 0, 5};
struct VMS_DBG_Symbol *spnt1; struct VMS_DBG_Symbol *spnt1;
Apoint = 0; Apoint = 0;
Lpnt = MAX_DEBUG_RECORD - 1; Lpnt = MAX_DEBUG_RECORD - 1;
@ -1979,9 +2009,8 @@ VMS_DBG_record (spnt, Psect, Offset, Name)
Local[i++] = DBG_S_C_FUNCTION_PARAMETER; Local[i++] = DBG_S_C_FUNCTION_PARAMETER;
else else
Local[i++] = DBG_S_C_LOCAL_SYM; Local[i++] = DBG_S_C_LOCAL_SYM;
pnt = (char *) &Offset; COPY_LONG (&Local[i], Offset);
for (j = 0; j < 4; j++) i += 4;
Local[i++] = *pnt++; /* copy the offset */
} }
else else
{ {
@ -2349,9 +2378,8 @@ forward_reference (pnt)
pnt = (char *) strchr (pnt, ':'); pnt = (char *) strchr (pnt, ':');
pnt = cvt_integer (pnt + 1, &i); pnt = cvt_integer (pnt + 1, &i);
spnt = find_symbol (i); spnt = find_symbol (i);
if (spnt == (struct VMS_DBG_Symbol *) NULL) if(spnt != (struct VMS_DBG_Symbol*) NULL) {
return 0; while((spnt->advanced == POINTER) || (spnt->advanced == ARRAY))
while ((spnt->advanced == POINTER) || (spnt->advanced == ARRAY))
{ {
i = spnt->type2; i = spnt->type2;
spnt1 = find_symbol (spnt->type2); spnt1 = find_symbol (spnt->type2);
@ -2362,12 +2390,32 @@ forward_reference (pnt)
break; break;
spnt = spnt1; spnt = spnt1;
}; };
};
pnt = cvt_integer (pnt + 1, &i); pnt = cvt_integer (pnt + 1, &i);
pnt = cvt_integer (pnt + 1, &i); pnt = cvt_integer (pnt + 1, &i);
} while (*++pnt != ';'); } while (*++pnt != ';');
return 0; /* no forward refences found */ return 0; /* no forward refences found */
} }
/* Used to check a single element of a structure on the final pass*/
static int
final_forward_reference (spnt)
struct VMS_DBG_Symbol * spnt;
{
struct VMS_DBG_Symbol * spnt1;
if(spnt != (struct VMS_DBG_Symbol*) NULL) {
while((spnt->advanced == POINTER) || (spnt->advanced == ARRAY)){
spnt1 = find_symbol(spnt->type2);
if((spnt->advanced == ARRAY) &&
(spnt1 == (struct VMS_DBG_Symbol*) NULL))return 1;
if(spnt1 == (struct VMS_DBG_Symbol*) NULL) break;
spnt=spnt1;
};
};
return 0; /* no forward refences found */
}
/* This routine parses the stabs directives to find any definitions of dbx type /* This routine parses the stabs directives to find any definitions of dbx type
* numbers. It makes a note of all of them, creating a structure element * numbers. It makes a note of all of them, creating a structure element
* of VMS_DBG_Symbol that describes it. This also generates the info for the * of VMS_DBG_Symbol that describes it. This also generates the info for the
@ -2379,6 +2427,10 @@ forward_reference (pnt)
* a structure/enum/union) and this is why we process them immediately. * a structure/enum/union) and this is why we process them immediately.
* After we process the pointer, then we search for defs that are nested even * After we process the pointer, then we search for defs that are nested even
* deeper. * deeper.
* 8/15/92: We have to process arrays right away too, because there can
* be multiple references to identical array types in one structure
* definition, and only the first one has the definition. (We tend to
* parse from the back going forward.
*/ */
static int static int
VMS_typedef_parse (str) VMS_typedef_parse (str)
@ -2396,7 +2448,8 @@ VMS_typedef_parse (str)
struct VMS_DBG_Symbol *spnt1; struct VMS_DBG_Symbol *spnt1;
/* check for any nested def's */ /* check for any nested def's */
pnt = (char *) strchr (str + 1, '='); pnt = (char *) strchr (str + 1, '=');
if ((pnt != (char *) NULL) && (*(str + 1) != '*')) if ((pnt != (char *) NULL) && (*(str + 1) != '*')
&& (str[1] != 'a' || str[2] != 'r'))
if (VMS_typedef_parse (pnt) == 1) if (VMS_typedef_parse (pnt) == 1)
return 1; return 1;
/* now find dbx_type of entry */ /* now find dbx_type of entry */
@ -2450,6 +2503,14 @@ VMS_typedef_parse (str)
spnt->advanced = UNKNOWN; spnt->advanced = UNKNOWN;
return 0; return 0;
}; };
pnt1 = cvt_integer(pnt,&i1);
if(i1 != spnt->dbx_type)
{
spnt->advanced = ALIAS;
spnt->type2 = i1;
strcpy(str, pnt1);
return 0;
}
printf ("gcc-as warning(debugger output):"); printf ("gcc-as warning(debugger output):");
printf (" %d is an unknown untyped variable.\n", spnt->dbx_type); printf (" %d is an unknown untyped variable.\n", spnt->dbx_type);
return 1; /* do not know what this is */ return 1; /* do not know what this is */
@ -2525,7 +2586,7 @@ VMS_typedef_parse (str)
spnt->advanced = UNION; spnt->advanced = UNION;
spnt->VMS_type = DBG_S_C_ADVANCED_TYPE; spnt->VMS_type = DBG_S_C_ADVANCED_TYPE;
pnt1 = cvt_integer (pnt + 1, &spnt->data_size); pnt1 = cvt_integer (pnt + 1, &spnt->data_size);
if (forward_reference (pnt)) if (!final_pass && forward_reference(pnt))
{ {
spnt->struc_numb = -1; spnt->struc_numb = -1;
return 1; return 1;
@ -2557,9 +2618,8 @@ VMS_typedef_parse (str)
while (*pnt2 != '\0') while (*pnt2 != '\0')
Local[i++] = *pnt2++; Local[i++] = *pnt2++;
i2 = spnt->data_size * 8; /* number of bits */ i2 = spnt->data_size * 8; /* number of bits */
pnt2 = (char *) &i2; COPY_LONG(&Local[i], i2);
for (i1 = 0; i1 < 4; i1++) i += 4;
Local[i++] = *pnt2++;
VMS_Store_Immediate_Data (Local, i, OBJ_S_C_DBG); VMS_Store_Immediate_Data (Local, i, OBJ_S_C_DBG);
i = 0; i = 0;
if (pnt != symbol_name) if (pnt != symbol_name)
@ -2596,14 +2656,20 @@ VMS_typedef_parse (str)
Local[i++] = 7 + strlen (pnt2); Local[i++] = 7 + strlen (pnt2);
spnt1 = find_symbol (dtype); spnt1 = find_symbol (dtype);
/* check if this is a forward reference */ /* check if this is a forward reference */
if(final_pass && final_forward_reference(spnt1))
{
printf("gcc-as warning(debugger output):");
printf("structure element %s has undefined type\n",pnt2);
i--;
continue;
}
if (spnt1 != (struct VMS_DBG_Symbol *) NULL) if (spnt1 != (struct VMS_DBG_Symbol *) NULL)
Local[i++] = spnt1->VMS_type; Local[i++] = spnt1->VMS_type;
else else
Local[i++] = DBG_S_C_ADVANCED_TYPE; Local[i++] = DBG_S_C_ADVANCED_TYPE;
Local[i++] = DBG_S_C_STRUCT_ITEM; Local[i++] = DBG_S_C_STRUCT_ITEM;
pnt = (char *) &i2; COPY_LONG (&Local[i], i2);
for (i1 = 0; i1 < 4; i1++) i += 4;
Local[i++] = *pnt++;
Local[i++] = strlen (pnt2); Local[i++] = strlen (pnt2);
while (*pnt2 != '\0') while (*pnt2 != '\0')
Local[i++] = *pnt2++; Local[i++] = *pnt2++;
@ -2657,9 +2723,8 @@ VMS_typedef_parse (str)
Local[i++] = 7 + strlen (pnt); Local[i++] = 7 + strlen (pnt);
Local[i++] = DBG_S_C_ENUM_ITEM; Local[i++] = DBG_S_C_ENUM_ITEM;
Local[i++] = 0x00; Local[i++] = 0x00;
pnt2 = (char *) &i1; COPY_LONG (&Local[i], i1);
for (i2 = 0; i2 < 4; i2++) i += 4;
Local[i++] = *pnt2++;
Local[i++] = strlen (pnt); Local[i++] = strlen (pnt);
pnt2 = pnt; pnt2 = pnt;
while (*pnt != '\0') while (*pnt != '\0')
@ -2683,6 +2748,9 @@ VMS_typedef_parse (str)
pnt1 = cvt_integer (pnt + 1, &spnt->index_min); pnt1 = cvt_integer (pnt + 1, &spnt->index_min);
pnt1 = cvt_integer (pnt1 + 1, &spnt->index_max); pnt1 = cvt_integer (pnt1 + 1, &spnt->index_max);
pnt1 = cvt_integer (pnt1 + 1, &spnt->type2); pnt1 = cvt_integer (pnt1 + 1, &spnt->type2);
pnt=(char*)strchr(str+1,'=');
if((pnt != (char*) NULL))
if(VMS_typedef_parse(pnt) == 1 ) return 1;
break; break;
case 'f': case 'f':
spnt->advanced = FUNCTION; spnt->advanced = FUNCTION;
@ -2724,6 +2792,10 @@ parsing do not have to worry about it */
* We need to be careful, since sometimes there are forward references to * We need to be careful, since sometimes there are forward references to
* other symbol types, and these cannot be resolved until we have completed * other symbol types, and these cannot be resolved until we have completed
* the parse. * the parse.
*
* Also check and see if we are using continuation stabs, if we are, then
* paste together the entire contents of the stab before we pass it to
* VMS_typedef_parse.
*/ */
static int static int
VMS_LSYM_Parse () VMS_LSYM_Parse ()
@ -2732,6 +2804,7 @@ VMS_LSYM_Parse ()
char *pnt1; char *pnt1;
char *pnt2; char *pnt2;
char *str; char *str;
char *parse_buffer = 0;
char fixit[10]; char fixit[10];
int incomplete, i, pass, incom1; int incomplete, i, pass, incom1;
struct VMS_DBG_Symbol *spnt; struct VMS_DBG_Symbol *spnt;
@ -2739,6 +2812,7 @@ VMS_LSYM_Parse ()
struct forward_ref *fpnt; struct forward_ref *fpnt;
symbolS *sp; symbolS *sp;
pass = 0; pass = 0;
final_pass = 0;
incomplete = 0; incomplete = 0;
do do
{ {
@ -2765,24 +2839,65 @@ VMS_LSYM_Parse ()
case N_FUN: /*sometimes these contain typedefs*/ case N_FUN: /*sometimes these contain typedefs*/
str = S_GET_NAME (sp); str = S_GET_NAME (sp);
symbol_name = str; symbol_name = str;
pnt = (char *) strchr (str, ':'); pnt = str + strlen(str) -1;
if (pnt == (char *) NULL) if (*pnt == '?') /* Continuation stab. */
break;
*pnt = '\0';
pnt1 = pnt + 1;
pnt2 = (char *) strchr (pnt1, '=');
if (pnt2 == (char *) NULL)
{ {
*pnt = ':'; /* replace colon */ symbolS *spnext;
break; int tlen = 0;
}; /* no symbol here */ spnext = sp;
incomplete += VMS_typedef_parse (pnt2); do {
*pnt = ':'; /* put back colon so variable def code finds dbx_type*/ tlen += strlen(str) - 1;
spnext = symbol_next (spnext);
str = S_GET_NAME (spnext);
pnt = str + strlen(str) - 1;
} while (*pnt == '?');
tlen += strlen(str);
parse_buffer = (char *) malloc (tlen + 1);
strcpy(parse_buffer, S_GET_NAME (sp));
pnt2 = parse_buffer + strlen(S_GET_NAME (sp)) - 1;
*pnt2 = '\0';
spnext = sp;
do {
spnext = symbol_next (spnext);
str = S_GET_NAME (spnext);
strcat (pnt2, S_GET_NAME (spnext));
pnt2 += strlen(str) - 1;
*str = '\0'; /* Erase this string */
if (*pnt2 != '?') break;
*pnt2 = '\0';
} while (1 == 1);
str = parse_buffer;
symbol_name = str;
};
pnt = (char *) strchr (str, ':');
if (pnt != (char *) NULL)
{
*pnt = '\0';
pnt1 = pnt + 1;
pnt2 = (char *) strchr (pnt1, '=');
if (pnt2 != (char *) NULL)
incomplete += VMS_typedef_parse (pnt2);
if (parse_buffer){
/* At this point the parse buffer should just contain name:nn.
If it does not, then we are in real trouble. Anyway,
this is always shorter than the original line. */
strcpy(S_GET_NAME (sp), parse_buffer);
free (parse_buffer);
parse_buffer = 0;
};
*pnt = ':'; /* put back colon so variable def code finds dbx_type*/
};
break; break;
} /*switch*/ } /*switch*/
} /* if */ } /* if */
} /*for*/ } /*for*/
pass++; pass++;
/* Make one last pass, if needed, and define whatever we can that is left */
if(final_pass == 0 && incomplete == incom1)
{
final_pass = 1;
incom1 ++; /* Force one last pass through */
};
} while ((incomplete != 0) && (incomplete != incom1)); } while ((incomplete != 0) && (incomplete != incom1));
/* repeat until all refs resolved if possible */ /* repeat until all refs resolved if possible */
/* if (pass > 1) printf(" Required %d passes\n",pass);*/ /* if (pass > 1) printf(" Required %d passes\n",pass);*/
@ -2931,8 +3046,7 @@ VMS_DBG_Define_Routine (symbolP, Curr_Routine, Txt_Psect)
#include <time.h> #include <time.h>
/* Manufacure a VMS like time on a unix based system. */ /* Manufacure a VMS like time on a unix based system. */
get_VMS_time_on_unix (Now) get_VMS_time_on_unix (char *Now)
char *Now;
{ {
char *pnt; char *pnt;
time_t timeb; time_t timeb;
@ -3058,7 +3172,7 @@ Write_VMS_MHD_Records ()
cp = "GNU AS V"; cp = "GNU AS V";
while (*cp) while (*cp)
PUT_CHAR (*cp++); PUT_CHAR (*cp++);
cp = strchr (version_string, '.'); cp = strchr (&version_string, '.');
while (*cp != ' ') while (*cp != ' ')
cp--; cp--;
cp++; cp++;
@ -3631,9 +3745,8 @@ VMS_Psect_Spec (Name, Size, Type, vsp)
default: default:
{ {
char Error_Line[256]; char Error_Line[256];
sprintf (Error_Line, sprintf (Error_Line, "Globalsymbol attribute for"
"Globalsymbol attribute for symbol %s was unexpected.\n", " symbol %s was unexpected.\n", Name);
Name);
error (Error_Line); error (Error_Line);
break; break;
}; };
@ -3803,10 +3916,8 @@ VMS_Emit_Globalvalues (text_siz, data_siz, Data_Segment)
Size = VMS_Initialized_Data_Size (sp, text_siz + data_siz); Size = VMS_Initialized_Data_Size (sp, text_siz + data_siz);
if (Size > 4) if (Size > 4)
error ("Invalid data type for globalvalue"); error ("Invalid data type for globalvalue");
globalvalue = 0; globalvalue = md_chars_to_number (Data_Segment +
S_GET_VALUE (sp) - text_siz , Size);
memcpy (&globalvalue, Data_Segment + S_GET_VALUE (sp) -
text_siz, Size);
/* Three times for good luck. The linker seems to get confused /* Three times for good luck. The linker seems to get confused
if there are fewer than three */ if there are fewer than three */
VMS_Global_Symbol_Spec (stripped_name, 0, 0, 2); VMS_Global_Symbol_Spec (stripped_name, 0, 0, 2);
@ -4664,6 +4775,18 @@ VMS_write_object_file (text_siz, data_siz, bss_siz, text_frag_root,
vsp); vsp);
if (Globalref) if (Globalref)
Psect_Number--; Psect_Number--;
/* See if this is an external vtable. We want to help the linker find
these things in libraries, so we make a symbol reference. This
is not compatible with VAX-C usage for variables, but since vtables are
only used internally by g++, we can get away with this hack. */
if(strncmp (S_GET_NAME (sp), "__vt.", 5) == 0)
VMS_Global_Symbol_Spec (S_GET_NAME(sp),
vsp->Psect_Index,
0,
0);
#ifdef NOT_VAX_11_C_COMPATIBLE #ifdef NOT_VAX_11_C_COMPATIBLE
/* /*
* Place a global symbol at the * Place a global symbol at the
@ -4728,6 +4851,18 @@ VMS_write_object_file (text_siz, data_siz, bss_siz, text_frag_root,
vsp); vsp);
if (Globalref) if (Globalref)
Psect_Number--; Psect_Number--;
/* See if this is an external vtable. We want to help the linker find
these things in libraries, so we make a symbol definition. This
is not compatible with VAX-C usage for variables, but since vtables are
only used internally by g++, we can get away with this hack. */
if(strncmp (S_GET_NAME (sp), "__vt.", 5) == 0)
VMS_Global_Symbol_Spec (S_GET_NAME (sp),
vsp->Psect_Index,
0,
1);
#ifdef NOT_VAX_11_C_COMPATIBLE #ifdef NOT_VAX_11_C_COMPATIBLE
/* /*
* Place a global symbol at the * Place a global symbol at the