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

tiny-fu/ts-wrapper.c Minor update since INT8 and INT8_ARRAY types are 

2006-09-18  Kevin Cozens  <kcozens@cvs.gnome.org>

	* tiny-fu/ts-wrapper.c
	* tinyscheme/scheme.c: Minor update since INT8 and INT8_ARRAY types
	are unsigned 8-bit values.
This commit is contained in:
Kevin Cozens 2006-09-19 22:16:55 +00:00 committed by Kevin Cozens
parent 8662b2e716
commit 46fd26d0eb
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1006,7 +1006,7 @@ INTERFACE static pointer mk_array(scheme *sc, int len, int type) {
size = len * sizeof(gint16);
break;
case array_int8:
size = len * sizeof(gint8);
size = len * sizeof(guint8);
break;
case array_float:
size = len * sizeof(gdouble);
@ -1044,7 +1044,7 @@ INTERFACE static pointer array_elem(scheme *sc, pointer a, int ielem) {
x = sc->vptr->mk_integer (sc, ((gint16 *)elem)[ielem]);
break;
case array_int8:
x = sc->vptr->mk_integer (sc, ((gint8 *)elem)[ielem] & 0x255);
x = sc->vptr->mk_integer (sc, ((guint8 *)elem)[ielem] & 0x255);
break;
case array_float:
x = sc->vptr->mk_real (sc, ((gdouble *)elem)[ielem]);
@ -1071,7 +1071,7 @@ INTERFACE static pointer set_array_elem(scheme *sc, pointer a,
((gint16 *)elem)[ielem] = sc->vptr->ivalue(v);
break;
case array_int8:
((gint8 *)elem)[ielem] = sc->vptr->ivalue(v);
((guint8 *)elem)[ielem] = sc->vptr->ivalue(v);
break;
case array_float:
((gdouble *)elem)[ielem] = sc->vptr->rvalue(v);