summaryrefslogtreecommitdiff
path: root/Modules/getbuildinfo.c
diff options
context:
space:
mode:
authorMartin v. Löwis <martin@v.loewis.de>2003-03-05 14:15:21 +0000
committerMartin v. Löwis <martin@v.loewis.de>2003-03-05 14:15:21 +0000
commitd4975765b26ce6bfd0cec9d77fd7e825516cc0ce (patch)
treebcc01a0da95c7b77ef88a633ef843f1f53eabe0d /Modules/getbuildinfo.c
parent51e534f55225aebf76cc5df1bda8335f58b0a699 (diff)
downloadcpython-d4975765b26ce6bfd0cec9d77fd7e825516cc0ce.tar.gz
Patch #696645: Remove VMS code with uncertain authorship.
Diffstat (limited to 'Modules/getbuildinfo.c')
-rw-r--r--Modules/getbuildinfo.c59
1 files changed, 0 insertions, 59 deletions
diff --git a/Modules/getbuildinfo.c b/Modules/getbuildinfo.c
index 23b57c559d..ef444bf9b1 100644
--- a/Modules/getbuildinfo.c
+++ b/Modules/getbuildinfo.c
@@ -28,70 +28,11 @@
#define BUILD 0
#endif
-#ifdef __VMS
-# ifdef __DECC
-# pragma extern_model save
-# pragma extern_model strict_refdef
-extern long ctl$gl_imghdrbf;
-# pragma extern_model restore
-# endif
-
-# ifdef __ALPHA
-# define EIHD$L_IMGIDOFF 24
-# define EIHI$Q_LINKTIME 8
-# define _IMGIDOFF EIHD$L_IMGIDOFF
-# define _LINKTIME EIHI$Q_LINKTIME
-# else
-# define IHD$W_IMGIDOFF 6
-# define IHI$Q_LINKTIME 56
-# define _IMGIDOFF IHD$W_IMGIDOFF
-# define _LINKTIME IHI$Q_LINKTIME
-# endif /* __VMS */
-
-long*
-vms__get_linktime (void)
-{
- long* al_imghdrbf;
- unsigned short* aw_imgidoff;
- unsigned short w_imgidoff;
- long* aq_linktime;
- unsigned char* ab_ihi;
-
- al_imghdrbf = &ctl$gl_imghdrbf;
-
- al_imghdrbf = (long *)*al_imghdrbf;
- al_imghdrbf = (long *)*al_imghdrbf;
-
- aw_imgidoff = (unsigned short *)
- ((unsigned char *)al_imghdrbf + _IMGIDOFF);
-
- w_imgidoff = *aw_imgidoff;
-
- ab_ihi = (unsigned char *)al_imghdrbf + w_imgidoff;
-
- aq_linktime = (long *) (ab_ihi + _LINKTIME);
-
- return aq_linktime;
-} /* vms__get_linktime (void) */
-extern void vms__cvt_v2u_time (long * aq_vmstime, time_t * al_unixtime);
- /* input , output */
-#endif /* __VMS */
-
-
const char *
Py_GetBuildInfo(void)
{
static char buildinfo[50];
-#ifdef __VMS
- time_t l_unixtime;
-
- vms__cvt_v2u_time(vms__get_linktime (), &l_unixtime );
-
- memset(buildinfo, 0, 40);
- sprintf(buildinfo, "#%d, %.24s", BUILD, ctime (&l_unixtime));
-#else
PyOS_snprintf(buildinfo, sizeof(buildinfo),
"#%d, %.20s, %.9s", BUILD, DATE, TIME);
-#endif
return buildinfo;
}