"\a" escape (used for right justified key definitions in menus) is encodes as

binary 8.

diff --git a/binutils/ChangeLog b/binutils/ChangeLog
index f1fab3fb57fbe8b1ef561bc7c8425cff8446d641..299621dc989ef3578c9cd5cfb594ccc760cf4fab 100644 (file)
--- a/binutils/ChangeLog
+++ b/binutils/ChangeLog
@@ -5,6 +5,8 @@
        Fix typo in BEDIT warning.
 
        * rclex.l: "\xhex" encoding in strings corrected.
+       "\a" escape (used for right justified key definitions in menus) is
+       encodes as binary 8.
 
 2002-04-09  Gunnar Degnbol <degnbol@danbbs.dk>
 

diff --git a/binutils/rclex.l b/binutils/rclex.l
index f20c82ff2b71788527cba95dd36c8df4c38e1fba..6e29e622d0897ac304ca7a0539a34f5e197461e6 100644 (file)
--- a/binutils/rclex.l
+++ b/binutils/rclex.l
@@ -331,7 +331,7 @@ handle_quotes (input, len)
              break;
 
            case 'a':
-             *s++ = ESCAPE_A;
+             *s++ = ESCAPE_B; /* Strange, but true...  */
              ++t;
              break;
 

diff --git a/binutils/testsuite/ChangeLog b/binutils/testsuite/ChangeLog
index 9c84fd74ca5e9cdcd76fd465f880313c554ec9d4..9129b6e08698542ac01be383685326fcbfa425e2 100644 (file)
--- a/binutils/testsuite/ChangeLog
+++ b/binutils/testsuite/ChangeLog
@@ -1,5 +1,9 @@
 2002-04-09  Nick Clifton  <nickc@cambridge.redhat.com>
 
+       * binutils-all/windres/escapea.rc: New test case for encoding \a
+       escape sequence.
+       * binutils-all/windres/escapea.rsd: Expected output.
+
        * binutils-all/windres/escapex.rc: New test case for hex constants
        in strings.
        * binutils-all/windres/escapex.rsd: Expected output

diff --git a/binutils/testsuite/binutils-all/windres/escapea.rc b/binutils/testsuite/binutils-all/windres/escapea.rc
new file mode 100644 (file)
index 0000000..0e3e967
--- /dev/null
+++ b/binutils/testsuite/binutils-all/windres/escapea.rc
@@ -0,0 +1,7 @@
+20 MENU DISCARDABLE 
+BEGIN
+    POPUP "&File"
+    BEGIN
+        MENUITEM "&Open\a^O",                   17
+    END
+END

diff --git a/binutils/testsuite/binutils-all/windres/escapea.rsd b/binutils/testsuite/binutils-all/windres/escapea.rsd
new file mode 100644 (file)
index 0000000..1875ebe
--- /dev/null
+++ b/binutils/testsuite/binutils-all/windres/escapea.rsd
@@ -0,0 +1,7 @@
+ 0000 00000000 20000000 ffff0000 ffff0000  .... ...........
+ 0010 00000000 00000000 00000000 00000000  ................
+ 0020 28000000 20000000 ffff0400 ffff1400  (... ...........
+ 0030 00000000 10100000 00000000 00000000  ................
+ 0040 00000000 90002600 46006900 6c006500  ......&.F.i.l.e.
+ 0050 00008000 11002600 4f007000 65006e00  ......&.O.p.e.n.
+ 0060 08005e00 4f000000                    ..^.O...