Changeset 12086 in project


Ignore:
Timestamp:
10/01/08 13:49:25 (12 years ago)
Author:
felix winkelmann
Message:

removed some deprecated compiler options; removed compiler-macros

Location:
chicken/trunk
Files:
8 edited

Legend:

Unmodified
Added
Removed
  • chicken/trunk/batch-driver.scm

    r12085 r12086  
    4747  current-program-size line-number-database-2 foreign-lambda-stubs immutable-constants foreign-variables
    4848  rest-parameters-promoted-to-vector inline-table inline-table-used constant-table constants-used mutable-constants
    49   broken-constant-nodes inline-substitutions-enabled compiler-macros-enabled
     49  broken-constant-nodes inline-substitutions-enabled
    5050  emit-profile profile-lambda-list profile-lambda-index profile-info-vector-name
    5151  direct-call-ids foreign-type-table first-analysis emit-closure-info
     
    227227           (collect-options 'emit-import-library)))
    228228    (when (memq 'lambda-lift options) (set! do-lambda-lifting #t))
    229     (when (memq 'disable-compiler-macros options) (set! compiler-macros-enabled #f))
    230229    (when (memq 't debugging-chicken) (##sys#start-timer))
    231230    (when (memq 'b debugging-chicken) (set! time-breakdown #t))
     
    238237    (when (memq 'no-lambda-info options)
    239238      (set! emit-closure-info #f) )
    240     (when (memq 'check-imports options)
    241       (compiler-warning 'usage "deprecated compiler option: -check-imports"))
    242     (when (memq 'import options)
    243       (compiler-warning 'usage "deprecated compiler option: -import"))
     239    (when (memq 'check-imports options) ;***
     240      (compiler-warning 'usage "deprecated compiler option: -check-imports")) ;***
     241    (when (memq 'import options)        ;***
     242      (compiler-warning 'usage "deprecated compiler option: -import")) ;***
    244243    (set! disabled-warnings (map string->symbol (collect-options 'disable-warning)))
    245244    (when (memq 'no-warnings options)
  • chicken/trunk/c-platform.scm

    r11948 r12086  
    121121    lambda-lift compile-syntax tag-pointers accumulate-profile
    122122    disable-stack-overflow-checks disable-c-syntax-checks unsafe-libraries raw
    123     emit-external-prototypes-first release disable-compiler-macros
     123    emit-external-prototypes-first release
    124124    analyze-only dynamic extension) )
    125125
     
    128128          inline-limit profile-name disable-warning emit-exports import
    129129    prelude postlude prologue epilogue nursery extend feature
    130     compress-literals                   ; DEPRECATED
    131130    emit-import-library
    132131    heap-growth heap-shrinkage heap-initial-size ffi-define ffi-include-path) )
  • chicken/trunk/chicken-ffi-macros.scm

    r10788 r12086  
    156156
    157157
    158 ;;; Not for general use, yet
    159 
    160 (##sys#extend-macro-environment
    161  'define-compiler-macro
    162  '()
    163  (##sys#er-transformer
    164   (lambda (form r c)
    165     (##sys#check-syntax 'define-compiler-macro form '(_ . _))
    166     (let ((head (cadr form))
    167           (body (cddr form)))
    168       (define (bad)
    169         (syntax-error
    170          'define-compiler-macro "invalid compiler macro definition" head) )
    171       (if (and (pair? head) (symbol? (car head)))
    172           (cond ((memq 'compiling ##sys#features)
    173                  (warning "compile macros are not available in interpreted code"
    174                           (car head) ) )
    175                 ((not (##compiler#register-compiler-macro (car head) (cdr head) body))
    176                  (bad) ) )
    177           (bad) )
    178       '(##core#undefined) ) ) ) )
    179 
    180158(##sys#macro-subset me0)))
  • chicken/trunk/chicken-more-macros.scm

    r11219 r12086  
    10621062
    10631063
     1064;;;
     1065
     1066
    10641067;;; just in case someone forgets
    10651068
     
    10691072  (lambda (form r c)
    10701073    (syntax-error 'define-macro "`define-macro' is not supported - please use `define-syntax'"))))
     1074
    10711075
    10721076(##sys#macro-subset me0)))
  • chicken/trunk/compiler.scm

    r12085 r12086  
    270270  direct-call-ids foreign-type-table first-analysis callback-names disabled-warnings
    271271  initialize-compiler canonicalize-expression expand-foreign-lambda update-line-number-database! scan-toplevel-assignments
    272   compiler-warning compiler-macro-table compiler-macros-enabled
     272  compiler-warning
    273273  perform-cps-conversion analyze-expression simplifications perform-high-level-optimizations perform-pre-optimization!
    274274  reorganize-recursive-bindings substitution-table simplify-named-call inline-max-size
     
    415415(define postponed-initforms '())
    416416(define unused-variables '())
    417 (define compiler-macro-table #f)
    418 (define compiler-macros-enabled #t)
    419417(define literal-rewrite-hook #f)
    420418
     
    11781176                                        (walk `(##sys#make-locative ,sym 0 #f 'location) se #f) ) ) ]
    11791177                                 
    1180                                  ((and compiler-macros-enabled
    1181                                        compiler-macro-table
    1182                                        (##sys#hash-table-ref compiler-macro-table name)) =>
    1183                                   (lambda (cm)
    1184                                     (let ((cx (cm x)))
    1185                                       (if (equal? cx x)
    1186                                           (handle-call)
    1187                                           (walk cx se dest)))))
    1188                                  
    11891178                                 [else (handle-call)] ) ) ) ) ] ) ) ) )
    1190 ; end of clause
    11911179
    11921180          ((not (proper-list? x))
  • chicken/trunk/csc.scm

    r11646 r12086  
    176176    -check-syntax -case-insensitive -benchmark-mode -shared -compile-syntax -no-lambda-info
    177177    -lambda-lift -dynamic -disable-stack-overflow-checks -emit-debug-info
    178     -check-imports                      ; DEPRECATED
    179178    -emit-external-prototypes-first -inline -extension -release -static-extensions
    180     -analyze-only -keep-shadowed-macros -disable-compiler-macros))
     179    -analyze-only -keep-shadowed-macros))
    181180
    182181(define-constant complex-options
     
    184183    -optimize-level -include-path -database-size -extend -prelude -postlude -prologue -epilogue
    185184    -inline-limit -profile-name -disable-warning
    186     -import                             ; DEPRECATED
    187185    -require-static-extension
    188186    -feature -debug-level -heap-growth -heap-shrinkage -heap-initial-size
    189     -emit-exports -compress-literals            ; DEPRECATED
    190187    -emit-import-library))
    191188
     
    203200    (|-X| "-extend")
    204201    (|-N| "-no-usual-integrations")
    205     (|-G| "-check-imports")             ; DEPRECATED
    206202    (-x "-explicit-use")
    207203    (-u "-unsafe")
     
    391387    -inline                     enable inlining
    392388    -inline-limit               set inlining threshold
    393     -disable-compiler-macros    disable expansion of compiler macros
    394389
    395390  Configuration options:
  • chicken/trunk/manual/Using the compiler

    r10872 r12086  
    7474; -disable-interrupts : Equivalent to the {{(disable-interrupts)}} declaration. No interrupt-checks are generated for compiled programs.
    7575
    76 ; -disable-compiler-macros : disable expansion of compiler macros.
    77 
    7876; -disable-stack-overflow-checks : Disables detection of stack overflows. This is equivalent to running the compiled executable with the {{-:o}} runtime option.
    7977
  • chicken/trunk/support.scm

    r11096 r12086  
    6969  foreign-argument-conversion foreign-result-conversion final-foreign-type debugging export-list block-globals
    7070  constant-declarations process-lambda-documentation big-fixnum?
    71   compiler-macro-table register-compiler-macro export-dump-hook
     71  export-dump-hook
    7272  make-random-name foreign-type-convert-result foreign-type-convert-argument process-custom-declaration)
    7373
     
    14161416
    14171417
    1418 ;;; Compiler macro registration
    1419 
    1420 (define (register-compiler-macro name llist body)
    1421   (unless compiler-macro-table
    1422     (set! compiler-macro-table (make-vector 301 '())) )
    1423   (call/cc
    1424    (lambda (return)
    1425      (let* ((wvar (gensym))
    1426             (llist
    1427              (let loop ((llist llist))
    1428                (cond ((not (pair? llist)) llist)
    1429                      ((eq? #:whole (car llist))
    1430                       (unless (pair? (cdr llist))
    1431                         (return #f) )
    1432                       (set! wvar (cadr llist))
    1433                       (cddr llist) )
    1434                      (else (cons (car llist) (loop (cdr llist)))) ) ) ) )
    1435        (##sys#hash-table-set!
    1436         compiler-macro-table
    1437         name
    1438         (eval `(lambda (,wvar) (apply (lambda ,llist ,@body) (cdr ,wvar))) ) )
    1439        #t) ) ) )
    1440 
    1441 
    14421418;;; 64-bit fixnum?
    14431419
Note: See TracChangeset for help on using the changeset viewer.