summaryrefslogtreecommitdiff
path: root/bfd/vms-misc.c
diff options
context:
space:
mode:
authorKazu Hirata <kazu@codesourcery.com>2000-12-26 19:50:50 +0000
committerKazu Hirata <kazu@codesourcery.com>2000-12-26 19:50:50 +0000
commit8cbb3db1bb1368ddb04f0db2d735f9d398a29529 (patch)
tree6064bb6e92cb6adae76d0b517e83aad42fcc0865 /bfd/vms-misc.c
parentca94e64bb8974c9c7153f0be14706267c24c2b1d (diff)
downloadgdb-8cbb3db1bb1368ddb04f0db2d735f9d398a29529.tar.gz
2000-12-26 Kazu Hirata <kazu@hxi.com>
* vaxnetbsd.c: Fix formatting. * versados.c: Likewise. * vms-gsd.c: Likewise. * vms-hdr.c: Likewise. * vms-misc.c: Likewise.
Diffstat (limited to 'bfd/vms-misc.c')
-rw-r--r--bfd/vms-misc.c58
1 files changed, 17 insertions, 41 deletions
diff --git a/bfd/vms-misc.c b/bfd/vms-misc.c
index 8ebb67c0799..48029dd5cd2 100644
--- a/bfd/vms-misc.c
+++ b/bfd/vms-misc.c
@@ -18,7 +18,6 @@ You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
-
#if __STDC__
#include <stdarg.h>
#endif
@@ -38,7 +37,7 @@ Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
evaluates environment variable VMS_DEBUG for a
numerical value on the first call
all error levels below this value are printed
-
+
levels:
1 toplevel bfd calls (functions from the bfd vector)
2 functions called by bfd calls
@@ -74,10 +73,10 @@ _bfd_vms_debug (int level, char *format, ...)
if (abslvl > min_level)
return;
- while(--level>0)
- fprintf(output, " ");
+ while (--level>0)
+ fprintf (output, " ");
va_start(args, format);
- vfprintf(output, format, args);
+ vfprintf (output, format, args);
fflush(output);
va_end(args);
@@ -112,16 +111,15 @@ _bfd_vms_debug (level, format, a1, a2, a3, a4, a5, a6)
if (level > min_level)
return;
- while(--level>0)
- fprintf(output, " ");
- fprintf(output, format, a1, a2, a3, a4, a5, a6);
+ while (--level>0)
+ fprintf (output, " ");
+ fprintf (output, format, a1, a2, a3, a4, a5, a6);
fflush(output);
return;
}
#endif /* __STDC__ */
-
/* a debug function
hex dump 'size' bytes starting at 'ptr' */
@@ -235,43 +233,41 @@ _bfd_vms_get_header_values (abfd, buf, type, length)
vms_debug (10, "_bfd_vms_get_header_values type %x, length %x\n", (type?*type:0), (length?*length:0));
#endif
-
return;
}
-
/* Get next record from object file to vms_buf
set PRIV(buf_size) and return it
-
+
this is a little tricky since it should be portable.
-
+
the openVMS object file has 'variable length' which means that
read() returns data in chunks of (hopefully) correct and expected
size. The linker (and other tools on vms) depend on that. Unix doesn't
know about 'formatted' files, so reading and writing such an object
file in a unix environment is not trivial.
-
+
With the tool 'file' (available on all vms ftp sites), one
can view and change the attributes of a file. Changing from
'variable length' to 'fixed length, 512 bytes' reveals the
record length at the first 2 bytes of every record. The same
happens during the transfer of object files from vms to unix,
at least with ucx, dec's implementation of tcp/ip.
-
+
The vms format repeats the length at bytes 2 & 3 of every record.
-
+
On the first call (file_format == FF_UNKNOWN) we check if
the first and the third byte pair (!) of the record match.
If they do it's an object file in an unix environment or with
wrong attributes (FF_FOREIGN), else we should be in a vms
environment where read() returns the record size (FF_NATIVE).
-
+
reading is always done in 2 steps.
first just the record header is read and the length extracted
by get_header_values
then the read buffer is adjusted and the remaining bytes are
read in.
-
+
all file i/o is always done on even file positions */
int
@@ -318,12 +314,12 @@ _bfd_vms_get_record (abfd)
test_len = 6; /* probe 6 bytes */
test_start = 2; /* where the record starts */
break;
-
+
case FF_NATIVE:
test_len = 4;
test_start = 0;
break;
-
+
default:
case FF_VAX:
test_len = 0;
@@ -437,7 +433,6 @@ _bfd_vms_get_record (abfd)
return PRIV(rec_length);
}
-
/* get next vms record from file
update vms_rec and rec_length to new (remaining) values */
@@ -484,7 +479,6 @@ _bfd_vms_next_record (abfd)
return PRIV(rec_type);
}
-
/* Copy sized string (string with fixed length) to new allocated area
size is string length (size of record) */
@@ -548,7 +542,6 @@ _bfd_vms_push (abfd, val, psect)
return;
}
-
/* Pop value and section index */
uquad
@@ -610,7 +603,6 @@ add_new_contents (abfd, section)
return newptr;
}
-
/* Save section data & offset to an vms_section structure
vms_section_table[] holds the vms_section chain */
@@ -639,7 +631,6 @@ _bfd_save_vms_section (abfd, section, data, offset, count)
return true;
}
-
/* Get vms_section pointer to saved contents for section # index */
vms_section *
@@ -694,7 +685,6 @@ _bfd_vms_output_begin (abfd, rectype, rechead)
return;
}
-
/* Set record/subrecord alignment */
void
@@ -710,7 +700,6 @@ _bfd_vms_output_alignment (abfd, alignto)
return;
}
-
/* Prepare for subrecord fields */
void
@@ -726,7 +715,6 @@ _bfd_vms_output_push (abfd)
return;
}
-
/* End of subrecord fields */
void
@@ -749,7 +737,6 @@ _bfd_vms_output_pop (abfd)
return;
}
-
/* Flush unwritten output, ends current record */
void
@@ -779,7 +766,7 @@ _bfd_vms_output_flush (abfd)
vms_debug (6, "align: adding %d bytes\n", aligncount);
#endif
- while(aligncount-- > 0)
+ while (aligncount-- > 0)
{
PRIV(output_buf)[real_size++] = 0;
#if 0
@@ -814,7 +801,6 @@ _bfd_vms_output_flush (abfd)
return;
}
-
/* End record output */
void
@@ -830,7 +816,6 @@ _bfd_vms_output_end (abfd)
return;
}
-
/* check remaining buffer size
return what's left. */
@@ -847,7 +832,6 @@ _bfd_vms_output_check (abfd, size)
return (MAX_OUTREC_SIZE - (PRIV(output_size) + size + MIN_OUTREC_LUFT));
}
-
/* Output byte (8 bit) value */
void
@@ -864,7 +848,6 @@ _bfd_vms_output_byte (abfd, value)
return;
}
-
/* Output short (16 bit) value */
void
@@ -881,7 +864,6 @@ _bfd_vms_output_short (abfd, value)
return;
}
-
/* Output long (32 bit) value */
void
@@ -898,7 +880,6 @@ _bfd_vms_output_long (abfd, value)
return;
}
-
/* Output quad (64 bit) value */
void
@@ -915,7 +896,6 @@ _bfd_vms_output_quad (abfd, value)
return;
}
-
/* Output c-string as counted string */
void
@@ -944,7 +924,6 @@ int len;
_bfd_vms_output_dump (abfd, (unsigned char *)value, len);
}
-
/* Output character area */
void
@@ -966,7 +945,6 @@ _bfd_vms_output_dump (abfd, data, length)
return;
}
-
/* Output count bytes of value */
void
@@ -1075,7 +1053,6 @@ _bfd_vms_length_hash_symbol (abfd, in, maxlen)
return outbuf;
}
-
/* Allocate and initialize a new symbol. */
static asymbol *
@@ -1098,7 +1075,6 @@ new_symbol (abfd, name)
return symbol;
}
-
/* Allocate and enter a new private symbol. */
vms_symbol_entry *