mirror of
https://github.com/bminor/binutils-gdb.git
synced 2025-11-16 12:34:43 +00:00
1a12e548ba
This removes many unnecessary NULL casts. I'm also adding a few arg casts in concat calls, to make the code consistent. Advice from quite a few years ago was that it's better to use the exact type for args corresponding to function ellipses, in case NULL is defined as plain 0. (I think that happened with some early 64-bit systems. Plain NULL ought to be OK nowadays.)
376 lines
8.7 KiB
C
376 lines
8.7 KiB
C
/* te-vms.c -- Utilities for VMS.
|
|
Copyright (C) 2009-2025 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 purpose 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;
|
|
|
|
#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;
|
|
}
|
|
|
|
fullname = concat (dirname, filename, (const char *) NULL);
|
|
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)
|
|
{
|
|
free (fullname);
|
|
return 1;
|
|
}
|
|
|
|
file.string[nam.nam$b_esl] = 0;
|
|
|
|
/* Find matching filespec. */
|
|
status = SYS$SEARCH (&fab, 0, 0);
|
|
if ((status & 1) != 1)
|
|
{
|
|
free (fullname);
|
|
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)
|
|
{
|
|
free (fullname);
|
|
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)
|
|
{
|
|
free (fullname);
|
|
return 1;
|
|
}
|
|
|
|
if ((iosb.status & 1) != 1)
|
|
{
|
|
free (fullname);
|
|
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)
|
|
{
|
|
free (fullname);
|
|
return 1;
|
|
}
|
|
|
|
if ((iosb.status & 1) != 1)
|
|
{
|
|
free (fullname);
|
|
return 1;
|
|
}
|
|
|
|
/* Deassign the channel and exit. */
|
|
status = SYS$DASSGN (chan);
|
|
if ((status & 1) != 1)
|
|
{
|
|
free (fullname);
|
|
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;
|
|
|
|
fullname = concat (dirname, filename, (const char *) NULL);
|
|
|
|
if ((stat (fullname, &buff)) != 0)
|
|
{
|
|
free (fullname);
|
|
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 */
|
|
|
|
free (fullname);
|
|
return 0;
|
|
}
|
|
|
|
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;
|
|
}
|