- Timestamp:
- 06/30/09 10:18:43 (10 years ago)
- Location:
- chicken/trunk
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
chicken/trunk/batch-driver.scm
r15061 r15117 53 53 reorganize-recursive-bindings substitution-table simplify-named-call emit-unsafe-marker 54 54 perform-closure-conversion prepare-for-code-generation compiler-source-file create-foreign-stub expand-foreign-lambda* 55 transform-direct-lambdas! source-filename standalone-executable 55 transform-direct-lambdas! source-filename standalone-executable compiler-syntax-enabled 56 56 debugging-chicken bomb check-signature posq stringify symbolify build-lambda-list 57 57 string->c-identifier c-ify-string words check-and-open-input-file close-checked-input-file fold-inner constant? … … 241 241 (when (memq 'no-lambda-info options) 242 242 (set! emit-closure-info #f) ) 243 (when (memq 'no-compiler-syntax options) 244 (set! compiler-syntax-enabled #f)) 243 245 (when (memq 'local options) 244 246 (set! local-definitions #t)) … … 526 528 527 529 (print-node "initial node tree" '|T| node0) 530 (initialize-analysis-database) 528 531 529 532 (when do-scrutinize -
chicken/trunk/c-platform.scm
r15047 r15117 125 125 emit-external-prototypes-first release local inline-global 126 126 analyze-only dynamic scrutinize no-argc-checks no-procedure-checks 127 no-bound-checks no-procedure-checks-for-usual-bindings 127 no-bound-checks no-procedure-checks-for-usual-bindings no-compiler-syntax 128 128 no-parentheses-synonyms no-symbol-escape r5rs-syntax) ) 129 129 … … 179 179 u8vector-set! s8vector-set! u16vector-set! s16vector-set! u32vector-set! s32vector-set! 180 180 locative-ref locative-set! locative->object locative? global-ref 181 null-pointer? pointer->object flonum? finite?) ) 181 null-pointer? pointer->object flonum? finite? 182 printf sprintf format) ) 182 183 183 184 (define internal-bindings -
chicken/trunk/compiler.scm
r15100 r15117 293 293 pprint-expressions-to-file foreign-type-check estimate-foreign-result-size scan-used-variables scan-free-variables 294 294 topological-sort print-version print-usage initialize-analysis-database csc-control-file 295 estimate-foreign-result-location-size inline-output-file 295 estimate-foreign-result-location-size inline-output-file compiler-syntax-enabled 296 296 expand-foreign-callback-lambda default-optimization-passes default-optimization-passes-when-trying-harder 297 297 units-used-by-default words-per-flonum disable-stack-overflow-checking … … 382 382 (define do-scrutinize #f) 383 383 (define enable-inline-files #f) 384 (define compiler-syntax-enabled #t) 384 385 385 386 … … 550 551 (let* ((name0 (lookup (car x) se)) 551 552 (name (or (and (symbol? name0) (##sys#get name0 '##core#primitive)) name0)) 552 (xexpanded (##sys#expand x se #t)))553 (xexpanded (##sys#expand x se compiler-syntax-enabled))) 553 554 (cond ((not (eq? x xexpanded)) 554 555 (walk xexpanded e se dest)) … … 641 642 (list alias (walk (cadr b) e se (car b))) ) 642 643 aliases bindings) 643 ,(walk (##sys#canonicalize-body (cddr x) se2 #t)644 ,(walk (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) 644 645 (append aliases e) 645 646 se2 dest) ) ) ) … … 674 675 (let* ((aliases (map gensym vars)) 675 676 (se2 (append (map cons vars aliases) se)) 676 (body0 (##sys#canonicalize-body obody se2 #t))677 (body0 (##sys#canonicalize-body obody se2 compiler-syntax-enabled)) 677 678 (body (walk body0 (append aliases e) se2 #f)) 678 679 (llist2 … … 718 719 se) ) ) 719 720 (walk 720 (##sys#canonicalize-body (cddr x) se2 #t)721 (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) 721 722 e se2 722 723 dest) ) ) … … 737 738 ms) 738 739 (walk 739 (##sys#canonicalize-body (cddr x) se2 #t)740 (##sys#canonicalize-body (cddr x) se2 compiler-syntax-enabled) 740 741 e se2 dest))) 741 742 … … 803 804 (lambda () 804 805 (walk 805 (##sys#canonicalize-body (cddr x) se #t)806 (##sys#canonicalize-body (cddr x) se compiler-syntax-enabled) 806 807 e se dest) ) 807 808 (lambda () … … 908 909 [body 909 910 (walk 910 (##sys#canonicalize-body obody se2 #t)911 (##sys#canonicalize-body obody se2 compiler-syntax-enabled) 911 912 (append aliases e) 912 913 se2 #f) ] ) … … 1913 1914 (any (lambda (id2) (contains? id2 other-ids)) clist) ) ) ) ) 1914 1915 1915 ;; Initialize database:1916 (initialize-analysis-database db)1917 1918 1916 ;; Walk toplevel expression-node: 1919 1917 (debugging 'p "analysis traversal phase...") -
chicken/trunk/csc.scm
r14995 r15117 130 130 -analyze-only -keep-shadowed-macros -inline-global -ignore-repository 131 131 -no-symbol-escape -no-parentheses-synonyms -r5rs-syntax 132 -no-argc-checks -no-bound-checks -no-procedure-checks 132 -no-argc-checks -no-bound-checks -no-procedure-checks -no-compiler-syntax 133 133 -no-procedure-checks-for-usual-bindings)) 134 134 … … 315 315 -j -emit-import-library MODULE write compile-time module information into 316 316 separate file 317 -no-compiler-syntax disable expansion of compiler-macros 317 318 318 319 Translation options: -
chicken/trunk/expand.scm
r15082 r15117 56 56 57 57 (begin 58 (define-syntax dd (syntax-rules () ((_ . _) (void))))58 #;(define-syntax dd (syntax-rules () ((_ . _) (void)))) 59 59 (define-syntax dm (syntax-rules () ((_ . _) (void)))) 60 (define-syntax dc (syntax-rules () ((_ . _) (void)))) )60 #;(define-syntax dc (syntax-rules () ((_ . _) (void)))) ) 61 61 62 62 -
chicken/trunk/optimizer.scm
r15085 r15117 1831 1831 (%begin (r 'begin)) 1832 1832 (%pair? (r 'pair?))) 1833 (if (= 3 (length x)) 1833 (if (and (memq 'for-each standard-bindings) ; we have to check this because the db (and thus 1834 (= 3 (length x))) ; intrinsic marks) isn't set up yet 1834 1835 `(,%let ,%loop ((,%lst ,(caddr x))) 1835 1836 (,%if (,%pair? ,%lst) … … 1891 1892 (lambda (return) 1892 1893 (and (>= (length args) 1) 1894 (memq func extended-bindings) ; s.a. 1893 1895 (or (string? (car args)) 1894 1896 (and (list? (car args)) -
chicken/trunk/support.scm
r14874 r15117 338 338 (define initialize-analysis-database 339 339 (let ((initial #t)) 340 (lambda ( db)340 (lambda () 341 341 (when initial 342 342 (for-each 343 (lambda (s) 343 (lambda (s) 344 344 (mark-variable s '##compiler#intrinsic 'standard) 345 345 (when (memq s foldable-bindings) … … 1270 1270 -emit-import-library MODULE write compile-time module information into 1271 1271 separate file 1272 -no-compiler-syntax disable expansion of compiler-macros 1272 1273 1273 1274 Translation options:
Note: See TracChangeset
for help on using the changeset viewer.