File 3812-erts-Remove-ERLANG_COMPILE_DATE-from-erl_v... of Package erlang

Overview Repositories Revisions Requests Users Attributes Meta

File 3812-erts-Remove-ERLANG_COMPILE_DATE-from-erl_version.h.patch of Package erlang (Revision ee5107dd2cb9269b862e70debf0422c2)

Currently displaying revision ee5107dd2cb9269b862e70debf0422c2 , Show latest

From 384e4a9b078f1c36751d0db8ada5076b5cf2c231 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?J=C3=A9r=C3=B4me=20de=20Bretagne?=
 <jerome.debretagne@gmail.com>
Date: Thu, 6 Jan 2022 23:43:34 +0100
Subject: [PATCH 2/3] erts: Remove ERLANG_COMPILE_DATE from erl_version.h

Do not generate the ERLANG_COMPILE_DATE timestamp in erl_version.h
with the make_version script to ensure reproducible builds.

Remove the corresponding ERTS_SAVED_COMPILE_TIME option and update
the configure scripts accordingly.
---
 erts/config.h.in                      |  3 ---
 erts/configure                        | 19 -------------------
 erts/configure.in                     | 11 +----------
 erts/doc/src/crash_dump.xml           |  3 +--
 erts/emulator/beam/break.c            |  8 +-------
 erts/emulator/beam/erl_init.c         |  3 +--
 erts/emulator/utils/make_version      | 15 +++++----------
 erts/etc/unix/etp-commands.in         | 11 +++++------
 lib/observer/src/crashdump_viewer.erl | 13 +++++++------
 9 files changed, 21 insertions(+), 65 deletions(-)

diff --git a/erts/configure.in b/erts/configure.in
index d7828ca14f..beff4275f8 100644
--- a/erts/configure.in
+++ b/erts/configure.in
@@ -294,15 +294,6 @@ AS_HELP_STRING([--enable-systemd], [enable systemd support in epmd]),
 [],
 [enable_systemd=no])
 
-AC_ARG_ENABLE(saved-compile-time,
-AS_HELP_STRING([--disable-saved-compile-time], [disable saved compile time]),
-[ case "$enableval" in
-    no) save_compile_time=0 ;;
-    *)  save_compile_time=1 ;;
-  esac ], save_compile_time=1)
-
-AC_DEFINE_UNQUOTED(ERTS_SAVED_COMPILE_TIME, $save_compile_time, [Save compile time?])
-
 AC_ARG_WITH(microstate-accounting,
 AS_HELP_STRING([--with-microstate-accounting={yes|extra}],
                [enable microstate account, possibly with extra detailed states])
diff --git a/erts/doc/src/crash_dump.xml b/erts/doc/src/crash_dump.xml
index 717fb44b81..4524401473 100644
--- a/erts/doc/src/crash_dump.xml
+++ b/erts/doc/src/crash_dump.xml
@@ -80,7 +80,6 @@
       <item>The creation time for the dump</item>
       <item>A slogan indicating the reason for the dump</item>
       <item>The system version of the node from which the dump originates</item>
-      <item>The compile time of the emulator running the originating node</item>
       <item>The number of atoms in the atom table</item>
       <item>The runtime system thread that caused the crash dump</item>
     </list>
diff --git a/erts/emulator/beam/break.c b/erts/emulator/beam/break.c
index 8334977160..530dee0746 100644
--- a/erts/emulator/beam/break.c
+++ b/erts/emulator/beam/break.c
@@ -616,9 +616,6 @@ do_break(void)
 	    erts_printf("Erlang (%s) emulator version "
 		       ERLANG_VERSION "\n",
 		       EMULATOR);
-#if ERTS_SAVED_COMPILE_TIME
-	    erts_printf("Compiled on " ERLANG_COMPILE_DATE "\n");
-#endif
 	    return;
 	case 'd':
 	    distribution_info(ERTS_PRINT_STDOUT, NULL);
@@ -928,9 +925,6 @@ erl_crash_dump_v(char *file, int line, const char* fmt, va_list args)
     }
     erts_cbprintf(to, to_arg, "System version: ");
     erts_print_system_version(to, to_arg, NULL);
-#if ERTS_SAVED_COMPILE_TIME
-    erts_cbprintf(to, to_arg, "%s\n", "Compiled: " ERLANG_COMPILE_DATE);
-#endif
 
     erts_cbprintf(to, to_arg, "Taints: ");
     erts_print_nif_taints(to, to_arg);
diff --git a/erts/emulator/beam/erl_init.c b/erts/emulator/beam/erl_init.c
index b7e3d42cfc..ef822dbe8c 100644
--- a/erts/emulator/beam/erl_init.c
+++ b/erts/emulator/beam/erl_init.c
@@ -81,7 +81,6 @@ const int etp_smp_compiled = 1;
 #endif
 const char etp_erts_version[] = ERLANG_VERSION;
 const char etp_otp_release[] = ERLANG_OTP_RELEASE;
-const char etp_compile_date[] = ERLANG_COMPILE_DATE;
 const char etp_arch[] = ERLANG_ARCHITECTURE;
 #ifdef ERTS_ENABLE_KERNEL_POLL
 const int etp_kernel_poll_support = 1;
diff --git a/erts/emulator/utils/make_version b/erts/emulator/utils/make_version
index e02a42c66d..294520e135 100755
--- a/erts/emulator/utils/make_version
+++ b/erts/emulator/utils/make_version
@@ -1,9 +1,9 @@
-#!/usr/bin/env perl 
+#!/usr/bin/env perl
 #
 # %CopyrightBegin%
-# 
-# Copyright Ericsson AB 1999-2016. All Rights Reserved.
-# 
+#
+# Copyright Ericsson AB 1999-2022. All Rights Reserved.
+#
 # Licensed under the Apache License, Version 2.0 (the "License");
 # you may not use this file except in compliance with the License.
 # You may obtain a copy of the License at
@@ -15,7 +15,7 @@
 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 # See the License for the specific language governing permissions and
 # limitations under the License.
-# 
+#
 # %CopyrightEnd%
 #
 use strict;
@@ -59,11 +59,6 @@ print FILE <<EOF;
 #define ERLANG_OTP_RELEASE "$release"
 #define ERLANG_OTP_VERSION "$otp_version"
 #define ERLANG_VERSION "$version"
-#if ERTS_SAVED_COMPILE_TIME
-#  define ERLANG_COMPILE_DATE "$time_str"
-#else
-#  define ERLANG_COMPILE_DATE ""
-#endif
 #define ERLANG_ARCHITECTURE "$architecture"
 EOF
 
diff --git a/erts/etc/unix/etp-commands.in b/erts/etc/unix/etp-commands.in
index fb864c96d9..f63ea8f6ad 100644
--- a/erts/etc/unix/etp-commands.in
+++ b/erts/etc/unix/etp-commands.in
@@ -15,13 +15,13 @@
 # WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 # See the License for the specific language governing permissions and
 # limitations under the License.
-# 
+#
 # %CopyrightEnd%
 #
 
 ############################################################################
 # Help commands
-# 
+#
 
 define etp-help
   help etp-help
@@ -2790,7 +2790,6 @@ define etp-system-info
   printf "--------------- System Information ---------------\n"
   printf "OTP release: %s\n", etp_otp_release
   printf "ERTS version: %s\n", etp_erts_version
-  printf "Compile date: %s\n", etp_compile_date
   printf "Arch: %s\n", etp_arch
   printf "Endianness: "
   if (etp_big_endian)
diff --git a/lib/observer/src/crashdump_viewer.erl b/lib/observer/src/crashdump_viewer.erl
index 71df6fd4b0..b876ce2945 100644
--- a/lib/observer/src/crashdump_viewer.erl
+++ b/lib/observer/src/crashdump_viewer.erl
@@ -14,15 +14,15 @@
 %% WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 %% See the License for the specific language governing permissions and
 %% limitations under the License.
-%% 
+%%
 %% %CopyrightEnd%
 %%
 -module(crashdump_viewer).
 
-%% 
+%%
 %% This module is the main module in the crashdump viewer. It implements
 %% the server backend for the crashdump viewer tool.
-%% 
+%%
 %% Tables
 %% ------
 %% cdv_dump_index_table: This table holds all tags read from the
@@ -1005,6 +1005,7 @@ get_slogan_and_sysvsn(Fd,Acc) ->
 
 get_general_info(Fd,GenInfo) ->
     case line_head(Fd) of
+        %% The compile time info was generated in older crash dump versions
 	"Compiled" ->
 	    get_general_info(Fd,GenInfo#general_info{compile_time=val(Fd)});
 	"Taints" ->
-- 
2.31.1

Places

File 3812-erts-Remove-ERLANG_COMPILE_DATE-from-erl_version.h.patch of Package erlang (Revision ee5107dd2cb9269b862e70debf0422c2)

Places