- Notifications
You must be signed in to change notification settings - Fork1.1k
New issue
Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.
By clicking “Sign up for GitHub”, you agree to ourterms of service andprivacy statement. We’ll occasionally send you account related emails.
Already on GitHub?Sign in to your account
Optimize away some physical equality#850
Conversation
middle_end/simplify_primitives.ml Outdated
let is_known_to_be_some_kind_of_int (arg:A.descr) = | ||
match arg with | ||
| Value_int _ | Value_char _ | Value_constptr _ -> true | ||
| _ -> false |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others.Learn more.
Please make both of these matches exhaustive.
middle_end/simplify_primitives.ml Outdated
let rec structurally_different (arg1:A.t) (arg2:A.t) = | ||
match arg1.descr, arg2.descr with | ||
| Value_block (tag1, fields1), Value_block (tag2, fields2) -> | ||
not (Tag.equal tag1 tag2) || |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others.Learn more.
Indentation needs fixing for these two stanzas (also on line 69 too).
I would also recommend following the GNU convention of putting the||
at the start of each line of a multi-line conditional; I think it's easier to follow.
@chambart Ping |
65197a3
to99f242a
Compare(* eq is supposed to be considered always true since v is a | ||
constant, hence aliased to a symbol. | ||
It is not yet optimized away if it is not constant *) | ||
let eq = v == v in |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others.Learn more.
These tests might as well check thateq
is as expected, no?
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others.Learn more.
Actually I think this is fine as-is.
I made one comment, but OK otherwise. We need to wait for@lpw25 to review too. |
Ah, this should have a Changes entry too, I think. |
@chambart Please add a Changes entry and merge to trunk, thanks. |
Ping@chambart |
I've added the Changes entry and merged with current trunk. I will merge into trunk assuming CI passes. |
Previously, transl_curried_function in Translcore redetected functioncurrying, which is difficult with locals as modes may make it invalidto merge two lambdas into a single n-ary function.The mode logic here was wrong, leading to a soundness bug. Rather thanfix it (which would continue the duplication of mode-checking betweentyping and transl), the fix here is to add the relevant information toTypedtree, so that Translcore follows the decisions made by typinginstead of redetecting currying on its own.
… typing (ocaml#850)Previously, transl_curried_function in Translcore redetected functioncurrying, which is difficult with locals as modes may make it invalidto merge two lambdas into a single n-ary function.The mode logic here was wrong, leading to a soundness bug. Rather thanfix it (which would continue the duplication of mode-checking betweentyping and transl), the fix here is to add the relevant information toTypedtree, so that Translcore follows the decisions made by typinginstead of redetecting currying on its own.
25188da flambda-backend: Missed comment from PR802 (ocaml#887)9469765 flambda-backend: Improve the semantics of asynchronous exceptions (new simpler version) (ocaml#802)d9e4dd0 flambda-backend: Fix `make runtest` on NixOS (ocaml#874)4bbde7a flambda-backend: Simpler symbols (ocaml#753)ef37262 flambda-backend: Add opaqueness to Obj.magic under Flambda 2 (ocaml#862)a9616e9 flambda-backend: Add build system hooks for ocaml-jst (ocaml#869)045ef67 flambda-backend: Allow the compiler to build with stock Dune (ocaml#868)3cac5be flambda-backend: Simplify Makefile logic for natdynlinkops (ocaml#866)c5b12bf flambda-backend: Remove unnecessary install lines (ocaml#860)ff12bbe flambda-backend: Fix unused variable warning in st_stubs.c (ocaml#861)c84976c flambda-backend: Static check for noalloc: attributes (ocaml#825)ca56052 flambda-backend: Build system refactoring for ocaml-jst (ocaml#857)39eb7f9 flambda-backend: Remove integer comparison involving nonconstant polymorphic variants (ocaml#854)c102688 flambda-backend: Fix soundness bug by using currying information from typing (ocaml#850)6a96b61 flambda-backend: Add a primitive to enable/disable the tick thread (ocaml#852)f64370b flambda-backend: Make Obj.dup use a new primitive, %obj_dup (ocaml#843)9b78eb2 flambda-backend: Add test forocaml#820 (include functor soundness bug) (ocaml#841)8f24346 flambda-backend: Add `-dtimings-precision` flag (ocaml#833)65c2f22 flambda-backend: Add test forocaml#829 (ocaml#831)7b27a49 flambda-backend: Follow-up PR#829 (comballoc fixes for locals) (ocaml#830)ad7ec10 flambda-backend: Use a custom condition variable implementation (ocaml#787)3ee650c flambda-backend: Fix soundness bug in include functor (ocaml#820)2f57378 flambda-backend: Static check noalloc (ocaml#778)aaad625 flambda-backend: Emit begin/end region only when stack allocation is enabled (ocaml#812)17c7173 flambda-backend: Fix .cmt for included signatures (ocaml#803)e119669 flambda-backend: Increase delays in tests/lib-threads/beat.ml (ocaml#800)ccc356d flambda-backend: Prevent dynamic loading of the same .cmxs twice in private mode, etc. (ocaml#784)14eb572 flambda-backend: Make local extension point equivalent to local_ expression (ocaml#790)487d11b flambda-backend: Fix tast_iterator and tast_mapper for include functor. (ocaml#795)a50a818 flambda-backend: Reduce closure allocation in List (ocaml#792)96c9c60 flambda-backend: Merge ocaml-jsta775b88 flambda-backend: Fix ocaml/otherlibs/unix 32-bit build (ocaml#767)f7c2679 flambda-backend: Create object files internally to avoid invoking GAS (ocaml#757)c7a46bb flambda-backend: Bugfix for Cmmgen.expr_size with locals (ocaml#756)b337cb6 flambda-backend: Fix build_upstream for PR749 (ocaml#750)8e7e81c flambda-backend: Differentiate is_int primitive between generic and variant-only versions (ocaml#749)git-subtree-dir: ocamlgit-subtree-split:25188da
Physical equality on structurally different values is always false. This patch allows to handle some cases. The need arise when evaluating some functions that use it to avoid some computation. For instance in
Set.add
test if the added value is already present to avoid rebuilding the same set.This change allows some of those uses to be eliminated.