From 4deb4dbc453318bcdf2f6f160cdb219fb31f7926 Mon Sep 17 00:00:00 2001
From: Dan Gudmundsson <dgud@erlang.org>
Date: Fri, 30 Jan 2015 15:12:07 +0100
Subject: Replace usage of erlang:now() with usage of new API

---
 lib/mnesia/src/mnesia.app.src        |  2 +-
 lib/mnesia/src/mnesia.erl            |  2 +-
 lib/mnesia/src/mnesia.hrl            |  4 +++-
 lib/mnesia/src/mnesia_bup.erl        |  2 +-
 lib/mnesia/src/mnesia_checkpoint.erl |  4 ++--
 lib/mnesia/src/mnesia_event.erl      |  3 +--
 lib/mnesia/src/mnesia_lib.erl        | 11 +++--------
 lib/mnesia/src/mnesia_log.erl        |  2 +-
 lib/mnesia/src/mnesia_schema.erl     |  2 +-
 9 files changed, 14 insertions(+), 18 deletions(-)

(limited to 'lib/mnesia')

diff --git a/lib/mnesia/src/mnesia.app.src b/lib/mnesia/src/mnesia.app.src
index e755864792..c78a7cba1e 100644
--- a/lib/mnesia/src/mnesia.app.src
+++ b/lib/mnesia/src/mnesia.app.src
@@ -48,6 +48,6 @@
 	       ]},
   {applications, [kernel, stdlib]},
   {mod, {mnesia_sup, []}},
-  {runtime_dependencies, ["stdlib-2.0","kernel-3.0","erts-6.0"]}]}.
+  {runtime_dependencies, ["stdlib-2.0","kernel-3.0","erts-7.0"]}]}.
 
 
diff --git a/lib/mnesia/src/mnesia.erl b/lib/mnesia/src/mnesia.erl
index 8f14831ad3..792b6c4a73 100644
--- a/lib/mnesia/src/mnesia.erl
+++ b/lib/mnesia/src/mnesia.erl
@@ -2171,7 +2171,7 @@ system_info2(version) ->
 		    Version;
 		false ->
 		    %% Ensure that it does not match
-		    {mnesia_not_loaded, node(), now()}
+		    {mnesia_not_loaded, node(), erlang:timestamp()}
 	    end;
 	Version ->
 	    Version
diff --git a/lib/mnesia/src/mnesia.hrl b/lib/mnesia/src/mnesia.hrl
index c8010d5466..9a58ea581a 100644
--- a/lib/mnesia/src/mnesia.hrl
+++ b/lib/mnesia/src/mnesia.hrl
@@ -53,7 +53,9 @@
          up_stores = [],  %% list of upper layer stores for nested trans
          level = 1}).     %% transaction level
 
--define(unique_cookie, {erlang:now(), node()}).
+-define(unique_cookie, {{erlang:monotonic_time() + erlang:time_offset(),
+			 erlang:unique_integer(),1},
+			node()}).
 
 -record(cstruct, {name,                            % Atom
 		  type = set,                      % set | bag
diff --git a/lib/mnesia/src/mnesia_bup.erl b/lib/mnesia/src/mnesia_bup.erl
index 3b084e7371..71e610bd63 100644
--- a/lib/mnesia/src/mnesia_bup.erl
+++ b/lib/mnesia/src/mnesia_bup.erl
@@ -368,7 +368,7 @@ create_schema(_Ns, Reason) ->
     {error, Reason}.
 
 mk_str() ->
-    Now = [integer_to_list(I) || I <- tuple_to_list(now())],
+    Now = integer_to_list(erlang:unique_integer([positive])),
     lists:concat([node()] ++ Now ++ ".TMP").
 
 make_initial_backup(Ns, Opaque, Mod) ->
diff --git a/lib/mnesia/src/mnesia_checkpoint.erl b/lib/mnesia/src/mnesia_checkpoint.erl
index 173e3be2f5..442e68a13d 100644
--- a/lib/mnesia/src/mnesia_checkpoint.erl
+++ b/lib/mnesia/src/mnesia_checkpoint.erl
@@ -68,12 +68,12 @@
 -import(mnesia_lib, [add/2, del/2, set/2, unset/1]).
 -import(mnesia_lib, [dbg_out/2]).
 
--record(checkpoint_args, {name = {now(), node()},
+-record(checkpoint_args, {name = {erlang:unique_integer([positive]), node()},
 			  allow_remote = true,
 			  ram_overrides_dump = false,
 			  nodes = [],
 			  node = node(),
-			  now = now(),
+			  now,  %% unused
 			  cookie = ?unique_cookie,
 			  min = [],
 			  max = [],
diff --git a/lib/mnesia/src/mnesia_event.erl b/lib/mnesia/src/mnesia_event.erl
index 67ec9d7399..8a4be88e9a 100644
--- a/lib/mnesia/src/mnesia_event.erl
+++ b/lib/mnesia/src/mnesia_event.erl
@@ -235,8 +235,7 @@ report_fatal(Format, Args, BinaryCore, CoreDumped) ->
     end.
 
 core_file(CoreDir,BinaryCore,Format,Args) ->
-    %% Integers = tuple_to_list(date()) ++ tuple_to_list(time()),
-    Integers = tuple_to_list(now()),
+    Integers = tuple_to_list(erlang:timestamp()),
     Fun = fun(I) when I < 10 -> ["_0",I];
 	     (I) -> ["_",I]
 	  end,
diff --git a/lib/mnesia/src/mnesia_lib.erl b/lib/mnesia/src/mnesia_lib.erl
index b2103b2ef8..fc41cbedcb 100644
--- a/lib/mnesia/src/mnesia_lib.erl
+++ b/lib/mnesia/src/mnesia_lib.erl
@@ -930,14 +930,9 @@ random_time(Retries, _Counter0) ->
     
     case get(random_seed) of
 	undefined ->
-	    try
-		_ = random:seed(erlang:phash2([erlang:node()]),
-				erlang:monotonic_time(),
-				erlang:unique_integer())
-	    catch
-		error:_ ->
-		    _ = random:seed(erlang:now())
-	    end,
+	    _ = random:seed(erlang:unique_integer(),
+			    erlang:monotonic_time(),
+			    erlang:unique_integer()),
 	    Time = Dup + random:uniform(MaxIntv),
 	    %%	    dbg_out("---random_test rs ~w max ~w val ~w---~n", [Retries, MaxIntv, Time]),
 	    Time;
diff --git a/lib/mnesia/src/mnesia_log.erl b/lib/mnesia/src/mnesia_log.erl
index d2fd04a60b..6206a8bdb9 100644
--- a/lib/mnesia/src/mnesia_log.erl
+++ b/lib/mnesia/src/mnesia_log.erl
@@ -200,7 +200,7 @@ log_header(Kind, Version) ->
 		log_kind=Kind,
 		mnesia_version=mnesia:system_info(version),
 		node=node(),
-		now=now()}.
+		now=erlang:timestamp()}.
 
 version() -> "4.3".
 
diff --git a/lib/mnesia/src/mnesia_schema.erl b/lib/mnesia/src/mnesia_schema.erl
index 6e43052fb0..52180cfcf5 100644
--- a/lib/mnesia/src/mnesia_schema.erl
+++ b/lib/mnesia/src/mnesia_schema.erl
@@ -262,7 +262,7 @@ incr_version(Cs) ->
             [] -> {Major + 1, 0};    % All replicas are active
             _ -> {Major, Minor + 1}  % Some replicas are inactive
         end,
-    Cs#cstruct{version = {V, {node(), now()}}}.
+    Cs#cstruct{version = {V, {node(), erlang:timestamp()}}}.
 
 %% Returns table name
 insert_cstruct(Tid, Cs, KeepWhereabouts) ->
-- 
cgit v1.2.3