From d927209aa36fe370eb4ecf0a081923b0b951458b Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Mon, 20 Apr 2015 15:32:22 +0200
Subject: timer: Use monotonic_time/0 in tc/1,2,3

---
 lib/stdlib/src/timer.erl | 21 ++++++++++++---------
 1 file changed, 12 insertions(+), 9 deletions(-)

(limited to 'lib/stdlib/src')

diff --git a/lib/stdlib/src/timer.erl b/lib/stdlib/src/timer.erl
index 19d803345e..c266177b4d 100644
--- a/lib/stdlib/src/timer.erl
+++ b/lib/stdlib/src/timer.erl
@@ -161,10 +161,11 @@ sleep(T) ->
       Time :: integer(),
       Value :: term().
 tc(F) ->
-    Before = os:timestamp(),
+    T1 = erlang:monotonic_time(),
     Val = F(),
-    After = os:timestamp(),
-    {now_diff(After, Before), Val}.
+    T2 = erlang:monotonic_time(),
+    Time = erlang:convert_time_unit(T2 - T1, native, micro_seconds),
+    {Time, Val}.
 
 %%
 %% Measure the execution time (in microseconds) for Fun(Args).
@@ -175,10 +176,11 @@ tc(F) ->
       Time :: integer(),
       Value :: term().
 tc(F, A) ->
-    Before = os:timestamp(),
+    T1 = erlang:monotonic_time(),
     Val = apply(F, A),
-    After = os:timestamp(),
-    {now_diff(After, Before), Val}.
+    T2 = erlang:monotonic_time(),
+    Time = erlang:convert_time_unit(T2 - T1, native, micro_seconds),
+    {Time, Val}.
 
 %%
 %% Measure the execution time (in microseconds) for an MFA.
@@ -190,10 +192,11 @@ tc(F, A) ->
       Time :: integer(),
       Value :: term().
 tc(M, F, A) ->
-    Before = os:timestamp(),
+    T1 = erlang:monotonic_time(),
     Val = apply(M, F, A),
-    After = os:timestamp(),
-    {now_diff(After, Before), Val}.
+    T2 = erlang:monotonic_time(),
+    Time = erlang:convert_time_unit(T2 - T1, native, micro_seconds),
+    {Time, Val}.
 
 %%
 %% Calculate the time difference (in microseconds) of two
-- 
cgit v1.2.3


From 47e7f00fe52ceb675c94a4800c297ce98d6bee30 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Gustavsson?= <bjorn@erlang.org>
Date: Wed, 22 Apr 2015 13:04:30 +0200
Subject: supervisor: Correct restart handling
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

fbaa0bec replaced the use of now/0 with erlang:monotonic_time/1 but at
the same time introduced a bug in inPeriod/3 so that it would always
return 'true' (the subtraction Time - Now would always result in
a non-positive number that would always be less than Period).

The symptoms of the bug is that when a child has been restarted the
maximum number of times allowed, the supervisor will terminate,
regardless of how much time that elapses between the restarts.
There was no test case that detected this problem. Add the missing
test case to ensure that this bug stays killed.

Reported-by: Rafał Studnicki
---
 lib/stdlib/src/supervisor.erl | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

(limited to 'lib/stdlib/src')

diff --git a/lib/stdlib/src/supervisor.erl b/lib/stdlib/src/supervisor.erl
index 7c0cd8b26a..67655b1145 100644
--- a/lib/stdlib/src/supervisor.erl
+++ b/lib/stdlib/src/supervisor.erl
@@ -1403,13 +1403,8 @@ add_restart([R|Restarts], Now, Period) ->
 add_restart([], _, _) ->
     [].
 
-inPeriod(Time, Now, Period) ->
-    case Time - Now of
-	T when T > Period ->
-	    false;
-	_ ->
-	    true
-    end.
+inPeriod(Then, Now, Period) ->
+    Now =< Then + Period.
 
 %%% ------------------------------------------------------
 %%% Error and progress reporting.
-- 
cgit v1.2.3