X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.h;h=c4fd37a42658bac04aac1ba6ee8a095c90d1f638;hb=c8617f57d0413beb2890e94dabe227cef9c5ddad;hp=fe7aef38b90aa27326f3bc642cd339056d18cc9f;hpb=fdd3f1d028eed3a886dae0c5635ddd70ca12b206;p=sbcl.git diff --git a/src/runtime/alloc.h b/src/runtime/alloc.h index fe7aef3..c4fd37a 100644 --- a/src/runtime/alloc.h +++ b/src/runtime/alloc.h @@ -12,11 +12,19 @@ #ifndef _ALLOC_H_ #define _ALLOC_H_ +#include "sbcl.h" #include "runtime.h" +#include "gc-internal.h" + +#ifdef LISP_FEATURE_GENCGC +extern lispobj *general_alloc(sword_t bytes, int page_type_flag); +#endif extern lispobj alloc_cons(lispobj car, lispobj cdr); -extern lispobj alloc_number(long n); +extern lispobj alloc_number(sword_t n); extern lispobj alloc_string(char *str); extern lispobj alloc_sap(void *ptr); +extern lispobj alloc_base_string(char *str); +extern lispobj alloc_code_object(unsigned boxed, unsigned unboxed); #endif /* _ALLOC_H_ */