summaryrefslogtreecommitdiff
path: root/rts/Trace.c
diff options
context:
space:
mode:
authorThomas Miedema <thomasmiedema@gmail.com>2015-02-17 08:37:49 -0600
committerAustin Seipp <austin@well-typed.com>2015-02-17 09:06:11 -0600
commit310b6365c91731a797c7e592ebda9ca881f662d4 (patch)
tree58c5fe5f0d0361a66346a95e94f94808abaf9937 /rts/Trace.c
parent555eef1d0fb5a7fd07971c1201b3c520f01125d4 (diff)
downloadhaskell-310b6365c91731a797c7e592ebda9ca881f662d4.tar.gz
Add missing va_end to va_start
Summary: See also ab9711d8. Reviewers: austin Reviewed By: austin Subscribers: thomie Differential Revision: https://phabricator.haskell.org/D655
Diffstat (limited to 'rts/Trace.c')
-rw-r--r--rts/Trace.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/rts/Trace.c b/rts/Trace.c
index f28609b132..a0783f3400 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -702,6 +702,7 @@ static void traceFormatUserMsg(Capability *cap, char *msg, ...)
}
}
dtraceUserMsg(cap->no, msg);
+ va_end(ap);
}
void traceUserMsg(Capability *cap, char *msg)
@@ -778,6 +779,7 @@ void traceBegin (const char *str, ...)
tracePreface();
vdebugBelch(str,ap);
+ va_end(ap);
}
void traceEnd (void)