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

diff --git a/src/ca65/expr.c b/src/ca65/expr.c
index 535bea07d..497a6143a 100644
--- a/src/ca65/expr.c
+++ b/src/ca65/expr.c
@@ -33,8 +33,13 @@
 
 
 
+#include <string.h>
+
 /* common */
+#include "check.h"
 #include "exprdefs.h"
+#include "print.h"
+#include "tgttrans.h"
 #include "xmalloc.h"
 
 /* ca65 */
@@ -355,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]);
 }
 
 
@@ -477,11 +484,15 @@ static ExprNode* Factor (void)
     switch (Tok) {
 
 	case TOK_INTCON:
-	case TOK_CHARCON:
     	    N = LiteralExpr (IVal);
        	    NextTok ();
 	    break;
 
+	case TOK_CHARCON:
+    	    N = LiteralExpr (TgtTranslateChar (IVal));
+       	    NextTok ();
+	    break;
+
         case TOK_NAMESPACE:
 	    NextTok ();
 	    if (Tok != TOK_IDENT) {
@@ -603,8 +614,13 @@ static ExprNode* Factor (void)
 	    break;
 
 	default:
-	    N = LiteralExpr (0);      	/* Dummy */
-	    Error (ERR_SYNTAX);
+	    if (LooseCharTerm && Tok == TOK_STRCON && strlen(SVal) == 1) {
+		/* A character constant */
+		N = LiteralExpr (TgtTranslateChar (SVal[0]));
+	    } else {
+		N = LiteralExpr (0);	/* Dummy */
+		Error (ERR_SYNTAX);
+	    }
 	    NextTok ();
 	    break;
     }
@@ -1021,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);
@@ -1094,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:
@@ -1293,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);