This is the mail archive of the cgen@sources.redhat.com mailing list for the CGEN project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]

[Patch] with-multiple-isa option for sim application


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"))


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]