From fb7e7b36b7bfe906b60e9e9adf9c0ce85fe55dd0 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Mon, 23 Apr 2018 06:19:49 -0700 Subject: 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. --- share/txr/stdlib/compiler.tl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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])) -- cgit v1.2.3