* cleanup

2001-01-08  Frank Ch. Eigler  <fche@redhat.com>

	* rtl.scm (hw): Copy hw-name to new operand's sem-name, to simplify
	its subsequent gen-pretty-name.

	* read.scm: Increase thread working stack limit and backtrace
	depth limits.

diff --git a/ChangeLog b/ChangeLog
index af9f50b7fee822775012e2ba511cca6f14dc7cae..58c90ea3c2a59ea446b81f37cfee4c0e0a38afaa 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+2001-01-08  Frank Ch. Eigler  <fche@redhat.com>
+
+       * rtl.scm (hw): Copy hw-name to new operand's sem-name, to simplify
+       its subsequent gen-pretty-name.
+
+       * read.scm: Increase thread working stack limit and backtrace
+       depth limits.
+
 2001-01-08  Frank Ch. Eigler  <fche@redhat.com>
 
        * doc/rtl.texi: Deprecate and depreciate the decode-assist construct.

diff --git a/read.scm b/read.scm
index 6c1d668ad1cb7bf1d960e4be61df4c800f4d6dd7..0d8c6b3c4222fc728faf82054266d6ff2d29fa35 100644 (file)
--- a/read.scm
+++ b/read.scm
@@ -99,6 +99,9 @@
       (read-disable 'positions)
       ))
 
+; Extend the default limits of the interpreter stack
+(debug-set! stack 100000)
+
 ; If this is set to #f, the file is always loaded.
 ; Don't override any current setting, e.g. from dev.scm.
 (if (not (defined? 'CHECK-LOADED?))
@@ -1104,7 +1107,8 @@ Define a preprocessor-style macro.
                            (debug-enable 'backtrace)
                            (debug-enable 'debug)
                            (debug-enable 'backwards)
-                           (debug-set! depth 200)
+                           (debug-set! depth 2000)
+                           (debug-set! maxdepth 2000)
                            (debug-set! frames 10)
                            (read-enable 'positions)))
                      )

diff --git a/rtl.scm b/rtl.scm
index c6c55b40bd3d2bccfe89679f8c7a1d91a68cb4cc..a11fb8ed19709aa049ba235cf3c64ba40ffef6cf 100644 (file)
--- a/rtl.scm
+++ b/rtl.scm
@@ -2035,7 +2035,7 @@
       ; of a hardware object (e.g. h-gr[0], h-gr[14]) can be distinguished.
       (let ((name (-rtx-hw-name hw hw-name index-arg)))
        (send result 'set-name! name)
-       (op:set-sem-name! result name))
+       (op:set-sem-name! result hw-name))
 
       ; Empty comment and attribute.
       ; ??? Stick the arguments in the comment for debugging purposes?