From a5d8a5a94f4750fd3f32d98fb718fab161b83e9d Mon Sep 17 00:00:00 2001
From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 1 Dec 2000 10:37:41 +0000
Subject: [PATCH] Translate chars returned by .strat into the target charset

git-svn-id: svn://svn.cc65.org/cc65/trunk@509 b7a2c559-68d2-44c3-8de9-860c34a00d81
---
 src/ca65/expr.c | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/src/ca65/expr.c b/src/ca65/expr.c
index 7d20da271..f6b412547 100644
--- a/src/ca65/expr.c
+++ b/src/ca65/expr.c
@@ -364,8 +364,10 @@ static int FuncStrAt (void)
 	return 0;
     }
 
-    /* Return the char, handle as unsigned */
-    return (unsigned char) Str[(size_t)Index];
+    /* Return the char, handle as unsigned. Be sure to translate it into
+     * the target character set.
+     */
+    return (unsigned char) TgtTranslateChar (Str [(size_t)Index]);
 }