OBS-URL: https://build.opensuse.org/package/show/devel:languages:misc/racket?expand=0&rev=40

extflvector-length-inlined.patch

@@ -1,26 +0,0 @@
-From 80f84f2132233f8bcba05273cc23414caff8bd9c Mon Sep 17 00:00:00 2001
-From: Matthew Flatt <mflatt@racket-lang.org>
-Date: Sat, 2 Feb 2019 19:38:41 -0700
-Subject: [PATCH] fix extflvector-length for platforms where it's not inlined
-
----
- racket/src/racket/src/number.c | 6 +++++-
- 1 file changed, 5 insertions(+), 1 deletion(-)
-
-diff --git a/racket/src/racket/src/number.c b/racket/src/racket/src/number.c
-index 954efffbf1..e486ce265d 100644
---- a/racket/src/racket/src/number.c
-+++ b/racket/src/racket/src/number.c
-@@ -1083,7 +1083,11 @@ void scheme_init_extfl_number(Scheme_Startup_Env *env)
-   ADD_PRIM_W_ARITY("make-shared-extflvector", make_shared_extflvector, 1, 2, env);
- 
-   p = scheme_make_immed_prim(extflvector_length, "extflvector-length", 1, 1);
--  SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(SCHEME_PRIM_IS_UNARY_INLINED
-+  if (MZ_LONG_DOUBLE_AVAIL_AND(1))
-+    flags = SCHEME_PRIM_IS_BINARY_INLINED;
-+  else
-+    flags = SCHEME_PRIM_SOMETIMES_INLINED;
-+  SCHEME_PRIM_PROC_FLAGS(p) |= scheme_intern_prim_opt_flags(flags
-                                                             | SCHEME_PRIM_PRODUCES_FIXNUM);
-   scheme_addto_prim_instance("extflvector-length", p, env);
-