Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

heap size utility 'multiplier' not used with boehm

Browse source
This commit is contained in:
Alex Shinn 2011-12-11 14:24:45 +09:00
parent d29d7733fc
commit 5b64ba5a9c
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
main.c
View file

@ -216,6 +216,7 @@ static void repl (sexp ctx, sexp env) {
sexp_gc_release3(ctx); sexp_gc_release3(ctx);
} }
#if ! SEXP_USE_BOEHM
static sexp_uint_t multiplier (char c) { static sexp_uint_t multiplier (char c) {
switch (sexp_tolower(c)) { switch (sexp_tolower(c)) {
case 'k': return 1024; case 'k': return 1024;
@ -224,6 +225,7 @@ static sexp_uint_t multiplier (char c) {
default: return 1; default: return 1;
} }
} }
#endif
static void check_nonull_arg (int c, char *arg) { static void check_nonull_arg (int c, char *arg) {
if (! arg) { if (! arg) {