X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2FSDCC.y;h=c558c6c7390b131bdc5824dc1588c2f5e9ae4598;hb=a27e7a4d14e0da24074864d363eb08700d6893ed;hp=44e903b60673c0f5920f46e411eb5ccf1f7879d4;hpb=bbf35899c49a083be1b97e230478a718facfee75;p=fw%2Fsdcc

diff --git a/src/SDCC.y b/src/SDCC.y
index 44e903b6..c558c6c7 100644
--- a/src/SDCC.y
+++ b/src/SDCC.y
@@ -976,6 +976,7 @@ pointer
 		     DCL_TYPE($3) = POINTER ;
 		     break;
 		 case S_CODE:
+		     DCL_PTR_CONST($3) = 1;
 		     DCL_TYPE($3) = CPOINTER ;
 		     break;
 		 case S_EEPROM: