X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falloc.h;h=c4fd37a42658bac04aac1ba6ee8a095c90d1f638;hb=0f3a5f2e8886d18d0b4f6485c38a42be629422ae;hp=5cfd2d833bbfcdb2b4ce517bb0b5ba35cf5acde8;hpb=a530bbe337109d898d5b4a001fc8f1afa3b5dc39;p=sbcl.git diff --git a/src/runtime/alloc.h b/src/runtime/alloc.h index 5cfd2d8..c4fd37a 100644 --- a/src/runtime/alloc.h +++ b/src/runtime/alloc.h @@ -9,18 +9,22 @@ * files for more information. */ -/* - * $Header$ - */ - #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_ +#endif /* _ALLOC_H_ */