X-Git-Url: https://git.sur5r.net/?a=blobdiff_plain;f=src%2Fca65%2Fexpr.c;h=497a6143abbece80766303dd70af328eb520dd0f;hb=46209118b1a77d2e57f28026b1e5916c2c074778;hp=3e09dee13d91f2876348925fce6ba551becd51b6;hpb=b9970cb7da2f36cb330c9f6b94a71c8faa9bb324;p=cc65

diff --git a/src/ca65/expr.c b/src/ca65/expr.c
index 3e09dee13..497a6143a 100644
--- a/src/ca65/expr.c
+++ b/src/ca65/expr.c
@@ -38,6 +38,7 @@
 /* common */
 #include "check.h"
 #include "exprdefs.h"
+#include "print.h"
 #include "tgttrans.h"
 #include "xmalloc.h"
 
@@ -359,13 +360,15 @@ static int FuncStrAt (void)
     Index = ConstExpression ();
 
     /* Must be a valid index */
-    if (Index >= strlen (Str)) {
+    if (Index >= (long) strlen (Str)) {
 	Error (ERR_RANGE);
 	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]);
 }
 
 
@@ -1034,7 +1037,7 @@ int IsConstExpr (ExprNode* Root)
 	    case EXPR_SYMBOL:
 	 	Sym = Root->V.Sym;
 	       	if (SymHasUserMark (Sym)) {
-		    if (Verbose) {
+		    if (Verbosity > 0) {
 		      	DumpExpr (Root);
 		    }
 		    PError (GetSymPos (Sym), ERR_CIRCULAR_REFERENCE);
@@ -1107,10 +1110,13 @@ static void CheckByteExpr (const ExprNode* N, int* IsByte)
     	    case EXPR_LEAFNODE:
 		switch (N->Op) {
 
-		    case EXPR_SYMBOL:
-			if (SymIsZP (N->V.Sym)) {
-			    *IsByte = 1;
-		       	}
+    		    case EXPR_SYMBOL:
+    			if (SymIsZP (N->V.Sym)) {
+    			    *IsByte = 1;
+    		       	} else if (SymHasExpr (N->V.Sym)) {
+			    /* Check if this expression is a byte expression */
+			    *IsByte = IsByteExpr (GetSymExpr (N->V.Sym));
+			}
 			break;
 
 		    case EXPR_SEGMENT:
@@ -1306,7 +1312,7 @@ static ExprNode* RemoveSyms (ExprNode* Expr, int MustClone)
 		SymEntry* Sym = Expr->V.Sym;
 		if (SymHasUserMark (Sym)) {
 		    /* Circular definition */
-		    if (Verbose) {
+		    if (Verbosity) {
 			DumpExpr (Expr);
 		    }
 		    PError (GetSymPos (Sym), ERR_CIRCULAR_REFERENCE);