* Deal with errors
*/
if (VMS_Object_File_FD < 0)
- {
- char Error_Line[256];
-
- sprintf (Error_Line, "Couldn't create VMS object file \"%s\"",
- out_file_name);
- error (Error_Line);
- }
+ as_fatal ("Couldn't create VMS object file \"%s\"", out_file_name);
/*
* Initialize object file hacking variables
*/
if (strlen (Module_Name) > 31)
{
if (flag_hash_long_names)
- printf ("%s: Module name truncated: %s\n", myname, Module_Name);
+ as_tsktsk ("Module name truncated: %s", Module_Name);
Module_Name[31] = 0;
}
/*
* Language type == "C"
*/
COPY_LONG (cp, DST_S_C_C);
- cp += sizeof (long);
+ cp += 4;
/*
* Store the module name
*/
{
*cp++ = DST_S_C_INCR_LINUM_W;
COPY_SHORT (cp, Line_Number - 1);
- cp += sizeof (short);
+ cp += 2;
}
}
/*
{
*cp++ = DST_S_C_DELTA_PC_W;
COPY_SHORT (cp, Offset);
- cp += sizeof (short);
+ cp += 2;
}
else
{
*cp++ = DST_S_C_DELTA_PC_L;
COPY_LONG (cp, Offset);
- cp += sizeof (long);
+ cp += 4;
}
}
Local[0] = cp - (Local + 1);
Status = sys$open (&Fab);
if (!(Status & 1))
{
- printf ("gas: Couldn't find source file \"%s\", status=%%X%x\n",
- Filename, Status);
+ as_tsktsk ("Couldn't find source file \"%s\", status=%%X%x",
+ Filename, Status);
return (0);
}
sys$close (&Fab);
* File ID
*/
COPY_SHORT (cp, ID_Number);
- cp += sizeof (short);
+ cp += 2;
#ifndef VMS
/*
* Creation Date. Unknown, so we fill with zeroes.
*/
- *(long *) cp = 0;
- cp += sizeof (long);
- *(long *) cp = 0;
- cp += sizeof (long);
+ COPY_LONG (cp, 0);
+ cp += 4;
+ COPY_LONG (cp, 0);
+ cp += 4;
/*
* End of file block
*/
- *(long *) cp = 0;
- cp += sizeof (long);
+ COPY_LONG (cp, 0);
+ cp += 4;
/*
* First free byte
*/
- *(short *) cp = 0;
- cp += sizeof (short);
+ COPY_SHORT (cp, 0);
+ cp += 2;
/*
* Record format
*/
/*
* Creation Date
*/
- *(long *) cp = ((long *) &Date_Xab.xab$q_cdt)[0];
- cp += sizeof (long);
- *(long *) cp = ((long *) &Date_Xab.xab$q_cdt)[1];
- cp += sizeof (long);
+ memcpy (cp, (char *) &Date_Xab.xab$q_cdt, 8);
+ cp += 8;
/*
* End of file block
*/
- *(long *) cp = File_Header_Xab.xab$l_ebk;
- cp += sizeof (long);
+ COPY_LONG (cp, File_Header_Xab.xab$l_ebk);
+ cp += 4;
/*
* First free byte
*/
- *(short *) cp = File_Header_Xab.xab$w_ffb;
- cp += sizeof (short);
+ COPY_SHORT (cp, File_Header_Xab.xab$w_ffb);
+ cp += 2;
/*
* Record format
*/
* File ID Number
*/
COPY_SHORT (cp, ID_Number);
- cp += sizeof (short);
+ cp += 2;
/*
* Set record number
*/
*cp++ = DST_S_C_SRC_SETREC_L;
COPY_LONG (cp, Starting_Line_Number);
- cp += sizeof (long);
+ cp += 4;
/*
* Define lines
*/
*cp++ = DST_S_C_SRC_DEFLINES_W;
COPY_SHORT (cp, Number_Of_Lines);
- cp += sizeof (short);
+ cp += 2;
/*
* Done
*/
spnt1 = find_symbol (spnt1->type2);
if (!spnt1)
{
- printf ("gcc-as warning(debugger output):");
- printf ("Forward reference error, dbx type %d\n",
- spnt->type2);
+ as_tsktsk ("debugger forward reference error, dbx type %d",
+ spnt->type2);
return;
}
}
*/
if ((total_len >= MAX_DEBUG_RECORD) || overflow)
{
- printf (" Variable descriptor %d too complicated. Defined as *void ", spnt->dbx_type);
+ as_warn ("Variable descriptor %d too complicated. Defined as void*", spnt->dbx_type);
VMS_Store_Immediate_Data (pvoid, 6, OBJ_S_C_DBG);
return;
}
strcpy(str, pnt1);
return 0;
}
- printf ("gcc-as warning(debugger output):");
- printf (" %d is an unknown untyped variable.\n", spnt->dbx_type);
+ as_tsktsk ("debugginer output: %d is an unknown untyped variable.",
+ spnt->dbx_type);
return 1; /* do not know what this is */
}
/* now define this module*/
/* 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);
+ as_tsktsk ("debugger output: structure element `%s' has undefined type",
+ pnt2);
continue;
}
Local[i++] = 7 + len;
default:
spnt->advanced = UNKNOWN;
spnt->VMS_type = 0;
- printf ("gcc-as warning(debugger output):");
- printf (" %d is an unknown type of variable.\n", spnt->dbx_type);
+ as_tsktsk ("debugger output: %d is an unknown type of variable.",
+ spnt->dbx_type);
return 1; /* unable to decipher */
}
/* this removes the evidence of the definition so that the outer levels of
/* if (pass > 1) printf(" Required %d passes\n",pass);*/
if (incomplete != 0)
{
- printf ("gcc-as warning(debugger output):");
- printf ("Unable to resolve %d circular references.\n", incomplete);
+ as_tsktsk ("debugger output: Unable to resolve %d circular references.",
+ incomplete);
}
fpnt = f_ref_root;
symbol_name = "\0";
if (find_symbol (fpnt->dbx_type) !=
(struct VMS_DBG_Symbol *) NULL)
{
- printf ("gcc-as warning(debugger output):");
- printf ("Forward reference error, dbx type %d\n",
- fpnt->dbx_type);
+ as_tsktsk ("debugger forward reference error, dbx type %d",
+ fpnt->dbx_type);
break;
}
fixit[0] = 0;
/* In this case we still generate the psect */
break;
default:
- {
- char Error_Line[256];
- sprintf (Error_Line,
- "Globalsymbol attribute for symbol %s was unexpected.\n",
- Name);
- error (Error_Line);
- break;
- }
+ as_fatal ("Globalsymbol attribute for symbol %s was unexpected.",
+ Name);
+ break;
} /* switch */
}
VMS_Global_Symbol_Spec (stripped_name, 0, globalvalue, 3);
break;
default:
- printf (" Invalid globalvalue of %s\n", stripped_name);
+ as_tsktsk ("Invalid globalvalue of %s", stripped_name);
break;
} /* switch */
} /* if */
/*
* Ignore zero bytes/words/longwords
*/
- if ((Size == sizeof (char)) && (*Pointer == 0))
- return;
- if ((Size == sizeof (short)) && (*(short *) Pointer == 0))
- return;
- if ((Size == sizeof (long)) && (*(long *) Pointer == 0))
- return;
+ switch (Size)
+ {
+ case 4:
+ if (Pointer[3] != 0
+ || Pointer[2] != 0)
+ goto do_it;
+ case 2:
+ if (Pointer[1] != 0)
+ goto do_it;
+ case 1:
+ if (Pointer[0] != 0)
+ goto do_it;
+ /* zero value */
+ return;
+ default:
+ do_it:
+ break;
+ }
/*
* If the data is too big for a TIR_S_C_STO_RIVB sub-record
* then we do it manually
int Psect_Offset;
int Record_Type;
{
- register struct VMS_Symbol *vsp =
- (struct VMS_Symbol *) (Symbol->sy_number);
+ register struct VMS_Symbol *vsp = Symbol->sy_obj;
char Local[32];
/*
S_SET_VALUE (symbolP, 0);
symbolP->sy_name_offset = 0;
symbolP->sy_number = 0;
+ symbolP->sy_obj = 0;
symbolP->sy_frag = New_Frag;
symbolP->sy_resolved = 0;
symbolP->sy_resolving = 0;
fixP->fx_addsy = symbolP;
fixP->fx_subsy = 0;
fixP->fx_offset = 0;
- fixP->fx_size = sizeof (long);
+ fixP->fx_size = 4;
fixP->fx_pcrel = 1;
fixP->fx_next = text_fix_root;
text_fix_root = fixP;
vsp->Psect_Offset = 0;
vsp->Next = VMS_Symbols;
VMS_Symbols = vsp;
- sp->sy_number = (int) vsp;
+ sp->sy_obj = vsp;
/*
* Make the psect for this data
*/
bss_address_frag.fr_address;
vsp->Next = VMS_Symbols;
VMS_Symbols = vsp;
- sp->sy_number = (int) vsp;
+ sp->sy_obj = vsp;
break;
/*
* Global initialized data
vsp->Psect_Offset = 0;
vsp->Next = VMS_Symbols;
VMS_Symbols = vsp;
- sp->sy_number = (int) vsp;
+ sp->sy_obj = vsp;
/*
* Make its psect
*/
- Globalref = VMS_Psect_Spec (
- S_GET_NAME (sp),
- vsp->Size,
- S_GET_OTHER (sp) ? "CONST" : "COMMON",
- vsp);
+ Globalref = VMS_Psect_Spec (S_GET_NAME (sp),
+ vsp->Size,
+ S_GET_OTHER (sp) ? "CONST" : "COMMON",
+ vsp);
if (Globalref)
Psect_Number--;
Local_Initialized_Data_Size += vsp->Size;
vsp->Next = VMS_Symbols;
VMS_Symbols = vsp;
- sp->sy_number = (int) vsp;
+ sp->sy_obj = vsp;
break;
/*
* Global Text definition
vsp->Psect_Offset = S_GET_VALUE (sp);
vsp->Next = VMS_Symbols;
VMS_Symbols = vsp;
- sp->sy_number = (int) vsp;
+ sp->sy_obj = vsp;
}
break;
/*
* Error
*/
if (S_GET_TYPE (sp) != 22)
- printf (" ERROR, unknown type (%d)\n",
- S_GET_TYPE (sp));
+ as_tsktsk ("unhandled stab type %d", S_GET_TYPE (sp));
break;
}
}
/*
* Size will HAVE to be "long"
*/
- if (fixP->fx_size != sizeof (long))
+ if (fixP->fx_size != 4)
error ("Fixup datum was not a longword");
/*
* Symbol must be "added" (if it is ever
/*
* Size will HAVE to be "long"
*/
- if (fixP->fx_size != sizeof (long))
+ if (fixP->fx_size != 4)
error ("Fixup datum was not a longword");
/*
* Symbol must be "added" (if it is ever
/*
* Store the symbol value in a PIC fashion
*/
- VMS_Store_PIC_Symbol_Reference (
- fixP->fx_addsy,
- fixP->fx_offset,
- fixP->fx_pcrel,
- vsp->Psect_Index,
- fixP->fx_frag->fr_address +
- fixP->fx_where -
- S_GET_VALUE (vsp->Symbol) +
- vsp->Psect_Offset,
- OBJ_S_C_TIR);
+ VMS_Store_PIC_Symbol_Reference (fixP->fx_addsy,
+ fixP->fx_offset,
+ fixP->fx_pcrel,
+ vsp->Psect_Index,
+ fixP->fx_frag->fr_address +
+ fixP->fx_where -
+ S_GET_VALUE (vsp->Symbol) +
+ vsp->Psect_Offset,
+ OBJ_S_C_TIR);
/*
* Done
*/
projects / binutils-gdb.git / commitdiff