From a366c909a2fb40347c1c07644f93802ea6034c39 Mon Sep 17 00:00:00 2001 From: pfdietz <pfdietz@localhost> Date: Mon, 10 Nov 2003 02:50:12 +0000 Subject: [PATCH] Added test for gcl (seg fault in notinlined funcall. --- ansi-tests/misc.lsp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp index 58019edf..eb940eca 100644 --- a/ansi-tests/misc.lsp +++ b/ansi-tests/misc.lsp @@ -2084,3 +2084,17 @@ (multiple-value-call #'%f9 (values v2 v2)))) 100))))) 100) + +;;; gcl (9 Nov 2003) bug +;;; Error in FUNCALL [or a callee]: Caught fatal error [memory may be damaged] + +(deftest misc.160 + (funcall + (compile nil + '(lambda (c) + (declare (notinline + funcall)) + (+ (labels ((%f1 () -14)) (funcall #'%f1)) + (flet ((%f2 () (floor c))) (funcall #'%f2))))) + 0) + -14) + -- GitLab