home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mitsch75.zip / scheme-7_5_17-src.zip / scheme-7.5.17 / src / compiler / base / switch.scm < prev    next >
Text File  |  1999-01-02  |  3KB  |  81 lines
  1. #| -*-Scheme-*-
  2.  
  3. $Id: switch.scm,v 4.25 1999/01/02 06:06:43 cph Exp $
  4.  
  5. Copyright (c) 1988-1999 Massachusetts Institute of Technology
  6.  
  7. This program is free software; you can redistribute it and/or modify
  8. it under the terms of the GNU General Public License as published by
  9. the Free Software Foundation; either version 2 of the License, or (at
  10. your option) any later version.
  11.  
  12. This program is distributed in the hope that it will be useful, but
  13. WITHOUT ANY WARRANTY; without even the implied warranty of
  14. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15. General Public License for more details.
  16.  
  17. You should have received a copy of the GNU General Public License
  18. along with this program; if not, write to the Free Software
  19. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  20. |#
  21.  
  22. ;;;; Compiler Option Switches
  23. ;;; package: (compiler)
  24.  
  25. (declare (usual-integrations))
  26.  
  27. ;;; Binary switches
  28.  
  29. (define compiler:enable-integration-declarations? true)
  30. (define compiler:enable-expansion-declarations? false)
  31. (define compiler:compile-by-procedures? true)
  32. (define compiler:noisy? true)
  33. (define compiler:show-time-reports? false)
  34. (define compiler:show-procedures? true)
  35. (define compiler:show-phases? false)
  36. (define compiler:show-subphases? false)
  37. (define compiler:preserve-data-structures? false)
  38. (define compiler:code-compression? true)
  39. (define compiler:cache-free-variables? true)
  40. (define compiler:implicit-self-static? true)
  41. (define compiler:optimize-environments? true)
  42. (define compiler:analyze-side-effects? true)
  43. (define compiler:cse? true)
  44. (define compiler:open-code-primitives? true)
  45. (define compiler:generate-rtl-files? false)
  46. (define compiler:generate-lap-files? false)
  47. (define compiler:intersperse-rtl-in-lap? true)
  48. (define compiler:generate-range-checks? false)
  49. (define compiler:generate-type-checks? false)
  50. (define compiler:generate-stack-checks? true)
  51. (define compiler:open-code-flonum-checks? false)
  52. (define compiler:use-multiclosures? true)
  53. (define compiler:coalescing-constant-warnings? true)
  54. (define compiler:cross-compiling? false)
  55. ;; This only works in the C back end, right now
  56. (define compiler:compress-top-level? false)
  57. (define compiler:avoid-scode? true)
  58.  
  59. ;; If true, the compiler is allowed to assume that fixnum operations
  60. ;; are only applied to inputs for which the operation is closed, i.e.
  61. ;; generates a valid fixnum.  If false, the compiler will ensure that
  62. ;; the result of a fixnum operation is a fixnum, although it may be an
  63. ;; incorrect result for screw cases.
  64. (define compiler:assume-safe-fixnums? true)
  65.  
  66. ;; The switch COMPILER:OPEN-CODE-FLOATING-POINT-ARITHMETIC? is in machin.scm.
  67.  
  68. ;;; Nary switches
  69.  
  70. (define compiler:package-optimization-level
  71.   ;; Possible values: NONE LOW HYBRID HIGH
  72.   'HYBRID)
  73.  
  74. (define compiler:default-top-level-declarations
  75.   '((UUO-LINK ALL)))
  76.  
  77. ;;; Hook: bind this to a procedure of one argument and it will receive
  78. ;;; each phase of the compiler as a thunk.  It is expected to call the
  79. ;;; thunk after any appropriate processing.
  80. (define compiler:phase-wrapper
  81.   false)