From 307c3aeecf7752886a6cee2817289f259bfa758d Mon Sep 17 00:00:00 2001 From: okuoku Date: Sat, 9 Sep 2017 17:12:13 +0900 Subject: [PATCH 1/2] chibi-genstatic: Remove inline? override Remove inline? binding here; it was effectively no-op'ed `--inline` option. --- tools/chibi-genstatic | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/tools/chibi-genstatic b/tools/chibi-genstatic index 511abda5..1881c9f2 100755 --- a/tools/chibi-genstatic +++ b/tools/chibi-genstatic @@ -425,8 +425,7 @@ (set! *features* features)) (let* ((c-libs+c-files (find-c-libs includes excludes cfiles)) (c-libs (car c-libs+c-files)) - (c-files (cdr c-libs+c-files)) - (inline? #t)) + (c-files (cdr c-libs+c-files))) (display "#include \"chibi/eval.h\"\n") (newline) (for-each (lambda (x) (include-c-lib x c-files inline?)) c-libs) From bfec8b9f4e7c1eca78ea152400d42c767353f115 Mon Sep 17 00:00:00 2001 From: okuoku Date: Wed, 8 Nov 2017 01:08:30 +0900 Subject: [PATCH 2/2] chibi-genstatic: Add --no-inline option Add --no-inline option to improve debuggability. --- tools/chibi-genstatic | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/tools/chibi-genstatic b/tools/chibi-genstatic index 1881c9f2..6aed6b07 100755 --- a/tools/chibi-genstatic +++ b/tools/chibi-genstatic @@ -393,13 +393,15 @@ (includes #f) (excludes '()) (cfiles '()) - (inline? #f)) + (inline? #t)) (cond ((and (pair? args) (not (equal? "" (car args))) (eqv? #\- (string-ref (car args) 0))) (case (string->symbol (car args)) ((--inline) (lp (cdr args) features includes excludes cfiles #t)) + ((--no-inline) + (lp (cdr args) features includes excludes cfiles #f)) ((--features) (if (null? (cdr args)) (error "--features requires an argument"))