From c01a6af52fca315df0141fa1a7d8d7d707ded04c Mon Sep 17 00:00:00 2001 From: Marius Vollmer Date: Fri, 2 Nov 2001 00:09:41 +0000 Subject: [PATCH] * __scm.h, alist.h, arbiters.h, async.h, backtrace.h, boolean.h, chars.h, continuations.h, coop-defs.h, coop-threads.h, debug-malloc.h, debug.h, deprecation.h, dynl.h, dynwind.h, environments.h, eq.h, error.h, eval.h, evalext.h, extensions.h, feature.h, filesys.h, fluids.h, fports.h, gc.h, gdb_interface.h, gdbint.h, gh.h, goops.h, gsubr.h, guardians.h, hash.h, hashtab.h, hooks.h, init.h, ioext.h, iselect.h, keywords.h, lang.h, list.h, load.h, macros.h, mallocs.h, modules.h, net_db.h, numbers.h, objects.h, objprop.h, options.h, pairs.h, ports.h, posix.h, print.h, procprop.h, procs.h, properties.h, ramap.h, random.h, rdelim.h, read.h, regex-posix.h, root.h, rw.h, scmsigs.h, script.h, simpos.h, smob.h, socket.h, sort.h, srcprop.h, stackchk.h, stacks.h, stime.h, strings.h, strop.h, strorder.h, strports.h, struct.h, symbols.h, tags.h, threads.h, throw.h, unif.h, values.h, variable.h, vectors.h, vports.h, weaks.h: Prefixed each each exported symbol with SCM_API. * gdb_interface.h (GDB_INTERFACE): Also support __CYGWIN__. --- libguile/gdb_interface.h | 24 ++++++++++++------------ 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/libguile/gdb_interface.h b/libguile/gdb_interface.h index ad93b463e..0274ecb8d 100644 --- a/libguile/gdb_interface.h +++ b/libguile/gdb_interface.h @@ -59,7 +59,7 @@ Mikael Djurfeldt, SANS/NADA KTH, 10044 STOCKHOLM, SWEDEN */ interface in your main program. This is necessary if the interface is defined in a library, such as Guile. */ -#ifndef __MINGW32__ +#if !defined (__MINGW32__) && !defined (__CYGWIN__) #define GDB_INTERFACE \ void *gdb_interface[] = { \ &gdb_options, \ @@ -73,7 +73,7 @@ void *gdb_interface[] = { \ (void *) gdb_print, \ (void *) gdb_binding \ } -#else /* __MINGW32__ */ +#else /* __MINGW32__, __CYGWIN__ */ /* Because the following functions are imported from a DLL (some kind of shared library) these are NO static initializers. That is why you need to define them and assign the functions and data items at run time. */ @@ -103,25 +103,25 @@ void *gdb_interface[] = \ #define GDB_HAVE_BINDINGS 1 -extern unsigned short gdb_options; +SCM_API unsigned short gdb_options; /* GDB_LANGUAGE holds the name of the preferred language mode for this interpreter. For lisp interpreters, the suggested mode is "lisp/c". */ -extern char *gdb_language; +SCM_API char *gdb_language; /* GDB_RESULT is used for passing results from the interpreter to GDB */ -extern GDB_TYPE gdb_result; +SCM_API GDB_TYPE gdb_result; /* The interpreter passes strings to GDB in GDB_OUTPUT and GDB_OUTPUT_LENGTH. GDB_OUTPUT should hold the pointer to the string. GDB_OUTPUT_LENGTH should hold its length. The string doesn't need to be terminated by '\0'. */ -extern char *gdb_output; +SCM_API char *gdb_output; -extern int gdb_output_length; +SCM_API int gdb_output_length; /* Return TRUE if the interpreter regards VALUE's type as valid. A lazy implementation is allowed to pass TRUE always. FALSE should @@ -130,7 +130,7 @@ extern int gdb_output_length; In the "lisp/c" language mode, this is used to heuristically discriminate lisp values from C values during printing. */ -extern int gdb_maybe_valid_type_p (GDB_TYPE value); +SCM_API int gdb_maybe_valid_type_p (GDB_TYPE value); /* Parse expression in string STR. Store result in GDB_RESULT, then return 0 to indicate success. On error, return -1 to indicate @@ -139,7 +139,7 @@ extern int gdb_maybe_valid_type_p (GDB_TYPE value); no message is passed. Please note that the resulting value should be protected against garbage collection. */ -extern int gdb_read (char *str); +SCM_API int gdb_read (char *str); /* Evaluate expression EXP. Store result in GDB_RESULT, then return 0 to indicate success. On error, return -1 to indicate failure. Any @@ -148,7 +148,7 @@ extern int gdb_read (char *str); if no output is passed. Please note that the resulting lisp object should be protected against garbage collection. */ -extern int gdb_eval (GDB_TYPE exp); +SCM_API int gdb_eval (GDB_TYPE exp); /* Print VALUE. Store output in GDB_OUTPUT and GDB_OUTPUT_LENGTH. Return 0 to indicate success. On error, return -1 to indicate @@ -156,7 +156,7 @@ extern int gdb_eval (GDB_TYPE exp); failure. Note that this function should be robust against strange values. It could in fact be passed any kind of value. */ -extern int gdb_print (GDB_TYPE value); +SCM_API int gdb_print (GDB_TYPE value); /* Bind NAME to VALUE in interpreter. (GDB has previously obtained NAME by passing a string to gdb_read.) Return 0 to indicate @@ -168,7 +168,7 @@ extern int gdb_print (GDB_TYPE value); For scheme interpreters, this function should introduce top-level bindings. */ -extern int gdb_binding (GDB_TYPE name, GDB_TYPE value); +SCM_API int gdb_binding (GDB_TYPE name, GDB_TYPE value); #endif /* GDB_INTERFACE_H */