@@ -88,29 +88,29 @@ typedef struct Error_Warning_ {
8888#include "decstart.h"
8989#endif /* ERROR_C */
9090
91- GLOBAL bool __ERROR_buffer_errors INITIALLY ( false );
92- GLOBAL char * current_filename INITIALLY ( "stdin" );
91+ GLOBAL SCL_EXPRESS_EXPORT bool __ERROR_buffer_errors INITIALLY ( false );
92+ GLOBAL SCL_EXPRESS_EXPORT char * current_filename INITIALLY ( "stdin" );
9393
9494/* flag to remember whether non-warning errors have occurred */
95- GLOBAL bool ERRORoccurred INITIALLY ( false );
95+ GLOBAL SCL_EXPRESS_EXPORT bool ERRORoccurred INITIALLY ( false );
9696
9797
98- GLOBAL Error experrc INITIALLY ( ERROR_none );
99- GLOBAL Error ERROR_subordinate_failed INITIALLY ( ERROR_none );
100- GLOBAL Error ERROR_syntax_expecting INITIALLY ( ERROR_none );
98+ GLOBAL SCL_EXPRESS_EXPORT Error experrc INITIALLY ( ERROR_none );
99+ GLOBAL SCL_EXPRESS_EXPORT Error ERROR_subordinate_failed INITIALLY ( ERROR_none );
100+ GLOBAL SCL_EXPRESS_EXPORT Error ERROR_syntax_expecting INITIALLY ( ERROR_none );
101101
102102/* all of these are 1 if true, 0 if false switches */
103103/* for debugging fedex */
104- GLOBAL int ERRORdebugging INITIALLY ( 0 );
104+ GLOBAL SCL_EXPRESS_EXPORT int ERRORdebugging INITIALLY ( 0 );
105105/* for debugging malloc during resolution */
106- GLOBAL int malloc_debug_resolve INITIALLY ( 0 );
106+ GLOBAL SCL_EXPRESS_EXPORT int malloc_debug_resolve INITIALLY ( 0 );
107107/* for debugging yacc/lex */
108- GLOBAL int debug INITIALLY ( 0 );
108+ GLOBAL SCL_EXPRESS_EXPORT int debug INITIALLY ( 0 );
109109
110- GLOBAL struct Linked_List_ * ERRORwarnings ;
111- GLOBAL struct freelist_head ERROR_OPT_fl ;
110+ GLOBAL SCL_EXPRESS_EXPORT struct Linked_List_ * ERRORwarnings ;
111+ GLOBAL SCL_EXPRESS_EXPORT struct freelist_head ERROR_OPT_fl ;
112112
113- GLOBAL void ( * ERRORusage_function ) PROTO ( ( void ) );
113+ GLOBAL SCL_EXPRESS_EXPORT void ( * ERRORusage_function ) PROTO ( ( void ) );
114114
115115#include "de_end.h"
116116
@@ -121,6 +121,14 @@ GLOBAL void ( *ERRORusage_function ) PROTO( ( void ) );
121121#define ERROR_OPT_new () (struct Error_Warning_ *)MEM_new(&ERROR_OPT_fl)
122122#define ERROR_OPT_destroy (x ) MEM_destroy(&ERROR_OPT_fl,(Freelist *)(Generic)x)
123123
124+ /***********************/
125+ /* function prototypes */
126+ /***********************/
127+
128+ #ifdef __MSVC__
129+ extern SCL_EXPRESS_EXPORT void ERROR_start_message_buffer PROTO ( ( void ) );
130+ extern SCL_EXPRESS_EXPORT void ERROR_flush_message_buffer PROTO ( ( void ) );
131+ #endif
124132
125133/********************/
126134/* Inline functions */
@@ -153,9 +161,10 @@ ERRORis_enabled( Error error ) {
153161static_inline
154162void
155163ERRORbuffer_messages ( bool flag ) {
156- extern void ERROR_start_message_buffer ( void ),
164+ #ifndef __MSVC__
165+ extern void ERROR_start_message_buffer ( void ),
157166 ERROR_flush_message_buffer ( void );
158-
167+ #endif
159168 __ERROR_buffer_errors = flag ;
160169 if ( __ERROR_buffer_errors ) {
161170 ERROR_start_message_buffer ();
@@ -167,8 +176,10 @@ ERRORbuffer_messages( bool flag ) {
167176static_inline
168177void
169178ERRORflush_messages ( void ) {
179+ #ifndef __MSVC__
170180 extern void ERROR_start_message_buffer ( void ),
171181 ERROR_flush_message_buffer ( void );
182+ #endif
172183
173184 if ( __ERROR_buffer_errors ) {
174185 ERROR_flush_message_buffer ();
@@ -182,28 +193,32 @@ ERRORflush_messages( void ) {
182193/* function prototypes */
183194/***********************/
184195
185- extern void ERRORinitialize PROTO ( ( void ) );
186- extern void ERRORinitialize_after_LIST PROTO ( ( void ) );
187- extern void ERRORnospace PROTO ( ( void ) );
188- extern void ERRORabort PROTO ( ( int ) );
189- extern Error ERRORcreate PROTO ( ( char * , Severity ) );
190- extern void ERRORreport PROTO ( ( Error , ... ) );
196+ extern SCL_EXPRESS_EXPORT void ERRORinitialize PROTO ( ( void ) );
197+ extern SCL_EXPRESS_EXPORT void ERRORinitialize_after_LIST PROTO ( ( void ) );
198+ extern SCL_EXPRESS_EXPORT void ERRORnospace PROTO ( ( void ) );
199+ extern SCL_EXPRESS_EXPORT void ERRORabort PROTO ( ( int ) );
200+ extern SCL_EXPRESS_EXPORT Error ERRORcreate PROTO ( ( char * , Severity ) );
201+ extern SCL_EXPRESS_EXPORT void ERRORreport PROTO ( ( Error , ... ) );
191202/*SUPPRESS 652*/ /* 1.? */
192203/*SUPPRESS 842*/ /* 4.0.2 */
193204struct Symbol_ ; /* mention Symbol to avoid warning on following line */
194- extern void ERRORreport_with_symbol PROTO ( ( Error , struct Symbol_ * , ... ) );
195- extern void ERRORreport_with_line PROTO ( ( Error , int , ... ) );
196- extern void ERRORbuffer_messages PROTO ( ( bool ) );
197- extern void ERRORflush_messages PROTO ( ( void ) );
198-
199- extern void ERROR_start_message_buffer PROTO ( ( void ) );
200- extern void ERROR_flush_message_buffer PROTO ( ( void ) );
201-
202- extern void ERRORcreate_warning PROTO ( ( char * , Error ) );
203- extern void ERRORset_warning PROTO ( ( char * , int ) );
204- extern void ERRORset_all_warnings PROTO ( ( int ) );
205- extern void ERRORsafe PROTO ( ( jmp_buf env ) );
206- extern void ERRORunsafe PROTO ( ( void ) );
205+ extern SCL_EXPRESS_EXPORT void ERRORreport_with_symbol PROTO ( ( Error , struct Symbol_ * , ... ) );
206+ extern SCL_EXPRESS_EXPORT void ERRORreport_with_line PROTO ( ( Error , int , ... ) );
207+ #if !supports_inline_functions
208+ extern SCL_EXPRESS_EXPORT void ERRORbuffer_messages PROTO ( ( bool ) );
209+ extern SCL_EXPRESS_EXPORT void ERRORflush_messages PROTO ( ( void ) );
210+ #endif
211+
212+ #ifndef __MSVC__
213+ extern SCL_EXPRESS_EXPORT void ERROR_start_message_buffer PROTO ( ( void ) );
214+ extern SCL_EXPRESS_EXPORT void ERROR_flush_message_buffer PROTO ( ( void ) );
215+ #endif
216+
217+ extern SCL_EXPRESS_EXPORT void ERRORcreate_warning PROTO ( ( char * , Error ) );
218+ extern SCL_EXPRESS_EXPORT void ERRORset_warning PROTO ( ( char * , int ) );
219+ extern SCL_EXPRESS_EXPORT void ERRORset_all_warnings PROTO ( ( int ) );
220+ extern SCL_EXPRESS_EXPORT void ERRORsafe PROTO ( ( jmp_buf env ) );
221+ extern SCL_EXPRESS_EXPORT void ERRORunsafe PROTO ( ( void ) );
207222
208223#if deprecated
209224extern void ERRORdisable PROTO ( ( Error ) );
0 commit comments