File 0784-Cover-beam_ssa_opt-ssa_opt_element-1.patch of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 0784-Cover-beam_ssa_opt-ssa_opt_element-1.patch of Package erlang (Revision 9739f551c0dd1f28806285fbd79e7224)

Currently displaying revision 9739f551c0dd1f28806285fbd79e7224 , Show latest

From de95f2357a92265cec07955fc7d703eba20abd72 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Mon, 14 Oct 2019 10:40:27 +0200
Subject: [PATCH 2/3] Cover beam_ssa_opt:ssa_opt_element/1

---
 lib/compiler/test/record_SUITE.erl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

diff --git a/lib/compiler/test/record_SUITE.erl b/lib/compiler/test/record_SUITE.erl
index 3a2453dd4b..109e163130 100644
--- a/lib/compiler/test/record_SUITE.erl
+++ b/lib/compiler/test/record_SUITE.erl
@@ -588,6 +588,7 @@ nested_access(Config) when is_list(Config) ->
     ok.
 
 -record(rr, {a,b,c}).
+-record(fileheader, {read_md5,md5,eof,trailer}).
 
 coverage(Config) when is_list(Config) ->
     %% There should only remain one record test in the code below.
@@ -599,8 +600,23 @@ coverage(Config) when is_list(Config) ->
 	    ok
     end,
     #rr{a=1,b=2,c=42} = id(R),			%Test for correctness.
+
+    %% Cover beam_ssa_opt:ssa_opt_element/1 and friends.
+    error1 = check_file_header(#fileheader{read_md5=1,md5=2}),
+    error2 = check_file_header(#fileheader{trailer=true,eof=false}),
+    error3 = check_file_header(#fileheader{}),
+
     ok.
 
+check_file_header(FH) ->
+    if
+        FH#fileheader.read_md5 =/= FH#fileheader.md5 ->
+            error1;
+        FH#fileheader.trailer =/= FH#fileheader.eof ->
+            error2;
+        true ->
+            error3
+    end.
 
 -record(default_fun, {a = fun(X) -> X*X end}).
 
-- 
2.16.4

Places

File 0784-Cover-beam_ssa_opt-ssa_opt_element-1.patch of Package erlang (Revision 9739f551c0dd1f28806285fbd79e7224)

Places