From 1c1685861e0d304f60f0669c6dbd5005349262e4 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 24 Jun 2021 19:44:54 -0700
Subject: txr: stack protection in pattern language.

* txr.c (do_match_line, match_files): call gc_stack_check on
entry.

* tests/012/stack2.txr: New file.

* tests/012/stack2.expected: New file.
---
 tests/012/stack2.txr | 8 ++++++++
 1 file changed, 8 insertions(+)
 create mode 100644 tests/012/stack2.txr

(limited to 'tests/012/stack2.txr')

diff --git a/tests/012/stack2.txr b/tests/012/stack2.txr
new file mode 100644
index 00000000..df9e209a
--- /dev/null
+++ b/tests/012/stack2.txr
@@ -0,0 +1,8 @@
+@(define recur ())
+@(recur)
+@(end)
+@(try)
+@(recur)
+@(catch stack-overflow (arg))
+@(do (put-line "caught"))
+@(end)
-- 
cgit v1.2.3