43 lines
2.2 KiB
C
43 lines
2.2 KiB
C
|
#define TE_VMS
|
||
|
|
#include "obj-format.h"
|
||
|
|
|
||
|
|
extern int vms_file_stats_name (const char *, long long *, long *, char *, int *);
|
||
|
|
|
||
|
|
/* 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 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 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; \
|
||
|
|
})
|
||
|
|
|