diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2018-04-23 06:19:49 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2018-04-23 06:19:49 -0700 |
| commit | 5be52d3b6f09880e67b3d917a21d4cc7c62a93a0 (patch) | |
| tree | f2f0d67b3488fc9f47d06b21d24fd5cfc5e597a4 /share | |
| parent | 117999ea710e748f2af6ca1c835dff03cc3db4c1 (diff) | |
| download | txr-5be52d3b6f09880e67b3d917a21d4cc7c62a93a0.tar.gz txr-5be52d3b6f09880e67b3d917a21d4cc7c62a93a0.tar.bz2 txr-5be52d3b6f09880e67b3d917a21d4cc7c62a93a0.zip | |
compiler: better diagnostic about d-reg exhaustion.
* share/txr/stdlib/compiler.t (compiler get-dreg): Replace
"out of registers" message with something more pertinent.
The problem is that the code has too many literals for
the maximum table size.
Diffstat (limited to 'share')
| -rw-r--r-- | share/txr/stdlib/compiler.tl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/share/txr/stdlib/compiler.tl b/share/txr/stdlib/compiler.tl index 2a9f165c..772fb6d7 100644 --- a/share/txr/stdlib/compiler.tl +++ b/share/txr/stdlib/compiler.tl @@ -177,7 +177,7 @@ (let ((dreg ^(d ,(pinc me.dreg-cntr)))) (set [me.data (cadr dreg)] atom) (set [me.dreg atom] dreg))) - (t (compile-error me.last-form "code too complex: out of registers")))) + (t (compile-error me.last-form "code too complex: too many literals")))) (defmeth compiler get-fidx (me atom) (iflet ((fidx [me.fidx atom])) |