2000-11-24 Ben Elliston <bje@redhat.com>

	* sim.scm (-with-multiple-isa?): New symbol.
	(with-multiple-isa?): New function.
	(option-init!): Initialise -with-multiple-isa?.
	(option-set!): Handle with-multiple-isa option.

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index a6ab46b..4084c52 100644 (file)
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,3 +1,10 @@
+2000-11-24  Ben Elliston  <bje@redhat.com>
+
+       * sim.scm (-with-multiple-isa?): New symbol.
+       (with-multiple-isa?): New function.
+       (option-init!): Initialise -with-multiple-isa?.
+       (option-set!): Handle with-multiple-isa option.
+
 2000-11-21  Ben Elliston  <bje@redhat.com>
 
        * utils.scm (copyright-fsf): Add the year 2000.

diff --git a/cgen/sim.scm b/cgen/sim.scm
index ec38976..f423c29 100644 (file)
--- a/cgen/sim.scm
+++ b/cgen/sim.scm
@@ -42,6 +42,8 @@
 ;      and doing a post-semantics writeback pass.
 ; with-parallel-only
 ;      Only generate parallel versions of each insn.
+; with-multiple-isa
+;      Enable multiple-isa support (eg. arm+thumb).
 ; copyright fsf|cygnus
 ;      emit an FSF or Cygnus copyright (temporary, pending decision)
 ; package gnusim|cygsim
@@ -61,6 +63,10 @@
 (define (with-profile?) -with-profile?)
 (define (with-any-profile?) (or -with-profile-fn? -with-profile-sw?))
 
+; #t if multiple isa support is enabled
+(define -with-multiple-isa? #f)
+(define (with-multiple-isa?) -with-multiple-isa?)
+
 ; Handle parallel execution with generic writeback pass.
 (define -with-generic-write? #f)
 (define (with-generic-write?) -with-generic-write?)
@@ -81,6 +87,7 @@
   (set! -with-scache? #f)
   (set! -with-profile-fn? #f)
   (set! -with-profile-sw? #f)
+  (set! -with-multiple-isa? #f)
   (set! -with-generic-write? #f)
   (set! -with-parallel-only? #f)
   (set! CURRENT-COPYRIGHT copyright-fsf)
@@ -98,6 +105,7 @@
                          ((equal? value '("sw"))
                           (set! -with-profile-sw? #t))
                          (else (error "invalid with-profile value" value))))
+    ((with-multiple-isa) (set! -with-multiple-isa? #t))
     ((with-generic-write) (set! -with-generic-write? #t))
     ((with-parallel-only) (set! -with-parallel-only? #t))
     ((copyright) (cond ((equal?  value '("fsf"))