dallasgroot/Gimp
dallasgroot/Gimp
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

script-fu: fix crash when incorrectly using named parameters

Browse source 
The array of strings representing the Scheme types wasn't updated
after adding named parameters. This caused a crash when trying to
use named parameters where that isn't possible.
This commit is contained in:
Jacob Boerema 2025-02-05 13:33:00 -05:00
parent bcbdf970a6
commit af5fc77a24
1 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
plug-ins/script-fu/libscriptfu/script-fu-errors.c
View file

@ -40,7 +40,7 @@
"T_STRING", "T_NUMBER", "T_SYMBOL", "T_PROC",
"T_PAIR", "T_CLOSURE", "T_CONTINUATION", "T_FOREIGN",
"T_CHARACTER", "T_PORT", "T_VECTOR", "T_MACRO",
"T_PROMISE", "T_ENVIRONMENT","T_ARRAY"
"T_PROMISE", "T_ENVIRONMENT","T_ARRAY", "T_ARG_SLOT"
};
@ -272,11 +272,18 @@ debug_in_arg (scheme *sc,
const guint arg_index,
const gchar *type_name )
{
pointer arg_val;
if (sc->vptr->is_pair (a))
arg_val = sc->vptr->pair_car (a);
else
arg_val = a;
g_debug ("param:%d, formal C type:%s, actual scheme type:%s (%d)",
arg_index + 1,
type_name,
ts_types[ type(sc->vptr->pair_car (a)) ],
type(sc->vptr->pair_car (a)));
ts_types[ type (arg_val) ],
type (arg_val));
}
/* Log GValue: its value and its GType