From 284a79c7670a79746ab07256eb24e25928037943 Mon Sep 17 00:00:00 2001 From: Pietro Cerutti Date: Tue, 8 Jul 2008 18:37:44 +0000 Subject: - New port: plt-scheme The PLT-Scheme group have released a new version of their Scheme language and IDE tools suite, and here's a port that builds it on FreeBSD. PR: 124776 Submitted by: Andrew Reilly (new maintainer) --- .../files/patch-src-mzscheme-src_number.c | 26 ++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 lang/racket-textual/files/patch-src-mzscheme-src_number.c (limited to 'lang/racket-textual/files/patch-src-mzscheme-src_number.c') diff --git a/lang/racket-textual/files/patch-src-mzscheme-src_number.c b/lang/racket-textual/files/patch-src-mzscheme-src_number.c new file mode 100644 index 000000000000..bbf431bca29d --- /dev/null +++ b/lang/racket-textual/files/patch-src-mzscheme-src_number.c @@ -0,0 +1,26 @@ +--- ../mzscheme/src/number.c.orig 2008-05-07 23:15:18.000000000 +0200 ++++ ../mzscheme/src/number.c 2008-06-27 08:07:23.000000000 +0200 +@@ -52,6 +52,11 @@ + # define MAX_SHIFT_EVER 32 + #endif + ++#include ++#include ++#pragma STDC FENV_ACCESS ON ++ ++ + /* globals */ + double scheme_infinity_val, scheme_minus_infinity_val; + +@@ -152,7 +157,11 @@ + MZ_SIGSET(SIGFPE, SIG_IGN); + #endif + #ifdef FREEBSD_CONTROL_387 ++#if __FreeBSD_version < 800000 + __fpsetreg(FP_MSKS_FLD, FP_MSKS_REG, FP_MSKS_FLD, FP_MSKS_OFF); ++#else ++ fedisableexcept(FE_ALL_EXCEPT); ++#endif + #endif + #ifdef LINUX_CONTROL_387 + __setfpucw(_FPU_EXTENDED + _FPU_RC_NEAREST + 0x3F); -- cgit v1.2.3