diff options
author | Martin v. Löwis <martin@v.loewis.de> | 2003-03-05 14:15:21 (GMT) |
---|---|---|
committer | Martin v. Löwis <martin@v.loewis.de> | 2003-03-05 14:15:21 (GMT) |
commit | 7a924e6eb28ac0b18231a3f4ed1101c78be2c2ba (patch) | |
tree | d7c16a93ae040300f2202a6af07b477a0ddf481a /Modules/getbuildinfo.c | |
parent | 0d58ba9fdaef6228804d6ea4baa13b23f529f786 (diff) | |
download | cpython-7a924e6eb28ac0b18231a3f4ed1101c78be2c2ba.zip cpython-7a924e6eb28ac0b18231a3f4ed1101c78be2c2ba.tar.gz cpython-7a924e6eb28ac0b18231a3f4ed1101c78be2c2ba.tar.bz2 |
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 23b57c5..ef444bf 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; } |