dnrops
/
gimp
mirror of https://github.com/GNOME/gimp.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Eliminated compiler warnings (scheme.c). Fixed whitespace (dynload.c).

This commit is contained in:
Kevin Cozens 2009-09-01 21:52:11 -04:00
parent b2fa005445
commit 4acd4317a7
2 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
plug-ins/script-fu/tinyscheme/dynload.c
View File

@ -33,8 +33,8 @@ typedef void (*FARPROC)();
LPVOID msg_buf;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER,
NULL, GetLastError(), 0,
(LPTSTR)&msg_buf, 0, NULL);
NULL, GetLastError(), 0,
(LPTSTR)&msg_buf, 0, NULL);
fprintf(stderr, "scheme load-extension: %s: %s", additional_message, msg_buf);
LocalFree(msg_buf);
}
@ -135,9 +135,3 @@ static void make_init_fn(const char *name, char *init_fn) {
strcpy(init_fn,"init_");
strcat(init_fn,p);
}

4
plug-ins/script-fu/tinyscheme/scheme.c
View File

@ -4936,7 +4936,7 @@ void scheme_register_foreign_func_list(scheme * sc,
pointer scheme_apply0(scheme *sc, const char *procname)
{ return scheme_eval(sc, cons(sc,mk_symbol(sc,procname),sc->NIL)); }
void save_from_C_call(scheme *sc)
static void save_from_C_call(scheme *sc)
{
pointer saved_data =
cons(sc,
@ -4951,7 +4951,7 @@ void save_from_C_call(scheme *sc)
dump_stack_reset(sc);
}
void restore_from_C_call(scheme *sc)
static void restore_from_C_call(scheme *sc)
{
car(sc->sink) = caar(sc->c_nest);
sc->envir = cadar(sc->c_nest);