summaryrefslogtreecommitdiffstats
path: root/binutils-2.24/gas/config/te-vms.c
diff options
context:
space:
mode:
Diffstat (limited to 'binutils-2.24/gas/config/te-vms.c')
-rw-r--r--binutils-2.24/gas/config/te-vms.c347
1 files changed, 0 insertions, 347 deletions
diff --git a/binutils-2.24/gas/config/te-vms.c b/binutils-2.24/gas/config/te-vms.c
deleted file mode 100644
index 42f965ae..00000000
--- a/binutils-2.24/gas/config/te-vms.c
+++ /dev/null
@@ -1,347 +0,0 @@
-/* te-vms.c -- Utilities for VMS.
- Copyright 2009 Free Software Foundation, Inc.
-
- Written by Douglas B Rupp <rupp@gnat.com>
-
- This program is free software; you can redistribute it and/or modify
- it under the terms of the GNU General Public License as published by
- the Free Software Foundation; either version 3 of the License, or
- (at your option) any later version.
-
- This program is distributed in the hope that it will be useful,
- but WITHOUT ANY WARRANTY; without even the implied warranty of
- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- GNU General Public License for more details.
-
- 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., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
-
-#include "as.h"
-#include "te-vms.h"
-
-/* The purspose of the two alternate versions below is to have one that
- works for native VMS and one that works on an NFS mounted filesystem
- (Unix Server/VMS client). The main issue being to generate the special
- VMS file timestamps for the debug info. */
-
-#ifdef VMS
-#define __NEW_STARLET 1
-#include <vms/starlet.h>
-#include <vms/rms.h>
-#include <vms/atrdef.h>
-#include <vms/fibdef.h>
-#include <vms/stsdef.h>
-#include <vms/iodef.h>
-#include <vms/fatdef.h>
-#include <errno.h>
-#include <vms/descrip.h>
-#include <string.h>
-#include <unixlib.h>
-
-#define MAXPATH 256
-
-/* Descrip.h doesn't have everything... */
-typedef struct fibdef * __fibdef_ptr32 __attribute__ (( mode (SI) ));
-
-struct dsc$descriptor_fib
-{
- unsigned int fib$l_len;
- __fibdef_ptr32 fib$l_addr;
-};
-
-/* I/O Status Block. */
-struct IOSB
-{
- unsigned short status, count;
- unsigned int devdep;
-};
-
-static char *tryfile;
-
-/* Variable length string. */
-struct vstring
-{
- short length;
- char string[NAM$C_MAXRSS+1];
-};
-
-static char filename_buff [MAXPATH];
-static char vms_filespec [MAXPATH];
-
-/* Callback function for filespec style conversion. */
-
-static int
-translate_unix (char *name, int type ATTRIBUTE_UNUSED)
-{
- strncpy (filename_buff, name, MAXPATH);
- filename_buff [MAXPATH - 1] = (char) 0;
- return 0;
-}
-
-/* Wrapper for DECC function that converts a Unix filespec
- to VMS style filespec. */
-
-static char *
-to_vms_file_spec (char *filespec)
-{
- strncpy (vms_filespec, "", MAXPATH);
- decc$to_vms (filespec, translate_unix, 1, 1);
- strncpy (vms_filespec, filename_buff, MAXPATH);
-
- vms_filespec [MAXPATH - 1] = (char) 0;
-
- return vms_filespec;
-}
-
-#else /* not VMS */
-
-#define _BSD_SOURCE 1
-#include <sys/stat.h>
-#include <time.h>
-
-#define VMS_EPOCH_OFFSET 35067168000000000LL
-#define VMS_GRANULARITY_FACTOR 10000000
-
-#endif /* VMS */
-
-/* Return VMS file date, size, format, version given a name. */
-
-static int
-vms_file_stats_name (const char *dirname,
- const char *filename,
- long long *cdt,
- long *siz,
- char *rfo,
- int *ver)
-{
- char fullname[strlen (dirname) + strlen (filename) + 1];
-#ifdef VMS
- struct FAB fab;
- struct NAM nam;
-
- unsigned long long create;
- FAT recattr;
- char ascnamebuff [256];
-
- ATRDEF atrlst[]
- = {
- { ATR$S_CREDATE, ATR$C_CREDATE, &create },
- { ATR$S_RECATTR, ATR$C_RECATTR, &recattr },
- { ATR$S_ASCNAME, ATR$C_ASCNAME, &ascnamebuff },
- { 0, 0, 0}
- };
-
- FIBDEF fib;
- struct dsc$descriptor_fib fibdsc = {sizeof (fib), (void *) &fib};
-
- struct IOSB iosb;
-
- long status;
- unsigned short chan;
-
- struct vstring file;
- struct dsc$descriptor_s filedsc
- = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) file.string};
- struct vstring device;
- struct dsc$descriptor_s devicedsc
- = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) device.string};
- struct vstring result;
- struct dsc$descriptor_s resultdsc
- = {NAM$C_MAXRSS, DSC$K_DTYPE_VT, DSC$K_CLASS_VS, (void *) result.string};
-
- if (strcmp (filename, "<internal>") == 0
- || strcmp (filename, "<built-in>") == 0)
- {
- if (cdt)
- *cdt = 0;
-
- if (siz)
- *siz = 0;
-
- if (rfo)
- *rfo = 0;
-
- if (ver)
- *ver = 0;
-
- return 0;
- }
-
- strcpy (fullname, dirname);
- strcat (fullname, filename);
-
- tryfile = to_vms_file_spec (fullname);
-
- /* Allocate and initialize a FAB and NAM structures. */
- fab = cc$rms_fab;
- nam = cc$rms_nam;
-
- nam.nam$l_esa = file.string;
- nam.nam$b_ess = NAM$C_MAXRSS;
- nam.nam$l_rsa = result.string;
- nam.nam$b_rss = NAM$C_MAXRSS;
- fab.fab$l_fna = tryfile;
- fab.fab$b_fns = strlen (tryfile);
- fab.fab$l_nam = &nam;
-
- /* Validate filespec syntax and device existence. */
- status = SYS$PARSE (&fab, 0, 0);
- if ((status & 1) != 1)
- return 1;
-
- file.string[nam.nam$b_esl] = 0;
-
- /* Find matching filespec. */
- status = SYS$SEARCH (&fab, 0, 0);
- if ((status & 1) != 1)
- return 1;
-
- file.string[nam.nam$b_esl] = 0;
- result.string[result.length=nam.nam$b_rsl] = 0;
-
- /* Get the device name and assign an IO channel. */
- strncpy (device.string, nam.nam$l_dev, nam.nam$b_dev);
- devicedsc.dsc$w_length = nam.nam$b_dev;
- chan = 0;
- status = SYS$ASSIGN (&devicedsc, &chan, 0, 0, 0);
- if ((status & 1) != 1)
- return 1;
-
- /* Initialize the FIB and fill in the directory id field. */
- memset (&fib, 0, sizeof (fib));
- fib.fib$w_did[0] = nam.nam$w_did[0];
- fib.fib$w_did[1] = nam.nam$w_did[1];
- fib.fib$w_did[2] = nam.nam$w_did[2];
- fib.fib$l_acctl = 0;
- fib.fib$l_wcc = 0;
- strcpy (file.string, (strrchr (result.string, ']') + 1));
- filedsc.dsc$w_length = strlen (file.string);
- result.string[result.length = 0] = 0;
-
- /* Open and close the file to fill in the attributes. */
- status
- = SYS$QIOW (0, chan, IO$_ACCESS|IO$M_ACCESS, &iosb, 0, 0,
- &fibdsc, &filedsc, &result.length, &resultdsc, &atrlst, 0);
- if ((status & 1) != 1)
- return 1;
- if ((iosb.status & 1) != 1)
- return 1;
-
- result.string[result.length] = 0;
- status = SYS$QIOW (0, chan, IO$_DEACCESS, &iosb, 0, 0, &fibdsc, 0, 0, 0,
- &atrlst, 0);
- if ((status & 1) != 1)
- return 1;
- if ((iosb.status & 1) != 1)
- return 1;
-
- /* Deassign the channel and exit. */
- status = SYS$DASSGN (chan);
- if ((status & 1) != 1)
- return 1;
-
- if (cdt) *cdt = create;
- if (siz) *siz = (512 * 65536 * recattr.fat$w_efblkh) +
- (512 * (recattr.fat$w_efblkl - 1)) +
- recattr.fat$w_ffbyte;
- if (rfo) *rfo = recattr.fat$v_rtype;
- if (ver) *ver = strtol (strrchr (ascnamebuff, ';') + 1, 0, 10);
-#else /* not VMS */
-
- struct stat buff;
- struct tm *ts;
- long long gmtoff, secs, nsecs;
-
- strcpy (fullname, dirname);
- strcat (fullname, filename);
-
- if ((stat (fullname, &buff)) != 0)
- return 1;
-
- if (cdt)
- {
- ts = localtime (& buff.st_mtime);
-
-#ifdef HAVE_TM_GMTOFF
- gmtoff = ts->tm_gmtoff;
-#else
- {
- extern long timezone;
-
- if (ts->tm_isdst == 1)
- gmtoff = - (timezone - 3600);
- else
- gmtoff = - timezone;
- }
-#endif
-
-#ifdef HAVE_ST_MTIM_TV_SEC
- secs = buff.st_mtim.tv_sec;
-#else
- secs = buff.st_mtime;
-#endif
-
-#ifdef HAVE_ST_MTIM_TV_NSEC
- nsecs = buff.st_mtim.tv_nsec;
-#else
- nsecs = 0;
-#endif
-
- /* VMS timestamps are stored in local time to 100 nsec accuracy, but by
- experiment I found timestamps truncated to (at least) microseconds
- on an NFS mounted filesystem, hence the adjustment below. DBR. */
- *cdt = ((secs + gmtoff) * VMS_GRANULARITY_FACTOR)
- + (nsecs / 1000 * 10) + VMS_EPOCH_OFFSET;
- }
-
- if (siz)
- *siz = buff.st_size;
-
- if (rfo)
- *rfo = 2; /* Stream LF format. */
-
- /* Returning a file version of 0 is never correct for debug info, version 1
- will be correct if file editing is done only on the Unix side. If editing
- is done on the VMS side, then its TBD. */
- if (ver)
- *ver = 1;
-#endif /* VMS */
-
- return 0;
-}
-
-bfd_uint64_t
-vms_dwarf2_file_time_name (const char *filename, const char *dirname)
-{
- long long cdt;
-
- if (vms_file_stats_name (dirname, filename, &cdt, 0, 0, 0) == 0)
- return cdt;
- else
- return 0;
-}
-
-long
-vms_dwarf2_file_size_name (const char *filename, const char *dirname)
-{
- long siz;
-
- if (vms_file_stats_name (dirname, filename, 0, &siz, 0, 0) == 0)
- return siz;
- else
- return 0;
-}
-
-/* VMS debugger needs the filename with version appended. */
-/* Longest filename on VMS is 255 characters. Largest version is 32768. */
-char *
-vms_dwarf2_file_name (const char *filename, const char *dirname)
-{
- int ver;
- static char buff [255 + 7];
-
- vms_file_stats_name (dirname, filename, 0, 0, 0, &ver);
- snprintf (buff, 255 + 7, "%s;%d", filename, ver);
- return buff;
-}
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-26 14:05:31 +0000