mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2025-12-13 04:44:39 +00:00
Code Issues Projects Releases Wiki Activity

Fix use of MR_strerror.

Browse Source 
extras/posix/posix.strerror.m:
    Fix use of MR_strerror (it may return a pointer to a static string
    instead of modifying the provided buffer).

    Allocate string such that it will be attributed to the predicate
    when profiling memory retention.
This commit is contained in:
Peter Wang
2019-10-31 17:51:03 +11:00
parent da5fe0974e
commit 33da7c82b4
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
extras/posix/posix.strerror.m
View File

@@ -1,4 +1,4 @@
%-------------------------------------_--------------------------------------%
%----------------------------------------------------------------------------%
% vim: ft=mercury ts=4 sw=4 et
%----------------------------------------------------------------------------%
% Copyright (C) 2019 The Mercury team.
@@ -30,12 +30,12 @@ strerror(Err, Msg, !IO) :-
:- pred strerror0(int::in, string::out, io::di, io::uo) is det.
:- pragma foreign_proc("C",
strerror0(Errno::in, Txt::out, _IO1::di, _IO2::uo),
strerror0(Errno::in, Msg::out, _IO0::di, _IO::uo),
[promise_pure, will_not_call_mercury, thread_safe, tabled_for_io],
"
char buf[200];
MR_strerror(Errno, buf, 200);
MR_make_aligned_string_copy(Txt, buf);
char buf[MR_STRERROR_BUF_SIZE];
MR_make_aligned_string_copy_msg(Msg, MR_strerror(Errno, buf, sizeof(buf)),
MR_ALLOC_ID);
").
%----------------------------------------------------------------------------%