diff options
| author | Christian Heimes <christian@cheimes.de> | 2013-12-21 16:19:10 +0100 |
|---|---|---|
| committer | Christian Heimes <christian@cheimes.de> | 2013-12-21 16:19:10 +0100 |
| commit | af01f668173d4061893148b54a0f01b91c7716c2 (patch) | |
| tree | 0931bce7ed986e784415b587ae4b4823e7a6c753 /Modules/fpectlmodule.c | |
| parent | 5255b86fba38a5e22a0991772a3c1bbf3edd66cc (diff) | |
| download | cpython-git-af01f668173d4061893148b54a0f01b91c7716c2.tar.gz | |
Issue #16136: Remove VMS support and VMS-related code
Diffstat (limited to 'Modules/fpectlmodule.c')
| -rw-r--r-- | Modules/fpectlmodule.c | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/Modules/fpectlmodule.c b/Modules/fpectlmodule.c index 6af2f82f70..052b83480d 100644 --- a/Modules/fpectlmodule.c +++ b/Modules/fpectlmodule.c @@ -70,10 +70,6 @@ extern "C" { #if defined(__FreeBSD__) # include <ieeefp.h> -#elif defined(__VMS) -#define __NEW_STARLET -#include <starlet.h> -#include <ieeedef.h> #endif #ifndef WANT_SIGFPE_HANDLER @@ -182,23 +178,6 @@ static void fpe_reset(Sigfunc *handler) ieee_set_fp_control(fp_control); PyOS_setsig(SIGFPE, handler); -/*-- DEC ALPHA VMS --------------------------------------------------------*/ -#elif defined(__ALPHA) && defined(__VMS) - IEEE clrmsk; - IEEE setmsk; - clrmsk.ieee$q_flags = - IEEE$M_TRAP_ENABLE_UNF | IEEE$M_TRAP_ENABLE_INE | - IEEE$M_MAP_UMZ; - setmsk.ieee$q_flags = - IEEE$M_TRAP_ENABLE_INV | IEEE$M_TRAP_ENABLE_DZE | - IEEE$M_TRAP_ENABLE_OVF; - sys$ieee_set_fp_control(&clrmsk, &setmsk, 0); - PyOS_setsig(SIGFPE, handler); - -/*-- HP IA64 VMS --------------------------------------------------------*/ -#elif defined(__ia64) && defined(__VMS) - PyOS_setsig(SIGFPE, handler); - /*-- Cray Unicos ----------------------------------------------------------*/ #elif defined(cray) /* UNICOS delivers SIGFPE by default, but no matherr */ @@ -251,14 +230,6 @@ static PyObject *turnoff_sigfpe(PyObject *self,PyObject *args) #ifdef __FreeBSD__ fpresetsticky(fpgetsticky()); fpsetmask(0); -#elif defined(__VMS) - IEEE clrmsk; - clrmsk.ieee$q_flags = - IEEE$M_TRAP_ENABLE_UNF | IEEE$M_TRAP_ENABLE_INE | - IEEE$M_MAP_UMZ | IEEE$M_TRAP_ENABLE_INV | - IEEE$M_TRAP_ENABLE_DZE | IEEE$M_TRAP_ENABLE_OVF | - IEEE$M_INHERIT; - sys$ieee_set_fp_control(&clrmsk, 0, 0); #else fputs("Operation not implemented\n", stderr); #endif |