blob: 2ab4ce929f9d726a3d82957e67c8efc35f6dfe99 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
|
/*
* (c) The GRASP/AQUA Project, Glasgow University, 1998
*
* $Id: writeError.c,v 1.3 2001/12/21 15:07:26 simonmar Exp $
*
* hPutStr Runtime Support
*/
/*
Writing out error messages. This is done outside Haskell
(i.e., no use of the IO implementation is made), since it
might be in an unstable state (e.g., hClose stderr >> error "foo")
(A secondary reason is that ``error'' is used by the IO
implementation in one or two places.)
*/
#include "Rts.h"
#include "RtsUtils.h"
#include "HsCore.h"
#include "PrelIOUtils.h"
void
writeErrString__(HsAddr msg_hdr, HsAddr msg, HsInt len)
{
int count = 0;
char* p = (char*)msg;
char nl = '\n';
#ifndef DLLized
resetNonBlockingFd(2);
#endif
/* Print error msg header */
if (msg_hdr) {
((void (*)(int))msg_hdr)(2/*stderr*/);
}
while ( (count = write(2,p,len)) < len) {
if (errno != EINTR ) {
return;
}
len -= count;
p += count;
}
write(2, &nl, 1);
}
|
