Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
  • 2 commits
  • 2 files changed
  • 0 comments
  • 1 contributor

Showing 2 changed files with 7 additions and 2 deletions. Show diff stats Hide diff stats

  1. +3 1 lib/dtrace/src/dtrace.erl
  2. +4 1 lib/kernel/src/file.erl
4 lib/dtrace/src/dtrace.erl
@@ -51,6 +51,8 @@
51 51 %% present" indication, we'll allow any atom in the types.
52 52 -type integer_maybe() :: integer() | atom().
53 53 -type iolist_maybe() :: iolist() | atom().
  54 +%% DTrace user-defined tag
  55 +-type utag() :: iolist() | binary().
54 56
55 57 -spec init() -> ok | {error, {term(), term()}}.
56 58
@@ -73,7 +75,7 @@ available() ->
73 75 user_trace_s1(_Message) ->
74 76 erlang:nif_error(nif_not_loaded).
75 77
76   --spec user_trace_i4s4(iolist(),
  78 +-spec user_trace_i4s4(utag(),
77 79 integer_maybe(), integer_maybe(),
78 80 integer_maybe(), integer_maybe(),
79 81 iolist_maybe(), iolist_maybe(),
5 lib/kernel/src/file.erl
@@ -57,7 +57,7 @@
57 57
58 58 %% Internal export to prim_file and ram_file until they implement
59 59 %% an efficient copy themselves.
60   --export([copy_opened/4]).
  60 +-export([copy_opened/3, copy_opened/4]).
61 61
62 62 -export([ipread_s32bu_p32bu_int/3]).
63 63
@@ -784,6 +784,9 @@ copy_int(Source, Dest, Length) ->
784 784
785 785
786 786
  787 +copy_opened(Source, Dest, Length) ->
  788 + copy_opened(Source, Dest, Length, get_dtrace_utag()).
  789 +
787 790 copy_opened(Source, Dest, Length, DTraceUtag)
788 791 when is_integer(Length), Length >= 0;
789 792 is_atom(Length) ->

No commit comments for this range

Something went wrong with that request. Please try again.