summaryrefslogtreecommitdiff
path: root/libguile/mallocs.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/mallocs.c')
-rw-r--r--libguile/mallocs.c105
1 files changed, 0 insertions, 105 deletions
diff --git a/libguile/mallocs.c b/libguile/mallocs.c
deleted file mode 100644
index 4201adca8..000000000
--- a/libguile/mallocs.c
+++ /dev/null
@@ -1,105 +0,0 @@
-/* classes: src_files */
-
-/* Copyright (C) 1995 Free Software Foundation, Inc.
- *
- * This program is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2, or (at your option)
- * any later version.
- *
- * This program is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with this software; see the file COPYING. If not, write to
- * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
- */
-
-
-
-#include <stdio.h>
-#include "_scm.h"
-#include "genio.h"
-#include "smob.h"
-
-#include "mallocs.h"
-
-#ifdef HAVE_MALLOC_H
-#include <malloc.h>
-#endif
-#ifdef HAVE_UNISTD_H
-#include <unistd.h>
-#endif
-
-
-
-
-
-
-static scm_sizet fmalloc SCM_P ((SCM ptr));
-
-static scm_sizet
-fmalloc(ptr)
- SCM ptr;
-{
- if (SCM_MALLOCDATA (ptr))
- free (SCM_MALLOCDATA (ptr));
- return 0;
-}
-
-
-static int prinmalloc SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
-
-static int
-prinmalloc (exp, port, pstate)
- SCM exp;
- SCM port;
- scm_print_state *pstate;
-{
- scm_gen_puts(scm_regular_string, "#<malloc ", port);
- scm_intprint(SCM_CDR(exp), 16, port);
- scm_gen_putc('>', port);
- return 1;
-}
-
-
-int scm_tc16_malloc;
-static scm_smobfuns mallocsmob = {scm_mark0, fmalloc, prinmalloc, 0};
-
-
-
-
-SCM
-scm_malloc_obj (n)
- scm_sizet n;
-{
- SCM answer;
- SCM mem;
-
- SCM_NEWCELL (answer);
- SCM_DEFER_INTS;
- mem = (n
- ? (SCM)malloc (n)
- : 0);
- if (n && !mem)
- {
- SCM_ALLOW_INTS;
- return SCM_BOOL_F;
- }
- SCM_SETCDR (answer, mem);
- SCM_SETCAR (answer, scm_tc16_malloc);
- SCM_ALLOW_INTS;
- return answer;
-}
-
-
-
-
-void
-scm_init_mallocs ()
-{
- scm_tc16_malloc = scm_newsmob (&mallocsmob);
-}
-