From 7b50247672fce4d20b8599437089dd4a05a3f399 Mon Sep 17 00:00:00 2001
From: "Guillermo J. Rozas" <edu/mit/csail/zurich/gjr>
Date: Sat, 21 Nov 1987 18:47:39 +0000
Subject: [PATCH] Some bug fixes by CPH. Change to make primitives be
renumbered by the fasloader. When make is loaded it now asks whether it
should be loaded compiled or interpreted.
---
.../compiler/machines/bobcat/make.scm-68040 | 180 +++++++++---------
1 file changed, 90 insertions(+), 90 deletions(-)
diff --git a/v7/src/compiler/machines/bobcat/make.scm-68040 b/v7/src/compiler/machines/bobcat/make.scm-68040
index fc447e473..b60b39cdc 100644
--- a/v7/src/compiler/machines/bobcat/make.scm-68040
+++ b/v7/src/compiler/machines/bobcat/make.scm-68040
@@ -1,6 +1,6 @@
#| -*-Scheme-*-
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.44 1987/10/05 20:35:38 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.45 1987/11/21 18:47:39 jinx Exp $
Copyright (c) 1987 Massachusetts Institute of Technology
@@ -38,7 +38,7 @@ MIT in each case. |#
;(set-working-directory-pathname! "$zcomp")
;(load "base/rcs" system-global-environment)
-(load "base/pkging" system-global-environment)
+(load "base/pkging.bin" system-global-environment)
(in-package compiler-package
@@ -46,11 +46,11 @@ MIT in each case. |#
(make-environment
(define :name "Liar (Bobcat 68020)")
(define :version 3)
- (define :modification 2)
+ (define :modification 3)
(define :files)
; (parse-rcs-header
-; "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.44 1987/10/05 20:35:38 jinx Exp $"
+; "$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/machines/bobcat/make.scm-68040,v 1.45 1987/11/21 18:47:39 jinx Exp $"
; (lambda (filename version date time zone author state)
; (set! :version (car version))
; (set! :modification (cadr version))))
@@ -65,125 +65,125 @@ MIT in each case. |#
'("base/macros.bin" ;compiler syntax
"base/decls.bin" ;declarations
- "base/object.bin" ;tagged object support
- "base/queue.bin" ;queue abstraction
- "base/sets.bin" ;set abstraction
- "base/mvalue.bin" ;multiple-value support
-
- "machines/bobcat/machin.bin" ;machine dependent stuff
- "base/toplv1.bin" ;top level
- "base/toplv2.bin"
- "base/toplv3.bin"
- "base/utils.bin" ;odds and ends
- "base/cfg1.bin" ;control flow graph
- "base/cfg2.bin"
- "base/cfg3.bin"
- "base/rgraph.bin" ;program graph abstraction
- "base/ctypes.bin" ;CFG datatypes
- "base/dtype1.bin" ;DFG datatypes
- "base/dtype2.bin"
- "base/dtype3.bin"
- "base/dfg.bin" ;data flow graph
- "base/rtlty1.bin" ;RTL: type definitions
- "base/rtlty2.bin"
- "base/rtlexp.bin" ;RTL: expression operations
- "base/rtlcon.bin" ;RTL: complex constructors
- "base/rtlreg.bin" ;RTL: registers
- "base/rtlcfg.bin" ;RTL: CFG types
- "base/emodel.bin" ;environment model
- "base/rtypes.bin" ;RTL Registers
- "base/regset.bin" ;RTL Register Sets
- "base/pmlook.bin" ;pattern matcher: lookup
- "base/pmpars.bin" ;pattern matcher: parser
- "base/infutl.bin" ;utilities for info generation, shared
- "back-end/insseq.bin" ;lap instruction sequences
- "machines/bobcat/dassm1.bin" ;disassembler
- "base/linear.bin" ;linearization
+ "base/object.com" ;tagged object support
+ "base/queue.com" ;queue abstraction
+ "base/sets.com" ;set abstraction
+ "base/mvalue.com" ;multiple-value support
+
+ "machines/bobcat/machin.com" ;machine dependent stuff
+ "base/toplv1.com" ;top level
+ "base/toplv2.com"
+ "base/toplv3.com"
+ "base/utils.com" ;odds and ends
+ "base/cfg1.com" ;control flow graph
+ "base/cfg2.com"
+ "base/cfg3.com"
+ "base/rgraph.com" ;program graph abstraction
+ "base/ctypes.com" ;CFG datatypes
+ "base/dtype1.com" ;DFG datatypes
+ "base/dtype2.com"
+ "base/dtype3.com"
+ "base/dfg.com" ;data flow graph
+ "base/rtlty1.com" ;RTL: type definitions
+ "base/rtlty2.com"
+ "base/rtlexp.com" ;RTL: expression operations
+ "base/rtlcon.com" ;RTL: complex constructors
+ "base/rtlreg.com" ;RTL: registers
+ "base/rtlcfg.com" ;RTL: CFG types
+ "base/emodel.com" ;environment model
+ "base/rtypes.com" ;RTL Registers
+ "base/regset.com" ;RTL Register Sets
+ "base/pmlook.com" ;pattern matcher: lookup
+ "base/pmpars.com" ;pattern matcher: parser
+ "base/infutl.com" ;utilities for info generation, shared
+ "back-end/insseq.com" ;lap instruction sequences
+ "machines/bobcat/dassm1.com" ;disassembler
+ "base/linear.com" ;linearization
))
(cons disassembler-package
- '("machines/bobcat/dassm2.bin" ;disassembler
- "machines/bobcat/dassm3.bin"
+ '("machines/bobcat/dassm2.com" ;disassembler
+ "machines/bobcat/dassm3.com"
))
(cons converter-package
- '("alpha/fggen1.bin" ;SCode->flow-graph converter
- "alpha/fggen2.bin"
- "alpha/declar.bin" ;Declaration handling
+ '("alpha/fggen1.com" ;SCode->flow-graph converter
+ "alpha/fggen2.com"
+ "alpha/declar.com" ;Declaration handling
))
(cons dataflow-package
- '("alpha/dflow1.bin" ;Dataflow analyzer
- "alpha/dflow2.bin"
- "alpha/dflow3.bin"
- "alpha/dflow4.bin"
- "alpha/dflow5.bin"
- "alpha/dflow6.bin"
+ '("alpha/dflow1.com" ;Dataflow analyzer
+ "alpha/dflow2.com"
+ "alpha/dflow3.com"
+ "alpha/dflow4.com"
+ "alpha/dflow5.com"
+ "alpha/dflow6.com"
))
(cons rtl-generator-package
- '("front-end/rtlgen.bin" ;RTL generator
- "front-end/rgproc.bin" ;RTL generator: Procedure Headers
- "front-end/rgstmt.bin" ;RTL generator: Statements
- "front-end/rgpred.bin" ;RTL generator: Predicates
- "front-end/rgrval.bin" ;RTL generator: RValues
- "front-end/rgcomb.bin" ;RTL generator: Combinations
- "front-end/rgpcom.bin" ;RTL generator: Primitive open-coding
- "machines/bobcat/rgspcm.bin" ;RTL generator: primitives treated specially.
+ '("front-end/rtlgen.com" ;RTL generator
+ "front-end/rgproc.com" ;RTL generator: Procedure Headers
+ "front-end/rgstmt.com" ;RTL generator: Statements
+ "front-end/rgpred.com" ;RTL generator: Predicates
+ "front-end/rgrval.com" ;RTL generator: RValues
+ "front-end/rgcomb.com" ;RTL generator: Combinations
+ "front-end/rgpcom.com" ;RTL generator: Primitive open-coding
+ "machines/bobcat/rgspcm.com" ;RTL generator: primitives treated specially.
))
(cons rtl-cse-package
- '("front-end/rcse1.bin" ;RTL common subexpression eliminator
- "front-end/rcse2.bin"
- "front-end/rcseep.bin" ;CSE expression predicates
- "front-end/rcseht.bin" ;CSE hash table
- "front-end/rcserq.bin" ;CSE register/quantity abstractions
+ '("front-end/rcse1.com" ;RTL common subexpression eliminator
+ "front-end/rcse2.com"
+ "front-end/rcseep.com" ;CSE expression predicates
+ "front-end/rcseht.com" ;CSE hash table
+ "front-end/rcserq.com" ;CSE register/quantity abstractions
))
(cons rtl-analyzer-package
- '("front-end/rlife.bin" ;RTL register lifetime analyzer
- "front-end/rdeath.bin" ;RTL dead code eliminations
- "front-end/rdebug.bin" ;RTL optimizer debugging output
- "front-end/ralloc.bin" ;RTL register allocator
+ '("front-end/rlife.com" ;RTL register lifetime analyzer
+ "front-end/rdeath.com" ;RTL dead code eliminations
+ "front-end/rdebug.com" ;RTL optimizer debugging output
+ "front-end/ralloc.com" ;RTL register allocator
))
(cons debugging-information-package
- '("base/infgen.bin" ;debugging information generation
+ '("base/infgen.com" ;debugging information generation
))
(cons lap-syntax-package
- '("back-end/lapgn1.bin" ;LAP generator.
- "back-end/lapgn2.bin"
- "back-end/lapgn3.bin"
- "back-end/regmap.bin" ;Hardware register allocator.
- "machines/bobcat/lapgen.bin" ;code generation rules.
- "machines/bobcat/rules1.bin"
- "machines/bobcat/rules2.bin"
- "machines/bobcat/rules3.bin"
- "machines/bobcat/rules4.bin"
- "back-end/syntax.bin" ;Generic syntax phase
- "machines/bobcat/coerce.bin" ;Coercions: integer -> bit string
- "back-end/asmmac.bin" ;Macros for hairy syntax
- "machines/bobcat/insmac.bin" ;Macros for hairy syntax
- "machines/bobcat/insutl.bin" ;Utilities for instructions
- "machines/bobcat/instr1.bin" ;68000 Effective addressing
- "machines/bobcat/instr2.bin" ;68000 Instructions
- "machines/bobcat/instr3.bin" ; " "
- "machines/bobcat/instr4.bin" ; " "
+ '("back-end/lapgn1.com" ;LAP generator.
+ "back-end/lapgn2.com"
+ "back-end/lapgn3.com"
+ "back-end/regmap.com" ;Hardware register allocator.
+ "machines/bobcat/lapgen.com" ;code generation rules.
+ "machines/bobcat/rules1.com"
+ "machines/bobcat/rules2.com"
+ "machines/bobcat/rules3.com"
+ "machines/bobcat/rules4.com"
+ "back-end/syntax.com" ;Generic syntax phase
+ "machines/bobcat/coerce.com" ;Coercions: integer -> bit string
+ "back-end/asmmac.com" ;Macros for hairy syntax
+ "machines/bobcat/insmac.com" ;Macros for hairy syntax
+ "machines/bobcat/insutl.com" ;Utilities for instructions
+ "machines/bobcat/instr1.com" ;68000 Effective addressing
+ "machines/bobcat/instr2.com" ;68000 Instructions
+ "machines/bobcat/instr3.com" ; " "
+ "machines/bobcat/instr4.com" ; " "
))
(cons bit-package
- '("machines/bobcat/assmd.bin" ;Machine dependent
- "back-end/symtab.bin" ;Symbol tables
- "back-end/bitutl.bin" ;Assembly blocks
- "back-end/bittop.bin" ;Assembler top level
+ '("machines/bobcat/assmd.com" ;Machine dependent
+ "back-end/symtab.com" ;Symbol tables
+ "back-end/bitutl.com" ;Assembly blocks
+ "back-end/bittop.com" ;Assembler top level
))
))
))
- (load-system! compiler-system true))
+ (load-system! compiler-system))
(for-each (lambda (name)
(local-assignment system-global-environment name
--
2.25.1