diff options
| author | Kaz Kylheku <kaz@kylheku.com> | 2021-06-24 19:44:54 -0700 |
|---|---|---|
| committer | Kaz Kylheku <kaz@kylheku.com> | 2021-06-24 19:44:54 -0700 |
| commit | 1c1685861e0d304f60f0669c6dbd5005349262e4 (patch) | |
| tree | 191fc885e0b3751447b94e4fca8d8e36485dd839 /tests/012/stack2.txr | |
| parent | d31b99878a2c7ed0fb52a88cb23cd7716d1ea40a (diff) | |
| download | txr-1c1685861e0d304f60f0669c6dbd5005349262e4.tar.gz txr-1c1685861e0d304f60f0669c6dbd5005349262e4.tar.bz2 txr-1c1685861e0d304f60f0669c6dbd5005349262e4.zip | |
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.
Diffstat (limited to 'tests/012/stack2.txr')
| -rw-r--r-- | tests/012/stack2.txr | 8 |
1 files changed, 8 insertions, 0 deletions
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) |