1 files changed, 41 insertions, 0 deletions
diff --git a/src/internal/perk_errinfo_impl.c b/src/internal/perk_errinfo_impl.c
new file mode 100644
index 0000000..df01b3b
--- /dev/null
+++ b/src/internal/perk_errinfo_impl.c
@@ -0,0 +1,41 @@
+/***************************************************************/
+/*  perk: PE Resource Kit                                      */
+/*  Copyright (C) 2015--2016  Z. Gilboa                        */
+/*  Released under GPLv2 and GPLv3; see COPYING.PERK.          */
+/***************************************************************/
+
+#include <perk/perk.h>
+#include "perk_driver_impl.h"
+#include "perk_errinfo_impl.h"
+
+int pe_record_error(
+	const struct pe_driver_ctx *	dctx,
+	int				syserror,
+	int				liberror,
+	const char *			function,
+	int				line,
+	unsigned			flags,
+	void *				ctx)
+{
+	struct pe_driver_ctx_impl *	ictx;
+	struct pe_error_info *		erri;
+
+	ictx = pe_get_driver_ictx(dctx);
+
+	if (ictx->errinfp == ictx->erricap)
+		return -1;
+
+	*ictx->errinfp = &ictx->erribuf[ictx->errinfp - ictx->erriptr];
+	erri = *ictx->errinfp;
+
+	erri->syserror = syserror;
+	erri->liberror = liberror;
+	erri->function = function;
+	erri->line     = line;
+	erri->flags    = flags;
+	erri->ctx      = ctx;
+
+	ictx->errinfp++;
+
+	return -1;
+}