mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

(image_tag): Changed type to scm_t_bits.

Browse source 
(make_image): Use scm_gc_malloc instead of scm_must_malloc.
(free_image): Use scm_gc_free instead of free.  Return zero.
This commit is contained in:
Marius Vollmer 2002-02-28 20:55:49 +00:00
parent 5ddf900c86
commit d115af0eea
1 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

13
doc/example-smob/image-type.c
View file

@ -21,7 +21,7 @@
#include <stdlib.h>
#include <libguile.h>
static scm_bits_t image_tag;
static scm_t_bits image_tag;
struct image {
int width, height;
@ -49,10 +49,10 @@ make_image (SCM name, SCM s_width, SCM s_height)
width = SCM_INUM (s_width);
height = SCM_INUM (s_height);
image = (struct image *) scm_must_malloc (sizeof (struct image), "image");
image = (struct image *) scm_gc_malloc (sizeof (struct image), "image");
image->width = width;
image->height = height;
image->pixels = scm_must_malloc (width * height, "image pixels");
image->pixels = scm_gc_malloc (width * height, "image pixels");
image->name = name;
image->update_func = SCM_BOOL_F;
@ -93,12 +93,11 @@ static size_t
free_image (SCM image_smob)
{
struct image *image = (struct image *) SCM_SMOB_DATA (image_smob);
size_t size = image->width * image->height + sizeof (struct image);
free (image->pixels);
free (image);
scm_gc_free (image->pixels, image->width * image->height, "image pixels");
scm_gc_free (image, sizeof (struct image), "image");
return size;
return 0;
}
static int