From 18eb093f569812e832a0fedcf867c85be1ae45c6 Mon Sep 17 00:00:00 2001 From: John Malmberg Date: Thu, 11 Sep 2014 22:39:34 -0500 Subject: [SV 41758]: Fix archive support for VMS. Upated to match change to run_make_tests and some future fixes to make on VMS. * arscan.c: Use ANSI compatible pragmas instead of VAX C extensions. * tests/scripts/features/archives: Fix tests to use VMS rules and answers when running on VMS and using DCL as a shell. * tests/scripts/features/vpath3: Fix epected answer on test when run on VMS. * tests/scripts/vms/library: (New) Test the VMS library rules that are not tested by existing tests. --- arscan.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) (limited to 'arscan.c') diff --git a/arscan.c b/arscan.c index 24286fd..a3c2b8b 100644 --- a/arscan.c +++ b/arscan.c @@ -38,12 +38,18 @@ this program. If not, see . */ #include #include #include -globalvalue unsigned int LBR$_HDRTRUNC; -#if __DECC +/* This symbol should be present in lbrdef.h. */ +#ifndef LBR$_HDRTRUNC +#pragma extern_model save +#pragma extern_model globalvalue +extern unsigned int LBR$_HDRTRUNC; +#pragma extern_model restore +#endif + #include #include -#endif + const char * vmsify (const char *name, int type); -- cgit v1.2.3