mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-07-02 23:50:47 +02:00
Convert scm_gc_malloc* calls to scm_allocate*
* libguile/arrays.c: * libguile/bitvectors.c: * libguile/bytevectors.c: * libguile/chooks.c: * libguile/continuations.c: * libguile/control.c: * libguile/dynstack.c: * libguile/ephemerons.c: * libguile/filesys.c: * libguile/foreign.c: * libguile/fports.c: * libguile/frames.c: * libguile/gsubr.c: * libguile/hashtab.c: * libguile/i18n.c: * libguile/integers.c: * libguile/intrinsics.c: * libguile/load.c: * libguile/loader.c: * libguile/macros.c: * libguile/numbers.c: * libguile/options.c: * libguile/ports.c: * libguile/programs.h: * libguile/random.c: * libguile/read.c: * libguile/regex-posix.c: * libguile/smob.c: * libguile/srfi-14.c: * libguile/strings.c: * libguile/struct.c: * libguile/threads.c: * libguile/threads.h: * libguile/values.c: * libguile/vm.c: Convert all calls to scm_gc_malloc_pointerless to scm_allocate_pointerless. Convert scm_gc_malloc to either scm_allocate_tagged or scm_allocate_sloppy, depending on whether the value can be precisely traced or not.
This commit is contained in:
parent
290a57b1b0
commit
f2ad6525e6
35 changed files with 126 additions and 102 deletions
|
@ -21,6 +21,7 @@
|
|||
#define _SCM_PROGRAMS_H_
|
||||
|
||||
#include <libguile/gc.h>
|
||||
#include <libguile/threads.h>
|
||||
|
||||
/*
|
||||
* Programs
|
||||
|
@ -122,11 +123,14 @@ scm_program_free_variable_set_x (struct scm_program *program, size_t idx, SCM v)
|
|||
program->free_variables[idx] = v;
|
||||
}
|
||||
|
||||
#include "threads.h"
|
||||
|
||||
static inline SCM
|
||||
scm_i_make_program (const uint32_t *code)
|
||||
{
|
||||
struct scm_program *ret =
|
||||
scm_gc_malloc_pointerless (sizeof (struct scm_program), "program");
|
||||
scm_allocate_pointerless (SCM_I_CURRENT_THREAD,
|
||||
sizeof (struct scm_program));
|
||||
ret->tag_flags_and_free_variable_count = scm_tc7_program;
|
||||
ret->code = code;
|
||||
return scm_from_program (ret);
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue