const CSTR_STRING() and CHARS_STRING().

gap-system · Sep 20, 2018 · fa474ef · fa474ef
1 parent 9baf277
commit fa474ef
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 5 deletions.
diff --git a/src/listfunc.c b/src/listfunc.c
@@ -287,7 +287,7 @@ Obj             FuncAPPEND_LIST_INTR (
         SET_LEN_STRING(list1, len1 + len2);
         CLEAR_FILTS_LIST(list1);
         // copy data, including terminating zero byte
-        memcpy(CHARS_STRING(list1) + len1, CHARS_STRING(list2), len2 + 1);
+        memcpy(CHARS_STRING(list1) + len1, CONST_CHARS_STRING(list2), len2 + 1);
         return (Obj) 0;
     }
 

diff --git a/src/stringobj.c b/src/stringobj.c
@@ -724,12 +724,12 @@ Int EqString (
     Obj                 listR )
 {
   UInt lL, lR;
-  UInt1 *pL, *pR;
+  const UInt1 *pL, *pR;
   lL = GET_LEN_STRING(listL);
   lR = GET_LEN_STRING(listR);
   if (lR != lL) return 0;
-  pL = CHARS_STRING(listL);
-  pR = CHARS_STRING(listR);
+  pL = CONST_CHARS_STRING(listL);
+  pR = CONST_CHARS_STRING(listR);
   return memcmp(pL, pR, lL) == 0;
 }
 
@@ -937,7 +937,7 @@ Obj ElmsString (
             }
 
             /* select the element                                          */
-            elm = CHARS_STRING(list)[pos-1];
+            elm = CONST_CHARS_STRING(list)[pos-1];
 
             /* assign the element into <elms>                              */
             CHARS_STRING(elms)[i-1] = elm;

diff --git a/src/stringobj.h b/src/stringobj.h
@@ -110,12 +110,24 @@ static inline Char * CSTR_STRING(Obj list)
     return (Char *)ADDR_OBJ(list) + sizeof(UInt);
 }
 
+static inline const Char * CONST_CSTR_STRING(Obj list)
+{
+    GAP_ASSERT(IS_STRING_REP(list));
+    return (const Char *)CONST_ADDR_OBJ(list) + sizeof(UInt);
+}
+
 static inline UChar * CHARS_STRING(Obj list)
 {
     GAP_ASSERT(IS_STRING_REP(list));
     return (UChar *)ADDR_OBJ(list) + sizeof(UInt);
 }
 
+static inline const UChar * CONST_CHARS_STRING(Obj list)
+{
+    GAP_ASSERT(IS_STRING_REP(list));
+    return (const UChar *)CONST_ADDR_OBJ(list) + sizeof(UInt);
+}
+
 /****************************************************************************
 **
 *F  GET_LEN_STRING( <list> )  . . . . . . . . . . . . . .  length of a string