← Back to branch summary

~ubuntu-branches/ubuntu/trusty/mit-scheme/trusty-proposed

« back to all changes in this revision

Viewing changes to src/compiler/machines/C/make.scm

  • Committer: Bazaar Package Importer
  • Author(s): Soren Hansen
  • Date: 2007-05-09 10:57:57 UTC
  • mfrom: (1.1.5 upstream)
  • Revision ID: james.westby@ubuntu.com-20070509105757-p8focimovgqxaaed
Tags: 7.7.90+20070205-1ubuntu1
* Merge from debian unstable, remaining changes:
  * Bootstrapping done via supplied binary package. See log entry for
    7.7.90+20060906-3ubuntu1 for details.

Show diffs side-by-side

added added

removed removed

Lines of Context:
src/compiler/machines/C/make.scm
1
1
#| -*-Scheme-*-
2
2
 
3
 
$Id: make.scm,v 1.5 2003/02/14 18:28:02 cph Exp $
 
3
$Id: make.scm,v 1.9 2007/01/05 21:19:20 cph Exp $
4
4
 
5
 
Copyright (c) 1992, 1999 Massachusetts Institute of Technology
 
5
Copyright (C) 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
 
6
    1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004, 2005,
 
7
    2006, 2007 Massachusetts Institute of Technology
6
8
 
7
9
This file is part of MIT/GNU Scheme.
8
10
 
18
20
 
19
21
You should have received a copy of the GNU General Public License
20
22
along with MIT/GNU Scheme; if not, write to the Free Software
21
 
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
 
23
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301,
22
24
USA.
23
25
 
24
26
|#
27
29
 
28
30
(declare (usual-integrations))
29
31
 
 
32
(load-option 'synchronous-subprocess)
 
33
 
30
34
(begin
31
35
  (declare-shared-library "sf+compiler" (lambda () true))
32
 
  (let ((value ((load "base/make") "C")))
 
36
  (let ((value ((load "base/make")
 
37
                (string-append "C/" microcode-id/machine-type))))
33
38
    (set! (access compiler:compress-top-level? (->environment '(compiler)))
34
39
          true)
 
40
    (set! (access compiler:compile-data-files-as-expressions?
 
41
                  (->environment '(compiler top-level)))
 
42
          false)
 
43
    (set! (access compiler:fggen-unmap-reference-traps-early?
 
44
                  (->environment '(compiler fg-generator)))
 
45
          false)
35
46
    value))
 
 
b'\\ No newline at end of file'