X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCCval.c;h=d944b5c8cd38ec6fed8f35ac4946bc1250d6854b;hb=a27e7a4d14e0da24074864d363eb08700d6893ed;hp=687a2a3f34cba86ca943687f11d2e008966663ba;hpb=bbf35899c49a083be1b97e230478a718facfee75;p=fw%2Fsdcc

diff --git a/src/SDCCval.c b/src/SDCCval.c
index 687a2a3f..d944b5c8 100644
--- a/src/SDCCval.c
+++ b/src/SDCCval.c
@@ -1537,6 +1537,7 @@ valForArray (ast * arrExpr)
   if (SPEC_SCLS (arrExpr->left->etype) == S_CODE)
     {
       DCL_TYPE (val->type) = CPOINTER;
+      DCL_PTR_CONST (val->type) = port->mem.code_ro;
     }
   else if (SPEC_SCLS (arrExpr->left->etype) == S_XDATA)
     DCL_TYPE (val->type) = FPOINTER;
@@ -1607,6 +1608,7 @@ valForStructElem (ast * structT, ast * elemT)
   if (SPEC_SCLS (structT->etype) == S_CODE)
     {
       DCL_TYPE (val->type) = CPOINTER;
+      DCL_PTR_CONST (val->type) = port->mem.code_ro;
     }
   else if (SPEC_SCLS (structT->etype) == S_XDATA)
     DCL_TYPE (val->type) = FPOINTER;