diff options
Diffstat (limited to 'lisp/cedet/semantic')
| -rw-r--r-- | lisp/cedet/semantic/ede-grammar.el | 7 | ||||
| -rw-r--r-- | lisp/cedet/semantic/grammar.el | 1 |
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/cedet/semantic/ede-grammar.el b/lisp/cedet/semantic/ede-grammar.el index ff9f991ff4a..40ff8fc86d3 100644 --- a/lisp/cedet/semantic/ede-grammar.el +++ b/lisp/cedet/semantic/ede-grammar.el | |||
| @@ -177,10 +177,9 @@ Lays claim to all -by.el, and -wy.el files." | |||
| 177 | 177 | ||
| 178 | (cl-defmethod ede-proj-makefile-insert-rules :after ((this semantic-ede-proj-target-grammar)) | 178 | (cl-defmethod ede-proj-makefile-insert-rules :after ((this semantic-ede-proj-target-grammar)) |
| 179 | "Insert rules needed by THIS target. | 179 | "Insert rules needed by THIS target. |
| 180 | This raises `max-specpdl-size' and `max-lisp-eval-depth', which can be | 180 | This raises `max-lisp-eval-depth', which can be needed for the compilation |
| 181 | needed for the compilation of the resulting parsers." | 181 | of the resulting parsers." |
| 182 | (insert (format "%s: EMACSFLAGS+= --eval '(setq max-specpdl-size 1500 \ | 182 | (insert (format "%s: EMACSFLAGS+= --eval '(setq max-lisp-eval-depth 700)'\n" |
| 183 | max-lisp-eval-depth 700)'\n" | ||
| 184 | (oref this name)))) | 183 | (oref this name)))) |
| 185 | 184 | ||
| 186 | (cl-defmethod ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar)) | 185 | (cl-defmethod ede-proj-makefile-insert-dist-dependencies ((this semantic-ede-proj-target-grammar)) |
diff --git a/lisp/cedet/semantic/grammar.el b/lisp/cedet/semantic/grammar.el index 72037f47108..8ba0e346fff 100644 --- a/lisp/cedet/semantic/grammar.el +++ b/lisp/cedet/semantic/grammar.el | |||
| @@ -1009,7 +1009,6 @@ Return non-nil if there were no errors, nil if errors." | |||
| 1009 | packagename (byte-compile-dest-file packagename)) | 1009 | packagename (byte-compile-dest-file packagename)) |
| 1010 | (let (;; Some complex grammar table expressions need a few | 1010 | (let (;; Some complex grammar table expressions need a few |
| 1011 | ;; more resources than the default. | 1011 | ;; more resources than the default. |
| 1012 | (max-specpdl-size (max 3000 max-specpdl-size)) | ||
| 1013 | (max-lisp-eval-depth (max 1000 max-lisp-eval-depth)) | 1012 | (max-lisp-eval-depth (max 1000 max-lisp-eval-depth)) |
| 1014 | ) | 1013 | ) |
| 1015 | ;; byte compile the resultant file | 1014 | ;; byte compile the resultant file |