Commit | Line | Data |
---|---|---|
c7743d02 | 1 | /* |
cb90e2cb HWN |
2 | * private-gc.h - private declarations for garbage collection. |
3 | * | |
064d2409 | 4 | * Copyright (C) 2002, 03, 04, 05, 06, 07, 08, 09, 11, 13 Free Software Foundation, Inc. |
cb90e2cb HWN |
5 | * |
6 | * This library is free software; you can redistribute it and/or | |
53befeb7 NJ |
7 | * modify it under the terms of the GNU Lesser General Public License |
8 | * as published by the Free Software Foundation; either version 3 of | |
9 | * the License, or (at your option) any later version. | |
cb90e2cb | 10 | * |
53befeb7 NJ |
11 | * This library is distributed in the hope that it will be useful, but |
12 | * WITHOUT ANY WARRANTY; without even the implied warranty of | |
cb90e2cb HWN |
13 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
14 | * Lesser General Public License for more details. | |
15 | * | |
16 | * You should have received a copy of the GNU Lesser General Public | |
17 | * License along with this library; if not, write to the Free Software | |
53befeb7 NJ |
18 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
19 | * 02110-1301 USA | |
cb90e2cb | 20 | */ |
c7743d02 | 21 | |
760fb97d LC |
22 | #ifndef SCM_PRIVATE_GC |
23 | #define SCM_PRIVATE_GC | |
c7743d02 HWN |
24 | |
25 | #include "_scm.h" | |
26 | ||
c7743d02 | 27 | |
1383773b | 28 | #define SCM_DOUBLECELL_ALIGNED_P(x) (((2 * sizeof (scm_t_cell) - 1) & SCM_UNPACK (x)) == 0) |
c7743d02 HWN |
29 | |
30 | ||
760fb97d | 31 | SCM_INTERNAL int scm_getenv_int (const char *var, int def); |
c7743d02 HWN |
32 | |
33 | ||
c7743d02 HWN |
34 | #define SCM_MAX(A, B) ((A) > (B) ? (A) : (B)) |
35 | #define SCM_MIN(A, B) ((A) < (B) ? (A) : (B)) | |
36 | ||
b359b36a LC |
37 | SCM_INTERNAL char const *scm_i_tag_name (scm_t_bits tag); /* MOVEME */ |
38 | ||
c7743d02 | 39 | #endif |