coredumper-solaris.cpp@ 77754

Last change on this file since 77754 was 76553, checked in by vboxsync, 6 years ago
scm --update-copyright-year
Property svn:eol-style set to `native` Property svn:keywords set to `Id Revision`
File size: 82.5 KB

Line
1	/* $Id: coredumper-solaris.cpp 76553 2019-01-01 01:45:53Z vboxsync $ */
2	/** @file
3	* IPRT - Custom Core Dumper, Solaris.
4	*/
5
6	/*
7	* Copyright (C) 2010-2019 Oracle Corporation
8	*
9	* This file is part of VirtualBox Open Source Edition (OSE), as
10	* available from http://www.virtualbox.org. This file is free software;
11	* you can redistribute it and/or modify it under the terms of the GNU
12	* General Public License (GPL) as published by the Free Software
13	* Foundation, in version 2 as it comes in the "COPYING" file of the
14	* VirtualBox OSE distribution. VirtualBox OSE is distributed in the
15	* hope that it will be useful, but WITHOUT ANY WARRANTY of any kind.
16	*
17	* The contents of this file may alternatively be used under the terms
18	* of the Common Development and Distribution License Version 1.0
19	* (CDDL) only, as it comes in the "COPYING.CDDL" file of the
20	* VirtualBox OSE distribution, in which case the provisions of the
21	* CDDL are applicable instead of those of the GPL.
22	*
23	* You may elect to license modified versions of this file under the
24	* terms and conditions of either the GPL or the CDDL or both.
25	*/
26
27
28	/*********************************************************************************************************************************
29	* Header Files *
30	*********************************************************************************************************************************/
31	#define LOG_GROUP RTLOGGROUP_DEFAULT
32	#include <iprt/coredumper.h>
33
34	#include <iprt/asm.h>
35	#include <iprt/dir.h>
36	#include <iprt/err.h>
37	#include <iprt/log.h>
38	#include <iprt/param.h>
39	#include <iprt/path.h>
40	#include <iprt/process.h>
41	#include <iprt/string.h>
42	#include <iprt/thread.h>
43	#include "coredumper-solaris.h"
44
45	#ifdef RT_OS_SOLARIS
46	# include <syslog.h>
47	# include <signal.h>
48	# include <stdlib.h>
49	# include <unistd.h>
50	# include <errno.h>
51	# include <zone.h>
52	# include <sys/proc.h>
53	# include <sys/sysmacros.h>
54	# include <sys/systeminfo.h>
55	# include <sys/mman.h>
56	# include <sys/types.h>
57	# include <sys/stat.h>
58	# include <fcntl.h>
59	# include <ucontext.h>
60	#endif /* RT_OS_SOLARIS */
61
62	#include <iprt/formats/elf.h>
63	#include <iprt/formats/elf64.h>
64
65
66	/*********************************************************************************************************************************
67	* Globals *
68	*********************************************************************************************************************************/
69	static RTNATIVETHREAD volatile g_CoreDumpThread = NIL_RTNATIVETHREAD;
70	static bool volatile g_fCoreDumpSignalSetup = false;
71	static uint32_t volatile g_fCoreDumpFlags = 0;
72	static char g_szCoreDumpDir[PATH_MAX] = { 0 };
73	static char g_szCoreDumpFile[PATH_MAX] = { 0 };
74
75
76	/*********************************************************************************************************************************
77	* Defined Constants And Macros *
78	*********************************************************************************************************************************/
79	#define CORELOG_NAME "CoreDumper: "
80	#define CORELOG(a) Log(a)
81	#define CORELOGRELSYS(a) \
82	do { \
83	rtCoreDumperSysLogWrapper a; \
84	} while (0)
85
86
87	/**
88	* ELFNOTEHDR: ELF NOTE header.
89	*/
90	typedef struct ELFNOTEHDR
91	{
92	Elf64_Nhdr Hdr; /* Header of NOTE section */
93	char achName[8]; /* Name of NOTE section */
94	} ELFNOTEHDR;
95	typedef ELFNOTEHDR *PELFNOTEHDR;
96
97	/**
98	* Wrapper function to write IPRT format style string to the syslog.
99	*
100	* @param pszFormat Format string
101	*/
102	static void rtCoreDumperSysLogWrapper(const char *pszFormat, ...)
103	{
104	va_list va;
105	va_start(va, pszFormat);
106	char szBuf[1024];
107	RTStrPrintfV(szBuf, sizeof(szBuf), pszFormat, va);
108	va_end(va);
109	syslog(LOG_ERR, "%s", szBuf);
110	}
111
112
113	/**
114	* Determines endianness of the system. Just for completeness.
115	*
116	* @return Will return false if system is little endian, true otherwise.
117	*/
118	static bool IsBigEndian()
119	{
120	const int i = 1;
121	char p = (char )&i;
122	if (p[0] == 1)
123	return false;
124	return true;
125	}
126
127
128	/**
129	* Reads from a file making sure an interruption doesn't cause a failure.
130	*
131	* @param fd Handle to the file to read.
132	* @param pv Where to store the read data.
133	* @param cbToRead Size of data to read.
134	*
135	* @return IPRT status code.
136	*/
137	static int ReadFileNoIntr(int fd, void *pv, size_t cbToRead)
138	{
139	for (;;)
140	{
141	ssize_t cbRead = read(fd, pv, cbToRead);
142	if (cbRead < 0)
143	{
144	if (errno == EINTR)
145	continue;
146	return RTErrConvertFromErrno(errno);
147	}
148	if ((size_t)cbRead == cbToRead)
149	return VINF_SUCCESS;
150	if ((size_t)cbRead > cbToRead)
151	return VERR_INTERNAL_ERROR_3;
152	if (cbRead == 0)
153	return VERR_EOF;
154	pv = (uint8_t *)pv + cbRead;
155	cbToRead -= cbRead;
156	}
157	}
158
159
160	/**
161	* Writes to a file making sure an interruption doesn't cause a failure.
162	*
163	* @param fd Handle to the file to write to.
164	* @param pv Pointer to what to write.
165	* @param cbToWrite Size of data to write.
166	*
167	* @return IPRT status code.
168	*/
169	static int WriteFileNoIntr(int fd, const void *pv, size_t cbToWrite)
170	{
171	for (;;)
172	{
173	ssize_t cbWritten = write(fd, pv, cbToWrite);
174	if (cbWritten < 0)
175	{
176	if (errno == EINTR)
177	continue;
178	return RTErrConvertFromErrno(errno);
179	}
180	if ((size_t)cbWritten == cbToWrite)
181	return VINF_SUCCESS;
182	if ((size_t)cbWritten > cbToWrite)
183	return VERR_INTERNAL_ERROR_2;
184	pv = (uint8_t const *)pv + cbWritten;
185	cbToWrite -= cbWritten;
186	}
187	}
188
189
190	/**
191	* Read from a given offset in the process' address space.
192	*
193	* @param pSolProc Pointer to the solaris process.
194	* @param off The offset to read from.
195	* @param pvBuf Where to read the data into.
196	* @param cbToRead Number of bytes to read.
197	*
198	* @return VINF_SUCCESS, if all the given bytes was read in, otherwise VERR_READ_ERROR.
199	*/
200	static ssize_t ProcReadAddrSpace(PRTSOLCOREPROCESS pSolProc, RTFOFF off, void *pvBuf, size_t cbToRead)
201	{
202	for (;;)
203	{
204	ssize_t cbRead = pread(pSolProc->fdAs, pvBuf, cbToRead, off);
205	if (cbRead < 0)
206	{
207	if (errno == EINTR)
208	continue;
209	return RTErrConvertFromErrno(errno);
210	}
211	if ((size_t)cbRead == cbToRead)
212	return VINF_SUCCESS;
213	if ((size_t)cbRead > cbToRead)
214	return VERR_INTERNAL_ERROR_4;
215	if (cbRead == 0)
216	return VERR_EOF;
217
218	pvBuf = (uint8_t *)pvBuf + cbRead;
219	cbToRead -= cbRead;
220	off += cbRead;
221	}
222	}
223
224
225	/**
226	* Determines if the current process' architecture is suitable for dumping core.
227	*
228	* @param pSolProc Pointer to the solaris process.
229	*
230	* @return true if the architecture matches the current one.
231	*/
232	static inline bool IsProcessArchNative(PRTSOLCOREPROCESS pSolProc)
233	{
234	psinfo_t pProcInfo = (psinfo_t )pSolProc->pvProcInfo;
235	return pProcInfo->pr_dmodel == PR_MODEL_NATIVE;
236	}
237
238
239	/**
240	* Helper function to get the size_t compatible file size from a file
241	* descriptor.
242	*
243	* @return The file size (in bytes).
244	* @param fd The file descriptor.
245	*/
246	static size_t GetFileSizeByFd(int fd)
247	{
248	struct stat st;
249	if (fstat(fd, &st) == 0)
250	{
251	if (st.st_size <= 0)
252	return 0;
253	size_t cbFile = (size_t)st.st_size;
254	return (off_t)cbFile == st.st_size ? cbFile : ~(size_t)0;
255	}
256
257	CORELOGRELSYS((CORELOG_NAME "GetFileSizeByFd: fstat failed rc=%Rrc\n", RTErrConvertFromErrno(errno)));
258	return 0;
259	}
260
261
262	/**
263	* Helper function to get the size_t compatible size of a file given its path.
264	*
265	* @return The file size (in bytes).
266	* @param pszPath Pointer to the full path of the file.
267	*/
268	static size_t GetFileSizeByName(const char *pszPath)
269	{
270	int fd = open(pszPath, O_RDONLY);
271	if (fd < 0)
272	{
273	CORELOGRELSYS((CORELOG_NAME "GetFileSizeByName: failed to open %s rc=%Rrc\n", pszPath, RTErrConvertFromErrno(errno)));
274	return 0;
275	}
276
277	size_t cb = GetFileSizeByFd(fd);
278	close(fd);
279	return cb;
280	}
281
282
283	/**
284	* Pre-compute and pre-allocate sufficient memory for dumping core.
285	* This is meant to be called once, as a single-large anonymously
286	* mapped memory area which will be used during the core dumping routines.
287	*
288	* @param pSolCore Pointer to the core object.
289	*
290	* @return IPRT status code.
291	*/
292	static int AllocMemoryArea(PRTSOLCORE pSolCore)
293	{
294	AssertReturn(pSolCore->pvCore == NULL, VERR_ALREADY_EXISTS);
295
296	static struct
297	{
298	const char pszFilePath; / Proc based path */
299	size_t cbHeader; /* Size of header */
300	size_t cbEntry; /* Size of each entry in file */
301	size_t cbAccounting; /* Size of each accounting entry per entry */
302	} const s_aPreAllocTable[] =
303	{
304	{ "/proc/%d/psinfo", 0, 0, 0 },
305	{ "/proc/%d/map", 0, sizeof(prmap_t), sizeof(RTSOLCOREMAPINFO) },
306	{ "/proc/%d/auxv", 0, 0, 0 },
307	{ "/proc/%d/lpsinfo", sizeof(prheader_t), sizeof(lwpsinfo_t), sizeof(RTSOLCORETHREADINFO) },
308	{ "/proc/%d/lstatus", 0, 0, 0 },
309	{ "/proc/%d/ldt", 0, 0, 0 },
310	{ "/proc/%d/cred", sizeof(prcred_t), sizeof(gid_t), 0 },
311	{ "/proc/%d/priv", sizeof(prpriv_t), sizeof(priv_chunk_t), 0 },
312	};
313
314	size_t cb = 0;
315	for (unsigned i = 0; i < RT_ELEMENTS(s_aPreAllocTable); i++)
316	{
317	char szPath[PATH_MAX];
318	RTStrPrintf(szPath, sizeof(szPath), s_aPreAllocTable[i].pszFilePath, (int)pSolCore->SolProc.Process);
319	size_t cbFile = GetFileSizeByName(szPath);
320	cb += cbFile;
321	if ( cbFile > 0
322	&& s_aPreAllocTable[i].cbEntry > 0)
323	{
324	cb += ((cbFile - s_aPreAllocTable[i].cbHeader) / s_aPreAllocTable[i].cbEntry)
325	* (s_aPreAllocTable[i].cbAccounting > 0 ? s_aPreAllocTable[i].cbAccounting : 1);
326	cb += s_aPreAllocTable[i].cbHeader;
327	}
328	}
329
330	/*
331	* Make room for our own mapping accountant entry which will also be included in the core.
332	*/
333	cb += sizeof(RTSOLCOREMAPINFO);
334
335	/*
336	* Allocate the required space, plus some extra room.
337	*/
338	cb += _128K;
339	void pv = mmap(NULL, cb, PROT_READ \| PROT_WRITE, MAP_PRIVATE \| MAP_ANON, -1 / fd /, 0 / offset */);
340	if (pv != MAP_FAILED)
341	{
342	CORELOG((CORELOG_NAME "AllocMemoryArea: memory area of %u bytes allocated.\n", cb));
343	pSolCore->pvCore = pv;
344	pSolCore->pvFree = pv;
345	pSolCore->cbCore = cb;
346	return VINF_SUCCESS;
347	}
348	CORELOGRELSYS((CORELOG_NAME "AllocMemoryArea: failed cb=%u\n", cb));
349	return VERR_NO_MEMORY;
350	}
351
352
353	/**
354	* Free memory area used by the core object.
355	*
356	* @param pSolCore Pointer to the core object.
357	*/
358	static void FreeMemoryArea(PRTSOLCORE pSolCore)
359	{
360	AssertReturnVoid(pSolCore);
361	AssertReturnVoid(pSolCore->pvCore);
362	AssertReturnVoid(pSolCore->cbCore > 0);
363
364	munmap(pSolCore->pvCore, pSolCore->cbCore);
365	CORELOG((CORELOG_NAME "FreeMemoryArea: memory area of %u bytes freed.\n", pSolCore->cbCore));
366
367	pSolCore->pvCore = NULL;
368	pSolCore->pvFree= NULL;
369	pSolCore->cbCore = 0;
370	}
371
372
373	/**
374	* Get a chunk from the area of allocated memory.
375	*
376	* @param pSolCore Pointer to the core object.
377	* @param cb Size of requested chunk.
378	*
379	* @return Pointer to allocated memory, or NULL on failure.
380	*/
381	static void *GetMemoryChunk(PRTSOLCORE pSolCore, size_t cb)
382	{
383	AssertReturn(pSolCore, NULL);
384	AssertReturn(pSolCore->pvCore, NULL);
385	AssertReturn(pSolCore->pvFree, NULL);
386
387	size_t cbAllocated = (char )pSolCore->pvFree - (char )pSolCore->pvCore;
388	if (cbAllocated < pSolCore->cbCore)
389	{
390	char pb = (char )pSolCore->pvFree;
391	pSolCore->pvFree = pb + cb;
392	return pb;
393	}
394
395	return NULL;
396	}
397
398
399	/**
400	* Reads the proc file's content into a newly allocated buffer.
401	*
402	* @param pSolCore Pointer to the core object.
403	* @param pszProcFileName Only the name of the file to read from
404	* (/proc/\<pid\> will be prepended)
405	* @param ppv Where to store the allocated buffer.
406	* @param pcb Where to store size of the buffer.
407	*
408	* @return IPRT status code. If the proc file is 0 bytes, VINF_SUCCESS is
409	* returned with pointed to values of @c ppv, @c pcb set to NULL and 0
410	* respectively.
411	*/
412	static int ProcReadFileInto(PRTSOLCORE pSolCore, const char pszProcFileName, void ppv, size_t pcb)
413	{
414	AssertReturn(pSolCore, VERR_INVALID_POINTER);
415
416	char szPath[PATH_MAX];
417	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/%s", (int)pSolCore->SolProc.Process, pszProcFileName);
418	int rc = VINF_SUCCESS;
419	int fd = open(szPath, O_RDONLY);
420	if (fd >= 0)
421	{
422	*pcb = GetFileSizeByFd(fd);
423	if (*pcb > 0)
424	{
425	ppv = GetMemoryChunk(pSolCore, pcb);
426	if (*ppv)
427	rc = ReadFileNoIntr(fd, ppv, pcb);
428	else
429	rc = VERR_NO_MEMORY;
430	}
431	else
432	{
433	*pcb = 0;
434	*ppv = NULL;
435	rc = VINF_SUCCESS;
436	}
437	close(fd);
438	}
439	else
440	{
441	rc = RTErrConvertFromErrno(fd);
442	CORELOGRELSYS((CORELOG_NAME "ProcReadFileInto: failed to open %s. rc=%Rrc\n", szPath, rc));
443	}
444	return rc;
445	}
446
447
448	/**
449	* Read process information (format psinfo_t) from /proc.
450	*
451	* @param pSolCore Pointer to the core object.
452	*
453	* @return IPRT status code.
454	*/
455	static int ProcReadInfo(PRTSOLCORE pSolCore)
456	{
457	AssertReturn(pSolCore, VERR_INVALID_POINTER);
458
459	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
460	return ProcReadFileInto(pSolCore, "psinfo", &pSolProc->pvProcInfo, &pSolProc->cbProcInfo);
461	}
462
463
464	/**
465	* Read process status (format pstatus_t) from /proc.
466	*
467	* @param pSolCore Pointer to the core object.
468	*
469	* @return IPRT status code.
470	*/
471	static int ProcReadStatus(PRTSOLCORE pSolCore)
472	{
473	AssertReturn(pSolCore, VERR_INVALID_POINTER);
474
475	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
476
477	char szPath[PATH_MAX];
478	int rc = VINF_SUCCESS;
479
480	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/status", (int)pSolProc->Process);
481	int fd = open(szPath, O_RDONLY);
482	if (fd >= 0)
483	{
484	size_t cbProcStatus = sizeof(pstatus_t);
485	AssertCompile(sizeof(pstatus_t) == sizeof(pSolProc->ProcStatus));
486	rc = ReadFileNoIntr(fd, &pSolProc->ProcStatus, cbProcStatus);
487	close(fd);
488	}
489	else
490	{
491	rc = RTErrConvertFromErrno(fd);
492	CORELOGRELSYS((CORELOG_NAME "ProcReadStatus: failed to open %s. rc=%Rrc\n", szPath, rc));
493	}
494	return rc;
495	}
496
497
498	/**
499	* Read process credential information (format prcred_t + array of guid_t)
500	*
501	* @return IPRT status code.
502	* @param pSolCore Pointer to the core object.
503	*
504	* @remarks Should not be called before successful call to @see AllocMemoryArea()
505	*/
506	static int ProcReadCred(PRTSOLCORE pSolCore)
507	{
508	AssertReturn(pSolCore, VERR_INVALID_POINTER);
509
510	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
511	return ProcReadFileInto(pSolCore, "cred", &pSolProc->pvCred, &pSolProc->cbCred);
512	}
513
514
515	/**
516	* Read process privilege information (format prpriv_t + array of priv_chunk_t)
517	*
518	* @return IPRT status code.
519	* @param pSolCore Pointer to the core object.
520	*
521	* @remarks Should not be called before successful call to @see AllocMemoryArea()
522	*/
523	static int ProcReadPriv(PRTSOLCORE pSolCore)
524	{
525	AssertReturn(pSolCore, VERR_INVALID_POINTER);
526
527	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
528	int rc = ProcReadFileInto(pSolCore, "priv", (void **)&pSolProc->pPriv, &pSolProc->cbPriv);
529	if (RT_FAILURE(rc))
530	return rc;
531	pSolProc->pcPrivImpl = getprivimplinfo();
532	if (!pSolProc->pcPrivImpl)
533	{
534	CORELOGRELSYS((CORELOG_NAME "ProcReadPriv: getprivimplinfo returned NULL.\n"));
535	return VERR_INVALID_STATE;
536	}
537	return rc;
538	}
539
540
541	/**
542	* Read process LDT information (format array of struct ssd) from /proc.
543	*
544	* @return IPRT status code.
545	* @param pSolCore Pointer to the core object.
546	*
547	* @remarks Should not be called before successful call to @see AllocMemoryArea()
548	*/
549	static int ProcReadLdt(PRTSOLCORE pSolCore)
550	{
551	AssertReturn(pSolCore, VERR_INVALID_POINTER);
552
553	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
554	return ProcReadFileInto(pSolCore, "ldt", &pSolProc->pvLdt, &pSolProc->cbLdt);
555	}
556
557
558	/**
559	* Read process auxiliary vectors (format auxv_t) for the process.
560	*
561	* @return IPRT status code.
562	* @param pSolCore Pointer to the core object.
563	*
564	* @remarks Should not be called before successful call to @see AllocMemoryArea()
565	*/
566	static int ProcReadAuxVecs(PRTSOLCORE pSolCore)
567	{
568	AssertReturn(pSolCore, VERR_INVALID_POINTER);
569
570	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
571	char szPath[PATH_MAX];
572	int rc = VINF_SUCCESS;
573	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/auxv", (int)pSolProc->Process);
574	int fd = open(szPath, O_RDONLY);
575	if (fd < 0)
576	{
577	rc = RTErrConvertFromErrno(fd);
578	CORELOGRELSYS((CORELOG_NAME "ProcReadAuxVecs: failed to open %s rc=%Rrc\n", szPath, rc));
579	return rc;
580	}
581
582	size_t cbAuxFile = GetFileSizeByFd(fd);
583	if (cbAuxFile >= sizeof(auxv_t))
584	{
585	pSolProc->pAuxVecs = (auxv_t*)GetMemoryChunk(pSolCore, cbAuxFile + sizeof(auxv_t));
586	if (pSolProc->pAuxVecs)
587	{
588	rc = ReadFileNoIntr(fd, pSolProc->pAuxVecs, cbAuxFile);
589	if (RT_SUCCESS(rc))
590	{
591	/* Terminate list of vectors */
592	pSolProc->cAuxVecs = cbAuxFile / sizeof(auxv_t);
593	CORELOG((CORELOG_NAME "ProcReadAuxVecs: cbAuxFile=%u auxv_t size %d cAuxVecs=%u\n", cbAuxFile, sizeof(auxv_t),
594	pSolProc->cAuxVecs));
595	if (pSolProc->cAuxVecs > 0)
596	{
597	pSolProc->pAuxVecs[pSolProc->cAuxVecs].a_type = AT_NULL;
598	pSolProc->pAuxVecs[pSolProc->cAuxVecs].a_un.a_val = 0L;
599	close(fd);
600	return VINF_SUCCESS;
601	}
602
603	CORELOGRELSYS((CORELOG_NAME "ProcReadAuxVecs: Invalid vector count %u\n", pSolProc->cAuxVecs));
604	rc = VERR_READ_ERROR;
605	}
606	else
607	CORELOGRELSYS((CORELOG_NAME "ProcReadAuxVecs: ReadFileNoIntr failed. rc=%Rrc cbAuxFile=%u\n", rc, cbAuxFile));
608
609	pSolProc->pAuxVecs = NULL;
610	pSolProc->cAuxVecs = 0;
611	}
612	else
613	{
614	CORELOGRELSYS((CORELOG_NAME "ProcReadAuxVecs: no memory for %u bytes\n", cbAuxFile + sizeof(auxv_t)));
615	rc = VERR_NO_MEMORY;
616	}
617	}
618	else
619	{
620	CORELOGRELSYS((CORELOG_NAME "ProcReadAuxVecs: aux file too small %u, expecting %u or more\n", cbAuxFile, sizeof(auxv_t)));
621	rc = VERR_READ_ERROR;
622	}
623
624	close(fd);
625	return rc;
626	}
627
628
629	/*
630	* Find an element in the process' auxiliary vector.
631	*/
632	static long GetAuxVal(PRTSOLCOREPROCESS pSolProc, int Type)
633	{
634	AssertReturn(pSolProc, -1);
635	if (pSolProc->pAuxVecs)
636	{
637	auxv_t *pAuxVec = pSolProc->pAuxVecs;
638	for (; pAuxVec->a_type != AT_NULL; pAuxVec++)
639	{
640	if (pAuxVec->a_type == Type)
641	return pAuxVec->a_un.a_val;
642	}
643	}
644	return -1;
645	}
646
647
648	/**
649	* Read the process mappings (format prmap_t array).
650	*
651	* @return IPRT status code.
652	* @param pSolCore Pointer to the core object.
653	*
654	* @remarks Should not be called before successful call to @see AllocMemoryArea()
655	*/
656	static int ProcReadMappings(PRTSOLCORE pSolCore)
657	{
658	AssertReturn(pSolCore, VERR_INVALID_POINTER);
659
660	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
661	char szPath[PATH_MAX];
662	int rc = VINF_SUCCESS;
663	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/map", (int)pSolProc->Process);
664	int fdMap = open(szPath, O_RDONLY);
665	if (fdMap < 0)
666	{
667	rc = RTErrConvertFromErrno(errno);
668	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: failed to open %s. rc=%Rrc\n", szPath, rc));
669	return rc;
670	}
671
672	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/as", (int)pSolProc->Process);
673	pSolProc->fdAs = open(szPath, O_RDONLY);
674	if (pSolProc->fdAs >= 0)
675	{
676	/*
677	* Allocate and read all the prmap_t objects from proc.
678	*/
679	size_t cbMapFile = GetFileSizeByFd(fdMap);
680	if (cbMapFile >= sizeof(prmap_t))
681	{
682	prmap_t pMap = (prmap_t)GetMemoryChunk(pSolCore, cbMapFile);
683	if (pMap)
684	{
685	rc = ReadFileNoIntr(fdMap, pMap, cbMapFile);
686	if (RT_SUCCESS(rc))
687	{
688	pSolProc->cMappings = cbMapFile / sizeof(prmap_t);
689	if (pSolProc->cMappings > 0)
690	{
691	/*
692	* Allocate for each prmap_t object, a corresponding RTSOLCOREMAPINFO object.
693	*/
694	pSolProc->pMapInfoHead = (PRTSOLCOREMAPINFO)GetMemoryChunk(pSolCore,
695	pSolProc->cMappings * sizeof(RTSOLCOREMAPINFO));
696	if (pSolProc->pMapInfoHead)
697	{
698	/*
699	* Associate the prmap_t with the mapping info object.
700	*/
701	/Assert(pSolProc->pMapInfoHead == NULL); - does not make sense /
702	PRTSOLCOREMAPINFO pCur = pSolProc->pMapInfoHead;
703	PRTSOLCOREMAPINFO pPrev = NULL;
704	for (uint64_t i = 0; i < pSolProc->cMappings; i++, pMap++, pCur++)
705	{
706	memcpy(&pCur->pMap, pMap, sizeof(pCur->pMap));
707	if (pPrev)
708	pPrev->pNext = pCur;
709
710	pCur->fError = 0;
711
712	/*
713	* Make sure we can read the mapping, otherwise mark them to be skipped.
714	*/
715	char achBuf[PAGE_SIZE];
716	uint64_t k = 0;
717	while (k < pCur->pMap.pr_size)
718	{
719	size_t cb = RT_MIN(sizeof(achBuf), pCur->pMap.pr_size - k);
720	int rc2 = ProcReadAddrSpace(pSolProc, pCur->pMap.pr_vaddr + k, &achBuf, cb);
721	if (RT_FAILURE(rc2))
722	{
723	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: skipping mapping. vaddr=%#x rc=%Rrc\n",
724	pCur->pMap.pr_vaddr, rc2));
725
726	/*
727	* Instead of storing the actual mapping data which we failed to read, the core
728	* will contain an errno in place. So we adjust the prmap_t's size field too
729	* so the program header offsets match.
730	*/
731	pCur->pMap.pr_size = RT_ALIGN_Z(sizeof(int), 8);
732	pCur->fError = errno;
733	if (pCur->fError == 0) /* huh!? somehow errno got reset? fake one! EFAULT is nice. */
734	pCur->fError = EFAULT;
735	break;
736	}
737	k += cb;
738	}
739
740	pPrev = pCur;
741	}
742	if (pPrev)
743	pPrev->pNext = NULL;
744
745	close(fdMap);
746	close(pSolProc->fdAs);
747	pSolProc->fdAs = -1;
748	CORELOG((CORELOG_NAME "ProcReadMappings: successfully read in %u mappings\n", pSolProc->cMappings));
749	return VINF_SUCCESS;
750	}
751
752	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: GetMemoryChunk failed %u\n",
753	pSolProc->cMappings * sizeof(RTSOLCOREMAPINFO)));
754	rc = VERR_NO_MEMORY;
755	}
756	else
757	{
758	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: Invalid mapping count %u\n", pSolProc->cMappings));
759	rc = VERR_READ_ERROR;
760	}
761	}
762	else
763	{
764	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: FileReadNoIntr failed. rc=%Rrc cbMapFile=%u\n", rc,
765	cbMapFile));
766	}
767	}
768	else
769	{
770	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: GetMemoryChunk failed. cbMapFile=%u\n", cbMapFile));
771	rc = VERR_NO_MEMORY;
772	}
773	}
774
775	close(pSolProc->fdAs);
776	pSolProc->fdAs = -1;
777	}
778	else
779	CORELOGRELSYS((CORELOG_NAME "ProcReadMappings: failed to open %s. rc=%Rrc\n", szPath, rc));
780
781	close(fdMap);
782	return rc;
783	}
784
785
786	/**
787	* Reads the thread information for all threads in the process.
788	*
789	* @return IPRT status code.
790	* @param pSolCore Pointer to the core object.
791	*
792	* @remarks Should not be called before successful call to @see AllocMemoryArea()
793	*/
794	static int ProcReadThreads(PRTSOLCORE pSolCore)
795	{
796	AssertReturn(pSolCore, VERR_INVALID_POINTER);
797
798	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
799	AssertReturn(pSolProc->pCurThreadCtx, VERR_NO_DATA);
800
801	/*
802	* Read the information for threads.
803	* Format: prheader_t + array of lwpsinfo_t's.
804	*/
805	size_t cbInfoHdrAndData;
806	void *pvInfoHdr = NULL;
807	int rc = ProcReadFileInto(pSolCore, "lpsinfo", &pvInfoHdr, &cbInfoHdrAndData);
808	if (RT_SUCCESS(rc))
809	{
810	/*
811	* Read the status of threads.
812	* Format: prheader_t + array of lwpstatus_t's.
813	*/
814	void *pvStatusHdr = NULL;
815	size_t cbStatusHdrAndData;
816	rc = ProcReadFileInto(pSolCore, "lstatus", &pvStatusHdr, &cbStatusHdrAndData);
817	if (RT_SUCCESS(rc))
818	{
819	prheader_t pInfoHdr = (prheader_t )pvInfoHdr;
820	prheader_t pStatusHdr = (prheader_t )pvStatusHdr;
821	lwpstatus_t pStatus = (lwpstatus_t )((uintptr_t)pStatusHdr + sizeof(prheader_t));
822	lwpsinfo_t pInfo = (lwpsinfo_t )((uintptr_t)pInfoHdr + sizeof(prheader_t));
823	uint64_t cStatus = pStatusHdr->pr_nent;
824	uint64_t cInfo = pInfoHdr->pr_nent;
825
826	CORELOG((CORELOG_NAME "ProcReadThreads: read info(%u) status(%u), threads:cInfo=%u cStatus=%u\n", cbInfoHdrAndData,
827	cbStatusHdrAndData, cInfo, cStatus));
828
829	/*
830	* Minor sanity size check (remember sizeof lwpstatus_t & lwpsinfo_t is <= size in file per entry).
831	*/
832	if ( (cbStatusHdrAndData - sizeof(prheader_t)) % pStatusHdr->pr_entsize == 0
833	&& (cbInfoHdrAndData - sizeof(prheader_t)) % pInfoHdr->pr_entsize == 0)
834	{
835	/*
836	* Make sure we have a matching lstatus entry for an lpsinfo entry unless
837	* it is a zombie thread, in which case we will not have a matching lstatus entry.
838	*/
839	for (; cInfo != 0; cInfo--)
840	{
841	if (pInfo->pr_sname != 'Z') /* zombie */
842	{
843	if ( cStatus == 0
844	\|\| pStatus->pr_lwpid != pInfo->pr_lwpid)
845	{
846	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: cStatus = %u pStatuslwpid=%d infolwpid=%d\n", cStatus,
847	pStatus->pr_lwpid, pInfo->pr_lwpid));
848	rc = VERR_INVALID_STATE;
849	break;
850	}
851	pStatus = (lwpstatus_t *)((uintptr_t)pStatus + pStatusHdr->pr_entsize);
852	cStatus--;
853	}
854	pInfo = (lwpsinfo_t *)((uintptr_t)pInfo + pInfoHdr->pr_entsize);
855	}
856
857	if (RT_SUCCESS(rc))
858	{
859	/*
860	* There can still be more lwpsinfo_t's than lwpstatus_t's, build the
861	* lists accordingly.
862	*/
863	pStatus = (lwpstatus_t *)((uintptr_t)pStatusHdr + sizeof(prheader_t));
864	pInfo = (lwpsinfo_t *)((uintptr_t)pInfoHdr + sizeof(prheader_t));
865	cInfo = pInfoHdr->pr_nent;
866	cStatus = pInfoHdr->pr_nent;
867
868	size_t cbThreadInfo = RT_MAX(cStatus, cInfo) * sizeof(RTSOLCORETHREADINFO);
869	pSolProc->pThreadInfoHead = (PRTSOLCORETHREADINFO)GetMemoryChunk(pSolCore, cbThreadInfo);
870	if (pSolProc->pThreadInfoHead)
871	{
872	PRTSOLCORETHREADINFO pCur = pSolProc->pThreadInfoHead;
873	PRTSOLCORETHREADINFO pPrev = NULL;
874	for (uint64_t i = 0; i < cInfo; i++, pCur++)
875	{
876	pCur->Info = *pInfo;
877	if ( pInfo->pr_sname != 'Z'
878	&& pInfo->pr_lwpid == pStatus->pr_lwpid)
879	{
880	/*
881	* Adjust the context of the dumping thread to reflect the context
882	* when the core dump got initiated before whatever signal caused it.
883	*/
884	if ( pStatus /* noid droid */
885	&& pStatus->pr_lwpid == (id_t)pSolProc->hCurThread)
886	{
887	AssertCompile(sizeof(pStatus->pr_reg) == sizeof(pSolProc->pCurThreadCtx->uc_mcontext.gregs));
888	AssertCompile(sizeof(pStatus->pr_fpreg) == sizeof(pSolProc->pCurThreadCtx->uc_mcontext.fpregs));
889	memcpy(&pStatus->pr_reg, &pSolProc->pCurThreadCtx->uc_mcontext.gregs, sizeof(pStatus->pr_reg));
890	memcpy(&pStatus->pr_fpreg, &pSolProc->pCurThreadCtx->uc_mcontext.fpregs, sizeof(pStatus->pr_fpreg));
891
892	AssertCompile(sizeof(pStatus->pr_lwphold) == sizeof(pSolProc->pCurThreadCtx->uc_sigmask));
893	memcpy(&pStatus->pr_lwphold, &pSolProc->pCurThreadCtx->uc_sigmask, sizeof(pStatus->pr_lwphold));
894	pStatus->pr_ustack = (uintptr_t)&pSolProc->pCurThreadCtx->uc_stack;
895
896	CORELOG((CORELOG_NAME "ProcReadThreads: patched dumper thread with pre-dump time context.\n"));
897	}
898
899	pCur->pStatus = pStatus;
900	pStatus = (lwpstatus_t *)((uintptr_t)pStatus + pStatusHdr->pr_entsize);
901	}
902	else
903	{
904	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: missing status for lwp %d\n", pInfo->pr_lwpid));
905	pCur->pStatus = NULL;
906	}
907
908	if (pPrev)
909	pPrev->pNext = pCur;
910	pPrev = pCur;
911	pInfo = (lwpsinfo_t *)((uintptr_t)pInfo + pInfoHdr->pr_entsize);
912	}
913	if (pPrev)
914	pPrev->pNext = NULL;
915
916	CORELOG((CORELOG_NAME "ProcReadThreads: successfully read %u threads.\n", cInfo));
917	pSolProc->cThreads = cInfo;
918	return VINF_SUCCESS;
919	}
920	else
921	{
922	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: GetMemoryChunk failed for %u bytes\n", cbThreadInfo));
923	rc = VERR_NO_MEMORY;
924	}
925	}
926	else
927	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: Invalid state information for threads. rc=%Rrc\n", rc));
928	}
929	else
930	{
931	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: huh!? cbStatusHdrAndData=%u prheader_t=%u entsize=%u\n",
932	cbStatusHdrAndData, sizeof(prheader_t), pStatusHdr->pr_entsize));
933	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: huh!? cbInfoHdrAndData=%u entsize=%u\n", cbInfoHdrAndData,
934	pStatusHdr->pr_entsize));
935	rc = VERR_INVALID_STATE;
936	}
937	}
938	else
939	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: ReadFileNoIntr failed for \"lpsinfo\" rc=%Rrc\n", rc));
940	}
941	else
942	CORELOGRELSYS((CORELOG_NAME "ProcReadThreads: ReadFileNoIntr failed for \"lstatus\" rc=%Rrc\n", rc));
943	return rc;
944	}
945
946
947	/**
948	* Reads miscellaneous information that is collected as part of a core file.
949	* This may include platform name, zone name and other OS-specific information.
950	*
951	* @param pSolCore Pointer to the core object.
952	*
953	* @return IPRT status code.
954	*/
955	static int ProcReadMiscInfo(PRTSOLCORE pSolCore)
956	{
957	AssertReturn(pSolCore, VERR_INVALID_POINTER);
958
959	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
960
961	#ifdef RT_OS_SOLARIS
962	/*
963	* Read the platform name, uname string and zone name.
964	*/
965	int rc = sysinfo(SI_PLATFORM, pSolProc->szPlatform, sizeof(pSolProc->szPlatform));
966	if (rc == -1)
967	{
968	CORELOGRELSYS((CORELOG_NAME "ProcReadMiscInfo: sysinfo failed. rc=%d errno=%d\n", rc, errno));
969	return VERR_GENERAL_FAILURE;
970	}
971	pSolProc->szPlatform[sizeof(pSolProc->szPlatform) - 1] = '\0';
972
973	rc = uname(&pSolProc->UtsName);
974	if (rc == -1)
975	{
976	CORELOGRELSYS((CORELOG_NAME "ProcReadMiscInfo: uname failed. rc=%d errno=%d\n", rc, errno));
977	return VERR_GENERAL_FAILURE;
978	}
979
980	/*
981	* See comment in GetOldProcessInfo() for why we need to verify the offset here.
982	* It's not perfect, but it should be fine unless they really mess up the structure
983	* layout in the future. See @bugref{8479}.
984	*/
985	size_t const offZoneId = RT_UOFFSETOF(psinfo_t, pr_zoneid);
986	if (pSolProc->cbProcInfo < offZoneId)
987	{
988	CORELOGRELSYS((CORELOG_NAME "ProcReadMiscInfo: psinfo size mismatch. cbProcInfo=%u expected >= %u\n",
989	pSolProc->cbProcInfo, offZoneId));
990	return VERR_GENERAL_FAILURE;
991	}
992
993	psinfo_t pProcInfo = (psinfo_t )pSolProc->pvProcInfo;
994	rc = getzonenamebyid(pProcInfo->pr_zoneid, pSolProc->szZoneName, sizeof(pSolProc->szZoneName));
995	if (rc < 0)
996	{
997	CORELOGRELSYS((CORELOG_NAME "ProcReadMiscInfo: getzonenamebyid failed. rc=%d errno=%d zoneid=%d\n", rc, errno,
998	pProcInfo->pr_zoneid));
999	return VERR_GENERAL_FAILURE;
1000	}
1001	pSolProc->szZoneName[sizeof(pSolProc->szZoneName) - 1] = '\0';
1002	rc = VINF_SUCCESS;
1003
1004	#else
1005	# error Port Me!
1006	#endif
1007	return rc;
1008	}
1009
1010
1011	/**
1012	* On Solaris use the old-style procfs interfaces but the core file still should have this
1013	* info. for backward and GDB compatibility, hence the need for this ugly function.
1014	*
1015	* @returns IPRT status code.
1016	*
1017	* @param pSolCore Pointer to the core object.
1018	* @param pInfo Pointer to the old prpsinfo_t structure to update.
1019	*/
1020	static int GetOldProcessInfo(PRTSOLCORE pSolCore, prpsinfo_t *pInfo)
1021	{
1022	AssertReturn(pSolCore, VERR_INVALID_PARAMETER);
1023	AssertReturn(pInfo, VERR_INVALID_PARAMETER);
1024
1025	/*
1026	* The psinfo_t and the size of /proc/<pid>/psinfo varies both within the same Solaris system
1027	* and across Solaris major versions. However, manual dumping of the structure and offsets shows
1028	* that they changed the size of lwpsinfo_t and the size of the lwpsinfo_t::pr_filler.
1029	*
1030	* The proc psinfo file will be what gets dumped ultimately in the core file but we still need
1031	* to read the fields to translate to the older process info structure here.
1032	*
1033	* See @bugref{8479}.
1034	*/
1035	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1036
1037	size_t offLwp = RT_UOFFSETOF(psinfo_t, pr_lwp);
1038	/* last member we care about in lwpsinfo_t is pr_bindpset which is also present on ancient Solaris version we use for
1039	building the additions. Should be safe enough as we don't need/access members upto or beyond that point anyway. */
1040	size_t offLastOnProc = RT_UOFFSETOF(lwpsinfo_t, pr_bindpset);
1041	if (pSolProc->cbProcInfo >= offLwp + offLastOnProc)
1042	{
1043	psinfo_t pSrc = (psinfo_t )pSolProc->pvProcInfo;
1044	memset(pInfo, 0, sizeof(prpsinfo_t));
1045	pInfo->pr_state = pSrc->pr_lwp.pr_state;
1046	pInfo->pr_zomb = (pInfo->pr_state == SZOMB);
1047	RTStrCopy(pInfo->pr_clname, sizeof(pInfo->pr_clname), pSrc->pr_lwp.pr_clname);
1048	RTStrCopy(pInfo->pr_fname, sizeof(pInfo->pr_fname), pSrc->pr_fname);
1049	memcpy(&pInfo->pr_psargs, &pSrc->pr_psargs, sizeof(pInfo->pr_psargs));
1050	pInfo->pr_nice = pSrc->pr_lwp.pr_nice;
1051	pInfo->pr_flag = pSrc->pr_lwp.pr_flag;
1052	pInfo->pr_uid = pSrc->pr_uid;
1053	pInfo->pr_gid = pSrc->pr_gid;
1054	pInfo->pr_pid = pSrc->pr_pid;
1055	pInfo->pr_ppid = pSrc->pr_ppid;
1056	pInfo->pr_pgrp = pSrc->pr_pgid;
1057	pInfo->pr_sid = pSrc->pr_sid;
1058	pInfo->pr_addr = (caddr_t)pSrc->pr_addr;
1059	pInfo->pr_size = pSrc->pr_size;
1060	pInfo->pr_rssize = pSrc->pr_rssize;
1061	pInfo->pr_wchan = (caddr_t)pSrc->pr_lwp.pr_wchan;
1062	pInfo->pr_start = pSrc->pr_start;
1063	pInfo->pr_time = pSrc->pr_time;
1064	pInfo->pr_pri = pSrc->pr_lwp.pr_pri;
1065	pInfo->pr_oldpri = pSrc->pr_lwp.pr_oldpri;
1066	pInfo->pr_cpu = pSrc->pr_lwp.pr_cpu;
1067	pInfo->pr_ottydev = cmpdev(pSrc->pr_ttydev);
1068	pInfo->pr_lttydev = pSrc->pr_ttydev;
1069	pInfo->pr_syscall = pSrc->pr_lwp.pr_syscall;
1070	pInfo->pr_ctime = pSrc->pr_ctime;
1071	pInfo->pr_bysize = pSrc->pr_size * PAGESIZE;
1072	pInfo->pr_byrssize = pSrc->pr_rssize * PAGESIZE;
1073	pInfo->pr_argc = pSrc->pr_argc;
1074	pInfo->pr_argv = (char **)pSrc->pr_argv;
1075	pInfo->pr_envp = (char **)pSrc->pr_envp;
1076	pInfo->pr_wstat = pSrc->pr_wstat;
1077	pInfo->pr_pctcpu = pSrc->pr_pctcpu;
1078	pInfo->pr_pctmem = pSrc->pr_pctmem;
1079	pInfo->pr_euid = pSrc->pr_euid;
1080	pInfo->pr_egid = pSrc->pr_egid;
1081	pInfo->pr_aslwpid = 0;
1082	pInfo->pr_dmodel = pSrc->pr_dmodel;
1083
1084	return VINF_SUCCESS;
1085	}
1086
1087	CORELOGRELSYS((CORELOG_NAME "GetOldProcessInfo: Size/offset mismatch. offLwp=%u offLastOnProc=%u cbProcInfo=%u\n",
1088	offLwp, offLastOnProc, pSolProc->cbProcInfo));
1089	return VERR_MISMATCH;
1090	}
1091
1092
1093	/**
1094	* On Solaris use the old-style procfs interfaces but the core file still should have this
1095	* info. for backward and GDB compatibility, hence the need for this ugly function.
1096	*
1097	* @param pSolCore Pointer to the core object.
1098	* @param pInfo Pointer to the thread info.
1099	* @param pStatus Pointer to the thread status.
1100	* @param pDst Pointer to the old-style status structure to update.
1101	*
1102	*/
1103	static void GetOldProcessStatus(PRTSOLCORE pSolCore, lwpsinfo_t pInfo, lwpstatus_t pStatus, prstatus_t *pDst)
1104	{
1105	AssertReturnVoid(pSolCore);
1106	AssertReturnVoid(pInfo);
1107	AssertReturnVoid(pStatus);
1108	AssertReturnVoid(pDst);
1109
1110	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1111	memset(pDst, 0, sizeof(prstatus_t));
1112	if (pStatus->pr_flags & PR_STOPPED)
1113	pDst->pr_flags = 0x0001;
1114	if (pStatus->pr_flags & PR_ISTOP)
1115	pDst->pr_flags = 0x0002;
1116	if (pStatus->pr_flags & PR_DSTOP)
1117	pDst->pr_flags = 0x0004;
1118	if (pStatus->pr_flags & PR_ASLEEP)
1119	pDst->pr_flags = 0x0008;
1120	if (pStatus->pr_flags & PR_FORK)
1121	pDst->pr_flags = 0x0010;
1122	if (pStatus->pr_flags & PR_RLC)
1123	pDst->pr_flags = 0x0020;
1124	/* PR_PTRACE is never set */
1125	if (pStatus->pr_flags & PR_PCINVAL)
1126	pDst->pr_flags = 0x0080;
1127	if (pStatus->pr_flags & PR_ISSYS)
1128	pDst->pr_flags = 0x0100;
1129	if (pStatus->pr_flags & PR_STEP)
1130	pDst->pr_flags = 0x0200;
1131	if (pStatus->pr_flags & PR_KLC)
1132	pDst->pr_flags = 0x0400;
1133	if (pStatus->pr_flags & PR_ASYNC)
1134	pDst->pr_flags = 0x0800;
1135	if (pStatus->pr_flags & PR_PTRACE)
1136	pDst->pr_flags = 0x1000;
1137	if (pStatus->pr_flags & PR_MSACCT)
1138	pDst->pr_flags = 0x2000;
1139	if (pStatus->pr_flags & PR_BPTADJ)
1140	pDst->pr_flags = 0x4000;
1141	if (pStatus->pr_flags & PR_ASLWP)
1142	pDst->pr_flags = 0x8000;
1143
1144	pDst->pr_who = pStatus->pr_lwpid;
1145	pDst->pr_why = pStatus->pr_why;
1146	pDst->pr_what = pStatus->pr_what;
1147	pDst->pr_info = pStatus->pr_info;
1148	pDst->pr_cursig = pStatus->pr_cursig;
1149	pDst->pr_sighold = pStatus->pr_lwphold;
1150	pDst->pr_altstack = pStatus->pr_altstack;
1151	pDst->pr_action = pStatus->pr_action;
1152	pDst->pr_syscall = pStatus->pr_syscall;
1153	pDst->pr_nsysarg = pStatus->pr_nsysarg;
1154	pDst->pr_lwppend = pStatus->pr_lwppend;
1155	pDst->pr_oldcontext = (ucontext_t *)pStatus->pr_oldcontext;
1156	memcpy(pDst->pr_reg, pStatus->pr_reg, sizeof(pDst->pr_reg));
1157	memcpy(pDst->pr_sysarg, pStatus->pr_sysarg, sizeof(pDst->pr_sysarg));
1158	RTStrCopy(pDst->pr_clname, sizeof(pDst->pr_clname), pStatus->pr_clname);
1159
1160	pDst->pr_nlwp = pSolProc->ProcStatus.pr_nlwp;
1161	pDst->pr_sigpend = pSolProc->ProcStatus.pr_sigpend;
1162	pDst->pr_pid = pSolProc->ProcStatus.pr_pid;
1163	pDst->pr_ppid = pSolProc->ProcStatus.pr_ppid;
1164	pDst->pr_pgrp = pSolProc->ProcStatus.pr_pgid;
1165	pDst->pr_sid = pSolProc->ProcStatus.pr_sid;
1166	pDst->pr_utime = pSolProc->ProcStatus.pr_utime;
1167	pDst->pr_stime = pSolProc->ProcStatus.pr_stime;
1168	pDst->pr_cutime = pSolProc->ProcStatus.pr_cutime;
1169	pDst->pr_cstime = pSolProc->ProcStatus.pr_cstime;
1170	pDst->pr_brkbase = (caddr_t)pSolProc->ProcStatus.pr_brkbase;
1171	pDst->pr_brksize = pSolProc->ProcStatus.pr_brksize;
1172	pDst->pr_stkbase = (caddr_t)pSolProc->ProcStatus.pr_stkbase;
1173	pDst->pr_stksize = pSolProc->ProcStatus.pr_stksize;
1174
1175	pDst->pr_processor = (short)pInfo->pr_onpro;
1176	pDst->pr_bind = (short)pInfo->pr_bindpro;
1177	pDst->pr_instr = pStatus->pr_instr;
1178	}
1179
1180
1181	/**
1182	* Callback for rtCoreDumperForEachThread to suspend a thread.
1183	*
1184	* @param pSolCore Pointer to the core object.
1185	* @param pvThreadInfo Opaque pointer to thread information.
1186	*
1187	* @return IPRT status code.
1188	*/
1189	static int suspendThread(PRTSOLCORE pSolCore, void *pvThreadInfo)
1190	{
1191	AssertPtrReturn(pvThreadInfo, VERR_INVALID_POINTER);
1192	NOREF(pSolCore);
1193
1194	lwpsinfo_t pThreadInfo = (lwpsinfo_t )pvThreadInfo;
1195	CORELOG((CORELOG_NAME ":suspendThread %d\n", (lwpid_t)pThreadInfo->pr_lwpid));
1196	if ((lwpid_t)pThreadInfo->pr_lwpid != pSolCore->SolProc.hCurThread)
1197	_lwp_suspend(pThreadInfo->pr_lwpid);
1198	return VINF_SUCCESS;
1199	}
1200
1201
1202	/**
1203	* Callback for rtCoreDumperForEachThread to resume a thread.
1204	*
1205	* @param pSolCore Pointer to the core object.
1206	* @param pvThreadInfo Opaque pointer to thread information.
1207	*
1208	* @return IPRT status code.
1209	*/
1210	static int resumeThread(PRTSOLCORE pSolCore, void *pvThreadInfo)
1211	{
1212	AssertPtrReturn(pvThreadInfo, VERR_INVALID_POINTER);
1213	NOREF(pSolCore);
1214
1215	lwpsinfo_t pThreadInfo = (lwpsinfo_t )pvThreadInfo;
1216	CORELOG((CORELOG_NAME ":resumeThread %d\n", (lwpid_t)pThreadInfo->pr_lwpid));
1217	if ((lwpid_t)pThreadInfo->pr_lwpid != (lwpid_t)pSolCore->SolProc.hCurThread)
1218	_lwp_continue(pThreadInfo->pr_lwpid);
1219	return VINF_SUCCESS;
1220	}
1221
1222
1223	/**
1224	* Calls a thread worker function for all threads in the process as described by /proc
1225	*
1226	* @param pSolCore Pointer to the core object.
1227	* @param pcThreads Number of threads read.
1228	* @param pfnWorker Callback function for each thread.
1229	*
1230	* @return IPRT status code.
1231	*/
1232	static int rtCoreDumperForEachThread(PRTSOLCORE pSolCore, uint64_t *pcThreads, PFNRTSOLCORETHREADWORKER pfnWorker)
1233	{
1234	AssertPtrReturn(pSolCore, VERR_INVALID_POINTER);
1235
1236	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1237
1238	/*
1239	* Read the information for threads.
1240	* Format: prheader_t + array of lwpsinfo_t's.
1241	*/
1242	char szLpsInfoPath[PATH_MAX];
1243	RTStrPrintf(szLpsInfoPath, sizeof(szLpsInfoPath), "/proc/%d/lpsinfo", (int)pSolProc->Process);
1244
1245	int rc = VINF_SUCCESS;
1246	int fd = open(szLpsInfoPath, O_RDONLY);
1247	if (fd >= 0)
1248	{
1249	size_t cbInfoHdrAndData = GetFileSizeByFd(fd);
1250	void *pvInfoHdr = mmap(NULL, cbInfoHdrAndData, PROT_READ \| PROT_WRITE, MAP_PRIVATE \| MAP_ANON,
1251	-1 /* fd /, 0 / offset */);
1252	if (pvInfoHdr != MAP_FAILED)
1253	{
1254	rc = ReadFileNoIntr(fd, pvInfoHdr, cbInfoHdrAndData);
1255	if (RT_SUCCESS(rc))
1256	{
1257	prheader_t pHeader = (prheader_t )pvInfoHdr;
1258	lwpsinfo_t pThreadInfo = (lwpsinfo_t )((uintptr_t)pvInfoHdr + sizeof(prheader_t));
1259	for (long i = 0; i < pHeader->pr_nent; i++)
1260	{
1261	pfnWorker(pSolCore, pThreadInfo);
1262	pThreadInfo = (lwpsinfo_t *)((uintptr_t)pThreadInfo + pHeader->pr_entsize);
1263	}
1264	if (pcThreads)
1265	*pcThreads = pHeader->pr_nent;
1266	}
1267
1268	munmap(pvInfoHdr, cbInfoHdrAndData);
1269	}
1270	else
1271	rc = VERR_NO_MEMORY;
1272	close(fd);
1273	}
1274	else
1275	rc = RTErrConvertFromErrno(rc);
1276
1277	return rc;
1278	}
1279
1280
1281	/**
1282	* Resume all threads of this process.
1283	*
1284	* @param pSolCore Pointer to the core object.
1285	*
1286	* @return IPRT status code..
1287	*/
1288	static int rtCoreDumperResumeThreads(PRTSOLCORE pSolCore)
1289	{
1290	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1291
1292	uint64_t cThreads;
1293	return rtCoreDumperForEachThread(pSolCore, &cThreads, resumeThread);
1294	}
1295
1296
1297	/**
1298	* Stop all running threads of this process except the current one.
1299	*
1300	* @param pSolCore Pointer to the core object.
1301	*
1302	* @return IPRT status code.
1303	*/
1304	static int rtCoreDumperSuspendThreads(PRTSOLCORE pSolCore)
1305	{
1306	AssertPtrReturn(pSolCore, VERR_INVALID_POINTER);
1307
1308	/*
1309	* This function tries to ensures while we suspend threads, no newly spawned threads
1310	* or a combination of spawning and terminating threads can cause any threads to be left running.
1311	* The assumption here is that threads can only increase not decrease across iterations.
1312	*/
1313	uint16_t cTries = 0;
1314	uint64_t aThreads[4];
1315	RT_ZERO(aThreads);
1316	int rc = VERR_GENERAL_FAILURE;
1317	void *pv = NULL;
1318	size_t cb = 0;
1319	for (cTries = 0; cTries < RT_ELEMENTS(aThreads); cTries++)
1320	{
1321	rc = rtCoreDumperForEachThread(pSolCore, &aThreads[cTries], suspendThread);
1322	if (RT_FAILURE(rc))
1323	break;
1324	}
1325	if ( RT_SUCCESS(rc)
1326	&& aThreads[cTries - 1] != aThreads[cTries - 2])
1327	{
1328	CORELOGRELSYS((CORELOG_NAME "rtCoreDumperSuspendThreads: possible thread bomb!?\n"));
1329	rc = VERR_TIMEOUT;
1330	}
1331	return rc;
1332	}
1333
1334
1335	/**
1336	* Returns size of an ELF NOTE header given the size of data the NOTE section will contain.
1337	*
1338	* @param cb Size of the data.
1339	*
1340	* @return Size of data actually used for NOTE header and section.
1341	*/
1342	static inline size_t ElfNoteHeaderSize(size_t cb)
1343	{
1344	return sizeof(ELFNOTEHDR) + RT_ALIGN_Z(cb, 4);
1345	}
1346
1347
1348	/**
1349	* Write an ELF NOTE header into the core file.
1350	*
1351	* @param pSolCore Pointer to the core object.
1352	* @param Type Type of this NOTE section.
1353	* @param pcv Opaque pointer to the data, if NULL only computes size.
1354	* @param cb Size of the data.
1355	*
1356	* @return IPRT status code.
1357	*/
1358	static int ElfWriteNoteHeader(PRTSOLCORE pSolCore, uint_t Type, const void *pcv, size_t cb)
1359	{
1360	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1361	AssertReturn(pcv, VERR_INVALID_POINTER);
1362	AssertReturn(cb > 0, VERR_NO_DATA);
1363	AssertReturn(pSolCore->pfnWriter, VERR_WRITE_ERROR);
1364	AssertReturn(pSolCore->fdCoreFile >= 0, VERR_INVALID_HANDLE);
1365
1366	int rc = VERR_GENERAL_FAILURE;
1367	#ifdef RT_OS_SOLARIS
1368	ELFNOTEHDR ElfNoteHdr;
1369	RT_ZERO(ElfNoteHdr);
1370	ElfNoteHdr.achName[0] = 'C';
1371	ElfNoteHdr.achName[1] = 'O';
1372	ElfNoteHdr.achName[2] = 'R';
1373	ElfNoteHdr.achName[3] = 'E';
1374
1375	/*
1376	* This is a known violation of the 64-bit ELF spec., see xTracker @bugref{5211}
1377	* for the historic reasons as to the padding and 'namesz' anomalies.
1378	*/
1379	static const char s_achPad[3] = { 0, 0, 0 };
1380	size_t cbAlign = RT_ALIGN_Z(cb, 4);
1381	ElfNoteHdr.Hdr.n_namesz = 5;
1382	ElfNoteHdr.Hdr.n_type = Type;
1383	ElfNoteHdr.Hdr.n_descsz = cbAlign;
1384
1385	/*
1386	* Write note header and description.
1387	*/
1388	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &ElfNoteHdr, sizeof(ElfNoteHdr));
1389	if (RT_SUCCESS(rc))
1390	{
1391	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, pcv, cb);
1392	if (RT_SUCCESS(rc))
1393	{
1394	if (cbAlign > cb)
1395	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, s_achPad, cbAlign - cb);
1396	}
1397	}
1398
1399	if (RT_FAILURE(rc))
1400	CORELOGRELSYS((CORELOG_NAME "ElfWriteNote: pfnWriter failed. Type=%d rc=%Rrc\n", Type, rc));
1401	#else
1402	#error Port Me!
1403	#endif
1404	return rc;
1405	}
1406
1407
1408	/**
1409	* Computes the size of NOTE section for the given core type.
1410	* Solaris has two types of program header information (new and old).
1411	*
1412	* @param pSolCore Pointer to the core object.
1413	* @param enmType Type of core file information required.
1414	*
1415	* @return Size of NOTE section.
1416	*/
1417	static size_t ElfNoteSectionSize(PRTSOLCORE pSolCore, RTSOLCORETYPE enmType)
1418	{
1419	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1420	size_t cb = 0;
1421	switch (enmType)
1422	{
1423	case enmOldEra:
1424	{
1425	cb += ElfNoteHeaderSize(sizeof(prpsinfo_t));
1426	cb += ElfNoteHeaderSize(pSolProc->cAuxVecs * sizeof(auxv_t));
1427	cb += ElfNoteHeaderSize(strlen(pSolProc->szPlatform));
1428
1429	PRTSOLCORETHREADINFO pThreadInfo = pSolProc->pThreadInfoHead;
1430	while (pThreadInfo)
1431	{
1432	if (pThreadInfo->pStatus)
1433	{
1434	cb += ElfNoteHeaderSize(sizeof(prstatus_t));
1435	cb += ElfNoteHeaderSize(sizeof(prfpregset_t));
1436	}
1437	pThreadInfo = pThreadInfo->pNext;
1438	}
1439
1440	break;
1441	}
1442
1443	case enmNewEra:
1444	{
1445	cb += ElfNoteHeaderSize(sizeof(psinfo_t));
1446	cb += ElfNoteHeaderSize(sizeof(pstatus_t));
1447	cb += ElfNoteHeaderSize(pSolProc->cAuxVecs * sizeof(auxv_t));
1448	cb += ElfNoteHeaderSize(strlen(pSolProc->szPlatform) + 1);
1449	cb += ElfNoteHeaderSize(sizeof(struct utsname));
1450	cb += ElfNoteHeaderSize(sizeof(core_content_t));
1451	cb += ElfNoteHeaderSize(pSolProc->cbCred);
1452
1453	if (pSolProc->pPriv)
1454	cb += ElfNoteHeaderSize(PRIV_PRPRIV_SIZE(pSolProc->pPriv)); /* Ought to be same as cbPriv!? */
1455
1456	if (pSolProc->pcPrivImpl)
1457	cb += ElfNoteHeaderSize(PRIV_IMPL_INFO_SIZE(pSolProc->pcPrivImpl));
1458
1459	cb += ElfNoteHeaderSize(strlen(pSolProc->szZoneName) + 1);
1460	if (pSolProc->cbLdt > 0)
1461	cb += ElfNoteHeaderSize(pSolProc->cbLdt);
1462
1463	PRTSOLCORETHREADINFO pThreadInfo = pSolProc->pThreadInfoHead;
1464	while (pThreadInfo)
1465	{
1466	cb += ElfNoteHeaderSize(sizeof(lwpsinfo_t));
1467	if (pThreadInfo->pStatus)
1468	cb += ElfNoteHeaderSize(sizeof(lwpstatus_t));
1469
1470	pThreadInfo = pThreadInfo->pNext;
1471	}
1472
1473	break;
1474	}
1475
1476	default:
1477	{
1478	CORELOGRELSYS((CORELOG_NAME "ElfNoteSectionSize: Unknown segment era %d\n", enmType));
1479	break;
1480	}
1481	}
1482
1483	return cb;
1484	}
1485
1486
1487	/**
1488	* Write the note section for the given era into the core file.
1489	* Solaris has two types of program header information (new and old).
1490	*
1491	* @param pSolCore Pointer to the core object.
1492	* @param enmType Type of core file information required.
1493	*
1494	* @return IPRT status code.
1495	*/
1496	static int ElfWriteNoteSection(PRTSOLCORE pSolCore, RTSOLCORETYPE enmType)
1497	{
1498	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1499
1500	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1501	int rc = VERR_GENERAL_FAILURE;
1502
1503	#ifdef RT_OS_SOLARIS
1504	typedef int (PFNELFWRITENOTEHDR)(PRTSOLCORE pSolCore, uint_t, const void pcv, size_t cb);
1505	typedef struct ELFWRITENOTE
1506	{
1507	const char *pszType;
1508	uint_t Type;
1509	const void *pcv;
1510	size_t cb;
1511	} ELFWRITENOTE;
1512
1513	switch (enmType)
1514	{
1515	case enmOldEra:
1516	{
1517	ELFWRITENOTE aElfNotes[] =
1518	{
1519	{ "NT_PRPSINFO", NT_PRPSINFO, &pSolProc->ProcInfoOld, sizeof(prpsinfo_t) },
1520	{ "NT_AUXV", NT_AUXV, pSolProc->pAuxVecs, pSolProc->cAuxVecs * sizeof(auxv_t) },
1521	{ "NT_PLATFORM", NT_PLATFORM, pSolProc->szPlatform, strlen(pSolProc->szPlatform) + 1 }
1522	};
1523
1524	for (unsigned i = 0; i < RT_ELEMENTS(aElfNotes); i++)
1525	{
1526	rc = ElfWriteNoteHeader(pSolCore, aElfNotes[i].Type, aElfNotes[i].pcv, aElfNotes[i].cb);
1527	if (RT_FAILURE(rc))
1528	{
1529	CORELOGRELSYS((CORELOG_NAME "ElfWriteNoteSection: ElfWriteNoteHeader failed for %s. rc=%Rrc\n",
1530	aElfNotes[i].pszType, rc));
1531	break;
1532	}
1533	}
1534
1535	/*
1536	* Write old-style thread info., they contain nothing about zombies,
1537	* so we just skip if there is no status information for them.
1538	*/
1539	PRTSOLCORETHREADINFO pThreadInfo = pSolProc->pThreadInfoHead;
1540	for (; pThreadInfo; pThreadInfo = pThreadInfo->pNext)
1541	{
1542	if (!pThreadInfo->pStatus)
1543	continue;
1544
1545	prstatus_t OldProcessStatus;
1546	GetOldProcessStatus(pSolCore, &pThreadInfo->Info, pThreadInfo->pStatus, &OldProcessStatus);
1547	rc = ElfWriteNoteHeader(pSolCore, NT_PRSTATUS, &OldProcessStatus, sizeof(prstatus_t));
1548	if (RT_SUCCESS(rc))
1549	{
1550	rc = ElfWriteNoteHeader(pSolCore, NT_PRFPREG, &pThreadInfo->pStatus->pr_fpreg, sizeof(prfpregset_t));
1551	if (RT_FAILURE(rc))
1552	{
1553	CORELOGRELSYS((CORELOG_NAME "ElfWriteSegment: ElfWriteNote failed for NT_PRFPREF. rc=%Rrc\n", rc));
1554	break;
1555	}
1556	}
1557	else
1558	{
1559	CORELOGRELSYS((CORELOG_NAME "ElfWriteSegment: ElfWriteNote failed for NT_PRSTATUS. rc=%Rrc\n", rc));
1560	break;
1561	}
1562	}
1563	break;
1564	}
1565
1566	case enmNewEra:
1567	{
1568	ELFWRITENOTE aElfNotes[] =
1569	{
1570	{ "NT_PSINFO", NT_PSINFO, pSolProc->pvProcInfo, pSolProc->cbProcInfo },
1571	{ "NT_PSTATUS", NT_PSTATUS, &pSolProc->ProcStatus, sizeof(pstatus_t) },
1572	{ "NT_AUXV", NT_AUXV, pSolProc->pAuxVecs, pSolProc->cAuxVecs * sizeof(auxv_t) },
1573	{ "NT_PLATFORM", NT_PLATFORM, pSolProc->szPlatform, strlen(pSolProc->szPlatform) + 1 },
1574	{ "NT_UTSNAME", NT_UTSNAME, &pSolProc->UtsName, sizeof(struct utsname) },
1575	{ "NT_CONTENT", NT_CONTENT, &pSolProc->CoreContent, sizeof(core_content_t) },
1576	{ "NT_PRCRED", NT_PRCRED, pSolProc->pvCred, pSolProc->cbCred },
1577	{ "NT_PRPRIV", NT_PRPRIV, pSolProc->pPriv, PRIV_PRPRIV_SIZE(pSolProc->pPriv) },
1578	{ "NT_PRPRIVINFO", NT_PRPRIVINFO, pSolProc->pcPrivImpl, PRIV_IMPL_INFO_SIZE(pSolProc->pcPrivImpl) },
1579	{ "NT_ZONENAME", NT_ZONENAME, pSolProc->szZoneName, strlen(pSolProc->szZoneName) + 1 }
1580	};
1581
1582	for (unsigned i = 0; i < RT_ELEMENTS(aElfNotes); i++)
1583	{
1584	rc = ElfWriteNoteHeader(pSolCore, aElfNotes[i].Type, aElfNotes[i].pcv, aElfNotes[i].cb);
1585	if (RT_FAILURE(rc))
1586	{
1587	CORELOGRELSYS((CORELOG_NAME "ElfWriteNoteSection: ElfWriteNoteHeader failed for %s. rc=%Rrc\n",
1588	aElfNotes[i].pszType, rc));
1589	break;
1590	}
1591	}
1592
1593	/*
1594	* Write new-style thread info., missing lwpstatus_t indicates it's a zombie thread
1595	* we only dump the lwpsinfo_t in that case.
1596	*/
1597	PRTSOLCORETHREADINFO pThreadInfo = pSolProc->pThreadInfoHead;
1598	for (; pThreadInfo; pThreadInfo = pThreadInfo->pNext)
1599	{
1600	rc = ElfWriteNoteHeader(pSolCore, NT_LWPSINFO, &pThreadInfo->Info, sizeof(lwpsinfo_t));
1601	if (RT_FAILURE(rc))
1602	{
1603	CORELOGRELSYS((CORELOG_NAME "ElfWriteNoteSection: ElfWriteNoteHeader for NT_LWPSINFO failed. rc=%Rrc\n", rc));
1604	break;
1605	}
1606
1607	if (pThreadInfo->pStatus)
1608	{
1609	rc = ElfWriteNoteHeader(pSolCore, NT_LWPSTATUS, pThreadInfo->pStatus, sizeof(lwpstatus_t));
1610	if (RT_FAILURE(rc))
1611	{
1612	CORELOGRELSYS((CORELOG_NAME "ElfWriteNoteSection: ElfWriteNoteHeader for NT_LWPSTATUS failed. rc=%Rrc\n",
1613	rc));
1614	break;
1615	}
1616	}
1617	}
1618	break;
1619	}
1620
1621	default:
1622	{
1623	CORELOGRELSYS((CORELOG_NAME "ElfWriteNoteSection: Invalid type %d\n", enmType));
1624	rc = VERR_GENERAL_FAILURE;
1625	break;
1626	}
1627	}
1628	#else
1629	# error Port Me!
1630	#endif
1631	return rc;
1632	}
1633
1634
1635	/**
1636	* Write mappings into the core file.
1637	*
1638	* @param pSolCore Pointer to the core object.
1639	*
1640	* @return IPRT status code.
1641	*/
1642	static int ElfWriteMappings(PRTSOLCORE pSolCore)
1643	{
1644	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1645
1646	int rc = VERR_GENERAL_FAILURE;
1647	PRTSOLCOREMAPINFO pMapInfo = pSolProc->pMapInfoHead;
1648	while (pMapInfo)
1649	{
1650	if (!pMapInfo->fError)
1651	{
1652	uint64_t k = 0;
1653	char achBuf[PAGE_SIZE];
1654	while (k < pMapInfo->pMap.pr_size)
1655	{
1656	size_t cb = RT_MIN(sizeof(achBuf), pMapInfo->pMap.pr_size - k);
1657	int rc2 = ProcReadAddrSpace(pSolProc, pMapInfo->pMap.pr_vaddr + k, &achBuf, cb);
1658	if (RT_FAILURE(rc2))
1659	{
1660	CORELOGRELSYS((CORELOG_NAME "ElfWriteMappings: Failed to read mapping, can't recover. Bye. rc=%Rrc\n", rc));
1661	return VERR_INVALID_STATE;
1662	}
1663
1664	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, achBuf, sizeof(achBuf));
1665	if (RT_FAILURE(rc))
1666	{
1667	CORELOGRELSYS((CORELOG_NAME "ElfWriteMappings: pfnWriter failed. rc=%Rrc\n", rc));
1668	return rc;
1669	}
1670	k += cb;
1671	}
1672	}
1673	else
1674	{
1675	char achBuf[RT_ALIGN_Z(sizeof(int), 8)];
1676	RT_ZERO(achBuf);
1677	memcpy(achBuf, &pMapInfo->fError, sizeof(pMapInfo->fError));
1678	if (sizeof(achBuf) != pMapInfo->pMap.pr_size)
1679	CORELOGRELSYS((CORELOG_NAME "ElfWriteMappings: Huh!? something is wrong!\n"));
1680	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &achBuf, sizeof(achBuf));
1681	if (RT_FAILURE(rc))
1682	{
1683	CORELOGRELSYS((CORELOG_NAME "ElfWriteMappings: pfnWriter(2) failed. rc=%Rrc\n", rc));
1684	return rc;
1685	}
1686	}
1687
1688	pMapInfo = pMapInfo->pNext;
1689	}
1690
1691	return VINF_SUCCESS;
1692	}
1693
1694
1695	/**
1696	* Write program headers for all mappings into the core file.
1697	*
1698	* @param pSolCore Pointer to the core object.
1699	*
1700	* @return IPRT status code.
1701	*/
1702	static int ElfWriteMappingHeaders(PRTSOLCORE pSolCore)
1703	{
1704	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1705
1706	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1707	Elf_Phdr ProgHdr;
1708	RT_ZERO(ProgHdr);
1709	ProgHdr.p_type = PT_LOAD;
1710
1711	int rc = VERR_GENERAL_FAILURE;
1712	PRTSOLCOREMAPINFO pMapInfo = pSolProc->pMapInfoHead;
1713	while (pMapInfo)
1714	{
1715	ProgHdr.p_vaddr = pMapInfo->pMap.pr_vaddr; /* Virtual address of this mapping in the process address space */
1716	ProgHdr.p_offset = pSolCore->offWrite; /* Where this mapping is located in the core file */
1717	ProgHdr.p_memsz = pMapInfo->pMap.pr_size; /* Size of the memory image of the mapping */
1718	ProgHdr.p_filesz = pMapInfo->pMap.pr_size; /* Size of the file image of the mapping */
1719
1720	ProgHdr.p_flags = 0; /* Reset fields in a loop when needed! */
1721	if (pMapInfo->pMap.pr_mflags & MA_READ)
1722	ProgHdr.p_flags \|= PF_R;
1723	if (pMapInfo->pMap.pr_mflags & MA_WRITE)
1724	ProgHdr.p_flags \|= PF_W;
1725	if (pMapInfo->pMap.pr_mflags & MA_EXEC)
1726	ProgHdr.p_flags \|= PF_X;
1727
1728	if (pMapInfo->fError)
1729	ProgHdr.p_flags \|= PF_SUNW_FAILURE;
1730
1731	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &ProgHdr, sizeof(ProgHdr));
1732	if (RT_FAILURE(rc))
1733	{
1734	CORELOGRELSYS((CORELOG_NAME "ElfWriteMappingHeaders: pfnWriter failed. rc=%Rrc\n", rc));
1735	return rc;
1736	}
1737
1738	pSolCore->offWrite += ProgHdr.p_filesz;
1739	pMapInfo = pMapInfo->pNext;
1740	}
1741	return rc;
1742	}
1743
1744	/**
1745	* Inner worker for rtCoreDumperWriteCore, which purpose is to
1746	* squash cleanup gotos.
1747	*/
1748	static int rtCoreDumperWriteCoreDoIt(PRTSOLCORE pSolCore, PFNRTCOREWRITER pfnWriter,
1749	PRTSOLCOREPROCESS pSolProc)
1750	{
1751	pSolCore->offWrite = 0;
1752	uint32_t cProgHdrs = pSolProc->cMappings + 2; /* two PT_NOTE program headers (old, new style) */
1753
1754	/*
1755	* Write the ELF header.
1756	*/
1757	Elf_Ehdr ElfHdr;
1758	RT_ZERO(ElfHdr);
1759	ElfHdr.e_ident[EI_MAG0] = ELFMAG0;
1760	ElfHdr.e_ident[EI_MAG1] = ELFMAG1;
1761	ElfHdr.e_ident[EI_MAG2] = ELFMAG2;
1762	ElfHdr.e_ident[EI_MAG3] = ELFMAG3;
1763	ElfHdr.e_ident[EI_DATA] = IsBigEndian() ? ELFDATA2MSB : ELFDATA2LSB;
1764	ElfHdr.e_type = ET_CORE;
1765	ElfHdr.e_version = EV_CURRENT;
1766	#ifdef RT_ARCH_AMD64
1767	ElfHdr.e_machine = EM_AMD64;
1768	ElfHdr.e_ident[EI_CLASS] = ELFCLASS64;
1769	#else
1770	ElfHdr.e_machine = EM_386;
1771	ElfHdr.e_ident[EI_CLASS] = ELFCLASS32;
1772	#endif
1773	if (cProgHdrs >= PN_XNUM)
1774	ElfHdr.e_phnum = PN_XNUM;
1775	else
1776	ElfHdr.e_phnum = cProgHdrs;
1777	ElfHdr.e_ehsize = sizeof(ElfHdr);
1778	ElfHdr.e_phoff = sizeof(ElfHdr);
1779	ElfHdr.e_phentsize = sizeof(Elf_Phdr);
1780	ElfHdr.e_shentsize = sizeof(Elf_Shdr);
1781	int rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &ElfHdr, sizeof(ElfHdr));
1782	if (RT_FAILURE(rc))
1783	{
1784	CORELOGRELSYS((CORELOG_NAME "WriteCore: pfnWriter failed writing ELF header. rc=%Rrc\n", rc));
1785	return rc;
1786	}
1787
1788	/*
1789	* Setup program header.
1790	*/
1791	Elf_Phdr ProgHdr;
1792	RT_ZERO(ProgHdr);
1793	ProgHdr.p_type = PT_NOTE;
1794	ProgHdr.p_flags = PF_R;
1795
1796	/*
1797	* Write old-style NOTE program header.
1798	*/
1799	pSolCore->offWrite += sizeof(ElfHdr) + cProgHdrs * sizeof(ProgHdr);
1800	ProgHdr.p_offset = pSolCore->offWrite;
1801	ProgHdr.p_filesz = ElfNoteSectionSize(pSolCore, enmOldEra);
1802	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &ProgHdr, sizeof(ProgHdr));
1803	if (RT_FAILURE(rc))
1804	{
1805	CORELOGRELSYS((CORELOG_NAME "WriteCore: pfnWriter failed writing old-style ELF program Header. rc=%Rrc\n", rc));
1806	return rc;
1807	}
1808
1809	/*
1810	* Write new-style NOTE program header.
1811	*/
1812	pSolCore->offWrite += ProgHdr.p_filesz;
1813	ProgHdr.p_offset = pSolCore->offWrite;
1814	ProgHdr.p_filesz = ElfNoteSectionSize(pSolCore, enmNewEra);
1815	rc = pSolCore->pfnWriter(pSolCore->fdCoreFile, &ProgHdr, sizeof(ProgHdr));
1816	if (RT_FAILURE(rc))
1817	{
1818	CORELOGRELSYS((CORELOG_NAME "WriteCore: pfnWriter failed writing new-style ELF program header. rc=%Rrc\n", rc));
1819	return rc;
1820	}
1821
1822	/*
1823	* Write program headers per mapping.
1824	*/
1825	pSolCore->offWrite += ProgHdr.p_filesz;
1826	rc = ElfWriteMappingHeaders(pSolCore);
1827	if (RT_FAILURE(rc))
1828	{
1829	CORELOGRELSYS((CORELOG_NAME "Write: ElfWriteMappings failed. rc=%Rrc\n", rc));
1830	return rc;
1831	}
1832
1833	/*
1834	* Write old-style note section.
1835	*/
1836	rc = ElfWriteNoteSection(pSolCore, enmOldEra);
1837	if (RT_FAILURE(rc))
1838	{
1839	CORELOGRELSYS((CORELOG_NAME "WriteCore: ElfWriteNoteSection old-style failed. rc=%Rrc\n", rc));
1840	return rc;
1841	}
1842
1843	/*
1844	* Write new-style section.
1845	*/
1846	rc = ElfWriteNoteSection(pSolCore, enmNewEra);
1847	if (RT_FAILURE(rc))
1848	{
1849	CORELOGRELSYS((CORELOG_NAME "WriteCore: ElfWriteNoteSection new-style failed. rc=%Rrc\n", rc));
1850	return rc;
1851	}
1852
1853	/*
1854	* Write all mappings.
1855	*/
1856	rc = ElfWriteMappings(pSolCore);
1857	if (RT_FAILURE(rc))
1858	{
1859	CORELOGRELSYS((CORELOG_NAME "WriteCore: ElfWriteMappings failed. rc=%Rrc\n", rc));
1860	return rc;
1861	}
1862
1863	return rc;
1864	}
1865
1866
1867	/**
1868	* Write a prepared core file using a user-passed in writer function, requires all threads
1869	* to be in suspended state (i.e. called after CreateCore).
1870	*
1871	* @return IPRT status code.
1872	* @param pSolCore Pointer to the core object.
1873	* @param pfnWriter Pointer to the writer function to override default writer (NULL uses default).
1874	*
1875	* @remarks Resumes all suspended threads, unless it's an invalid core. This
1876	* function must be called only -after- rtCoreDumperCreateCore().
1877	*/
1878	static int rtCoreDumperWriteCore(PRTSOLCORE pSolCore, PFNRTCOREWRITER pfnWriter)
1879	{
1880	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1881
1882	if (!pSolCore->fIsValid)
1883	return VERR_INVALID_STATE;
1884
1885	if (pfnWriter)
1886	pSolCore->pfnWriter = pfnWriter;
1887
1888	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1889	char szPath[PATH_MAX];
1890	int rc;
1891
1892	/*
1893	* Open the process address space file.
1894	*/
1895	RTStrPrintf(szPath, sizeof(szPath), "/proc/%d/as", (int)pSolProc->Process);
1896	int fd = open(szPath, O_RDONLY);
1897	if (fd >= 0)
1898	{
1899	pSolProc->fdAs = fd;
1900
1901	/*
1902	* Create the core file.
1903	*/
1904	fd = open(pSolCore->szCorePath, O_CREAT \| O_TRUNC \| O_RDWR, S_IRUSR);
1905	if (fd >= 0)
1906	{
1907	pSolCore->fdCoreFile = fd;
1908
1909	/*
1910	* Do the actual writing.
1911	*/
1912	rc = rtCoreDumperWriteCoreDoIt(pSolCore, pfnWriter, pSolProc);
1913
1914	close(pSolCore->fdCoreFile);
1915	pSolCore->fdCoreFile = -1;
1916	}
1917	else
1918	{
1919	rc = RTErrConvertFromErrno(fd);
1920	CORELOGRELSYS((CORELOG_NAME "WriteCore: failed to open %s. rc=%Rrc\n", pSolCore->szCorePath, rc));
1921	}
1922	close(pSolProc->fdAs);
1923	pSolProc->fdAs = -1;
1924	}
1925	else
1926	{
1927	rc = RTErrConvertFromErrno(fd);
1928	CORELOGRELSYS((CORELOG_NAME "WriteCore: Failed to open address space, %s. rc=%Rrc\n", szPath, rc));
1929	}
1930
1931	rtCoreDumperResumeThreads(pSolCore);
1932	return rc;
1933	}
1934
1935
1936	/**
1937	* Takes a process snapshot into a passed-in core object. It has the side-effect of halting
1938	* all threads which can lead to things like spurious wakeups of threads (if and when threads
1939	* are ultimately resumed en-masse) already suspended while calling this function.
1940	*
1941	* @return IPRT status code.
1942	* @param pSolCore Pointer to a core object.
1943	* @param pContext Pointer to the caller context thread.
1944	* @param pszCoreFilePath Path to the core file. If NULL is passed, the global
1945	* path specified in RTCoreDumperSetup() would be used.
1946	*
1947	* @remarks Halts all threads.
1948	*/
1949	static int rtCoreDumperCreateCore(PRTSOLCORE pSolCore, ucontext_t pContext, const char pszCoreFilePath)
1950	{
1951	AssertReturn(pSolCore, VERR_INVALID_POINTER);
1952	AssertReturn(pContext, VERR_INVALID_POINTER);
1953
1954	/*
1955	* Initialize core structures.
1956	*/
1957	memset(pSolCore, 0, sizeof(RTSOLCORE));
1958	pSolCore->pfnReader = &ReadFileNoIntr;
1959	pSolCore->pfnWriter = &WriteFileNoIntr;
1960	pSolCore->fIsValid = false;
1961	pSolCore->fdCoreFile = -1;
1962
1963	PRTSOLCOREPROCESS pSolProc = &pSolCore->SolProc;
1964	pSolProc->Process = RTProcSelf();
1965	pSolProc->hCurThread = _lwp_self(); /* thr_self() */
1966	pSolProc->fdAs = -1;
1967	pSolProc->pCurThreadCtx = pContext;
1968	pSolProc->CoreContent = CC_CONTENT_DEFAULT;
1969
1970	RTProcGetExecutablePath(pSolProc->szExecPath, sizeof(pSolProc->szExecPath)); /* this gets full path not just name */
1971	pSolProc->pszExecName = RTPathFilename(pSolProc->szExecPath);
1972
1973	/*
1974	* If a path has been specified, use it. Otherwise use the global path.
1975	*/
1976	if (!pszCoreFilePath)
1977	{
1978	/*
1979	* If no output directory is specified, use current directory.
1980	*/
1981	if (g_szCoreDumpDir[0] == '\0')
1982	g_szCoreDumpDir[0] = '.';
1983
1984	if (g_szCoreDumpFile[0] == '\0')
1985	{
1986	/* We cannot call RTPathAbs() as they call getcwd() which calls malloc. /
1987	RTStrPrintf(pSolCore->szCorePath, sizeof(pSolCore->szCorePath), "%s/core.vb.%s.%d",
1988	g_szCoreDumpDir, pSolProc->pszExecName, (int)pSolProc->Process);
1989	}
1990	else
1991	RTStrPrintf(pSolCore->szCorePath, sizeof(pSolCore->szCorePath), "%s/core.vb.%s", g_szCoreDumpDir, g_szCoreDumpFile);
1992	}
1993	else
1994	RTStrCopy(pSolCore->szCorePath, sizeof(pSolCore->szCorePath), pszCoreFilePath);
1995
1996	CORELOG((CORELOG_NAME "CreateCore: Taking Core %s from Thread %d\n", pSolCore->szCorePath, (int)pSolProc->hCurThread));
1997
1998	/*
1999	* Quiesce the process.
2000	*/
2001	int rc = rtCoreDumperSuspendThreads(pSolCore);
2002	if (RT_SUCCESS(rc))
2003	{
2004	rc = AllocMemoryArea(pSolCore);
2005	if (RT_SUCCESS(rc))
2006	{
2007	rc = ProcReadInfo(pSolCore);
2008	if (RT_SUCCESS(rc))
2009	{
2010	rc = GetOldProcessInfo(pSolCore, &pSolProc->ProcInfoOld);
2011	if (RT_SUCCESS(rc))
2012	{
2013	if (IsProcessArchNative(pSolProc))
2014	{
2015	/*
2016	* Read process status, information such as number of active LWPs will be
2017	* invalid since we just quiesced the process.
2018	*/
2019	rc = ProcReadStatus(pSolCore);
2020	if (RT_SUCCESS(rc))
2021	{
2022	struct COREACCUMULATOR
2023	{
2024	const char *pszName;
2025	PFNRTSOLCOREACCUMULATOR pfnAcc;
2026	bool fOptional;
2027	} aAccumulators[] =
2028	{
2029	{ "ProcReadLdt", &ProcReadLdt, false },
2030	{ "ProcReadCred", &ProcReadCred, false },
2031	{ "ProcReadPriv", &ProcReadPriv, false },
2032	{ "ProcReadAuxVecs", &ProcReadAuxVecs, false },
2033	{ "ProcReadMappings", &ProcReadMappings, false },
2034	{ "ProcReadThreads", &ProcReadThreads, false },
2035	{ "ProcReadMiscInfo", &ProcReadMiscInfo, false }
2036	};
2037
2038	for (unsigned i = 0; i < RT_ELEMENTS(aAccumulators); i++)
2039	{
2040	rc = aAccumulators[i].pfnAcc(pSolCore);
2041	if (RT_FAILURE(rc))
2042	{
2043	CORELOGRELSYS((CORELOG_NAME "CreateCore: %s failed. rc=%Rrc\n", aAccumulators[i].pszName, rc));
2044	if (!aAccumulators[i].fOptional)
2045	break;
2046	}
2047	}
2048
2049	if (RT_SUCCESS(rc))
2050	{
2051	pSolCore->fIsValid = true;
2052	return VINF_SUCCESS;
2053	}
2054
2055	FreeMemoryArea(pSolCore);
2056	}
2057	else
2058	CORELOGRELSYS((CORELOG_NAME "CreateCore: ProcReadStatus failed. rc=%Rrc\n", rc));
2059	}
2060	else
2061	{
2062	CORELOGRELSYS((CORELOG_NAME "CreateCore: IsProcessArchNative failed.\n"));
2063	rc = VERR_BAD_EXE_FORMAT;
2064	}
2065	}
2066	else
2067	CORELOGRELSYS((CORELOG_NAME "CreateCore: GetOldProcessInfo failed. rc=%Rrc\n", rc));
2068	}
2069	else
2070	CORELOGRELSYS((CORELOG_NAME "CreateCore: ProcReadInfo failed. rc=%Rrc\n", rc));
2071	}
2072	else
2073	CORELOGRELSYS((CORELOG_NAME "CreateCore: AllocMemoryArea failed. rc=%Rrc\n", rc));
2074
2075	/*
2076	* Resume threads on failure.
2077	*/
2078	rtCoreDumperResumeThreads(pSolCore);
2079	}
2080	else
2081	CORELOG((CORELOG_NAME "CreateCore: SuspendAllThreads failed. Thread bomb!?! rc=%Rrc\n", rc));
2082
2083	return rc;
2084	}
2085
2086
2087	/**
2088	* Destroy an existing core object.
2089	*
2090	* @param pSolCore Pointer to the core object.
2091	*
2092	* @return IPRT status code.
2093	*/
2094	static int rtCoreDumperDestroyCore(PRTSOLCORE pSolCore)
2095	{
2096	AssertReturn(pSolCore, VERR_INVALID_POINTER);
2097	if (!pSolCore->fIsValid)
2098	return VERR_INVALID_STATE;
2099
2100	FreeMemoryArea(pSolCore);
2101	pSolCore->fIsValid = false;
2102	return VINF_SUCCESS;
2103	}
2104
2105
2106	/**
2107	* Takes a core dump.
2108	*
2109	* @param pContext The context of the caller.
2110	* @param pszOutputFile Path of the core file. If NULL is passed, the
2111	* global path passed in RTCoreDumperSetup will
2112	* be used.
2113	* @returns IPRT status code.
2114	*/
2115	static int rtCoreDumperTakeDump(ucontext_t pContext, const char pszOutputFile)
2116	{
2117	if (!pContext)
2118	{
2119	CORELOGRELSYS((CORELOG_NAME "TakeDump: Missing context.\n"));
2120	return VERR_INVALID_POINTER;
2121	}
2122
2123	/*
2124	* Take a snapshot, then dump core to disk, all threads except this one are halted
2125	* from before taking the snapshot until writing the core is completely finished.
2126	* Any errors would resume all threads if they were halted.
2127	*/
2128	RTSOLCORE SolCore;
2129	RT_ZERO(SolCore);
2130	int rc = rtCoreDumperCreateCore(&SolCore, pContext, pszOutputFile);
2131	if (RT_SUCCESS(rc))
2132	{
2133	rc = rtCoreDumperWriteCore(&SolCore, &WriteFileNoIntr);
2134	if (RT_SUCCESS(rc))
2135	CORELOGRELSYS((CORELOG_NAME "Core dumped in %s\n", SolCore.szCorePath));
2136	else
2137	CORELOGRELSYS((CORELOG_NAME "TakeDump: WriteCore failed. szCorePath=%s rc=%Rrc\n", SolCore.szCorePath, rc));
2138
2139	rtCoreDumperDestroyCore(&SolCore);
2140	}
2141	else
2142	CORELOGRELSYS((CORELOG_NAME "TakeDump: CreateCore failed. rc=%Rrc\n", rc));
2143
2144	return rc;
2145	}
2146
2147
2148	/**
2149	* The signal handler that will be invoked to take core dumps.
2150	*
2151	* @param Sig The signal that invoked us.
2152	* @param pSigInfo The signal information.
2153	* @param pvArg Opaque pointer to the caller context structure,
2154	* this cannot be NULL.
2155	*/
2156	static void rtCoreDumperSignalHandler(int Sig, siginfo_t pSigInfo, void pvArg)
2157	{
2158	CORELOG((CORELOG_NAME "SignalHandler Sig=%d pvArg=%p\n", Sig, pvArg));
2159
2160	RTNATIVETHREAD hCurNativeThread = RTThreadNativeSelf();
2161	int rc = VERR_GENERAL_FAILURE;
2162	bool fCallSystemDump = false;
2163	bool fRc;
2164	ASMAtomicCmpXchgHandle(&g_CoreDumpThread, hCurNativeThread, NIL_RTNATIVETHREAD, fRc);
2165	if (fRc)
2166	{
2167	rc = rtCoreDumperTakeDump((ucontext_t )pvArg, NULL / Use Global Core filepath */);
2168	ASMAtomicWriteHandle(&g_CoreDumpThread, NIL_RTNATIVETHREAD);
2169
2170	if (RT_FAILURE(rc))
2171	CORELOGRELSYS((CORELOG_NAME "TakeDump failed! rc=%Rrc\n", rc));
2172	}
2173	else if (Sig == SIGSEGV \|\| Sig == SIGBUS \|\| Sig == SIGTRAP)
2174	{
2175	/*
2176	* Core dumping is already in progress and we've somehow ended up being
2177	* signalled again.
2178	*/
2179	rc = VERR_INTERNAL_ERROR;
2180
2181	/*
2182	* If our dumper has crashed. No point in waiting, trigger the system one.
2183	* Wait only when the dumping thread is not the one generating this signal.
2184	*/
2185	RTNATIVETHREAD hNativeDumperThread;
2186	ASMAtomicReadHandle(&g_CoreDumpThread, &hNativeDumperThread);
2187	if (hNativeDumperThread == RTThreadNativeSelf())
2188	{
2189	CORELOGRELSYS((CORELOG_NAME "SignalHandler: Core dumper (thread %u) crashed Sig=%d. Triggering system dump\n",
2190	RTThreadSelf(), Sig));
2191	fCallSystemDump = true;
2192	}
2193	else
2194	{
2195	/*
2196	* Some other thread in the process is triggering a crash, wait a while
2197	* to let our core dumper finish, on timeout trigger system dump.
2198	*/
2199	CORELOGRELSYS((CORELOG_NAME "SignalHandler: Core dump already in progress! Waiting a while for completion Sig=%d.\n",
2200	Sig));
2201	int64_t iTimeout = 16000; /* timeout (ms) */
2202	for (;;)
2203	{
2204	ASMAtomicReadHandle(&g_CoreDumpThread, &hNativeDumperThread);
2205	if (hNativeDumperThread == NIL_RTNATIVETHREAD)
2206	break;
2207	RTThreadSleep(200);
2208	iTimeout -= 200;
2209	if (iTimeout <= 0)
2210	break;
2211	}
2212	if (iTimeout <= 0)
2213	{
2214	fCallSystemDump = true;
2215	CORELOGRELSYS((CORELOG_NAME "SignalHandler: Core dumper seems to be stuck. Signalling new signal %d\n", Sig));
2216	}
2217	}
2218	}
2219
2220	if (Sig == SIGSEGV \|\| Sig == SIGBUS \|\| Sig == SIGTRAP)
2221	{
2222	/*
2223	* Reset signal handlers, we're not a live core we will be blown away
2224	* one way or another.
2225	*/
2226	signal(SIGSEGV, SIG_DFL);
2227	signal(SIGBUS, SIG_DFL);
2228	signal(SIGTRAP, SIG_DFL);
2229
2230	/*
2231	* Hard terminate the process if this is not a live dump without invoking
2232	* the system core dumping behaviour.
2233	*/
2234	if (RT_SUCCESS(rc))
2235	raise(SIGKILL);
2236
2237	/*
2238	* Something went wrong, fall back to the system core dumper.
2239	*/
2240	if (fCallSystemDump)
2241	abort();
2242	}
2243	}
2244
2245
2246	RTDECL(int) RTCoreDumperTakeDump(const char *pszOutputFile, bool fLiveCore)
2247	{
2248	ucontext_t Context;
2249	int rc = getcontext(&Context);
2250	if (!rc)
2251	{
2252	/*
2253	* Block SIGSEGV and co. while we write the core.
2254	*/
2255	sigset_t SigSet, OldSigSet;
2256	sigemptyset(&SigSet);
2257	sigaddset(&SigSet, SIGSEGV);
2258	sigaddset(&SigSet, SIGBUS);
2259	sigaddset(&SigSet, SIGTRAP);
2260	sigaddset(&SigSet, SIGUSR2);
2261	pthread_sigmask(SIG_BLOCK, &SigSet, &OldSigSet);
2262	rc = rtCoreDumperTakeDump(&Context, pszOutputFile);
2263	if (RT_FAILURE(rc))
2264	CORELOGRELSYS(("RTCoreDumperTakeDump: rtCoreDumperTakeDump failed rc=%Rrc\n", rc));
2265
2266	if (!fLiveCore)
2267	{
2268	signal(SIGSEGV, SIG_DFL);
2269	signal(SIGBUS, SIG_DFL);
2270	signal(SIGTRAP, SIG_DFL);
2271	if (RT_SUCCESS(rc))
2272	raise(SIGKILL);
2273	else
2274	abort();
2275	}
2276	pthread_sigmask(SIG_SETMASK, &OldSigSet, NULL);
2277	}
2278	else
2279	{
2280	CORELOGRELSYS(("RTCoreDumperTakeDump: getcontext failed rc=%d.\n", rc));
2281	rc = VERR_INVALID_CONTEXT;
2282	}
2283
2284	return rc;
2285	}
2286
2287
2288	RTDECL(int) RTCoreDumperSetup(const char *pszOutputDir, uint32_t fFlags)
2289	{
2290	/*
2291	* Validate flags.
2292	*/
2293	AssertReturn(fFlags, VERR_INVALID_PARAMETER);
2294	AssertReturn(!(fFlags & ~( RTCOREDUMPER_FLAGS_REPLACE_SYSTEM_DUMP
2295	\| RTCOREDUMPER_FLAGS_LIVE_CORE)),
2296	VERR_INVALID_PARAMETER);
2297
2298
2299	/*
2300	* Setup/change the core dump directory if specified.
2301	*/
2302	RT_ZERO(g_szCoreDumpDir);
2303	if (pszOutputDir)
2304	{
2305	if (!RTDirExists(pszOutputDir))
2306	return VERR_NOT_A_DIRECTORY;
2307	RTStrCopy(g_szCoreDumpDir, sizeof(g_szCoreDumpDir), pszOutputDir);
2308	}
2309
2310	/*
2311	* Install core dump signal handler only if the flags changed or if it's the first time.
2312	*/
2313	if ( ASMAtomicReadBool(&g_fCoreDumpSignalSetup) == false
2314	\|\| ASMAtomicReadU32(&g_fCoreDumpFlags) != fFlags)
2315	{
2316	struct sigaction sigAct;
2317	RT_ZERO(sigAct);
2318	sigAct.sa_sigaction = &rtCoreDumperSignalHandler;
2319
2320	if ( (fFlags & RTCOREDUMPER_FLAGS_REPLACE_SYSTEM_DUMP)
2321	&& !(g_fCoreDumpFlags & RTCOREDUMPER_FLAGS_REPLACE_SYSTEM_DUMP))
2322	{
2323	sigemptyset(&sigAct.sa_mask);
2324	sigAct.sa_flags = SA_RESTART \| SA_SIGINFO \| SA_NODEFER;
2325	sigaction(SIGSEGV, &sigAct, NULL);
2326	sigaction(SIGBUS, &sigAct, NULL);
2327	sigaction(SIGTRAP, &sigAct, NULL);
2328	}
2329
2330	if ( fFlags & RTCOREDUMPER_FLAGS_LIVE_CORE
2331	&& !(g_fCoreDumpFlags & RTCOREDUMPER_FLAGS_LIVE_CORE))
2332	{
2333	sigfillset(&sigAct.sa_mask); /* Block all signals while in it's signal handler */
2334	sigAct.sa_flags = SA_RESTART \| SA_SIGINFO;
2335	sigaction(SIGUSR2, &sigAct, NULL);
2336	}
2337
2338	ASMAtomicWriteU32(&g_fCoreDumpFlags, fFlags);
2339	ASMAtomicWriteBool(&g_fCoreDumpSignalSetup, true);
2340	}
2341
2342	return VINF_SUCCESS;
2343	}
2344
2345
2346	RTDECL(int) RTCoreDumperDisable(void)
2347	{
2348	/*
2349	* Remove core dump signal handler & reset variables.
2350	*/
2351	if (ASMAtomicReadBool(&g_fCoreDumpSignalSetup) == true)
2352	{
2353	signal(SIGSEGV, SIG_DFL);
2354	signal(SIGBUS, SIG_DFL);
2355	signal(SIGTRAP, SIG_DFL);
2356	signal(SIGUSR2, SIG_DFL);
2357	ASMAtomicWriteBool(&g_fCoreDumpSignalSetup, false);
2358	}
2359
2360	RT_ZERO(g_szCoreDumpDir);
2361	RT_ZERO(g_szCoreDumpFile);
2362	ASMAtomicWriteU32(&g_fCoreDumpFlags, 0);
2363	return VINF_SUCCESS;
2364	}
2365

Note: See TracBrowser for help on using the repository browser.

source: vbox/trunk/src/VBox/Runtime/r3/solaris/coredumper-solaris.cpp@ 77754

Download in other formats: