suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix object header to use Scheme_Object instead of Scheme_Type

Browse Source 
svn: r5593
This commit is contained in:
Matthew Flatt 2007-02-14 01:43:51 +00:00
parent 295cb947f5
commit 3f384b343c
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/mzscheme/examples/bitmatrix.c
View File

@ -20,7 +20,8 @@
/* Instances of this Bitmatrix structure will be the Scheme bit matirx /* Instances of this Bitmatrix structure will be the Scheme bit matirx
values: */ values: */
typedef struct { typedef struct {
Scheme_Type type; /* Every Scheme value starts with a type tag. The Scheme_Object so; /* Every Scheme value starts with a Scheme_Object,
which stars with a type tag. The
format for the rest of the structure is format for the rest of the structure is
anything we want it to be. */ anything we want it to be. */
unsigned long w, h, l; /* l = w rounded to multiple of LONG_SIZE */ unsigned long w, h, l; /* l = w rounded to multiple of LONG_SIZE */
@ -110,7 +111,7 @@ Scheme_Object *make_bit_matrix(int argc, Scheme_Object **argv)
/* Malloc the bit matrix structure. Since we use scheme_malloc, the /* Malloc the bit matrix structure. Since we use scheme_malloc, the
bit matrix value is GC-able. */ bit matrix value is GC-able. */
bm = (Bitmatrix *)scheme_malloc_tagged(sizeof(Bitmatrix)); bm = (Bitmatrix *)scheme_malloc_tagged(sizeof(Bitmatrix));
bm->type = bitmatrix_type; bm->so.type = bitmatrix_type;
/* Try to allocate the bit matrix. Handle failure gracefully. Note /* Try to allocate the bit matrix. Handle failure gracefully. Note
that we use scheme_malloc_atomic since the allocated memory will that we use scheme_malloc_atomic since the allocated memory will