From: Frank Ch. Eigler Date: Mon, 8 Jan 2001 18:44:23 +0000 (+0000) Subject: * cleanup X-Git-Url: https://sourceware.org/git/?a=commitdiff_plain;h=de5c6024a987971c940bbfc5f6ba0f254acceb5f;p=cgen.git * cleanup 2001-01-08 Frank Ch. Eigler * 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 af9f50b..58c90ea 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +2001-01-08 Frank Ch. Eigler + + * 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 * doc/rtl.texi: Deprecate and depreciate the decode-assist construct. diff --git a/read.scm b/read.scm index 6c1d668..0d8c6b3 100644 --- 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 c6c55b4..a11fb8e 100644 --- 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?