From: cuz <cuz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Fri, 1 Dec 2000 10:37:41 +0000 (+0000)
Subject: Translate chars returned by .strat into the target charset
X-Git-Tag: V2.12.0~3031
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=a5d8a5a94f4750fd3f32d98fb718fab161b83e9d;p=cc65

Translate chars returned by .strat into the target charset


git-svn-id: svn://svn.cc65.org/cc65/trunk@509 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

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]);
 }