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; LPVOID msg_buf;
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER, FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_ALLOCATE_BUFFER,
NULL, GetLastError(), 0, NULL, GetLastError(), 0,
(LPTSTR)&msg_buf, 0, NULL); (LPTSTR)&msg_buf, 0, NULL);
fprintf(stderr, "scheme load-extension: %s: %s", additional_message, msg_buf); fprintf(stderr, "scheme load-extension: %s: %s", additional_message, msg_buf);
LocalFree(msg_buf); LocalFree(msg_buf);
} }
@ -135,9 +135,3 @@ static void make_init_fn(const char *name, char *init_fn) {
strcpy(init_fn,"init_"); strcpy(init_fn,"init_");
strcat(init_fn,p); 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) pointer scheme_apply0(scheme *sc, const char *procname)
{ return scheme_eval(sc, cons(sc,mk_symbol(sc,procname),sc->NIL)); } { 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 = pointer saved_data =
cons(sc, cons(sc,
@ -4951,7 +4951,7 @@ void save_from_C_call(scheme *sc)
dump_stack_reset(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); car(sc->sink) = caar(sc->c_nest);
sc->envir = cadar(sc->c_nest); sc->envir = cadar(sc->c_nest);