2 * Copyright (C) 1995, 1997, 1998, 2000 Free Software Foundation, Inc.
4 * This program is free software; you can redistribute it and/or modify
5 * it under the terms of the GNU General Public License as published by
6 * the Free Software Foundation; either version 2, or (at your option)
9 * This program is distributed in the hope that it will be useful,
10 * but WITHOUT ANY WARRANTY; without even the implied warranty of
11 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 * GNU General Public License for more details.
14 * You should have received a copy of the GNU General Public License
15 * along with this software; see the file COPYING. If not, write to
16 * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
17 * Boston, MA 02111-1307 USA */
19 /* Software engineering face-lift by Greg J. Badros, 11-Dec-1999,
20 gjb@cs.washington.edu, http://www.cs.washington.edu/homes/gjb */
25 #include "libguile/_scm.h"
26 #include "libguile/ports.h"
27 #include "libguile/smob.h"
29 #include "libguile/mallocs.h"
40 scm_bits_t scm_tc16_malloc
;
46 if (SCM_MALLOCDATA (ptr
))
47 free (SCM_MALLOCDATA (ptr
));
53 malloc_print (SCM exp
, SCM port
, scm_print_state
*pstate
)
55 scm_puts("#<malloc ", port
);
56 scm_intprint (SCM_CELL_WORD_1 (exp
), 16, port
);
63 scm_malloc_obj (scm_sizet n
)
65 scm_bits_t mem
= n
? (scm_bits_t
) malloc (n
) : 0;
71 SCM_RETURN_NEWSMOB (scm_tc16_malloc
, mem
);
79 scm_tc16_malloc
= scm_make_smob_type ("malloc", 0);
80 scm_set_smob_free (scm_tc16_malloc
, malloc_free
);
81 scm_set_smob_print (scm_tc16_malloc
, malloc_print
);