aboutsummaryrefslogtreecommitdiffstats
path: root/erts/emulator/hipe/hipe_bif0.c
diff options
context:
space:
mode:
authorSverker Eriksson <[email protected]>2015-05-06 14:59:13 +0200
committerSverker Eriksson <[email protected]>2015-05-06 14:59:13 +0200
commitd4ad455c16a85ee6103d5916ff91cdda31247ca9 (patch)
tree9672b84e0654b5d73f2eb573f7a8fd352a643664 /erts/emulator/hipe/hipe_bif0.c
parent0440e0e45835de5adbe790f9437492d734c6c4e1 (diff)
parent2a3349420d33a298aa02b176100f385c0ab31c99 (diff)
downloadotp-d4ad455c16a85ee6103d5916ff91cdda31247ca9.tar.gz
otp-d4ad455c16a85ee6103d5916ff91cdda31247ca9.tar.bz2
otp-d4ad455c16a85ee6103d5916ff91cdda31247ca9.zip
Merge branch 'sverk/hipe_match_wbin/OTP-12667'
* sverk/hipe_match_wbin/OTP-12667: erts: Add debug assertions for match state sanity hipe: Add test for matching of writable binary erts,hipe: Optimize away calls to emasculate_binary erts,hipe: Fix bug in binary matching of writable binary Conflicts: erts/emulator/hipe/hipe_bif0.c
Diffstat (limited to 'erts/emulator/hipe/hipe_bif0.c')
-rw-r--r--erts/emulator/hipe/hipe_bif0.c7
1 files changed, 7 insertions, 0 deletions
diff --git a/erts/emulator/hipe/hipe_bif0.c b/erts/emulator/hipe/hipe_bif0.c
index 6c1de05a4c..099f4f90de 100644
--- a/erts/emulator/hipe/hipe_bif0.c
+++ b/erts/emulator/hipe/hipe_bif0.c
@@ -910,6 +910,13 @@ void hipe_emulate_fpe(Process* p)
}
#endif
+void hipe_emasculate_binary(Eterm bin)
+{
+ ProcBin* pb = (ProcBin *) boxed_val(bin);
+ ASSERT(pb->thing_word == HEADER_PROC_BIN);
+ ASSERT(pb->flags != 0);
+ erts_emasculate_writable_binary(pb);
+}
/*
* args: Module, {Uniq, Index, BeamAddress}