diff options
author | Martin v. Löwis <martin@v.loewis.de> | 2003-03-05 14:15:21 +0000 |
---|---|---|
committer | Martin v. Löwis <martin@v.loewis.de> | 2003-03-05 14:15:21 +0000 |
commit | d4975765b26ce6bfd0cec9d77fd7e825516cc0ce (patch) | |
tree | bcc01a0da95c7b77ef88a633ef843f1f53eabe0d /Modules/getbuildinfo.c | |
parent | 51e534f55225aebf76cc5df1bda8335f58b0a699 (diff) | |
download | cpython-d4975765b26ce6bfd0cec9d77fd7e825516cc0ce.tar.gz |
Patch #696645: Remove VMS code with uncertain authorship.
Diffstat (limited to 'Modules/getbuildinfo.c')
-rw-r--r-- | Modules/getbuildinfo.c | 59 |
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; } |