From ffb4b34494dc6523dc3d7cd718b087431f1d63ee Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 29 Jan 2013 08:21:23 -0700 Subject: [PATCH] another repair for extflonum support --- src/racket/src/numcomp.c | 28 ++++++++++++++-------------- 1 file changed, 14 insertions(+), 14 deletions(-) diff --git a/src/racket/src/numcomp.c b/src/racket/src/numcomp.c index 8e648352e4..229db342b6 100644 --- a/src/racket/src/numcomp.c +++ b/src/racket/src/numcomp.c @@ -257,54 +257,54 @@ void scheme_init_extfl_numcomp(Scheme_Env *env) p = scheme_make_folding_prim(extfl_eq, "extfl=", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_comp())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); scheme_add_global_constant("extfl=", p, env); p = scheme_make_folding_prim(extfl_lt, "extfl<", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_comp())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); scheme_add_global_constant("extfl<", p, env); p = scheme_make_folding_prim(extfl_gt, "extfl>", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_comp())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); scheme_add_global_constant("extfl>", p, env); p = scheme_make_folding_prim(extfl_lt_eq, "extfl<=", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_comp())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); scheme_add_global_constant("extfl<=", p, env); p = scheme_make_folding_prim(extfl_gt_eq, "extfl>=", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_comp())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); scheme_add_global_constant("extfl>=", p, env); p = scheme_make_folding_prim(extfl_min, "extflmin", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_op())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_PRODUCES_EXTFLONUM | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH); @@ -312,9 +312,9 @@ void scheme_init_extfl_numcomp(Scheme_Env *env) p = scheme_make_folding_prim(extfl_max, "extflmax", 2, 2, 1); if (MZ_LONG_DOUBLE_AND(scheme_can_inline_fp_op())) - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_IS_BINARY_INLINED; + flags = SCHEME_PRIM_IS_BINARY_INLINED; else - SCHEME_PRIM_PROC_FLAGS(p) |= SCHEME_PRIM_SOMETIMES_INLINED; + flags = SCHEME_PRIM_SOMETIMES_INLINED; SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags | SCHEME_PRIM_PRODUCES_EXTFLONUM | SCHEME_PRIM_WANTS_EXTFLONUM_BOTH);