suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

unbreak some 32-bit x86 builds

Browse Source
This commit is contained in:
Matthew Flatt 2019-06-30 11:40:17 -06:00
parent 020c75792c
commit f8e5526b28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
racket/src/racket/src/number.c
View File

@ -260,14 +260,14 @@ READ_ONLY Scheme_Object *scheme_zerol, *scheme_nzerol, *scheme_long_pi,
Make x87 computations double-precision instead of Make x87 computations double-precision instead of
extended-precision, so that if/when the JIT generates extended-precision, so that if/when the JIT generates
x87 instructions, it's consistent with everything else. */ x87 instructions, it's consistent with everything else. */
static void to_double_prec(void) XFORM_NONGCING static void to_double_prec(void)
{ {
int _dblprec = 0x27F; int _dblprec = 0x27F;
asm ("fldcw %0" : : "m" (_dblprec)); asm ("fldcw %0" : : "m" (_dblprec));
} }
#endif #endif
#if defined(ASM_DBLPREC_CONTROL_87) || defined(ASM_EXTPREC_CONTROL_87) #if defined(ASM_DBLPREC_CONTROL_87) || defined(ASM_EXTPREC_CONTROL_87)
static void to_extended_prec(void) XFORM_NONGCING static void to_extended_prec(void)
{ {
int _extprec = 0x37F; int _extprec = 0x37F;
asm ("fldcw %0" : : "m" (_extprec)); asm ("fldcw %0" : : "m" (_extprec));