From 8d9fd9fa0696d33314fa582bce51b283a5468725 Mon Sep 17 00:00:00 2001
From: devans <devans>
Date: Mon, 21 Sep 2009 15:18:54 +0000
Subject: [PATCH] 	* read.scm (/CGEN-RTL-VERSION): Initialize to #f. 
 (init-reader!): Set /CGEN-RTL-VERSION to default.

	* read.scm (cpu-load): Print load parameters.
---
 cgen/ChangeLog |  5 +++++
 cgen/read.scm  | 10 +++++++++-
 2 files changed, 14 insertions(+), 1 deletion(-)

diff --git a/cgen/ChangeLog b/cgen/ChangeLog
index 3306ff8131..2b87e94433 100644
--- a/cgen/ChangeLog
+++ b/cgen/ChangeLog
@@ -1,5 +1,10 @@
 2009-09-21  Doug Evans  <dje@sebabeach.org>
 
+	* read.scm (/CGEN-RTL-VERSION): Initialize to #f.
+	(init-reader!): Set /CGEN-RTL-VERSION to default.
+
+	* read.scm (cpu-load): Print load parameters.
+
 	* dev.scm (load-doc): Set verbose-level to 2.
 
 2009-09-20  Doug Evans  <dje@sebabeach.org>
diff --git a/cgen/read.scm b/cgen/read.scm
index 5c15b88766..0159be4fba 100644
--- a/cgen/read.scm
+++ b/cgen/read.scm
@@ -72,7 +72,8 @@
 ; A list of two numbers designating the description language version.
 ; Note that this is different from /CGEN-VERSION.
 ; See section "RTL Versions" of the docs.
-(define /CGEN-RTL-VERSION '(0 7))
+(define /CGEN-RTL-VERSION #f)
+(define /default-rtl-version '(0 7))
 (define (cgen-rtl-version) /CGEN-RTL-VERSION)
 (define (cgen-rtl-major) (car /CGEN-RTL-VERSION))
 (define (cgen-rtl-minor) (cadr /CGEN-RTL-VERSION))
@@ -906,6 +907,8 @@
 (define (/init-reader!)
   (set! CURRENT-READER (new <reader>))
 
+  (set! /CGEN-RTL-VERSION /default-rtl-version)
+
   (reader-add-command! 'define-rtl-version
 		       "Specify the RTL version being used.\n"
 		       nil '(major minor) /cmd-define-rtl-version)
@@ -1086,6 +1089,11 @@ Define a preprocessor-style macro.
   (/set-diagnostic-options! diagnostic-options)
   (app-initer!)
   (logit 1 "Loading cpu description " file " ...\n")
+  (logit 1 "machs:   " keep-mach "\n")
+  (logit 1 "isas:    " keep-isa "\n")
+  (logit 1 "options: " options "\n")
+  (logit 1 "trace:   " trace-options "\n")
+  (logit 1 "diags:   " diagnostic-options "\n")
   (set! arch-path (dirname file))
   (reader-read-file! file)
   (logit 2 "Processing cpu description " file " ...\n")
-- 
2.11.0