SHARE
TWEET

Untitled

a guest Feb 16th, 2019 79 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. From a699249bafa7c686f246f65240fdc4b98fa6fdc9 Mon Sep 17 00:00:00 2001
  2. From: Pierre Chambart <pierre.chambart@ocamlpro.org>
  3. Date: Wed, 5 Jun 2013 18:57:35 +0200
  4. Subject: [PATCH] eta expand Matching.inline_lazy_force
  5.  
  6. ---
  7.  bytecomp/matching.ml |    6 +++---
  8.  1 file changed, 3 insertions(+), 3 deletions(-)
  9.  
  10. diff --git a/bytecomp/matching.ml b/bytecomp/matching.ml
  11. index 99bfc20..2e8d8b5 100644
  12. --- a/bytecomp/matching.ml
  13. +++ b/bytecomp/matching.ml
  14. @@ -1387,14 +1387,14 @@ let inline_lazy_force_switch arg loc =
  15.                      Lapply(force_fun, [varg], loc)) ];
  16.                 sw_failaction = Some varg } ))))
  17.  
  18. -let inline_lazy_force =
  19. +let inline_lazy_force arg loc =
  20.    if !Clflags.native_code then
  21.      (* Lswitch generates compact and efficient native code *)
  22. -    inline_lazy_force_switch
  23. +    inline_lazy_force_switch arg loc
  24.    else
  25.      (* generating bytecode: Lswitch would generate too many rather big
  26.         tables (~ 250 elts); conditionals are better *)
  27. -    inline_lazy_force_cond
  28. +    inline_lazy_force_cond arg loc
  29.  
  30.  let make_lazy_matching def = function
  31.      [] -> fatal_error "Matching.make_lazy_matching"
  32. --
  33. 1.7.10.4
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
 
Top