From 637636412037d1fc2079f81260b19de5d0dab199 Mon Sep 17 00:00:00 2001 From: Akim Demaille Date: Sun, 4 Sep 2022 08:34:11 +0200 Subject: muscles: fix handling of the "@'" escape When we use `b4_` or `m4_` somewhere in the input, it is escaped as `b4@'_`/`m4@'_` so that the warning about unexpanded b4_foo/m4_foo macros does not fire. But in the case of muscles, the `@'` escape was not recognized, and an assertion was triggered. Reported by Han Zheng. * src/muscle-tab.c (COMMON_DECODE): Handle `@'`. * tests/skeletons.at (Suspicious sequences): Check that case. --- src/muscle-tab.c | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'src/muscle-tab.c') diff --git a/src/muscle-tab.c b/src/muscle-tab.c index 43911d3e..0945d609 100644 --- a/src/muscle-tab.c +++ b/src/muscle-tab.c @@ -294,10 +294,11 @@ muscle_location_grow (char const *key, location loc) case '@': \ switch (*++(Value)) \ { \ - case '@': obstack_sgrow (&muscle_obstack, "@" ); break; \ - case '{': obstack_sgrow (&muscle_obstack, "[" ); break; \ - case '}': obstack_sgrow (&muscle_obstack, "]" ); break; \ - default: aver (false); break; \ + case '\'': /* Ignore "@'" */ break; \ + case '@': obstack_sgrow (&muscle_obstack, "@" ); break; \ + case '{': obstack_sgrow (&muscle_obstack, "[" ); break; \ + case '}': obstack_sgrow (&muscle_obstack, "]" ); break; \ + default: aver (false); break; \ } \ break; \ default: \ -- cgit v1.2.1