For Windows dlls, allow extern data structure error_info to be accessed

by functions.

diff --git a/lib/ast/error.c b/lib/ast/error.c
index 6d3903db91cab2dc5392976d6b9e220451a8c21f..9c5a042bfe2bb24b3ea2b21423293367079ade33 100644 (file)
--- a/lib/ast/error.c
+++ b/lib/ast/error.c
@@ -18,6 +18,14 @@
  * standalone mini error implementation
  */
 
+#ifdef WIN32
+#include <config.h>
+
+#ifdef GVDLL
+#define _BLD_sfio 1
+#endif
+#endif
+
 #include <ast.h>
 #include <error.h>
 #include <string.h>
@@ -25,6 +33,15 @@
 
 Error_info_t error_info;
 
+void setErrorLine (int line) { error_info.line = line; }
+void setErrorFileLine (char* src, int line) {
+    error_info.file = src;
+    error_info.line = line;
+}
+void setErrorId (char* id) { error_info.id = id; }
+void setErrorErrors (int errors) { error_info.errors = errors; }
+int  getErrorErrors () { return error_info.errors; }
+
 void errorv(const char *id, int level, va_list ap)
 {
     char *s;