This is the mail archive of the
cgen@sources.redhat.com
mailing list for the CGEN project.
[Patch] with-multiple-isa option for sim application
- To: cgen at sources dot redhat dot com
- Subject: [Patch] with-multiple-isa option for sim application
- From: Ben Elliston <bje at redhat dot com>
- Date: Thu, 23 Nov 2000 14:30:59 +1100
This work is independent of any future use of a with-multiple-isa
option (patches forthcoming!). I already have patches to sim-cpu.scm
that uses the (with-multiple-isa?) function.
Okay to commit?
2000-11-23 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.
*** sim.scm 2000/10/13 12:06:55 1.89
--- sim.scm 2000/11/23 03:27:56
***************
*** 42,47 ****
--- 42,49 ----
; 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,66 ****
--- 63,72 ----
(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,86 ****
--- 87,93 ----
(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,103 ****
--- 105,111 ----
((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"))