+2009-09-07 Tristan Gingold <gingold@adacore.com>
+
+ * bfd.m4 (BFD_HAVE_TIME_TYPE_MEMBER,
+ BFD_HAVE_SYS_STAT_TYPE_MEMBER): Moved to gas/acinclude.m4
+ * configure.in: Move tests for tm_gmtoff, st_mtim.tv_sec and
+ st_mtim.tv_nsec to gas/configure.in
+ (bfd_elf64_ia64_vms_vec): Remove vmsutil.lo
+ * configure: Regenerate.
+ * config.in: Regenerate.
+ * vmsutil.c: Moved to gas/config/te-vms.c
+ * vmsutil.h: Removed.
+ * Makefile.am (BFD32_BACKENDS_CFILES): Remove vmsutil.c
+ (BFD32_BACKENDS): Remove vmsutil.lo
+ * Makefile.in: Regenerate.
+
2009-09-05 Eli Zaretskii <eliz@gnu.org>
* coffcode.h: Include libiberty.h.
BFD_HAVE_SYS_STAT_TYPE_MEMBER): New config functions.
* configure.in: Use them.
* configure: Regenerate.
- * config.in: Regnerate.
+ * config.in: Regenerate.
* vmsutil.c: Include sysdep.h, remove ansidecl.h.
#define _BSD_SOURCE. Add comments.
(vms_file_stats_name): Calculate creation date based on available
vms-misc.lo \
vms-tir.lo \
vms.lo \
- vmsutil.lo \
xcofflink.lo \
xsym.lo \
xtensa-isa.lo \
vms-misc.c \
vms-tir.c \
vms.c \
- vmsutil.c \
xcofflink.c \
xsym.c \
xtensa-isa.c \
vms-misc.lo \
vms-tir.lo \
vms.lo \
- vmsutil.lo \
xcofflink.lo \
xsym.lo \
xtensa-isa.lo \
vms-misc.c \
vms-tir.c \
vms.c \
- vmsutil.c \
xcofflink.c \
xsym.c \
xtensa-isa.c \
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vms-misc.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vms-tir.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vms.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/vmsutil.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xcofflink.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xsym.Plo@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xtensa-isa.Plo@am__quote@
AC_MSG_RESULT($bfd_cv_have_sys_procfs_type_member_$1_$2)
])
-dnl Check for existence of member $2 in type $1 in time.h
-
-AC_DEFUN([BFD_HAVE_TIME_TYPE_MEMBER],
-[AC_MSG_CHECKING([for $1.$2 in time.h])
- AC_CACHE_VAL(bfd_cv_have_time_type_member_$2,
- [AC_TRY_COMPILE([
-#define _BSD_SOURCE 1
-#include <time.h>],
- [$1 avar; void* aref = (void*) &avar.$2],
- bfd_cv_have_time_type_member_$2=yes,
- bfd_cv_have_time_type_member_$2=no
- )])
- if test $bfd_cv_have_time_type_member_$2 = yes; then
- AC_DEFINE([HAVE_]translit($2, [a-z], [A-Z]), 1,
- [Define if <time.h> has $1.$2.])
- fi
- AC_MSG_RESULT($bfd_cv_have_time_type_member_$2)
-])
-
-dnl Check for existence of member $2.$3 in type $1 in sys/stat.h
-
-AC_DEFUN([BFD_HAVE_SYS_STAT_TYPE_MEMBER],
-[AC_MSG_CHECKING([for $1.$2.$3 in sys/stat.h])
- AC_CACHE_VAL(bfd_cv_have_sys_stat_type_member_$2_$3,
- [AC_TRY_COMPILE([
-#define _BSD_SOURCE 1
-#include <sys/stat.h>],
- [$1 avar; void* aref = (void*) &avar.$2.$3],
- bfd_cv_have_sys_stat_type_member_$2_$3=yes,
- bfd_cv_have_sys_stat_type_member_$2_$3=no
- )])
- if test $bfd_cv_have_sys_stat_type_member_$2_$3 = yes; then
- AC_DEFINE([HAVE_]translit($2, [a-z], [A-Z])[_]translit($3, [a-z], [A-Z]), 1,
- [Define if <sys/stat.h> has $1.$2.$3])
- fi
- AC_MSG_RESULT($bfd_cv_have_sys_stat_type_member_$2_$3)
-])
/* Define if struct core_dumpx has member c_impl */
#undef HAVE_ST_C_IMPL
-/* Define if <sys/stat.h> has struct stat.st_mtim.tv_nsec */
-#undef HAVE_ST_MTIM_TV_NSEC
-
-/* Define if <sys/stat.h> has struct stat.st_mtim.tv_sec */
-#undef HAVE_ST_MTIM_TV_SEC
-
/* Define to 1 if you have the `sysconf' function. */
#undef HAVE_SYSCONF
/* Define to 1 if you have the <time.h> header file. */
#undef HAVE_TIME_H
-/* Define if <time.h> has struct tm.tm_gmtoff. */
-#undef HAVE_TM_GMTOFF
-
/* Define to 1 if you have the <unistd.h> header file. */
#undef HAVE_UNISTD_H
_ACEOF
-# Support for VMS timestamps via cross compile
-
-if test "$ac_cv_header_time_h" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct tm.tm_gmtoff in time.h" >&5
-$as_echo_n "checking for struct tm.tm_gmtoff in time.h... " >&6; }
- if test "${bfd_cv_have_time_type_member_tm_gmtoff+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#define _BSD_SOURCE 1
-#include <time.h>
-int
-main ()
-{
-struct tm avar; void* aref = (void*) &avar.tm_gmtoff
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- bfd_cv_have_time_type_member_tm_gmtoff=yes
-else
- bfd_cv_have_time_type_member_tm_gmtoff=no
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- if test $bfd_cv_have_time_type_member_tm_gmtoff = yes; then
-
-$as_echo "#define HAVE_TM_GMTOFF 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $bfd_cv_have_time_type_member_tm_gmtoff" >&5
-$as_echo "$bfd_cv_have_time_type_member_tm_gmtoff" >&6; }
-
-fi
-
-if test "$ac_cv_header_sys_stat_h" = yes; then
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct stat.st_mtim.tv_sec in sys/stat.h" >&5
-$as_echo_n "checking for struct stat.st_mtim.tv_sec in sys/stat.h... " >&6; }
- if test "${bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#define _BSD_SOURCE 1
-#include <sys/stat.h>
-int
-main ()
-{
-struct stat avar; void* aref = (void*) &avar.st_mtim.tv_sec
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec=yes
-else
- bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec=no
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- if test $bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec = yes; then
-
-$as_echo "#define HAVE_ST_MTIM_TV_SEC 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec" >&5
-$as_echo "$bfd_cv_have_sys_stat_type_member_st_mtim_tv_sec" >&6; }
-
- { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct stat.st_mtim.tv_nsec in sys/stat.h" >&5
-$as_echo_n "checking for struct stat.st_mtim.tv_nsec in sys/stat.h... " >&6; }
- if test "${bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec+set}" = set; then :
- $as_echo_n "(cached) " >&6
-else
- cat confdefs.h - <<_ACEOF >conftest.$ac_ext
-/* end confdefs.h. */
-
-#define _BSD_SOURCE 1
-#include <sys/stat.h>
-int
-main ()
-{
-struct stat avar; void* aref = (void*) &avar.st_mtim.tv_nsec
- ;
- return 0;
-}
-_ACEOF
-if ac_fn_c_try_compile "$LINENO"; then :
- bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec=yes
-else
- bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec=no
-
-fi
-rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
-fi
-
- if test $bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec = yes; then
-
-$as_echo "#define HAVE_ST_MTIM_TV_NSEC 1" >>confdefs.h
-
- fi
- { $as_echo "$as_me:${as_lineno-$LINENO}: result: $bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec" >&5
-$as_echo "$bfd_cv_have_sys_stat_type_member_st_mtim_tv_nsec" >&6; }
-
-fi
-
# Link in zlib if we can. This allows us to read compressed debug sections.
# This is used only by compress.c.
{ $as_echo "$as_me:${as_lineno-$LINENO}: checking for library containing zlibVersion" >&5
bfd_elf64_ia64_big_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_ia64_hpux_big_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_ia64_little_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
- bfd_elf64_ia64_vms_vec) tb="$tb elf64-ia64.lo elf64.lo $elf vmsutil.lo"; target_size=64 ;;
+ bfd_elf64_ia64_vms_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_little_generic_vec) tb="$tb elf64-gen.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_littlemips_vec) tb="$tb elf64-mips.lo elf64.lo elfxx-mips.lo elf-vxworks.lo elf32.lo $elf ecofflink.lo"; target_size=64 ;;
bfd_elf64_mmix_vec) tb="$tb elf64-mmix.lo elf64.lo $elf" target_size=64 ;;
AC_CHECK_DECLS(snprintf)
AC_CHECK_DECLS(vsnprintf)
-# Support for VMS timestamps via cross compile
-
-if test "$ac_cv_header_time_h" = yes; then
- BFD_HAVE_TIME_TYPE_MEMBER(struct tm, tm_gmtoff)
-fi
-
-if test "$ac_cv_header_sys_stat_h" = yes; then
- BFD_HAVE_SYS_STAT_TYPE_MEMBER(struct stat, st_mtim, tv_sec)
- BFD_HAVE_SYS_STAT_TYPE_MEMBER(struct stat, st_mtim, tv_nsec)
-fi
-
# Link in zlib if we can. This allows us to read compressed debug sections.
# This is used only by compress.c.
AC_SEARCH_LIBS(zlibVersion, z, [AC_CHECK_HEADERS(zlib.h)])
bfd_elf64_ia64_big_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_ia64_hpux_big_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_ia64_little_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
- bfd_elf64_ia64_vms_vec) tb="$tb elf64-ia64.lo elf64.lo $elf vmsutil.lo"; target_size=64 ;;
+ bfd_elf64_ia64_vms_vec) tb="$tb elf64-ia64.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_little_generic_vec) tb="$tb elf64-gen.lo elf64.lo $elf"; target_size=64 ;;
bfd_elf64_littlemips_vec) tb="$tb elf64-mips.lo elf64.lo elfxx-mips.lo elf-vxworks.lo elf32.lo $elf ecofflink.lo"; target_size=64 ;;
bfd_elf64_mmix_vec) tb="$tb elf64-mmix.lo elf64.lo $elf" target_size=64 ;;
+++ /dev/null
-/* vmsutil.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 "sysdep.h"
-#include "vmsutil.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. */
-
-int
-vms_file_stats_name (const char *filename,
- long long *cdt,
- long *siz,
- char *rfo,
- int *ver)
-{
-#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;
- }
-
- tryfile = to_vms_file_spec ((char *) filename);
-
- /* 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;
-
- if ((stat (filename, &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;
-}
-
+++ /dev/null
-/* vmsutil.h -- Header file for 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. */
-
-extern int vms_file_stats_name (const char *, long long *, long *, char *, int *);
+2009-09-07 Tristan Gingold <gingold@adacore.com>
+
+ * Makefile.am (TARG_ENV_CFILES): New variable. Set to te-vms.c
+ (POTFILES): Add $(TARG_ENV_CFILES) in definition.
+ (EXTRA_as_new_SOURCES): Ditto.
+ * Makefile: Regenerate.
+ * acinclude.m4 (BFD_HAVE_TIME_TYPE_MEMBER,
+ BFD_HAVE_SYS_STAT_TYPE_MEMBER): New macro created from bfd/bfd.m4.
+ * configure.in: Add Tests for tm_gmtoff, st_mtim.tv_sec and
+ st_mtim.tv_nsec (from bfd/configure.in). Check for time.h and
+ sys/stat.h headers.
+ Add te-vms.o in extra_objects if te_file is vms.
+ * configure: Regenerate.
+ * config.in: Regenerate.
+ * config/te-vms.c: New file, from bfd/vmsutil.c
+ (vms_dwarf2_file_time_name, vms_dwarf2_file_size_name)
+ (vms_dwarf2_file_name): New functions.
+ (vms_file_stats_name): Make it static, add a dirname parameter to
+ locally create the full pathname.
+ * config/te-vms.h: Add a copyright header.
+ Declare the above functions.
+ (DWARF2_FILE_TIME_NAME, DWARF2_FILE_SIZE_NAME, DWARF2_FILE_NAME): Use
+ the above functions in the definition.
+ * makefile.vms (OBJS): Add te-vms.obj.
+ (te-vms.obj): Create a specific target.
+ * configure.com: Create targ-env.h using a per target value.
+ Compile te-vms.c for ia64.
+
2009-09-05 Jie Zhang <jie.zhang@analog.com>
* doc/as.texinfo: Document that Blackfin GAS does not
config/te-vxworks.h \
config/te-wince-pe.h
+TARG_ENV_CFILES = \
+ config/te-vms.c
+
# Multi files in config
MULTI_CFILES = \
OBJS = $(CONFIG_OBJS) $(GENERIC_OBJS)
-POTFILES = $(MULTI_CFILES) $(CONFIG_ATOF_CFILES) $(TARG_ENV_HFILES) $(OBJ_FORMAT_HFILES) \
+POTFILES = $(MULTI_CFILES) $(CONFIG_ATOF_CFILES) \
+ $(TARG_ENV_HFILES) $(TARG_ENV_CFILES) $(OBJ_FORMAT_HFILES) \
$(OBJ_FORMAT_CFILES) $(TARGET_CPU_HFILES) $(TARGET_CPU_CFILES) \
$(HFILES) $(CFILES)
po/POTFILES.in: @MAINT@ Makefile
$(extra_objects) $(GASLIBS) $(LIBINTL_DEP)
EXTRA_as_new_SOURCES = $(CFILES) $(HFILES) $(TARGET_CPU_CFILES) \
$(TARGET_CPU_HFILES) $(OBJ_FORMAT_CFILES) $(OBJ_FORMAT_HFILES) \
- $(CONFIG_ATOF_CFILES) $(MULTI_CFILES)
+ $(TARG_ENV_CFILES) $(CONFIG_ATOF_CFILES) $(MULTI_CFILES)
EXPECT = expect
RUNTEST = runtest
config/te-vxworks.h \
config/te-wince-pe.h
+TARG_ENV_CFILES = \
+ config/te-vms.c
+
# Multi files in config
MULTI_CFILES = \
config/atof-vax.c
OBJS = $(CONFIG_OBJS) $(GENERIC_OBJS)
-POTFILES = $(MULTI_CFILES) $(CONFIG_ATOF_CFILES) $(TARG_ENV_HFILES) $(OBJ_FORMAT_HFILES) \
+POTFILES = $(MULTI_CFILES) $(CONFIG_ATOF_CFILES) \
+ $(TARG_ENV_HFILES) $(TARG_ENV_CFILES) $(OBJ_FORMAT_HFILES) \
$(OBJ_FORMAT_CFILES) $(TARGET_CPU_HFILES) $(TARGET_CPU_CFILES) \
$(HFILES) $(CFILES)
# The m68k operand parser.
EXTRA_as_new_SOURCES = $(CFILES) $(HFILES) $(TARGET_CPU_CFILES) \
$(TARGET_CPU_HFILES) $(OBJ_FORMAT_CFILES) $(OBJ_FORMAT_HFILES) \
- $(CONFIG_ATOF_CFILES) $(MULTI_CFILES) config/m68k-parse.y \
- config/bfin-parse.y
+ $(TARG_ENV_CFILES) $(CONFIG_ATOF_CFILES) $(MULTI_CFILES) \
+ config/m68k-parse.y config/bfin-parse.y
EXPECT = expect
RUNTEST = runtest
RUNTESTFLAGS =
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tc-xtensa.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tc-z80.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/tc-z8k.Po@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/te-vms.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/write.Po@am__quote@
@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/xtensa-relax.Po@am__quote@
@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o obj-som.obj `if test -f 'config/obj-som.c'; then $(CYGPATH_W) 'config/obj-som.c'; else $(CYGPATH_W) '$(srcdir)/config/obj-som.c'; fi`
+te-vms.o: config/te-vms.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT te-vms.o -MD -MP -MF $(DEPDIR)/te-vms.Tpo -c -o te-vms.o `test -f 'config/te-vms.c' || echo '$(srcdir)/'`config/te-vms.c
+@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/te-vms.Tpo $(DEPDIR)/te-vms.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='config/te-vms.c' object='te-vms.o' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o te-vms.o `test -f 'config/te-vms.c' || echo '$(srcdir)/'`config/te-vms.c
+
+te-vms.obj: config/te-vms.c
+@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT te-vms.obj -MD -MP -MF $(DEPDIR)/te-vms.Tpo -c -o te-vms.obj `if test -f 'config/te-vms.c'; then $(CYGPATH_W) 'config/te-vms.c'; else $(CYGPATH_W) '$(srcdir)/config/te-vms.c'; fi`
+@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/te-vms.Tpo $(DEPDIR)/te-vms.Po
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='config/te-vms.c' object='te-vms.obj' libtool=no @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o te-vms.obj `if test -f 'config/te-vms.c'; then $(CYGPATH_W) 'config/te-vms.c'; else $(CYGPATH_W) '$(srcdir)/config/te-vms.c'; fi`
+
atof-ieee.o: config/atof-ieee.c
@am__fastdepCC_TRUE@ $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT atof-ieee.o -MD -MP -MF $(DEPDIR)/atof-ieee.Tpo -c -o atof-ieee.o `test -f 'config/atof-ieee.c' || echo '$(srcdir)/'`config/atof-ieee.c
@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/atof-ieee.Tpo $(DEPDIR)/atof-ieee.Po
done
$1=[$]_gas_uniq_newlist
])dnl
+dnl
+dnl Check for existence of member $2 in type $1 in time.h
+dnl
+AC_DEFUN([GAS_HAVE_TIME_TYPE_MEMBER],
+[AC_MSG_CHECKING([for $1.$2 in time.h])
+ AC_CACHE_VAL(gas_cv_have_time_type_member_$2,
+ [AC_TRY_COMPILE([
+#define _BSD_SOURCE 1
+#include <time.h>],
+ [$1 avar; void* aref = (void*) &avar.$2],
+ gas_cv_have_time_type_member_$2=yes,
+ gas_cv_have_time_type_member_$2=no
+ )])
+ if test $gas_cv_have_time_type_member_$2 = yes; then
+ AC_DEFINE([HAVE_]translit($2, [a-z], [A-Z]), 1,
+ [Define if <time.h> has $1.$2.])
+ fi
+ AC_MSG_RESULT($gas_cv_have_time_type_member_$2)
+])dnl
+dnl
+dnl Check for existence of member $2.$3 in type $1 in sys/stat.h
+dnl
+AC_DEFUN([GAS_HAVE_SYS_STAT_TYPE_MEMBER],
+[AC_MSG_CHECKING([for $1.$2.$3 in sys/stat.h])
+ AC_CACHE_VAL(gas_cv_have_sys_stat_type_member_$2_$3,
+ [AC_TRY_COMPILE([
+#define _BSD_SOURCE 1
+#include <sys/stat.h>],
+ [$1 avar; void* aref = (void*) &avar.$2.$3],
+ gas_cv_have_sys_stat_type_member_$2_$3=yes,
+ gas_cv_have_sys_stat_type_member_$2_$3=no
+ )])
+ if test $gas_cv_have_sys_stat_type_member_$2_$3 = yes; then
+ AC_DEFINE([HAVE_]translit($2, [a-z], [A-Z])[_]translit($3, [a-z], [A-Z]), 1,
+ [Define if <sys/stat.h> has $1.$2.$3])
+ fi
+ AC_MSG_RESULT($gas_cv_have_sys_stat_type_member_$2_$3)
+])dnl
/* Define to 1 if you have the <string.h> header file. */
#undef HAVE_STRING_H
+/* Define if <sys/stat.h> has struct stat.st_mtim.tv_nsec */
+#undef HAVE_ST_MTIM_TV_NSEC
+
+/* Define if <sys/stat.h> has struct stat.st_mtim.tv_sec */
+#undef HAVE_ST_MTIM_TV_SEC
+
/* Define to 1 if you have the <sys/stat.h> header file. */
#undef HAVE_SYS_STAT_H
/* Define to 1 if you have the <sys/types.h> header file. */
#undef HAVE_SYS_TYPES_H
+/* Define to 1 if you have the <time.h> header file. */
+#undef HAVE_TIME_H
+
+/* Define if <time.h> has struct tm.tm_gmtoff. */
+#undef HAVE_TM_GMTOFF
+
/* Define to 1 if you have the <unistd.h> header file. */
#undef HAVE_UNISTD_H
--- /dev/null
+/* 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;
+}
+/* Copyright 2009 Free Software Foundation, Inc.
+
+ This file is part of GAS, the GNU Assembler.
+
+ GAS 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,
+ or (at your option) any later version.
+
+ GAS 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 GAS; see the file COPYING. If not, write to the Free
+ Software Foundation, 51 Franklin Street - Fifth Floor, Boston, MA
+ 02110-1301, USA. */
+
#define TE_VMS
#include "obj-format.h"
-extern int vms_file_stats_name (const char *, long long *, long *, char *, int *);
+extern bfd_uint64_t vms_dwarf2_file_time_name (const char *, const char *);
+extern long vms_dwarf2_file_size_name (const char *, const char *);
+extern char *vms_dwarf2_file_name (const char *, const char *);
/* VMS debugger expects a separator. */
#define DWARF2_DIR_SHOULD_END_WITH_SEPARATOR 1
/* VMS debugger needs the file timestamp. */
#define DWARF2_FILE_TIME_NAME(FILENAME,DIRNAME) \
- ({ \
- long long cdt; \
- char *filename = (char *) alloca (strlen (FILENAME) + strlen (DIRNAME) + 1);\
- strcpy (filename, DIRNAME); \
- strcat (filename, FILENAME); \
- ((vms_file_stats_name (filename, &cdt, 0, 0, 0) == 0) ? cdt : 0); \
- })
+ vms_dwarf2_file_time_name(FILENAME, DIRNAME)
/* VMS debugger needs the file size. */
#define DWARF2_FILE_SIZE_NAME(FILENAME,DIRNAME) \
- ({ \
- long siz; \
- char *filename = (char *) alloca (strlen (FILENAME) + strlen (DIRNAME) + 1);\
- strcpy (filename, DIRNAME); \
- strcat (filename, FILENAME); \
- ((vms_file_stats_name (filename, 0, &siz, 0, 0) == 0) ? siz : 0); \
- })
+ vms_dwarf2_file_size_name(FILENAME, DIRNAME)
/* VMS debugger needs the filename with version appended. */
/* Longest filename on VMS is 255 characters. Largest version is 32768. */
#define DWARF2_FILE_NAME(FILENAME,DIRNAME) \
- ({ \
- int ver; \
- char buff [255 + 7]; \
- char *filename = (char *) alloca (strlen (FILENAME) + strlen (DIRNAME) + 1);\
- strcpy (filename, DIRNAME); \
- strcat (filename, FILENAME); \
- vms_file_stats_name (filename, 0, 0, 0, &ver); \
- snprintf (buff, 255 + 7, "%s;%d", FILENAME, ver); \
- buff; \
- })
-
+ vms_dwarf2_file_name(FILENAME, DIRNAME)
te_file=$em
fi
+ case ${te_file} in
+ vms) extra_objects="$extra_objects te-vms.o" ;;
+ esac
+
# From target name and format, produce a list of supported emulations.
case ${generic_target}-${fmt} in
-for ac_header in string.h stdlib.h memory.h strings.h unistd.h stdarg.h varargs.h errno.h sys/types.h limits.h
+for ac_header in string.h stdlib.h memory.h strings.h unistd.h stdarg.h varargs.h errno.h sys/types.h limits.h time.h sys/stat.h
do :
as_ac_Header=`$as_echo "ac_cv_header_$ac_header" | $as_tr_sh`
ac_fn_c_check_header_mongrel "$LINENO" "$ac_header" "$as_ac_Header" "$ac_includes_default"
;;
esac
+# Support for VMS timestamps via cross compile
+
+if test "$ac_cv_header_time_h" = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct tm.tm_gmtoff in time.h" >&5
+$as_echo_n "checking for struct tm.tm_gmtoff in time.h... " >&6; }
+ if test "${gas_cv_have_time_type_member_tm_gmtoff+set}" = set; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#define _BSD_SOURCE 1
+#include <time.h>
+int
+main ()
+{
+struct tm avar; void* aref = (void*) &avar.tm_gmtoff
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ gas_cv_have_time_type_member_tm_gmtoff=yes
+else
+ gas_cv_have_time_type_member_tm_gmtoff=no
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+
+ if test $gas_cv_have_time_type_member_tm_gmtoff = yes; then
+
+$as_echo "#define HAVE_TM_GMTOFF 1" >>confdefs.h
+
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gas_cv_have_time_type_member_tm_gmtoff" >&5
+$as_echo "$gas_cv_have_time_type_member_tm_gmtoff" >&6; }
+
+fi
+
+if test "$ac_cv_header_sys_stat_h" = yes; then
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct stat.st_mtim.tv_sec in sys/stat.h" >&5
+$as_echo_n "checking for struct stat.st_mtim.tv_sec in sys/stat.h... " >&6; }
+ if test "${gas_cv_have_sys_stat_type_member_st_mtim_tv_sec+set}" = set; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#define _BSD_SOURCE 1
+#include <sys/stat.h>
+int
+main ()
+{
+struct stat avar; void* aref = (void*) &avar.st_mtim.tv_sec
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ gas_cv_have_sys_stat_type_member_st_mtim_tv_sec=yes
+else
+ gas_cv_have_sys_stat_type_member_st_mtim_tv_sec=no
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+
+ if test $gas_cv_have_sys_stat_type_member_st_mtim_tv_sec = yes; then
+
+$as_echo "#define HAVE_ST_MTIM_TV_SEC 1" >>confdefs.h
+
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gas_cv_have_sys_stat_type_member_st_mtim_tv_sec" >&5
+$as_echo "$gas_cv_have_sys_stat_type_member_st_mtim_tv_sec" >&6; }
+
+ { $as_echo "$as_me:${as_lineno-$LINENO}: checking for struct stat.st_mtim.tv_nsec in sys/stat.h" >&5
+$as_echo_n "checking for struct stat.st_mtim.tv_nsec in sys/stat.h... " >&6; }
+ if test "${gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec+set}" = set; then :
+ $as_echo_n "(cached) " >&6
+else
+ cat confdefs.h - <<_ACEOF >conftest.$ac_ext
+/* end confdefs.h. */
+
+#define _BSD_SOURCE 1
+#include <sys/stat.h>
+int
+main ()
+{
+struct stat avar; void* aref = (void*) &avar.st_mtim.tv_nsec
+ ;
+ return 0;
+}
+_ACEOF
+if ac_fn_c_try_compile "$LINENO"; then :
+ gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec=yes
+else
+ gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec=no
+
+fi
+rm -f core conftest.err conftest.$ac_objext conftest.$ac_ext
+fi
+
+ if test $gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec = yes; then
+
+$as_echo "#define HAVE_ST_MTIM_TV_NSEC 1" >>confdefs.h
+
+ fi
+ { $as_echo "$as_me:${as_lineno-$LINENO}: result: $gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec" >&5
+$as_echo "$gas_cv_have_sys_stat_type_member_st_mtim_tv_nsec" >&6; }
+
+fi
+
+
$ if arch.eqs."alpha"
$ then
$ format = "evax"
+$ env = "generic"
$ target_alias = "alpha-dec-openvms"
$ target_canonical = "alpha-dec-openvms"
$ endif
$ if arch.eqs."ia64"
$ then
$ format = "elf"
+$ env = "vms"
$ target_alias = "ia64-openvms"
$ target_canonical = "ia64-unknown-openvms"
$ endif
$!
$ write sys$output "Generate targ-env.h"
$!
-$ create targ-env.h
-#include "te-generic.h"
+$ open/write outfile targ-env.h
+$ write outfile "#include ""te-''env'.h"""
+$ close outfile
$!
$ write sys$output "Generate obj-format.[ch]"
$!
$ LIBIBERTY = ",[-.libiberty]libiberty.olb/lib"
$ LIBOPCODES = ",[-.opcodes]libopcodes.olb/lib"
$!
+$ AS_OBJS="targ-cpu," + FILES
+$!
$ write sys$output "CFLAGS=",CFLAGS
+$!
+$EOD
+$!
+$ if arch.eqs."ia64"
+$ then
+$ open/append outfile build.com
+$ write outfile "$ write sys$output ""Compiling te-vms.c"""
+$ write outfile "$ cc 'CFLAGS /obj=te-vme.obj [.config]te-vms.c + " +-
+ "sys$library:sys$lib_c.tlb/lib"
+$ write outfile "$ AS_OBJS=AS_OBJS + "",te-vms.obj"""
+$ close outfile
+$ endif
+$!
+$ append sys$input build.com
+$DECK
$ if p1.nes."LINK"
$ then
$ write sys$output "Compiling targ-cpu.c (/noopt)"
$ purge
$!
$ write sys$output "Building as.exe"
-$ AS_OBJS="targ-cpu," + FILES + LIBOPCODES + LIBBFD + LIBIBERTY
+$ AS_OBJS=AS_OBJS + LIBOPCODES + LIBBFD + LIBIBERTY
$ link/exe=as 'AS_OBJS
+$EOD
$exit
te_file=$em
fi
+ case ${te_file} in
+ vms) extra_objects="$extra_objects te-vms.o" ;;
+ esac
+
# From target name and format, produce a list of supported emulations.
case ${generic_target}-${fmt} in
AM_CONDITIONAL(GENINSRC_NEVER, false)
AC_EXEEXT
-AC_CHECK_HEADERS(string.h stdlib.h memory.h strings.h unistd.h stdarg.h varargs.h errno.h sys/types.h limits.h)
+AC_CHECK_HEADERS(string.h stdlib.h memory.h strings.h unistd.h stdarg.h varargs.h errno.h sys/types.h limits.h time.h sys/stat.h)
# Put this here so that autoconf's "cross-compiling" message doesn't confuse
# people who are not cross-compiling but are compiling cross-assemblers.
BFD_BINARY_FOPEN
+# Support for VMS timestamps via cross compile
+
+if test "$ac_cv_header_time_h" = yes; then
+ GAS_HAVE_TIME_TYPE_MEMBER(struct tm, tm_gmtoff)
+fi
+
+if test "$ac_cv_header_sys_stat_h" = yes; then
+ GAS_HAVE_SYS_STAT_TYPE_MEMBER(struct stat, st_mtim, tv_sec)
+ GAS_HAVE_SYS_STAT_TYPE_MEMBER(struct stat, st_mtim, tv_nsec)
+fi
+
+
dnl Required for html, pdf, install-pdf and install-html targets.
AC_SUBST(datarootdir)
AC_SUBST(docdir)
endif
OBJS=targ-cpu.obj,obj-format.obj,atof-targ.obj,app.obj,as.obj,atof-generic.obj,\
- cond.obj,depend.obj,expr.obj,flonum-konst.obj,\
+ te-vms.obj,cond.obj,depend.obj,expr.obj,flonum-konst.obj,\
flonum-copy.obj,flonum-mult.obj,frags.obj,hash.obj,input-file.obj,\
input-scrub.obj,literal.obj,messages.obj,output-file.obj,read.obj,\
subsegs.obj,symbols.obj,write.obj,listing.obj,ecoff.obj,stabs.obj,sb.obj,\
$(COMPILE.c) /noopt/obj=$@ $<
endif
+te-vms.obj: [.config]te-vms.c
+ $(COMPILE.c) /obj=$@ $< + sys$$library:sys$$lib_c.tlb/lib
+
clean:
$$ purge
$(RM) *.obj;
projects / binutils-gdb.git / commitdiff